Hallo,

ich habe ein Problem mit einem VBS Skript.

Ich möchte mit dem Script alle gruppen einer ou mit der anzahl der user die in der gruppe sind ermitteln.

die auflistung der gruppen funktioniert soweit auch, allerdings meldet er einen fehler bei "For Each struser in objGroup.Member" Das Objekt ist keine auflistung.

habt ihr eine idee?

Set objOU = GetObject("LDAP://OU=Anwendungsgruppen,OU=Ressourcen,OU=Organisation,DC=dom,DC=de")


objOU.Filter = Array("Group")



For Each objGroup in objOU

    'Wscript.Echo objGroup.member

'Set objGroup = GetObject("LDAP://" & objGroup2.Name & ",OU=Anwendungsgruppen,OU=Ressourcen,OU=Organisation,DC=kkp,DC=local")

'Wscript.Echo objGroup.member

i = 0


Set objDictionary = CreateObject("Scripting.Dictionary")


For Each struser in objGroup.Member

   i = i + 1


   Set objMember = GetObject("LDAP://" & strUser)

    strType = objMember.Class


    If Not objDictionary.Exists(strType) Then

        objDictionary.Add strType, "1"

    Else

        objDictionary.Item(strType) = objDictionary.Item(strType) + 1

    End If

    Next


Wscript.Echo "Total members in the group: " & i



Next

ähm... objGroup.Members?