Questione : VBScript per spostare un cliente del calcolatore

Voglio spostare un singolo cliente attivo del calcolatore dell'indice da un OU verso un altro su una stazione di lavoro che non è nel dominio.  Ho bisogno di uno scritto che autenticherà al dominio e sposterà un cliente specifico del calcolatore verso un altro OU.  Per esempio: from
ou=Computers, dc=myDomain, dc=com
To
ou=accounting_computers, ou=xyz_computers, dc=myDomain, suggerimenti di cliente del myComputer del

Move del dc=com

Any su come posso fare questo? class= del

Risposta : VBScript per spostare un cliente del calcolatore

APPROVAZIONE, la ho verificata….dobbiamo specificare un regolatore specifico di dominio per collegarci a, in modo da in strNewOUPath, aggiungiamo il nome del regolatore di dominio e dovrebbe funzionare.

Riguardi,

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, calcolatori del ou=IT, OU=MainSite, OU=Sites, dc=domain, dc=com„ strUser = “dominio \ coordinatore„ strPassword = InputBox (“digitare la parola d'accesso: ") Regolare il objDSO = GetObject (“LDAP: ") Regolare il objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) Sull'errore riprendere dopo strComputerPath di objNewOU.MoveHere, vbNullString Se Err.Number = 0 allora MsgBox “calcolatore spostato con successo.„ Altrimenti “Errore„ di MsgBox & Err.Number & “: „ & Err.Description Concluder se