Экспорт из Active Directory

  • Автор темы denisivc
  • Дата начала
D

denisivc

Гость
#1
Мучаюсь уже пол дня, может кто поможет. Задача такая в AD создал
подразделение(пусть будет - test1), в нем создал пользователя test1 и подразделение test2, в котором соответственно создал пользователя test2. Нужно экспортировать даные пользователей(имя и мыло) из подразделения test1 И test2.
Сделал так:

Option Explicit

Dim strDN, objExcel, objContainer, objChild

strDN = MsgBox("погнали")

Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

objExcel.ActiveSheet.Name = "Users of " & Left(strDN,19) & "..."
objExcel.ActiveSheet.Range("A1").Activate
objExcel.ActiveCell.Value = " юзер"
objExcel.ActiveCell.Offset(0,1).Value = "почта"
objExcel.ActiveCell.Offset(1,0).Activate

Set objContainer = GetObject("LDAP://OU=test2,DC=test,DC=local")

objContainer.Filter = Array("user")
For Each objChild In objContainer
objExcel.ActiveCell.Value = objChild.Name
objExcel.ActiveCell.Offset(0,1).Value = objChild.mail
objExcel.ActiveCell.Offset(1,0).Activate
Next

Для подразделения test1(если OU=test1) выводит пользователя test1(нормально отрабатывает), а вот для test2(ставлю OU=test2) - выдает ошибку -Такой объект на сервере отсутствует.
Я так понимаю что проблема во вложенности подразделений.
Если кто знает или сталкивался подскажите, буду очень признателен