Enumerate members of a domain group

>>Script Language and Platform: VbScript
cscript EnumGroupMembers.vbs "Group Name" "Domain Name"

Example:

cscript EnumGroupMembers.vbs  "Tech SQLDBA" "Americas"


Result:
Amuthusamy
CHsu
KKordell

Author: MAK

'Objective: To enumerate the members of a domain group
'Created by: MAK
'Date: April 11,2005
Dim Group
Dim GroupName
Dim GroupDomain
Dim objArgs 

Set objArgs = WScript.Arguments
GroupName =objArgs(0)
GroupDomain=objArgs(1)

Set Group = GetObject("WinNT://" & GroupDomain & "/" & GroupName & ",group")
For Each Member in Group.Members
     WScript.Echo Member.Name
Next

Disclaimer: We hope that the information on these script pages is valuable to you. Your use of the information contained in these pages, however, is at your sole risk. All information on these pages is provided "as -is", without any warranty, whether express or implied, of its accuracy, completeness, or fitness for a particular purpose... Disclaimer Continued

Back to Database Journal Home