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 Komputer, OU=MainSite, OU=Sites, dc=domain, dc=com"
strUser = "domena \ administrator"
strPassword = InputBox ("Wchodzić Do hasło: ")
Ustalony objDSO = GetObject ("LDAP: ")
Ustalony objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
Na Błąd Życiorys Następnie
objNewOU.MoveHere strComputerPath, vbNullString
Jeżeli Err.Number = (0) Wtedy
MsgBox "Komputer ruszać się pomyślnie."
Inny
MsgBox "Błąd" & Err.Number & ": " & Err.Description
Kończyć Jeżeli
|