Feedback

VB - LDAP - Liefert eine Liste mit allen Gruppen zu einem User

Veröffentlicht von am 21.11.2007
(1 Bewertungen)
Liefert eine Liste zurück mit allen Gruppen zu denen ein Benutzer gehört.
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

VB.NET Aufbau

Sie verfügen nach der Schulung über fundierte Kenntnisse in der Arbeit mit objektorientierten Modellen in VB.NET und können wiederverwendbare Komponenten eigenständig erzeugen.

Imports System.DirectoryServices
Imports System.DirectoryServices.ActiveDirectory


    Public Function GetUserMemberOf(ByVal domain As String, ByVal username As String, ByVal password As String, Optional ByRef exeption As Exception = Nothing) As Collections.Generic.List(Of String)
        Dim searcher As DirectorySearcher = Nothing
        Dim colEntry As New Collections.Generic.List(Of String)

        Try
            searcher = New DirectorySearcher(New DirectoryEntry("LDAP://" & domain, username, password))
            searcher.Filter = String.Concat("(&(objectClass=User) (sAMAccountName=", username, "))")
            searcher.PropertiesToLoad.Add("MemberOf")

            Dim result As SearchResult = searcher.FindOne
            For i As Integer = 0 To result.Properties("MemberOf").Count - 1
                Dim sProp As String = result.Properties("MemberOf")(i)
                colEntry.Add(sProp.Substring(3, sProp.IndexOf(",") - 3))
            Next

        Catch ex As Exception
            exeption = ex

        Finally
            searcher.Dispose()
        End Try

        Return colEntry

    End Function
Abgelegt unter LDAP, Gruppen, Domäne, Active Directory, AD.

1 Kommentare zum Snippet

takra schrieb am 16.05.2018:
Leider fehlt in result immer die letzte Gruppe. Können Sie das Problem beheben?
 

Logge dich ein, um hier zu kommentieren!