07-12-2022

ECM.JobRunner.Windows/Service.vb

@@ -2,6 +2,7 @@
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging.WCF
+Imports DigitalData.Modules.Windream
 
 Public Class Service
 
@@ -16,6 +17,7 @@ Public Class Service
     Private Scheduler As Scheduler.JobScheduler
     Private Database As MSSQLServer
     Private State As State
+    Private Windream As Windream
 
     Protected Overrides Async Sub OnStart(ByVal args() As String)
         ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
@@ -37,8 +39,13 @@ Public Class Service
             ' set logging debug flag from config
             LogConfig.Debug = Config.Debug
 
+            ' Initialize Windream
+            Dim oWindream = Config.Windream
+            Windream = New Windream(LogConfig, True, oWindream.DriveLetter, "/", True,
+                                    oWindream.Server, oWindream.Username, oWindream.Password, oWindream.Domain)
+
             ' initialize global state
-            State = New State(LogConfig, Database)
+            State = New State(LogConfig, Database, Windream)
 
             ' start the scheduler 
             Scheduler = New Scheduler.JobScheduler(LogConfig, Database, State)