LDAP-Gettling eine Liste der logon-Namen

Habe ich das in meinem Programm, um die Liste der Benutzer-logon-Namen in einer Gruppe.

Dies ist, was ich habe, so weit, aber es gibt nur Sie, alle Benutzer...was muss ich abgeholzt, um diese in eine Gruppe, von der ich den Namen. 

Option Explicit On
Imports System.DirectoryServices
Imports System.DirectoryServices.ActiveDirectory

Module Module1
    Sub Main()
        Dim ADEntry As New DirectoryServices.DirectoryEntry("LDAP://OU=Users,OU=Irvine,OU=KNS,DC=corp,DC=kns,DC=com")
        Dim objSearch As New System.DirectoryServices.DirectorySearcher(ADEntry)

        Dim oResults As DirectoryServices.SearchResultCollection
        Dim oResult As DirectoryServices.SearchResult

        '  THIS DOESNT WORK
        '  objSearch.Filter = "department = engineering"

        oResults = objSearch.FindAll

        For Each oResult In oResults
            Console.WriteLine(oResult.GetDirectoryEntry.Properties("sAMAccountName").Value)
        Next
    End Sub
End Module
InformationsquelleAutor Sean p | 2009-12-08
  1. 1

    Versuchen Sie, die Filter zu

    objSearch.Filter = "(&(objectCategory=user)(memberOf=CN=Employees,OU=Security Groups,DC=yourdomain,DC=com))"

    Ist die Gruppe Mitarbeiter.

    Quelle : Wie schreibt man einen LDAP-Suche filter

    Hinweis: konnte ich nicht testen. Lassen Sie mich wissen, ob es funktioniert oder nicht.

    InformationsquelleAutor Shoban
  2. 1

    Wenn Sie möchten, dass alle Mitglieder einer Gruppe sind, versuchen Sie dies:

    1) Bindung an die Gruppe:

    DirectoryEntry theGroup = 
   new DirectoryEntry("LDAP://cn=YourGroupname,ou=SomeOU,dc=YourCompany,dc=com");

    2) Dann auflisten seiner Mitglieder - es ist die "Mitglied" - Eigenschaft der Gruppe DirectoryEntry:

    foreach(object dn in theGroup.Properties["member"])
{
   Console.WriteLine(dn);
}

    Jeder Eintrag in der Gruppe "member" - Eigenschaft, sollten Sie den vollständigen DN (distinguished name) von seinen Mitgliedern - Benutzer oder andere Gruppen.

    Ihre Frage sagt, dass Sie versuchen, zum auflisten der Mitglieder der Gruppe - aber dein code sieht eher aus wie Sie versuchen, aufzuzählen, alles innerhalb einer OU (organisatorischen Einheit) - diese zwei Aufgaben sind ganz anders! Was brauchen Sie wirklich?

    Finden Sie eine Quick-Liste für Visual Basic.NET Code-Beispiele auf der MSDN-Bibliothek, oder Sie können lernen, mehr über Wie fast alles im Active Directory auf CodeProject (mit C# Proben).

    Marc

    InformationsquelleAutor marc_s
  3. 0
        Dim ADEntry As New DirectoryServices.DirectoryEntry("LDAP://ou=users,ou=irvine,ou=kns,dc=corp,dc=kns,dc=com")
    Dim objSearch As New System.DirectoryServices.DirectorySearcher(ADEntry)

    Dim oResults As DirectoryServices.SearchResultCollection
    Dim oResult As DirectoryServices.SearchResult

    objSearch.Filter = "(&(objectCategory=person)(objectClass=user)(department=Engineering)(!userAccountControl:1.2.840.113556.1.4.803:=2))"
    oResults = objSearch.FindAll

    For Each oResult In oResults
        Console.WriteLine(oResult.GetDirectoryEntry.Properties("sAMAccountName").Value)
    Next

    dieser gearbeitet!!

    InformationsquelleAutor Sean p
  4. 0

    Einer Reihe von Jahren baute ich eine AD-Komponente, die wir verwenden oft nur für diese Aufgabe. Dies versuchen.

    Public Function GetUsersInGroup(ByVal GroupName As String) As String()
        If GroupName = String.Empty Then Return Nothing
        Dim Users() As String = Nothing
        Dim S As String = "LDAP://DC=YourCompany,DC=com"
        Dim Parent As New DirectoryServices.DirectoryEntry(S)
        Dim Search As New DirectoryServices.DirectorySearcher(Parent)

        Search.SearchScope = DirectoryServices.SearchScope.Subtree
        Search.Filter = "(CN=" & GroupName & ")"
        Search.PropertiesToLoad.Add("member")

        Dim Result As DirectoryServices.SearchResult = Search.FindOne
        Dim prop_value As String, i As Integer = 0
        If Result IsNot Nothing Then
            If Result.Properties("member").Count > 0 Then
                ReDim Users(Result.Properties("member").Count - 1)
                For Each prop_value In Result.Properties("member")
                    Dim S2 As New DirectoryServices.DirectorySearcher(Parent)
                    S2.SearchScope = DirectoryServices.SearchScope.Subtree
                    S2.Filter = "(" & prop_value.Substring(0, prop_value.IndexOf(","c)) & ")"
                    S2.PropertiesToLoad.Add("SAMAccountName")
                    Dim R2 As DirectoryServices.SearchResult = S2.FindOne
                    For Each Prop As String In R2.Properties("SAMAccountName")
                        Users(i) = Prop.ToUpper
                        i = i + 1
                    Next
                Next
                Exit For
            End If
        End If
End Function

    Viele Informationen gezogen werden können, von der AD wenn Sie wissen, wo es zu suchen.

    InformationsquelleAutor Walter
Schreibe einen Kommentar