Enumurate AD Group Members

Active Directory Gruppen Members in TXT File exportieren.

Dim arrNames()
intSize = 0

' Domain Admins DistinguishedName aus Domain
Set objGroup = GetObject("LDAP://CN=Domain Admins,CN=Users,DC=yourdomain,DC=net")

Set objfs = CreateObject("Scripting.FileSystemObject")
Set objTextfile = objfs.OpenTextFile("Group_DomainAdmins.txt", 8, True)

For Each strUser in objGroup.Member
Set objUser =  GetObject("LDAP://" & strUser)
ReDim Preserve arrNames(intSize)
arrNames(intSize) = objUser.CN
intSize = intSize + 1
Next

For i = (UBound(arrNames) - 1) to 0 Step -1
For j= 0 to i
If UCase(arrNames(j)) > UCase(arrNames(j+1)) Then
strHolder = arrNames(j+1)
arrNames(j+1) = arrNames(j)
arrNames(j) = strHolder
End If
Next
Next

For Each strName in arrNames
'Wscript.Echo strName
objTextfile.Write strName & vbNewLine
Next

Wscript.Echo "Script Finish"
Wscript.Quit

Original Quelle:
http://blogs.technet.com/b/heyscriptingguy/archive/2004/11/23/how-can-i-list-the-members-of-a-group-in-alphabetical-order.aspx

Related Images: