Vraag : VBScript om een computerrekening te bewegen

Ik wil één enkele Actieve de computerrekening van de Folder van één OU aan een andere op een werkstation bewegen dat niet in het domein is.  Ik heb een manuscript nodig dat aan het domein voor authentiek zal verklaren en één specifieke computerrekening naar een andere OU zal verplaatsen.  Bijvoorbeeld:

Move myComputer rekening from
ou=Computers, dc=myDomain, dc=com
To
ou=accounting_computers, ou=xyz_computers, dc=myDomain, dc=com

Any- suggesties aangaande hoe ik dit kan doen?

Antwoord : VBScript om een computerrekening te bewegen

O.K., heb ik het…. getestwij moeten een specifiek domeincontrolemechanisme specificeren om te verbinden met, zodat in strNewOUPath, de naam van het domeincontrolemechanisme toevoegen, en het zou moeten werken.

Achting,

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, ou=IT Computers, OU=MainSite, OU=Sites, dc=domain, dc=com“ strUser = „domein\ beheerder“ strPassword = InputBox („ga wachtwoord in: “) Reeks objDSO = GetObject („LDAP: “) Reeks objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) Op Fout hervat daarna objNewOU.MoveHere strComputerPath, het vbNullString Als Err.Number = 0 toen MsgBox „met succes bewogen Computer.“ Anders De „fout“ van MsgBox & Err.Number & „: “ & Err.Description Eind als