AD Groups memberOf exportieren

  • VBScript

    AD Groups memberOf exportieren

    Hallo Zusammen

    Ich bin ein relativer Neuling was das VBS programmieren/ scripten angeht.
    Ich habe folgenden Code-Abschnitt in meinem Script:

    Visual Basic-Quellcode

    1. Sub GetMemberOf(ByVal objADObject, line)
    2. Dim objMemberOf
    3. col = line
    4. For Each objMemberOf In objADObject.memberOf
    5. If
    6. objMemberOf.Class = "user" Then
    7. LogFile.WriteLine objMemberOf.lastname & " " & objMemberOf.firstname & ", "
    8. col = line
    9. ElseIf
    10. objMemberOf.Class = "group" Then
    11. LogFile.WriteLine objMemberOf.sAMAccountName"
    12. Else
    13. col = line
    14. LogFile.WriteLine objMemberOf.samAccountName & ", "
    15. End If
    16. Next
    17. End Sub


    Wenn ich das Script laufen lasse kommt es jedoch gar nicht in die For-Schleife rein.
    Ich vermute den Fehler bei der Bezeichnung memberOf.
    Wisst ihr was der Fehler sein könnte?

    Das Script, sprich dieser Abschnitt an sich soll aus einer Active Directory Group die memberOf auslesen und in eine Excel Datei schreiben.
    Könnt ihr mir vielleicht sagen ob es so klappt oder ob es eine einfacher Methode gibt um die memberOf einer Gruppe auszulesen?
    Bin momentan gerade echt ratlos!
    ?(


    Vielen Dank und Gruss Fabio

Facebook
Telefonspende