LogON LogOFF werden protokoliert

Class2.vb

@@ -0,0 +1,41 @@
+Public Class Class1
+    Public sAppPath As String = Application.StartupPath
+    'Public Shared DBConString As String = "Server=NBMIESENBECK\SPIELWIESE;Initial Catalog=Doku;User ID=sa;Password=verag#3;Connection Timeout=5;"
+
+    Public Shared DBConstringDev As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+    Public Shared DBADMINBuchhaltung As String = "Data Source=SQLGuide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+    Public Shared DBAdmin As String = "[SQLGuide01.verag.ost.dmn].ADMIN"
+    Public Shared DBDoku As String = "Server=SQLGuide01.verag.ost.dmn\Verag;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+    'Public Shared DBDoku As String = "Server=dokusql.verag.ost.dmn\sqlexpress;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+    Public Shared DBDokuTest As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+    'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
+    Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
+    Public Shared Absender As String = "Absender Standard"
+    'Public Shared sAppPath As String = Application.StartupPath
+
+    Public Shared DBConString As String = DBDoku
+
+    Public Shared Standorte As New List(Of String)
+    Public Shared AlleStandorte As New List(Of String)
+    Public Shared LoggedOnUser As New cBenutzer
+
+    Public Shared LoggedOnUserisAdmin As Boolean = False
+    Public Shared DebugMode As Boolean = False
+    Public Shared DebugText As String = ""
+    Public Shared GroupUsers As List(Of cBenutzer)
+    Public Shared dtSuchergebnis As DataTable
+    Public Shared TeamviewerToken As String = "6920997-rtea7sZy35Ujw2Erm3OP"
+
+    Public Shared HostList As New List(Of String)
+    Public Shared TerminalServerList As New List(Of String)
+
+    Public Shared Function DBNull2emptyString(totest As Object)
+
+        If IsDBNull(totest) Then
+            Return ""
+        Else
+            Return totest
+        End If
+
+    End Function
+End Class