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
Закончитесь если
|