Cuestión : VBScript para mover una cuenta de la computadora

Quiero mover una sola cuenta activa de la computadora del directorio a partir de un OU a otro en un sitio de trabajo que no esté en el dominio.  Necesito una escritura que authentique al dominio y mueva una cuenta específica de la computadora a otro OU.  Por ejemplo: ¿from
ou=Computers, dc=myDomain, dc=com
To
ou=accounting_computers, ou=xyz_computers, dc=myDomain, sugerencias de la cuenta del myComputer del

Move del dc=com

Any en cómo puedo hacer esto? class= del

Respuesta : VBScript para mover una cuenta de la computadora

AUTORIZACIÓN, la he probado….necesitamos especificar un regulador específico del dominio para conectar con, así que en el strNewOUPath, agregamos el nombre del regulador del dominio, y debe trabajar.

Respetos,

Robo.
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, computadoras del ou=IT, OU=MainSite, OU=Sites, dc=domain, dc=com”
strUser = “dominio \ administrador”
strPassword = InputBox (“incorporar la contraseña: ")

Fijar el objDSO = GetObject (“LDAP: ")
Fijar el objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
En error reasumir después
strComputerPath de objNewOU.MoveHere, vbNullString
Si Err.Number = 0 entonces
	MsgBox “computadora movida con éxito.”

	“Error” de MsgBox y Err.Number y “: ” Y Err.Description
Terminar si
Otras soluciones  
 
programming4us programming4us