none
LDAP Abfrage RRS feed

  • Frage

  • Hallo ich habe mir heute eine Funktion gebastel umd unsere AD auf arbeit auszulesen. Es gibt dafür ja im Netz jede Menge Beispiele die mir aber alle etwas to much sind. Ich will eigentlich nur wissen ob sich der angemeldete User in einer bestimmten Gruppe befindet. Meine Funktion funktioniert liefert mir aber mehr Informationen als ich brauche. Nämlich den kompletten OU String Hier mal mein Quellcode den LDAP String hab ich aus Datenschutzgründen entfernt.

    Public Function GetUserMemberOf(ByVal domain As String, Optional ByRef exeption As Exception = Nothing) As Collections.Generic.List(Of String)
            Dim adgroup As New DirectoryEntry("LDAP://")
            Dim adgroupmember As Array
            adgroupmember = (adgroup.Properties("Member").Value)
            For i = 0 To adgroupmember.Length - 1
                MsgBox(adgroupmember(i))
            Next
     End Function

    Montag, 1. Oktober 2012 14:59

Antworten

Alle Antworten