Fråga : Rörelsehindrada konton för flyttning till närmare detaljOU

Hi

if grundar denna skrivar vid chandru_sol. Den bör flyttningen alla rörelsehindrada användare av ett område in i den önskade OU.
My ifrågasätta: when OUEN är inom detta område, skrivar kopierar den rörelsehindrada användaren av denna OU in i honom? > för 
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:
" codeBody " " objConnection för >Dim för class= " för ; ” & strFilter & ”; distinguishedName userAccountControl; subtree”, objCommand.CommandText = strQuery objCommand.Properties (”sida storleksanpassar”), = 100 objCommand.Properties (”frånslagningstid”) = 30 objCommand.Properties (”cachen resulterar”), = falskt 'Enumerate alla användare. Kontrollera om kontohandikappade personer. Fastställd objRecordSet = objCommand.Execute Gör till objRecordSet.EOF strDN = objRecordSet.Fields (”distinguishedName”) intFlag = objRecordSet.Fields (”userAccountControl”) Om (intFlag och ADS_UF_ACCOUNTDISABLE) <> 0 därefter Fastställd objUser = GetObject (”LDAP: /” & strDN) Fastställd objNewOU = GetObject (”LDAP: -//ou=Disabledkonton,” & objRootDSE.Get (”defaultNamingContext”)) objNewOU.MoveHere objUser.ADsPath som vbNullString Annars Avsluta om objRecordSet.MoveNext Kretsa 'Rent övre objConnection.Close ”Gjorda” Wscript.Echo, Wscript.quit
" klar "

Svar : Rörelsehindrada konton för flyttning till närmare detaljOU

Hi där,

Detta bör göra det. Jag har skapat en samling som kallas arrOUs som listar endast tvåna OUs som, du har att cirkla, och jag har ändrat delen som specificerar OUEN 03-DISABLED-USERS för att matcha ditt strukturerar.

Förmiddag som I antar att MWZ-FM.COM är det samma strömområdet att din dator är på?  Om inte, och du är på ett olikt område, då uncommenten som detta fodrar:

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

vid att ta bort apostrofen på bekläda och därefter den ska skriva peka specifikt till det område.

Hälsningar,

Råna.
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:

Dunkel objConnection, objCommand, objRootDSE  
Dunkel strDNSDomain, strFilter, strQuery, objRecordSet, strDN 
Dunkel strOUpath, objNewOU, objUser
Dunkel intFlag  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Använd ADO för att söka området för alla användare.  
Fastställd objConnection = CreateObject (”ADODB.Connection”)  
Fastställd objCommand = CreateObject (”ADODB.Command”)  
objConnection.Provider = ”ADsDSOOBject”,  
objConnection.Open ”aktivarkivfamiljeförsörjare”,  
Uppsättning objCommand.ActiveConnection = objConnection  
'Bestäm DNS-området från RootDSEen anmärker.  
Fastställd objRootDSE = GetObject (”LDAP: //RootDSE”)  
strDNSDomain = objRootDSE.Get (”DefaultNamingContext”)
'strDNSDomain = ”DC=MWZ-FM, DC=COM”,
strFilter = ”(& (objectCategory=person) (objectClass=user))”,  

'Varje stränger måste ha ett skugga komma
arrOUs = samling (_,
	”OU=11-USERS,”, _,
	”OU=12--EXCHANGEANVÄNDARE MIGRIERT,” _,
	)

För varje strOU i arrOUs
	strQuery = ”; ” & strFilter & ”; distinguishedName userAccountControl; subtree”,  
	objCommand.CommandText = strQuery  
	objCommand.Properties (”sida storleksanpassar”), = 100  
	objCommand.Properties (”frånslagningstid”) = 30  
	objCommand.Properties (”cachen resulterar”), = falskt  
	'Enumerate alla användare. Kontrollera om kontohandikappade personer.  
	Fastställd objRecordSet = objCommand.Execute
	Gör till objRecordSet.EOF  
		strDN = objRecordSet.Fields (”distinguishedName”)  
		intFlag = objRecordSet.Fields (”userAccountControl”)  
		Om (intFlag och ADS_UF_ACCOUNTDISABLE) <> 0 därefter 
			Fastställd objUser = GetObject (”LDAP: /” & strDN)
			Fastställd objNewOU = GetObject (”LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,” & strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath som vbNullString
		Avsluta om  
		objRecordSet.MoveNext  
	Kretsa  
Därefter
'Rent övre
objConnection.Close  
”Gjorda” Wscript.Echo,
Wscript.quit
Andra lösningar  
 
programming4us programming4us