Fråga : VBScript till flyttningen ett datorkonto

Jag önskar till flyttningen ett konto för dator för singelaktivarkiv från en OU till another på en arbetsstation som inte är i området.  Jag behöver en skriva som ska legitimerar till det specifika datorkontot för området och för flyttning en till en annan OU.  Till exempel: för myComputerkonto för

Move from
ou=Computers, dc=myDomain, dc=com
To
ou=accounting_computers, ou=xyz_computers, dc=myDomain, förslag för dc=com

Any på hur jag kan göra denna? " klar "

Svar : VBScript till flyttningen ett datorkonto

REKO har jag testat det….,vi behöver att specificera en specifik områdeskontrollant för att förbinda till, så i strNewOUPath, tillfogar den kända områdeskontrollanten, och den bör fungera.

Hälsningar,

Råna.

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=ITdatorer, OU=MainSite, OU=Sites, dc=domain, dc=com”, strUser = ”område \ administratör”, strPassword = InputBox (”skriv in lösenordet: ”) Fastställd objDSO = GetObject (”LDAP: ”) Fastställd objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassworden, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND) På felmeritförteckning därefter objNewOU.MoveHere-strComputerPath som vbNullString Om Err.Number = 0 därefter MsgBox ”rörd dator lyckat.”, Annars MsgBox ”fel” & Err.Number & ”: ” & Err.Description Avsluta om