Benutzerberechtigungen eingebaut

Dokumentation/Classes/Class1.vb

@@ -16,9 +16,12 @@ Public Class Class1
     Public Shared AlleStandorte As New List(Of String)
     Public Shared LoggedOnUser As New cBenutzer
     Public Shared LoggedOnUserRights As New List(Of cBerechtigungen)
+    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 Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
         Dim dgvType As Type = dgv.[GetType]()
         Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
@@ -42,7 +45,7 @@ Public Class Class1
         If Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug" Then
             DebugMode = True
 
-            Class1.DBConString = "Server=DEVELOPER\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
+            Class1.DBConString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
             Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
         Else
             Class1.DBConString = "Server=192.168.0.94\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"

Dokumentation/Classes/cBenutzer.vb

@@ -19,7 +19,7 @@ Public Class cBenutzer
 
 
 
-    Function FillWithLoggedOnUser(Optional ByVal dcabfrage As Boolean = False)
+    Function FillWithLoggedOnUser(Optional ByVal dcabfrage As Boolean = False, Optional ByVal LDAPa As String = "") '"LDAP://DC=VERAG,DC=OST,DC=DMN")
         Try
             userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
             Name = System.DirectoryServices.AccountManagement.UserPrincipal.Current.Name
@@ -29,18 +29,18 @@ Public Class cBenutzer
         BenutzeranmeldeName = Environment.UserDomainName & "\" & Environment.UserName
 
         If dcabfrage = True Then
-            FillFromDC(userPrincipalName, "userPrincipalName")
+            'Class1.DebugText = userPrincipalName & LDAPa
+            FillFromDC(userPrincipalName, "userPrincipalName", LDAPa)
         End If
     End Function
 
     Function FillFromDC(ByVal searchname As String, Optional ByVal searchfilter As String = "distinguishedName", Optional ByVal LDAP As String = "LDAP://DC=VERAG,DC=OST,DC=DMN")
-
         Try
             localdistinguishedName = searchname
-            Me.Domäne = "verag.ost.dmn"
+
 
             If searchname.Contains("ForeignSecurityPrincipals") Then
-
+                'MsgBox("!")
                 Dim FSlocDirectoryEntry As New DirectoryServices.DirectoryEntry(LDAP)
                 Dim FSsearcher As New DirectoryServices.DirectorySearcher
                 With FSsearcher
@@ -49,7 +49,8 @@ Public Class cBenutzer
                     .PropertiesToLoad.Add("msDS-PrincipalName")
                 End With
                 Dim FSResult As DirectoryServices.SearchResult = FSsearcher.FindOne
-                searchname = blablabla(FSResult, "msDS-PrincipalName")
+                ' MsgBox(FSResult.Properties("msDS-PrincipalName").Count)
+                searchname = FSResult.Properties("msDS-PrincipalName").Item(0)
                 Dim DomainName As String = searchname.Substring(0, searchname.IndexOf("\"))
                 ' MsgBox(DomainName)
 
@@ -61,13 +62,19 @@ Public Class cBenutzer
                     Case "VERAGNEUHAUS"
                         Me.Domäne = "VERAGNEUHAUS.local"
                         LDAP = "LDAP://DC=VERAGNEUHAUS,DC=LOCAL"
+                    Case "VERAGOST"
+                        Me.Domäne = "verag.ost.dmn"
                 End Select
+                ' MsgBox(searchname)
                 searchname = searchname.Substring((searchname.IndexOf("\") + 1), searchname.Length - searchname.IndexOf("\") - 1)
                 searchfilter = "sAMAccountName"
-
+            Else
+                'Me.Domäne = "verag.ost.dmn"
             End If
 
+            If LDAP = "LDAP://DC=VERAG,DC=OST,DC=DMN" Then Me.Domäne = "verag.ost.dmn"
 
+            ' MsgBox(searchname & vbCrLf & searchfilter & vbCrLf & Me.Domäne & vbCrLf & LDAP)
 
             Dim locDirectoryEntry As New DirectoryServices.DirectoryEntry(LDAP)
             '  Dim Searcher1 As New DirectoryServices.DirectorySearcher(locDirectoryEntry, searchfilter & "=" & searchname)
@@ -87,7 +94,7 @@ Public Class cBenutzer
                 .PropertiesToLoad.Add("userPrincipalName")
 
             End With
-            Dim Result As DirectoryServices.SearchResult = Searcher.FindOne
+            Dim Result As DirectoryServices.SearchResult = searcher.FindOne
 
 
             Me.Nachname = blablabla(Result, "sn")
@@ -158,5 +165,5 @@ End Class
 
 
 Public Class cSharedClasses
-    Public Shared LoggedOnUser As New cBenutzer
+    ' Public Shared LoggedOnUser As New cBenutzer
 End Class

Dokumentation/Classes/cBerechtigungen.vb

@@ -120,5 +120,16 @@ Public Class cBerechtigungen
         End If
     End Function
 
+    Public Shared Function BenutzerBerechtigungfuerID(ByVal Benutzer As String, ByVal ID As String)
+        Dim ds As New DataSet
+        SQL.SQL2DS("SELECT ZUGRIFF FROM TbL_Berechtigungen WHERE BENUTZERANMELDENAME = '" & Benutzer & "' AND ID = '" & ID & "'", ds)
+        If ds.Tables(0).Rows.Count > 0 Then
+            Return ds.Tables(0).Rows(0).Item(0).ToString
+        Else
+            ' MsgBox("Keine Berechtigung gefunden")
+            Return "0"
+        End If
+    End Function
+
 
 End Class

Dokumentation/Classes/cEintrag.vb

@@ -11,6 +11,7 @@ Public Class cEintrag
     Property Linked As Boolean = False
     Property LinkedWith As String = ""
     Property ID As String = ""
+    Property Berechtigung As String = ""
 
     Property NewID As Boolean = False
 

Dokumentation/Classes/cGlobalVariables.vb

@@ -1,3 +0,0 @@
-Public Class cGlobalVariables
-
-End Class