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, ordinateurs d'ou=IT, OU=MainSite, OU=Sites, dc=domain, dc=com »
strUser = « domaine \ administrateur »
strPassword = InputBox (« entrer le mot de passe : ")
Placer l'objDSO = le GetObject (« LDAP : ")
Placer l'objNewOU = l'objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
Sur l'erreur reprendre après
strComputerPath d'objNewOU.MoveHere, vbNullString
Si Err.Number = 0 puis
MsgBox « ordinateur déplacé avec succès. »
Autrement
« Erreur » de MsgBox et Err.Number et « : » Et Err.Description
Finir si
|