Question : Déplacer les comptes de handicapés à l'OU spécifique

Bonjour, le

if a trouvé ce manuscrit par chandru_sol. Il devrait entrer tous les utilisateurs handicapés d'un domaine dans la question désirée d'OU.

My : quand l'OU dans ce domaine, le manuscrit a-t-il lieu copie-t-il l'utilisateur handicapé de cette OU dans lui-même ? class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de " codeSnippet797182 d'id= " de 
Dim de class=, objCommand, objRootDSE  
 
Faible strDNSDomain, strFilter, strQuery, objRecordSet, strDN  

Faible strOUpath, objNewOU, objUser

Faible intFlag  
 
Const ADS_UF_ACCOUNTDISABLE = &H02  
 
'Employer l'AGITATION pour rechercher le domaine tous les utilisateurs.  
 
Placer l'objConnection = le CreateObject (« ADODB.Connection »)  
 
Placer l'objCommand = le CreateObject (« ADODB.Command »)  
 
objConnection.Provider = « ADsDSOOBject »  
 
objConnection.Open « fournisseur actif d'annuaire »  
 
Placer objCommand.ActiveConnection = objConnection  
 
'Déterminer le domaine de DNS à partir de l'objet de RootDSE.  
 
Placer l'objRootDSE = le GetObject (« LDAP : //RootDSE »)  
 
strDNSDomain = objRootDSE.Get (« DefaultNamingContext »)  
 
strFilter = « (et (objectCategory=person) (objectClass=user)) »  
 
strQuery = «  ;  » et strFilter et « ; distinguishedName, userAccountControl ; sous-arbre »  
 
objCommand.CommandText = strQuery  
 
objCommand.Properties (« taille de page ») = 100  
 
objCommand.Properties (« temps mort ») = 30  
 
objCommand.Properties (la « cachette résulte ») = faux  
 
'Énumérer tous les utilisateurs. Vérifier si le compte désactivait.  
 
Placer l'objRecordSet = l'objCommand.Execute  
 
Faire jusqu'à objRecordSet.EOF  
 
strDN = objRecordSet.Fields (« distinguishedName »)  
 
intFlag = objRecordSet.Fields (« userAccountControl »)  
 
Si (intFlag et ADS_UF_ACCOUNTDISABLE) <> 0 puis  

Placer l'objUser = le GetObject (« LDAP : / » et strDN)

Placer l'objNewOU = le GetObject (« LDAP : Comptes de //ou=Disabled, » et objRootDSE.Get (« defaultNamingContext »))
objNewOU.MoveHere objUser.ADsPath, vbNullString
 
Autrement  

Finir si  
 
objRecordSet.MoveNext  
 
Boucle  
 
'Nettoyer
objConnection.Close  
 
Wscript.Echo « faits »
Wscript.quit
class= de

Réponse : Déplacer les comptes de handicapés à l'OU spécifique

Salut là,

Ceci devrait faire cela. J'ai créé une rangée appelée les arrOUs qui énumère seulement les deux OUs que vous avez le cercle, et j'ai modifié la pièce qui spécifie l'OU 03-DISABLED-USERS pour assortir votre structure.

Je suppose que MWZ-FM.COM est le même domaine courant que votre ordinateur est allumé ?  Sinon, et vous sont sur un domaine différent, puis uncomment cette ligne :

'strDNSDomain = « DC=MWZ-FM, DC=COM »

en enlevant l'apostrophe à l'avant, et alors le manuscrit indiquera spécifiquement ce domaine.

Respect,

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 :

Faible objConnection, objCommand, objRootDSE  
Faible strDNSDomain, strFilter, strQuery, objRecordSet, strDN 
Faible strOUpath, objNewOU, objUser
Faible intFlag  
Const ADS_UF_ACCOUNTDISABLE = &H02  
'Employer l'AGITATION pour rechercher le domaine tous les utilisateurs.  
Placer l'objConnection = le CreateObject (« ADODB.Connection »)  
Placer l'objCommand = le CreateObject (« ADODB.Command »)  
objConnection.Provider = « ADsDSOOBject »  
objConnection.Open « fournisseur actif d'annuaire »  
Placer objCommand.ActiveConnection = objConnection  
'Déterminer le domaine de DNS à partir de l'objet de RootDSE.  
Placer l'objRootDSE = le GetObject (« LDAP : //RootDSE »)  
strDNSDomain = objRootDSE.Get (« DefaultNamingContext »)
'strDNSDomain = « DC=MWZ-FM, DC=COM »
strFilter = « (et (objectCategory=person) (objectClass=user)) »  

'Chaque corde doit avoir une virgule de remorquage
arrOUs = rangée (_
	« OU=11-USERS, », _
	« UTILISATEUR MIGRIERT D'OU=12-EXCHANGE, » _
	)

Pour chaque strOU dans les arrOUs
	strQuery = « ;  » et strFilter et « ; distinguishedName, userAccountControl ; sous-arbre »  
	objCommand.CommandText = strQuery  
	objCommand.Properties (« taille de page ») = 100  
	objCommand.Properties (« temps mort ») = 30  
	objCommand.Properties (la « cachette résulte ») = faux  
	'Énumérer tous les utilisateurs. Vérifier si le compte désactivait.  
	Placer l'objRecordSet = l'objCommand.Execute
	Faire jusqu'à objRecordSet.EOF  
		strDN = objRecordSet.Fields (« distinguishedName »)  
		intFlag = objRecordSet.Fields (« userAccountControl »)  
		Si (intFlag et ADS_UF_ACCOUNTDISABLE) <> 0 puis 
			Placer l'objUser = le GetObject (« LDAP : / » et strDN)
			Placer l'objNewOU = le GetObject (« LDAP : //OU=03-DISABLED-USERS, OU=93-DISABLED-OBJECTS, » et strDNSDomain)
			objNewOU.MoveHere objUser.ADsPath, vbNullString
		Finir si  
		objRecordSet.MoveNext  
	Boucle  
Après
'Nettoyer
objConnection.Close  
Wscript.Echo « faits »
Wscript.quit
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us