Dim Group as IADsGroup
' Bind to a known group object.
Set Group = GetObject("WinNT://MyDomain/Groups/Administrators")
' Add Jane and John to the Administrators group.
Group.Add("WinNT://MyDomain/Users/John")
Group.Add("WinNT://MyDomain/Users/Jane")