Prepare Rightsmanagement in DocumentResults

Modules.ZooFlow/Environment.vb

@@ -3,6 +3,7 @@
 Public Class Environment
     Public User As State.UserState
     Public Settings As State.SettingsState
+    Public Service As State.ServiceState
     Public Database As MSSQLServer
     Public DatabaseIDB As MSSQLServer
     Public Modules As Dictionary(Of String, State.ModuleState)

Modules.ZooFlow/State/ServiceState.vb

@@ -1,6 +1,8 @@
 Namespace State
     Public Class ServiceState
-        Public Property Online As Boolean = True
-        Public Property LastChecked As DateTime = DateTime.Now
+        Public Property IsOnline As Boolean = False
+        Public Property IsActive As Boolean = False
+        Public Property LastChecked As Date = Date.Now
+        Public Property Address As String = String.Empty
     End Class
 End Namespace