Cuestión : Mover las cuentas de los minusválidos al OU específico

Hola, el

if encontró esta escritura por chandru_sol. Debe trasladarse a todos los usuarios lisiados de un dominio a la pregunta deseada de OU.

My: ¿cuándo el OU es dentro de este dominio, la escritura copia a usuario lisiado de este OU en sí mismo? class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 del >Dim " del class= " de " codeSnippet797182 del id= del 
; ” y strFilter y “; distinguishedName, userAccountControl; sub-estructura”  
 
objCommand.CommandText = strQuery  
 
objCommand.Properties (“tamaño de página”) = 100  
 
objCommand.Properties (“descanso”) = 30  
 
objCommand.Properties (el “escondrijo resulta”) = falso  
 
'Enumerar a todos los usuarios. Comprobar si la cuenta inhabilitó.  
 
Fijar el objRecordSet = objCommand.Execute  
 
Hacer hasta objRecordSet.EOF  
 
strDN = objRecordSet.Fields (“distinguishedName”)  
 
intFlag = objRecordSet.Fields (“userAccountControl”)  
 
Si (intFlag y ADS_UF_ACCOUNTDISABLE) <> 0 entonces  

Fijar el objUser = GetObject (“LDAP: /” y strDN)

Fijar el objNewOU = GetObject (“LDAP: Cuentas de //ou=Disabled,” y objRootDSE.Get (“defaultNamingContext”))
objNewOU.MoveHere objUser.ADsPath, vbNullString
 
  

Terminar si  
 
objRecordSet.MoveNext  
 
Lazo  
 
'Limpiar
objConnection.Close  
 
Wscript.Echo “hechos”
Wscript.quit
class= del

Respuesta : Mover las cuentas de los minusválidos al OU específico

Hola allí,

Esto debe hacer eso. He creado un arsenal llamado los arrOUs que enumera solamente los dos OUs que usted tiene círculo, y he modificado la pieza que especifica a OU 03-DISABLED-USERS para emparejar su estructura.

¿Estoy asumiendo que MWZ-FM.COM es el mismo dominio actual que su computadora está prendido?  Si no, y usted está en un diverso dominio, entonces uncomment esta línea:

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

quitando el apóstrofe en el frente, y entonces la escritura señalará específicamente a ese dominio.

Respetos,

Robo.
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 dévil, objCommand, objRootDSE  
strDNSDomain dévil, strFilter, strQuery, objRecordSet, strDN 
strOUpath dévil, objNewOU, objUser
intFlag dévil  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Utilizar la DIFICULTAD para buscar el dominio para todos los usuarios.  
Fijar el objConnection = CreateObject (“ADODB.Connection”)  
Fijar el objCommand = CreateObject (“ADODB.Command”)  
objConnection.Provider = “ADsDSOOBject”  
objConnection.Open “abastecedor activo del directorio”  
Fijar objCommand.ActiveConnection = objConnection  
'Determinar el dominio del DNS del objeto de RootDSE.  
Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)  
strDNSDomain = objRootDSE.Get (“DefaultNamingContext”)
'strDNSDomain = “DC=MWZ-FM, DC=COM”
strFilter = “(y (objectCategory=person) (objectClass=user))”  

'Cada secuencia debe tener una coma que se arrastra
arrOUs = arsenal (_
	“OU=11-USERS,”, _
	“USUARIO MIGRIERT DE OU=12-EXCHANGE,” _
	)

Para cada strOU en arrOUs
	strQuery = “; ” y strFilter y “; distinguishedName, userAccountControl; sub-estructura”  
	objCommand.CommandText = strQuery  
	objCommand.Properties (“tamaño de página”) = 100  
	objCommand.Properties (“descanso”) = 30  
	objCommand.Properties (el “escondrijo resulta”) = falso  
	'Enumerar a todos los usuarios. Comprobar si la cuenta inhabilitó.  
	Fijar el objRecordSet = objCommand.Execute
	Hacer hasta objRecordSet.EOF  
		strDN = objRecordSet.Fields (“distinguishedName”)  
		intFlag = objRecordSet.Fields (“userAccountControl”)  
		Si (intFlag y ADS_UF_ACCOUNTDISABLE) <> 0 entonces 
			Fijar el objUser = GetObject (“LDAP: /” y strDN)
			Fijar el objNewOU = GetObject (“LDAP: //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS,” y strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Terminar si  
		objRecordSet.MoveNext  
	Lazo  
Después
'Limpiar
objConnection.Close  
Wscript.Echo “hechos”
Wscript.quit
Otras soluciones  
 
programming4us programming4us