Create User in Active Directory

[RobDog888]

You can create a new user in Active Directory with this code.

Dim adObj As Object
Dim adUser As Object
Set adObj = GetObject("WinNT://Domain")
Set adUser = adObj.Create("user", "RobDog888")
adUser.SetInfo
Set adUser = Nothing
Set adObj = Nothing