Вопрос : VBScript для того чтобы ехпортировать члены групп и экспорта к Эксел

hihi,

I am пытаясь ехпортировать члены групп в Эксел, каждая группа будет новым ответом worksheet.

The в работах этого вопроса О'КЕЫ: href= " http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_26298266.html?sfQueryTermInfo=1+10+30+distribut+excel+export+get+group+member+script "

ramming/Languages/Visual_Basic/VB_Script/Q_26298266.html e.com/Prog http://www.experts-exchang? sfQueryTermInfo=1+10+30+distribut+excel+export+get+group+member+script

Except, котор я хотел был бы оно как раз для того чтобы заселить каждое рабочий лист, для того чтобы не спросить, что я щелкнул О'КЕЙОМ для каждого характера user.

The максимального длина для имен рабочий лист 31 характер, некоторые из групп более длинне чем 31 характер и сценарий останавливает, там любая дорога как раз покрыть имя рабочий лист на 31 характере?

thanks class=

Ответ : VBScript для того чтобы ехпортировать члены групп и экспорта к Эксел

Hi, я комментировал вне линии WScript.Echo, и изменял эту линию
      groupName .ActiveSheet.Name=

к этому
      .ActiveSheet.Name= вышло (groupName, 31)

Отношения,

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: 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 .ActiveSheet.Name= вышло (groupName, 31) 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 = ничего