Вопрос : Сценарий VB к списку экспортных товаров всех групп и членов распределения

Мне нужен быстро сценарий vb ехпортирует все группы и там члены распределения к диаграмме первенствовать.  Я нашел одно делает точно я хочу но я должен вписать одно название группы одновременно.  Я хочу его извлечь каждую группу к отдельно рабочему лист, называю работу для goup, и перечисляю members.

I хотел был бы побежать оно против OU «распределения собираю» который уже содержит полностью мое распределение groups class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
objGroup >Dim " class= " " codeSnippet766777 id=

Ответ : Сценарий VB к списку экспортных товаров всех групп и членов распределения

сценарий бежит через ОБЪЯВЛЕНИЕ, получает все группы распределения и для каждое одного создайте отдельно рабочий лист внутри первенствуйте и перечислите их члены.
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:

Вариант точный

Тусклое adoCommand, adoConnection, strBase, strFilter, strAttributes
Тусклое objRootDSE, strDNSDomain, strQuery, adoRecordset, strName, groupType, groupName, iRow
Тусклое objExcel, arrMembers, strMember

'Предметы СУЕТЫ установки.
Установите adoCommand = CreateObject («ADODB.Command»)
Установите adoConnection = CreateObject («ADODB.Connection»)
adoConnection.Provider = «ADsDSOObject»
adoConnection.Open «активно провайдер директории»
adoCommand.ActiveConnection = adoConnection

'Домен директории поиска весь активно.
Установите objRootDSE = GetObject («LDAP: //RootDSE»)
strDNSDomain = objRootDSE.Get («defaultNamingContext»)
strBase = ""

'Фильтр на группах распределения.
strFilter = «(objectCategory=group)»

'Список размежеванный запятым значений атрибута, котор нужно восстановить.
strAttributes = «distinguishedName, член, groupType, имя»

'Построьте вопрос синтаксиса LDAP.
strQuery = strBase & «; » & strFilter & «; » & strAttributes & «; поддерево»
adoCommand.CommandText = strQuery
adoCommand.Properties («размер страницы») = 100
adoCommand.Properties («перерыв») = 30
adoCommand.Properties («тайник приводит к») = ложно

'Побегите вопрос.
Установите adoRecordset = adoCommand.Execute

Установите objExcel = CreateObject («Excel.Application»)
С objExcel
.SheetsInNewWorkbook = 1
. Workbooks.Add
. Видимо = True

'Перечислите приводя к recordset.
Не сделать до adoRecordset.EOF
'Восстановите значения и индикацию.
strName = adoRecordset.Fields («distinguishedName»). Значение
groupType  = adoRecordset.Fields («groupType»). Значение
groupName  = заменяет ть (adoRecordset.Fields («имя»). Значение, «CN=», "")

'получите только группы распределения
если groupType=2 или groupType=4 или groupType=8 после этого
	irow=1
	.ActiveWorkbook.Worksheets.Add
	groupName .ActiveSheet.Name=
	arrMembers = adoRecordset.Fields («член»). Значение

	Группа распределения Wscript.Echo «: » & strName
	Если IsNull (arrMembers) после этого
		Wscript.Echo «--  »
	Еще
		Для каждого strMember в arrMembers
			Wscript.Echo «-- » & strMember
			Установите objRootDSE = GetObject («LDAP: /«&strMember)
			. Клетки (iRow, 1) = заменяет ть (objRootDSE.Name, «CN=», "")
			irow=irow + 1
		Затем
	Закончитесь если
Закончитесь если
'Двиньте к следующему показателю в recordset.
adoRecordset.MoveNext
Петля
. Колонки (1).entirecolumn.autofit
Конец с

'Очистьте вверх.
adoRecordset.Close
adoConnection.Close
Установите objExcel = ничего
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •

     
    programming4us programming4us