Schleife im AD

  • VBScript

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    Schleife im AD

    Hallo,

    ich habe mich hier zuerst belesen und nun doch angemeldet.
    Ich stehe vor einem Problem. Ich habe nun ein Script zusammen kopiert :), das mir die Gruppen eines Mitglieds aus dem AD in einer Excel Tabelle ausgibt.

    Was ich nun versuche ist eine Schleife zu basteln, damit in der Excel-Tabelle alle Mitglieder mit den dazugehörigen Gruppen aufgeführt werden. Sprich die Eingabemethode und die Fehlerausgabe bei der Nichtexistenz würde ich dann entfernen.
    Hat hierzu jemand einen interessanten Tipp für mich wie ich das anstellen kann?

    Ich freue mich und Danke schon jetzt für die Bemühungen.

    Den Code habe ich ext. auf Pastebin abgelegt.

    ERLEDIGT

    Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „duschgas“ ()

    Vielleicht solltest du nicht deinen gesamten Code posten. Das ist viel zu viel.

    Du willst:
    Was ich nun seit 5 Tagen versuche ist eine Schleife zu basteln, damit in der Excel-Tabelle alle Mitglieder mit den dazugehörigen Gruppen aufgeführt werden. Sprich die Eingabemethode und die Fehlerausgabe bei der Nichtexistenz würde ich dann entfernen.

    Du verwendest viel durcheinander und solltest dir vll alles ein bissl genauer anschauen.
    Hier wäre ein Beispiel, wie man von alle Objekten aus dem AD alle Gruppen ausliest. Um dies für dich einzubauen musst du es dir ein bissl anschauen und verstehen.
    LG

    Visual Basic-Quellcode

    1. ​
    2. Call Main
    3. Sub Main
    4. Set objRoot = GetObject ("LDAP://RootDSE")
    5. strDomainDN = objRoot.Get ("defaultNamingContext")
    6. Set objRoot = Nothing
    7. Set objContainer = GetObject ("LDAP://" & strDomainDN)
    8. For each objSub in objContainer
    9. Call GetGroups (objSub)
    10. Next
    11. End Sub
    13. Sub GetGroups(objContainer)
    14. For each objSub in objContainer
    15. If objSub.class = "user" Then
    16. groups = objSub.memberOf
    17. If IsEmpty(groups) Then
    18. Wscript.Echo objSub.name & " is member of no groups"
    19. ElseIf (TypeName(groups) = "String") Then
    20. Wscript.Echo objSub.name & " is member of group " & groups
    21. Else
    22. Dim allGroups
    23. For Each strGroup In groups
    24. allGroups = strGroup & VbCrlf & allGroups
    25. Next
    26. Wscript.Echo objSub.name & " is member of groups: " & allGroups
    27. End If
    28. Elseif objSub.class = "organizationalUnit" or objSub.class = "container" then
    29. Call GetGroups (objSub)
    30. End if
    31. Next
    32. End Sub
    Das ist meine Signatur und sie wird wunderbar sein!