Pytanie : Ruch niepełnosprawny konto specyfik OU

Cześć,

if zakładać ten pismo chandru_sol. Ono musieć wszystkie the niepełnosprawny użytkownik domena w the pragnąć OU.

My pytanie: kiedy the OU być wśród ten domena, the pismo kopiować the niepełnosprawny użytkownik ten OU w? 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

Dim objConnection, objCommand, objRootDSE  
 
Ciemnawy strDNSDomain, strFilter, strQuery, objRecordSet, strDN  

Ciemnawy strOUpath, objNewOU, objUser

Ciemnawy intFlag  
 
Const ADS_UF_ACCOUNTDISABLE = &H02  
 
'Używać CEREGIELE the domena dla wszystkie użytkownik.  
 
Ustawiać objConnection = CreateObject ("ADODB.Connection")  
 
Ustawiać objCommand = CreateObject ("ADODB.Command")  
 
objConnection.Provider = "ADsDSOOBject"  
 
objConnection.Open "Aktywny Adresowy Dostawca"  
 
Set objCommand.ActiveConnection = objConnection  
 
'Ustalać the DNS domena od the RootDSE przedmiot.  
 
Ustawiać objRootDSE = GetObject ("LDAP: //RootDSE")  
 
strDNSDomain = objRootDSE.Get ("DefaultNamingContext")  
 
strFilter = "(& (objectCategory=person) (objectClass=user))"  
 
strQuery = "; " & strFilter & "; distinguishedName, userAccountControl; subtree"  
 
objCommand.CommandText = strQuery  
 
objCommand.Properties ("Strona Rozmiar") = 100  
 
objCommand.Properties ("Timeout") = 30  
 
objCommand.Properties ("Tajna kryjówka Wynikać") = Fałszywy  
 
'Wyliczać wszystkie użytkownik. Sprawdzać jeżeli konto obezwładniać.  
 
Ustawiać objRecordSet = objCommand.Execute  
 
Do objRecordSet.EOF  
 
strDN = objRecordSet.Fields ("distinguishedName")  
 
intFlag = objRecordSet.Fields ("userAccountControl")  
 
Jeżeli (intFlag I ADS_UF_ACCOUNTDISABLE) <> (0) Wtedy  

Ustalony objUser = GetObject ("LDAP: /" & strDN)

Ustalony objNewOU = GetObject ("LDAP: //ou=Disabled Konto," & objRootDSE.Get ("defaultNamingContext"))
objNewOU.MoveHere objUser.ADsPath, vbNullString
 
Inny  

Kończyć Jeżeli  
 
objRecordSet.MoveNext  
 
Pętla  
 
'Czyścić czyścić
objConnection.Close  
 
Wscript.Echo "Robić"
Wscript.quit

Odpowiedź : Ruch niepełnosprawny konto specyfik OU

Cześć tam,

To musieć to. I tworzyć szyk dzwonić arrOUs który tylko spisywać the dwa OUs ty mieć okrąg, i I modyfikować the część który precyzować the 03-DISABLED-USERS OU twój struktura.

I zakładać że MWZ-FM.COM być the ten sam aktualny domena że twój komputer być dalej?  Jeśli nie, i ty być na różny domena, then uncomment ten linia:

'strDNSDomain = "DC=MWZ-FM, DC=COM"

the apostrof przy the przód, i wtedy the pismo wskazywać specyficznie ten domena.

Uwzględnienie,

Rob.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

Ciemnawy objConnection, objCommand, objRootDSE  
Ciemnawy strDNSDomain, strFilter, strQuery, objRecordSet, strDN 
Ciemnawy strOUpath, objNewOU, objUser
Ciemnawy intFlag  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Używać CEREGIELE the domena dla wszystkie użytkownik.  
Ustawiać objConnection = CreateObject ("ADODB.Connection")  
Ustawiać objCommand = CreateObject ("ADODB.Command")  
objConnection.Provider = "ADsDSOOBject"  
objConnection.Open "Aktywny Adresowy Dostawca"  
Set objCommand.ActiveConnection = objConnection  
'Ustalać the DNS domena od the RootDSE przedmiot.  
Ustawiać objRootDSE = GetObject ("LDAP: //RootDSE")  
strDNSDomain = objRootDSE.Get ("DefaultNamingContext")
'strDNSDomain = "DC=MWZ-FM, DC=COM"
strFilter = "(& (objectCategory=person) (objectClass=user))"  

'Przecinek sznurek musieć powłóczysty przecinek
arrOUs = Szyk (_
	"OU=11-USERS,", _
	"OU=12-EXCHANGE UŻYTKOWNIK MIGRIERT," _
	)

Dla ArrOUs strOU W arrOUs
	strQuery = "; " & strFilter & "; distinguishedName, userAccountControl; subtree"  
	objCommand.CommandText = strQuery  
	objCommand.Properties ("Strona Rozmiar") = 100  
	objCommand.Properties ("Timeout") = 30  
	objCommand.Properties ("Tajna kryjówka Wynikać") = Fałszywy  
	'Wyliczać wszystkie użytkownik. Sprawdzać jeżeli konto obezwładniać.  
	Ustawiać objRecordSet = objCommand.Execute
	Do objRecordSet.EOF  
		strDN = objRecordSet.Fields ("distinguishedName")  
		intFlag = objRecordSet.Fields ("userAccountControl")  
		Jeżeli (intFlag I ADS_UF_ACCOUNTDISABLE) <> (0) Wtedy 
			Ustalony objUser = GetObject ("LDAP: /" & strDN)
			Ustalony objNewOU = GetObject ("LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS," & strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Kończyć Jeżeli  
		objRecordSet.MoveNext  
	Pętla  
Następnie
'Czyścić czyścić
objConnection.Close  
Wscript.Echo "Robić"
Wscript.quit
Inne rozwiązania  
 
programming4us programming4us