work on jobrunner

JobRunner/JobRunner.vb

@@ -60,8 +60,17 @@ Public Class JobRunner
             _logger.Debug("Background worker running..")
 
             ' TODO: WORK
-            'Dim job As New ImportZUGFeRDFiles(_logConfig, _firebird)
-            'job.Start(args)
+
+            Dim oJob As New ADSyncJob(_logConfig, _firebird)
+            Dim oArgs As New ADSyncArgs() With {
+                .Enabled = My.Settings.JOB_ADSYNC_ENABLED,
+                .Interval = My.Settings.JOB_ADSYNC_INTERVAL,
+                .RootPath = My.Settings.JOB_ADSYNC_ROOT_PATH
+            }
+            If oJob.ShouldStart(oArgs) Then
+                oJob.Start(oArgs)
+            End If
+
         Catch ex As Exception
             _logger.Warn("Background worker failed!")
             _logger.Error(ex)