Anzahl der Objecte von eine OU auslesen

'On Error Resume Next  

Const E_ADS_PROPERTY_NOT_FOUND  = &h8000500D

Set objOU = GetObject _
    ("LDAP://ou=DeineOU,dc=Firma,dc=local")  
  
ObjOU.Filter= Array("group")  
 
I = 0

For Each objGroup in objOU
    objGroup.GetInfo
    arrMemberOf = objGroup.GetEx("member")  

    WScript.Echo "Members of """ & objGroup.cn & """:"  
    For Each strMember in arrMemberOf
        WScript.echo strMember
    Next

    WScript.Echo 

  I = I + 1
Next

WScript.Echo I & " Objekte gefunden"