jj: add app state

EDMI_ClientSuite/Settings/LicenseState.vb

@@ -0,0 +1,7 @@
+Public Class LicenseState
+    Public Modules As List(Of ModuleState)
+
+    Public Sub New()
+        Modules = New List(Of ModuleState)
+    End Sub
+End Class

EDMI_ClientSuite/Settings/ModuleState.vb

@@ -0,0 +1,7 @@
+Public Class ModuleState
+    Public Name As String
+
+    Public Sub New(Name As String)
+        Me.Name = Name
+    End Sub
+End Class

EDMI_ClientSuite/Settings/UserState.vb

@@ -0,0 +1,20 @@
+Imports System.Threading
+
+''' <summary>
+''' Helper Class to hold User State
+''' </summary>
+Public Class UserState
+    Public UserName As String
+    Public MachineName As String
+    Public Language As String
+
+
+    ''' <summary>
+    ''' Initialize user object with values that can be read from the environment
+    ''' </summary>
+    Public Sub New()
+        Language = Thread.CurrentThread.CurrentCulture.Name
+        UserName = Environment.UserName
+        MachineName = Environment.MachineName
+    End Sub
+End Class