Dim Group as IADsGroup
'Bind to the known Group.
'Here DomainName is your domain name.
'Abelian is a Group
Set Group = GetObject("NTDS://DomainName/Abelian")
'"Jane" must be the name of an already existing
User in this Domain
'Remove User named "Jane" from the "Abelian"