Pergunta : Mover clientes deficientes para a OU específica

Olá!, o

if encontrou este certificado pelo chandru_sol. Deve mover todos os usuários deficientes de um domínio na pergunta desejada de OU.

My: quando a OU se realiza dentro deste domínio, o certificado copia o usuário deficiente desta OU nse?
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do
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:
objConnection notpretty do >Dim " do class= " de " codeSnippet797182 do id= do
; ” & strFilter & “; distinguishedName, userAccountControl; subtree”  
 
objCommand.CommandText = strQuery  
 
objCommand.Properties (de “tamanho página”) = 100  
 
objCommand.Properties (“intervalo de parada”) = 30  
 
objCommand.Properties (o “esconderijo resulta”) = falso  
 
'Enumerar todos os usuários. Verific se o cliente incapacitou.  
 
Ajustar o objRecordSet = o objCommand.Execute  
 
Fazer até objRecordSet.EOF  
 
strDN = objRecordSet.Fields (“distinguishedName”)  
 
intFlag = objRecordSet.Fields (“userAccountControl”)  
 
Se (intFlag e ADS_UF_ACCOUNTDISABLE) <> 0 então  

Ajustar o objUser = o GetObject (“LDAP: /” & strDN)

Ajustar o objNewOU = o GetObject (“LDAP: Clientes de //ou=Disabled,” & objRootDSE.Get (“defaultNamingContext”))
objNewOU.MoveHere objUser.ADsPath, vbNullString
 
Mais  

Terminar se  
 
objRecordSet.MoveNext  
 
Laço  
 
'Limpar
objConnection.Close  
 
Wscript.Echo “feitos”
Wscript.quit
class= do

Resposta : Mover clientes deficientes para a OU específica

Olá! lá,

Isto deve fazer aquele. Eu criei uma disposição chamada arrOUs que alistasse somente o dois OUs que você tem o círculo, e eu modifiquei a peça que especific a OU 03-DISABLED-USERS para combinar sua estrutura.

Eu estou supor que MWZ-FM.COM é o mesmo domínio atual que seu computador está ligada?  Se não, e você está em um domínio diferente, então uncomment esta linha:

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

pela remoção da apóstrofe na parte dianteira, e então pelo certificado apontará especificamente a esse domínio.

Considerações,

Roubo.
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:
objConnection não ofuscante, objCommand, objRootDSE  
strDNSDomain não ofuscante, strFilter, strQuery, objRecordSet, strDN 
strOUpath não ofuscante, objNewOU, objUser
intFlag não ofuscante  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Usar a DEMORA para procurarar o domínio por todos os usuários.  
Ajustar o objConnection = o CreateObject (“ADODB.Connection”)  
Ajustar o objCommand = o CreateObject (“ADODB.Command”)  
objConnection.Provider = “ADsDSOOBject”  
objConnection.Open “fornecedor ativo do diretório”  
Ajustar objCommand.ActiveConnection = objConnection  
'Determinar o domínio do DNS do objeto de RootDSE.  
Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)  
strDNSDomain = objRootDSE.Get (“DefaultNamingContext”)
'strDNSDomain = “DC=MWZ-FM, DC=COM”
strFilter = “(& (objectCategory=person) (objectClass=user))”  

'Cada corda deve ter uma vírgula de arrasto
arrOUs = disposição (_
	“OU=11-USERS,”, _
	DE “USUÁRIO MIGRIERT OU=12-EXCHANGE,” _
	)

Para cada strOU nos arrOUs
	strQuery = “; ” & strFilter & “; distinguishedName, userAccountControl; subtree”  
	objCommand.CommandText = strQuery  
	objCommand.Properties (de “tamanho página”) = 100  
	objCommand.Properties (“intervalo de parada”) = 30  
	objCommand.Properties (o “esconderijo resulta”) = falso  
	'Enumerar todos os usuários. Verific se o cliente incapacitou.  
	Ajustar o objRecordSet = o objCommand.Execute
	Fazer até objRecordSet.EOF  
		strDN = objRecordSet.Fields (“distinguishedName”)  
		intFlag = objRecordSet.Fields (“userAccountControl”)  
		Se (intFlag e ADS_UF_ACCOUNTDISABLE) <> 0 então 
			Ajustar o objUser = o GetObject (“LDAP: /” & strDN)
			Ajustar o objNewOU = o GetObject (“LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,” & strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Terminar se  
		objRecordSet.MoveNext  
	Laço  
Em seguida
'Limpar
objConnection.Close  
Wscript.Echo “feitos”
Wscript.quit
Outras soluções  
 
programming4us programming4us