Frage : VBScript, zum eines Computerkontos zu verschieben

Ich möchte ein einzelnes aktives Verzeichniscomputerkonto von einem OU auf andere auf einem Arbeitsplatz verschieben, der nicht im Gebiet ist.  Ich benötige einen Index, der zum Gebiet beglaubigt und ein spezifisches Computerkonto auf einen anderen OU verschiebt.  Z.B.:

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

Any Vorschläge auf, wie ich dies tun kann?

Antwort : VBScript, zum eines Computerkontos zu verschieben

O.K., geprüft ich es….wir müssen einen spezifischen Gebietssteuerpult spezifizieren, um an, also in strNewOUPath anzuschließen, addieren den Gebietssteuerpultnamen, und er sollte arbeiten.

Respekt,

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 Computer, OU=MainSite, OU=Sites, dc=domain, dc=com“ strUser = „Gebiet \ Verwalter“ strPassword = InputBox („Kennwort eintragen: ") objDSO = GetObject einstellen („LDAP: ") objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) einstellen Auf Störung zunächst wieder.aufnehmen objNewOU.MoveHere strComputerPath, vbNullString Wenn Err.Number = 0 dann MsgBox „Computer erfolgreich verschoben.“ Sonst MsgBox „Störung“ u. Err.Number u. „: “ U. Err.Description Beenden wenn