small changes and fixes for jobrunner

Service.JobRunner/JobRunner.vb

@@ -14,7 +14,8 @@ Public Class JobRunner
     Private _mssql As MSSQLServer
 
     Private _Props As New NameValueCollection From {
-        {"quartz.serializer.type", "binary"}
+        {"quartz.serializer.type", "binary"},
+        {"quartz.threadPool.threadCount", 1}
     }
     Private _factory As StdSchedulerFactory
     Private _scheduler As IScheduler
@@ -98,11 +99,11 @@ Public Class JobRunner
             Dim oFirebird As Firebird = oJobData.Item("Firebird")
             Dim oMSSQL As MSSQLServer = oJobData.Item("MSSQL")
             Dim oArgs As Dictionary(Of String, String) = oJobData.Item("Args")
-            Dim oRootPath As String = oArgs.Item("RootPath")
+            Dim oADJobArgs = New ADSyncArgs()
 
-            Dim oADJobArgs = New ADSyncArgs() With {
-                .RootPath = oRootPath
-            }
+            If oArgs.ContainsKey("RootPath") Then
+                oADJobArgs.RootPath = oArgs.Item("RootPath")
+            End If
 
             Dim oADSyncJob As New ADSyncJob(oLogConfig, oFirebird, oMSSQL)
             oADSyncJob.Start(oADJobArgs)