Pergunta : VBScript para mover um cliente do computador

Eu quero mover um único cliente ativo do computador do diretório de uma OU para outra em uma estação de trabalho que não esteja no domínio.  Eu preciso um certificado que autentique ao domínio e mova um cliente específico do computador para uma outra OU.  Por exemplo: from
ou=Computers do cliente do myComputer do

Move, dc=myDomain, dc=com
To
ou=accounting_computers, ou=xyz_computers, dc=myDomain, sugestões do dc=com

Any em como eu posso fazer este? class= do

Resposta : VBScript para mover um cliente do computador

APROVAÇÃO, eu testei-a….nós precisamos de especific um controlador específico do domínio para conetar, assim que no strNewOUPath, adicionamos o nome do controlador do domínio, e deve trabalhar.

Considerações,

Roubo.
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, computadores do ou=IT, OU=MainSite, OU=Sites, dc=domain, dc=com”
strUser = “domínio \ administrador”
strPassword = InputBox (“incorporar a senha: ")

Ajustar o objDSO = o GetObject (“LDAP: ")
Ajustar o objNewOU = o objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
No erro recomeçar em seguida
strComputerPath de objNewOU.MoveHere, vbNullString
Se Err.Number = 0 então
	MsgBox “computador movido com sucesso.”
Mais
	“Erro” de MsgBox & Err.Number & “: ” & Err.Description
Terminar se
Outras soluções  
 
programming4us programming4us