Question : Je dois questionner chaque groupe à une OU dans le domaine de racine et obtenir les noms de groupe qui a les utilisateurs identiques exacts.

Bonjour, le besoin du

I de questionner chaque groupe à une OU dans le domaine de racine et obtenir les noms de groupe qui a l'as

Group1 de rendement d'users.
get a 10 membres et eux sont l'identical
Group2 a 10 membres et elles sont l'identical

Need pour vérifier le membre que l'identification d'email pourrait être des comptes ou des contacts d'utilisateur dans le groups

Regards
Sharath
 class= de

Réponse : Je dois questionner chaque groupe à une OU dans le domaine de racine et obtenir les noms de groupe qui a les utilisateurs identiques exacts.

vérifier ce code :
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 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
128 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :

Placer l'oObject = le GetObject (« LDAP : //ad2008rd/cn=Users, DC=soap, DC=com »)
rangée d'oObject.Filter= (« groupe »)

arrGroups de ReDim (1)
arrGroupMembers de ReDim (1)
Faible oGroup, nom de fichier, groupName, arrGroupMembersCounter, emptyGroupsCounter, groupsCounter

arrGroupMembersCounter=0
emptyGroupsCounter=0
groupsCounter=0

Pour chaque oGroup dans l'oObject
	faibles membres
	members=0
	
	groupName = oGroup.cn
	
	arrGroups de conserve de ReDim (groupsCounter+1)

	groupPath = getgrouppath (groupName)

	si groupPath = puis ""
		wscript.echo « incapable de trouver le groupe spécifique dans le domaine »
	autrement
		placer l'objGroup = le getobject (le grouppath)
	
		pour chaque objMember dans objGroup.Members
			members=members+1
			si arrGroupMembers (arrGroupMembersCounter) = "" alors
				arrGroupMembers (arrGroupMembersCounter) = objmember.samaccountname
			autrement
				arrGroupMembers (arrGroupMembersCounter) = arrGroupMembers (arrGroupMembersCounter) et « , » et objmember.samaccountname
			finir si 			
		après

		groupname de getprimarygroupmembers

		groupName de wscript.echo et « :  » 
		si arrGroupMembers (arrGroupMembersCounter) = "" alors
			emptyGroupsCounter=emptyGroupsCounter+1
			wscript.echo « GROUPE VIDE… »
		autrement
			=groupName d'arrGroups (groupsCounter)
			groupsCounter=groupsCounter+1

			nombre de wscript.echo « de membres :  » et membres
			arrGroupMembers de wscript.echo (arrGroupMembersCounter)
			arrGroupMembersCounter=arrGroupMembersCounter+1
			arrGroupMembers de conserve de ReDim (arrGroupMembersCounter+1)
		finir si
				
		"" de wscript.echo
		finir si
Après

nombre de wscript.echo « de groupes :  » et groupsCounter
nombre de wscript.echo « de groupes vides :  » et emptyGroupsCounter

findDuplicateGroups ()

wscript.echo « a accompli »
		
findDuplicateGroups de fonction ()
	"" de wscript.echo
	membres doubles de groupes de trouvaille de wscript.echo « :  »

	pour I = 0 à l'ubound (arrGroups)
		pour j = 0 à l'ubound (arrGroups)
			s'ij<> alors
				si arrGroupMembers (i) = arrGroupMembers (j) alors
					arrGroups de wscript.echo (i) et « et » et arrGroups (j) et « a les mêmes membres :  »
					arrGroupMembers de wscript.echo (j) 
					"" de wscript.echo
				finir si
			finir si
		après
	après 
fonction de fin

getGroupPath de fonction (GroupName byval)
	placer le cmd=createobject (« ADODB.Command »)
	placer le cn=createobject (« ADODB.Connection »)
	placer le rs=createobject (« ADODB.Recordset »)
	
	cn.open « Provider=ADsDSOObject ;  »
	
	mandtext de cmd.com = « adspath CHOISI de 'LDAP : / » et getnc et _
			  « « OÙ objectCategory = « groupe » et sAMAccountName = » « et groupname et » '« 
	cmd.activeconnection = NC
	
	placer les rs = le cmd.execute
	
	si rs.bof <> rectifient et rs.eoftrue<> alors
		getgrouppath=rs (0)
	autrement
		getgrouppath = ""
	finir si
	cn.close

finir la fonction

getNC de fonction
	placer l'objRoot=getobject (« LDAP : //RootDSE »)
	getNC=objRoot.get (« defaultNamingContext »)
fonction de fin

getPrimaryGroupMembers de fonction (GroupName byval)
	placer NC = createobject (« ADODB.Connection »)
	placer le cmd = le createobject (« ADODB.Command »)
	placer les rs = le createobject (« ADODB.Recordset »)
	
	cn.open « Provider=ADsDSOObject ;  »
	cmd.activeconnection=cn

	cmd.properties (« taille de page ») =1000
	mandtext de cmd.com = « PrimaryGroupToken CHOISI de 'LDAP : / » et getnc et _
			  « « OÙ sAMAccountName = » « et GroupName et » '« 
	placer les rs = le cmd.execute

	si rs.eoftrue<> et rs.boftrue<> alors
		PrimaryGroupID = rs (0)
	autrement
		Err.Raise 5000, « getPrimaryGroupMembers », « incapable de trouver la propriété de PrimaryGroupToken »
	finir si

	mandtext de cmd.com = « samaccountname CHOISI, Sn, givenName de 'LDAP : / » et getNC et _
			  « « OÙ PrimaryGroupID = » « et PrimaryGroupID et » '« 

	placer les rs = le cmd.execute

	tandis que rs.eoftrue<> et rs.boftrue<>
		si arrGroupMembers (arrGroupMembersCounter) = "" alors
			arrGroupMembers (arrGroupMembersCounter) = rs (« samaccountname »)
		autrement
			arrGroupMembers (arrGroupMembersCounter) = arrGroupMembers (arrGroupMembersCounter) et « , » et rs (« samaccountname »)
		finir si 	
			
		rs.movenext
	wend
	cn.close
	
finir la fonction
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