Automation - Removing Users From a Group

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