List all AD Groups

1: Sub ListGroups( strDomain )

2: Set objComputer = GetObject("WinNT://" & strDomain )

3: objComputer.Filter = Array( "Group" )

4: For Each objGroup In objComputer WScript.Echo "Name: " & objGroup.Name

5: Next

6: End Sub

7: Dim strDomain

8: Do

9: strDomain = inputbox( "Please enter a domainname", "Input" )

10: Loop until strDomain <> ""

11: ListGroups( strDomain )