Set DomainObj = GetObject("WinNT://Domain")

Set UserObj = DomainObj.Create("user", "jdoe")

UserObj.SetInfo

Set UserObj = Nothing