noreux
Goto Top

VBScript - Mitglieder einer Gruppe auflisten

Hallo,

Ich möchte mittels VBScript prüfen ob in einer bestimmten Gruppe Mitglieder sind. Mit folgendem Code zeigt er mir auch die Mitglieder an:

...

    Set Membergroup = GetObject("LDAP://CODE1/CN-USERS,OU=Groups,...")  
    membergroup.GetInfo 

    arrMemberOf = Membergroup.GetEx("member")  

    For Each strMember in arrMemberOf
    WScript.echo strMember

    Next



Sollte in der Gruppe aber kein User sein, krieg ich eine Fehlermeldung zurück. Kann ich das irgendwie umgehen, indem ich nachfrage ob denn überhaupt User in der Group sind, bevor ich sie dem Array hinzufüge?
Bin für jeden Ratschlag offen!
Gruß
Nor

Content-Key: 70151

Url: https://administrator.de/contentid/70151

Printed on: April 26, 2024 at 11:04 o'clock

Member: bastla
bastla Oct 04, 2007 at 15:56:43 (UTC)
Goto Top
Hallo noreux und willkommen im Forum!

Eine (billige) Lösung könnte so aussehen:
...

    Set Membergroup = GetObject("LDAP://CODE1/CN-USERS,OU=Groups,...")  
    membergroup.GetInfo
    Anz = 0
    On Error Resume Next
    arrMemberOf = Membergroup.GetEx("member")  
    Anz = UBound(arrMemberOf) + 1
    On Error Goto 0
    If Anz > 0 Then
        For Each strMember in arrMemberOf
            WScript.echo strMember

        Next
    End If

Grüße
bastla