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:
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
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