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
Altre soluzioni  
 
programming4us programming4us