Offline Modus Verbesserungen, SMB Share für User FIX

Dokumentation/Login/Login.vb

@@ -7,14 +7,17 @@ Public Class Login
     Property BenutzeranmeldeName As String = ""
 
     Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'Class1.offline = True
+        Class1.CheckDebug()
+
         Dim LDAP As String = ReturnLDAP(Environment.UserDomainName)
-        Class1.LoggedOnUser.FillWithLoggedOnUser(True, LDAP)
+        If Not Class1.offline Then Class1.LoggedOnUser.FillWithLoggedOnUser(Not Class1.offline, LDAP)
         Class1.DebugText = LDAP
         ' Class1.DebugText &= Environment.UserDomainName & vbCrLf
         'Class1.DebugText &= ReturnLDAP(Environment.UserDomainName) & vbCrLf
-        Class1.CheckDebug(True)
+
         Try
-            userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
+            If Not Class1.offline Then userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
         Catch ex As Exception
             MsgBox("Login_Load: " & ex.Message)
         End Try
@@ -35,6 +38,7 @@ Public Class Login
     End Function
 
     Public Function LoadUSRID()
+        If Class1.offline Then Exit Function
         Dim ds As New DataSet
         cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
         VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id")
@@ -51,15 +55,20 @@ Public Class Login
 
     Public Sub Login()
         Timer1.Enabled = False
-        Try
-            Abfrage(userPrincipalName)
-            ' LoadUSRID()
-        Catch ex As Exception
-            'MsgBox("Fehler beim Anmelden!")
-            MsgBox("Loginfehler! Zeile 59" & vbCrLf & ex.Message & vbCrLf & userPrincipalName)
+        If Class1.offline = False Then
+            Try
+                Abfrage(userPrincipalName)
+                ' LoadUSRID()
+            Catch ex As Exception
+                'MsgBox("Fehler beim Anmelden!")
+                MsgBox("Loginfehler! Zeile 59" & vbCrLf & ex.Message & vbCrLf & userPrincipalName)
 
+                PasswortabfrageLogin.Show()
+            End Try
+        Else
             PasswortabfrageLogin.Show()
-        End Try
+        End If
+
     End Sub
 
     Public Function Abfrage(user As String, Optional ByVal txt As Boolean = False)