Deleting Users and Groups from a Domain

Dim DomainContainer As IADsContainer
'Bind to the known container.
'Here DomainName is your domain name.
Set DomainContainer = GetObject("NTDS://DomainName")
'Delete a User and a Group
DomainContainer.Delete "User", "Jane"
DomainContainer.Delete "Group", "Abelian"