Вопрос : VBScript для того чтобы двинуть учет компьютера

Я хочу двинуть одиночный активно учет компьютера директории от одного OU к другим на рабочем месте не находится в домене.  Мне нужен сценарий authenticate к домену и двинет один специфически учет компьютера к другому OU.  Например: from
ou=Computers учета myComputer

Move, dc=myDomain, dc=com
To
ou=accounting_computers, ou=xyz_computers, dc=myDomain, предложения dc=com

Any на как я могу сделать это? class=

Ответ : VBScript для того чтобы двинуть учет компьютера

О'КЕЙО, я испытывал его….нам нужно определить специфически регулятор домена для того чтобы соединиться к, поэтому в strNewOUPath, добавляем имя регулятора домена, и оно должно работать.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

Const ADS_SECURE_AUTHENTICATION = &H1 Const ADS_USE_ENCRYPTION = &H2 Const ADS_SERVER_BIND = &H200 strNewOUPath = «LDAP: /dcserver.domain.com/OU=Computers,OU=MainSite,OU=Sites,dc=domain,dc=com» strComputerPath = «LDAP: //CN=ComputerNameToMove, компьютеры ou=IT, OU=MainSite, OU=Sites, dc=domain, dc=com» strUser = «домен \ администратор» strPassword = InputBox («впишите пароль: ") Установите objDSO = GetObject («LDAP: ") Установите objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) На ошибке возобновьте затем strComputerPath objNewOU.MoveHere, vbNullString Если Err.Number = 0 после этого MsgBox «компьютер двинутый успешно.» Еще «Ошибка» MsgBox & Err.Number & «: » & Err.Description Закончитесь если