Enumurate AD Group Members
5. Mai 2012 | In: Active Directory, VBScript
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