Automation - Adding Users to a Group

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")