Active Direcotry Gruppen-User Zuordnung

dnbCommander

Grünschnabel
Hallo Leute, habe da mal ne wichtige Frage

und zwar brauche ich ein VB-Script,welches aus meinem AD die Gruppen ausliest und die dazugehörigen User, nach dem Schema:
Gruppe1,User1
Gruppe1,User2
Gruppe1,User3
Gruppe2,User1
usw...

Soweit kein Problem, hier der Code:
Const strDomain = "DOMÄNE"
Const strListFile = "C:\Documents and Settings\GruppenListe.txt"
Const strDelim = ","

Set objListFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strListFile, 2, True)
Set colGroups = GetObject("WinNT://" & strDomain)
colGroups.Filter = Array("Group")
For Each objGroup In colGroups
strGroup = objGroup.Name
For Each objUser in objGroup.Members
strUserName = objUser.Name
If Right(strUserName, 1) <> "$" Then
objListFile.WriteLine Chr(34) & strGroup & strDelim & objUser.Name & Chr(34)
End If
Next
Next
objListFile.Close

Mein Problem/Anliegen ist nun, das ich nur für Bestimmte OU's die Gruppen mit User haben möchte und zwar für mehrere OU's.

Kann mir da jemand helfen? Habs mit LDAP und so versucht aber es will einfach nicht.


Danke schonmal
 

Neue Beiträge

Zurück