Pytanie : VBScript komputerowy konto

I chcieć pojedynczy Aktywny Adresowy komputer konto od jeden OU jeden na stacja robocza który być w the domena.  I potrzebować pismo który uwiarygodniać the domena i ruszać się jeden odmianowy komputer konto inny OU.  Na przykład:

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

Any propozycja na jak I móc to?

Odpowiedź : VBScript komputerowy konto

OK, I badać ono….my potrzebować odmianowy domena kontroler, więc w strNewOUPath, dodawać the domena kontroler imię, i ono musieć.

Uwzględnienie,

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 Komputer, OU=MainSite, OU=Sites, dc=domain, dc=com"
strUser = "domena \ administrator"
strPassword = InputBox ("Wchodzić Do hasło: ")

Ustalony objDSO = GetObject ("LDAP: ")
Ustalony objNewOU = objDSO.OpenDSObject (strNewOUPath, strUser, strPassword, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND)
Na Błąd Życiorys Następnie
objNewOU.MoveHere strComputerPath, vbNullString
Jeżeli Err.Number = (0) Wtedy
	MsgBox "Komputer ruszać się pomyślnie."
Inny
	MsgBox "Błąd" & Err.Number & ": " & Err.Description
Kończyć Jeżeli
Inne rozwiązania  
 
programming4us programming4us