123

Dokumentation/Login/Login.vb

@@ -9,7 +9,9 @@ Public Class Login
         Timer1.Enabled = False
         Try
             Dim Addresslistcounts As Integer = Resolve("verag.ost.dmn").AddressList.Count
+            'MsgBox(Environment.UserName)
             Abfrage(Environment.UserName)
+            'Main.Show()
             'MsgBox(Addresslistcounts)
         Catch
             MsgBox("Fehler beim Anmelden!")
@@ -29,7 +31,7 @@ Public Class Login
 
         For Each group As String In locGroups
             '    LblDebugInfo.Text &= group
-            If group = "CN=DokuGruppe" Then
+            If group = "CN=SG_Doku_User_FULL" Then
                 'MsgBox("Benutzer " & Environment.UserName & " in Gruppe " & group & " gefunden!")
                 gefunden = True
                 Main.Show()