Gruppenmitglieder aller Gruppen auflisten

[svisseroo]

Hallo zusammen

Kenn mich im VB und VBS praktisch kaum aus, habe aber einen Script "geerbt", welches die Mitglieder einzelner Gruppen in einer OU ausliest.

Soweit so gut.

Nun möchte ich es aber so ändern, dass es die Mitglieder aller Gruppen einer OU ausliest, und evtl. direkt in ein .csv exportiert, jede Gruppe in einer Spalte und darunter die Mitglieder.

Das ist das bestehende Script:

'On Error Resume Next

Dim strADSPath
Dim objArgs
Dim intGroupLevel
Dim strUsers(1024)

set objArgs = WScript.Arguments
if objArgs.Count<>2 then
	wscript.echo "Falsche Uebergabeparameter: <GroupID> und <OU> verlangt."
	Wscript.Quit(1)
end If

'strADSPath="LDAP://CN=" & objArgs(0) & ",OU=OrganisationalUnit,DC=intranet,DC=Company,DC=COM"
strADSPath="LDAP://CN=" & objArgs(0) & ",OU=" & objArgs(1) & ",DC=intranet,DC=Company,DC=COM"

Set objGroup = GetObject(strADSPath)

intGroupLevel=0
Wscript.Echo objGroup.CN & vbTab & objGroup.description
GetNested(objGroup)


Sub GetNested(objGroup)
	On Error Resume Next
	intGroupLevel=intGroupLevel+1

	For Each strMember in objGroup.Member
		strPath = "LDAP://" & strMember
		Set objNestedGroup = GetObject(strPath)
		wscript.Echo String(intGroupLevel,".") & objNestedGroup.CN & vbTab & objNestedGroup.description
		GetNested(objNestedGroup)
	Next
	intGroupLevel=intGroupLevel-1
End Sub

Wer kann mir da helfen?


Herzlichen Dank im Voraus
Svisseroo