Creating Users and Groups in a Domain

Dim DomainContainer As IADsContainer
Dim NewUser   As IADsUser
Dim NewGroup  As IADsGroup
'Bind to the known container.
'Here DomainName is your domain name.
Set DomainContainer = GetObject("NTDS:// DomainName")
'Create a new User.
Set NewUser = DomainContainer.Create("User", "Jane")
'Set Jane's password.
NewUser.SetPassword "Argus"
'Create a new Group
Set NewGroup = DomainContainer.Create("Group", "Abelian")