Вопрос : Мне нужно запросить каждую группу в OU в домене корня и получить названия группы имеет точно идентичных потребителей.

Hi, потребность

I запросить каждую группу в OU в домене корня и получить названия группы который имеет точно идентичное as

Group1 выхода users.
get имеет 10 членов и они будут identical
Group2 имеют 10 членов и они будет identical

Need для того чтобы проверить член удостоверение личности электронная почта, котор smogло быть учетом или контактами потребителя в groups

Regards
Sharath
 class=

Ответ : Мне нужно запросить каждую группу в OU в домене корня и получить названия группы имеет точно идентичных потребителей.

проверите это Кодего:
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:

Установите oObject = GetObject («LDAP: //ad2008rd/cn=Users, DC=soap, DC=com»)
блок oObject.Filter= («группа»)

arrGroups ReDim (1)
arrGroupMembers ReDim (1)
Тусклое oGroup, fileName, groupName, arrGroupMembersCounter, emptyGroupsCounter, groupsCounter

arrGroupMembersCounter=0
emptyGroupsCounter=0
groupsCounter=0

Для каждого oGroup в oObject
	тусклые члены
	members=0
	
	groupName = oGroup.cn
	
	arrGroups заповедника ReDim (groupsCounter+1)

	groupPath = getgrouppath (groupName)

	если groupPath = "" после этого
		wscript.echo «неспособное для того чтобы найти определенную группу в домене»
	еще
		установите objGroup = getobject (grouppath)
	
		для каждого objMember в objGroup.Members
			members=members+1
			если arrGroupMembers (arrGroupMembersCounter) = "" после этого
				arrGroupMembers (arrGroupMembersCounter) = objmember.samaccountname
			еще
				arrGroupMembers (arrGroupMembersCounter) = arrGroupMembers (arrGroupMembersCounter) & «,» & objmember.samaccountname
			закончитесь если 			
		затем

		groupname getprimarygroupmembers

		groupName wscript.echo & «: » 
		если arrGroupMembers (arrGroupMembersCounter) = "" после этого
			emptyGroupsCounter=emptyGroupsCounter+1
			wscript.echo «ПУСТАЯ ГРУППА…»
		еще
			=groupName arrGroups (groupsCounter)
			groupsCounter=groupsCounter+1

			номер wscript.echo «членов: » & члены
			arrGroupMembers wscript.echo (arrGroupMembersCounter)
			arrGroupMembersCounter=arrGroupMembersCounter+1
			arrGroupMembers заповедника ReDim (arrGroupMembersCounter+1)
		закончитесь если
				
		"" wscript.echo
		закончитесь если
Затем

номер wscript.echo «групп: » & groupsCounter
номер wscript.echo «пустых групп: » & emptyGroupsCounter

findDuplicateGroups ()

wscript.echo «завершило»
		
findDuplicateGroups функции ()
	"" wscript.echo
	члены групп находки wscript.echo «двойной: »

	для I = 0 к ubound (arrGroups)
		для j = 0 к ubound (arrGroups)
			если ij<> после этого
				если arrGroupMembers (I) = arrGroupMembers (j) после этого
					arrGroups wscript.echo (I) & «и» & arrGroups (j) & «имеют такие же члены: »
					arrGroupMembers wscript.echo (j) 
					"" wscript.echo
				закончитесь если
			закончитесь если
		затем
	затем 
функция конца

getGroupPath функции (byval GroupName)
	установите cmd=createobject («ADODB.Command»)
	установите cn=createobject («ADODB.Connection»)
	установите rs=createobject («ADODB.Recordset»)
	
	cn.open «Provider=ADsDSOObject; »
	
	mandtext cmd.com = «ОТБОРНОЕ adspath от 'LDAP: /» & getnc & _
			  ««ГДЕ objectCategory = «группа» и sAMAccountName =» «& groupname &» '«
	cmd.activeconnection = cn
	
	установите rs = cmd.execute
	
	если rs.bof <> true и rs.eoftrue<> после этого
		getgrouppath=rs (0)
	еще
		getgrouppath = ""
	закончитесь если
	cn.close

закончите функцию

getNC функции
	установите objRoot=getobject («LDAP: //RootDSE»)
	getNC=objRoot.get («defaultNamingContext»)
функция конца

getPrimaryGroupMembers функции (byval GroupName)
	установите cn = createobject («ADODB.Connection»)
	установите cmd = createobject («ADODB.Command»)
	установите rs = createobject («ADODB.Recordset»)
	
	cn.open «Provider=ADsDSOObject; »
	cmd.activeconnection=cn

	cmd.properties («размер страницы») =1000
	mandtext cmd.com = «ОТБОРНОЕ PrimaryGroupToken ОТ 'LDAP: /» & getnc & _
			  ««ГДЕ sAMAccountName =» «& GroupName &» '«
	установите rs = cmd.execute

	если rs.eoftrue<> и rs.boftrue<> после этого
		PrimaryGroupID = rs (0)
	еще
		Err.Raise 5000, «getPrimaryGroupMembers», «неспособно для того чтобы найти свойство PrimaryGroupToken»
	закончитесь если

	mandtext cmd.com = «ОТБОРНОЕ samaccountname, sn, givenName ОТ 'LDAP: /» & getNC & _
			  ««ГДЕ PrimaryGroupID =» «& PrimaryGroupID &» '«

	установите rs = cmd.execute

	пока rs.eoftrue<> и rs.boftrue<>
		если arrGroupMembers (arrGroupMembersCounter) = "" после этого
			arrGroupMembers (arrGroupMembersCounter) = rs («samaccountname»)
		еще
			arrGroupMembers (arrGroupMembersCounter) = arrGroupMembers (arrGroupMembersCounter) & «,» & rs («samaccountname»)
		закончитесь если 	
			
		rs.movenext
	wend
	cn.close
	
закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us