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]

Visual Studio Team Foundation Server 2017/2015 (TFS) - Komplett 

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

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!