Создание, удаление, копирование и перемещение OU в Active Directory

Option Explicit
Dim provider 
Dim ou 
Dim domain 
Dim oClass 
Dim oOU 
Dim objDomain 
Dim objOU 
Dim oOUname

provider = "LDAP://"
ou = "OU=stp, OU=users"
domain = "dc=dbschenker,dc=ru"
oClass = "organizationalUnit"
oOU = "ou="
oOUname = "myOU"

Set objDomain = GetObject(provider & ou & domain)
Set objOU = objDomain.create(oClass, oOU & oOUname)

objOU.SetInfo

WScript.Echo("OU " & oOUname & " was created")

Для удаления:

Set objOU = objDomain.delete

Для копирования:

Set objOU = objDomain.CopyHere

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

Для перемещения:

Set objOU = objDomain.MoveHere
Интересное на сайте: 
0
Голосов пока нет

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