unterzahl.net Geschrieben 3. März 2008 Geschrieben 3. März 2008 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 Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.