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