Automation - Creating a User Object

Dim Container as IADsContainer
Dim NewUser as IADsUser
 
' Bind to the known container.
Set Container = GetObject("WinNT://MyDomain")
 
' Create the new wrapper.
Set NewUser = Container.Create("user", "Jane")
' Write it back to the DS
NewUser.SetInfo
 
' Set Jane's password.
NewUser.SetPassword("PW.1234")