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