Создание пользователя в AD

Option Explicit
Dim provider 
Dim ou 
Dim domain 
Dim oClass 
Dim oCN 
Dim objDomain 
Dim objUser 
Dim oUname
Dim oDescription

provider = "LDAP://"
OU = "ou=test,"
domain = "dc=domain,dc=com"
oClass = "User"
oCN = "CN="
oUname = "newUser"
oDescription = "superpuper user"

Set objDomain = GetObject(provider & OU & domain)
Set objUser = objDomain.create(oClass, oCN & oUname)
objUser.Put "sAMAccountName", oUname
objUser.Put "DisplayName", oUname
objUser.Put "description", oDescription

objUser.SetInfo

WScript.Echo("User " & oUname & " was created")

Добавление общей информации о пользователе -

Option Explicit
Dim provider 
Dim ou 
Dim domain 
Dim oCN 
Dim oUname 
Dim objUser 

provider = "LDAP://"
OU = "ou=test"
domain = "dc=domain,dc=com"
oCN = "CN="
oUname = "newUser,"

Set objUser = GetObject(provider & oCN & oUname & OU & domain)

objUser.Put "givenName", "fred"
objUser.Put "initials", "f."
objUser.Put "sn", "flintstone"
objUser.Put "DisplayName", "labUser"
objUser.Put "description" , "funny looking dude"
objUser.Put "physicalDeliveryOfficeName", "RQ2"
objUser.Put "telephoneNumber", "999-222-1111"
objUser.Put "mail", "fff@hotmail.com"
objUser.Put "wwwHomePage", "http://www.fred.msn.com"

objUser.SetInfo

WScript.Echo("User " & oUname & " was modified")
Option Explicit
Dim provider 
Dim ou 
Dim domain 
Dim oCN 
Dim oUname 
Dim objUser 

provider = "LDAP://"
OU = "ou=test,"
domain = "dc=domain,dc=com"
oCN = "CN="
oUname = "newUser,"

Set objUser = GetObject(provider & oCN & oUname & OU & domain)

objUser.Put "streetAddress", "123 main st"
objUser.Put "postOfficeBox", "po box 12"
objUser.Put "l", "Bedrock"
objUser.Put "st", "Arkansas"
objUser.Put "postalCode" , "12345"
objUser.Put "c", "RO"


objUser.SetInfo

WScript.Echo("User " & oUname & " was modified")

Также интересно:

 

Интересное на сайте: 
0
Голосов пока нет

Комментарии

если так: objUser.Put "givenName", " " то пробел остаеться
а если так: objUser.Put "givenName", "" то ошибку выдает :(

Ну во-первых можно этот аттрибут просто не создавать, а если он уже создан, логично было бы использовать функцию objuser.delete, но к сожалению это не так, даю ссылку на скрипт по удалению атррибутов AD - Delete an AD Attribute via VBScript

Оставить комментарий