23 lines
435 B
Plaintext
23 lines
435 B
Plaintext
'
|
|
' This Creates an instance of a user
|
|
'
|
|
|
|
' Create an empty instance of the specific class
|
|
Set objInstance = GetObject("winmgmts:root\directory\LDAP").Get("ds_user").SpawnInstance_
|
|
|
|
' Populate its key and other properties as required
|
|
objInstance.ADSIPath = "LDAP://CN=joe,CN=Users,DC=dsprovider,DC=nttest,DC=microsoft,DC=com"
|
|
objInstance.ds_SAMAccountName = "joe"
|
|
|
|
' Create the instance
|
|
objInstance.Put_
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|