Automation - Enumerating Users in a Group

Dim Group as IADsGroup
Dim Member as IADs
 
' Bind to a known group object.
Set Group = GetObject("WinNT://MyDomain/Administrators")
 
' Enumerate the members in the group.
For Each Member in Group.Members
    Debug.Print Member.Name
Next Member