Active Directory Gruppeninformationen auslesen in VB.NET

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Active Directory Gruppeninformationen auslesen in VB.NET

    Guten Tag,ich habe folgendes Problem: Ich möchte alle AD-Gruppen, welche im Namen die Wörter "FS-NF-Projekte" enthalten, auslesen. Dazu sollen noch die beiden Felder managedby und info ausgelesen werden. Dies funktioniert leider nur zum Teil. Es werden nur die Gruppen ausgelesen, bei denen die beiden Felder auch gefüllt sind. Ich möchte aber auch die Gruppen ausgegeben bekommen, bei denen die Felder leer sind. Das Ergebnis soll in einem Datagridview dargestellt werden: Gruppe - Managedby - Info. Mein bisheriger Code sieht folgendermaßen aus:

    VB.NET-Quellcode

    1. Dim objADAM As DirectoryEntry ' Binding object.
    2. Dim objGroupEntry As DirectoryEntry ' Group Results.
    3. Dim objSearchADAM As DirectorySearcher ' Search object.
    4. Dim objSearchResults As SearchResultCollection ' Results collection.
    5. Dim strPath As String ' Binding path.
    7. ' OU die durchsucht werden soll
    8. strPath = "LDAP://OU=Root,DC=nordsh,DC=local"
    10. objSearchADAM = New DirectorySearcher(objADAM)
    11. objSearchADAM.Filter = "(&(objectClass=group)(name=FS-NF-projekte*))"
    12. objSearchADAM.SearchScope = SearchScope.Subtree
    13. objSearchResults = objSearchADAM.FindAll()
    15. ' Gruppen auflisten
    16. If objSearchResults.Count <> 0 Then
    17. Dim objResult As SearchResult
    18. For Each objResult In objSearchResults
    19. objGroupEntry = objResult.GetDirectoryEntry()
    20. For Each objManagedBy In objGroupEntry.Properties("managedby")
    21. For Each objinfo In objGroupEntry.Properties("info")
    22. DataGridView1.Rows.Add((objGroupEntry.Name), objManagedBy, objinfo)
    23. Next objinfo
    24. Next objManagedBy
    25. Next objResult
    26. Else
    27. MsgBox("Gruppe nicht gefunden", vbCritical, "Fehler")
    28. End If


    Vielen Dank für eure Hilfe

    Willkommen im Forum. :thumbup:

    juliansw schrieb:

    VB.NET-Quellcode

    1. objSearchADAM = New DirectorySearcher(objADAM)
    objADAM ist in Deinem Code lediglich ein Null-Pointer, die Variable ist nicht instanziiert.
    Kann es sein, dass Du nicht Option Strict On hast :?:
    ============

    VB.NET-Quellcode

    1. For Each objManagedBy In objGroupEntry.Properties("managedby")
    2. For Each objinfo In objGroupEntry.Properties("info")
    3. DataGridView1.Rows.Add((objGroupEntry.Name), objManagedBy, objinfo)
    4. Next objinfo
    5. Next objManagedBy
    Hier solltest Du eine Schleife draus machen, jede Gruppe für sich allein.
    ==============

    VB.NET-Quellcode

    1. Dim strPath As String ' Binding path.
    Diese Variable wird nicht verwendet.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    Vielen Dank schon mal für die Hinweise.
    Option Strict ist tatsächlich auf off.

    Leider weiß ich nicht, wie ich eine Schleife daraus machen soll. ich kann die einzelnen Properties nicht abfragen, da es sich um eine PropertyValueCollection handelt. Kannst du mir hier ein Beispiel nennen, wie das ginge?

    @juliansw Wie soll denn die Tabelle aussehen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dein Bild sieht eher nach diesem Code aus:

    VB.NET-Quellcode

    1. For Each objResult In objSearchResults
    2. objGroupEntry = objResult.GetDirectoryEntry()
    4. Dim objManagedBy = objGroupEntry.Properties("managedby")(0) ' 1. Element auslesen (TODO: testen, ob vorhanden)
    5. Dim objinfo = objGroupEntry.Properties("info")(0) ' 1. Element auslesen (TODO: testen, ob vorhanden)
    6. DataGridView1.Rows.Add(objGroupEntry.Name, objManagedBy, objinfo)
    8. 'For Each objManagedBy In objGroupEntry.Properties("managedby")
    9. ' For Each objinfo In objGroupEntry.Properties("info")
    10. ' DataGridView1.Rows.Add((objGroupEntry.Name), objManagedBy, objinfo)
    11. ' Next objinfo
    12. 'Next objManagedBy
    13. Next objResult

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wow, das hat gut funktioniert. Das einzige, was ich noch ergänzt habe ist folgendes:

    VB.NET-Quellcode

    1. On Error Resume Next
    3. For Each objResult In objSearchResults
    5. Dim objManagedBy = ""
    6. Dim objinfo = ""
    7. objGroupEntry = objResult.GetDirectoryEntry()
    8. objManagedBy = objGroupEntry.Properties("managedby")(0) ' 1. Element auslesen (TODO: testen, ob vorhanden)
    9. objinfo = objGroupEntry.Properties("info")(0) ' 1. Element auslesen (TODO: testen, ob vorhanden)
    10. DataGridView1.Rows.Add(objGroupEntry.Name, objManagedBy, objinfo)
    12. Next objResult


    Mit dem Error Resume Next umgehe ich die Fehlermeldung falls der Wert nicht vorhanden ist. Könnte man natürlich auch mit Try - Catch machen.
    Die beiden Variablen musste ich bei jedem Schleifeindurchlauf leeren, da sonst bei leeren Feldern der Wert der vorigen Gruppe eingetragen wird.

    @RodFromGermany
    Ich sage Vielen Dank für deine Hilfe :)

    juliansw schrieb:

    Error Resume Next
    Dies solltest Du aus Deinem Gedächtnis streichen :!:
    Wie gesagt: Testen, ob vorhanden:

    VB.NET-Quellcode

    1. For Each objResult In objSearchResults
    2. objGroupEntry = objResult.GetDirectoryEntry()
    4. Dim objManagedBy = ""
    5. Dim objinfo = ""
    7. If objGroupEntry.Properties("managedby").Count > 0 Then ' wenn vorhanden
    8. objManagedBy = objGroupEntry.Properties("managedby")(0).ToString
    9. End If
    11. If objGroupEntry.Properties("info").Count > 0 Then ' wenn vorhanden
    12. objinfo = objGroupEntry.Properties("info")(0).ToString
    13. End If
    15. DataGridView1.Rows.Add(objGroupEntry.Name, objManagedBy, objinfo)
    17. Next objResult

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @juliansw Ich hoffe, Du hast den kleinen Unterschied mit .ToString bemerkt.
    Bei meinem ursprünglichen Code wurden 2 Variable vom Typ Object erstellt, die dem DGV zugewiesen wurden.
    Wenn Du initial 2 Leerstring-Variablen erstellt, musst Du die ausgelesenen Properties in einen String konvertieren, da eine Object-Variable unter Option Strict On keiner String-Variable zugewiesen werden kann.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @juliansw Mit Option Strict On wirst Du sofort darauf hingewiesen, wenn die Datentypen nicht übereinstimmen.
    Gugst Du Visual Studio - Empfohlene Einstellungen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende