Экспорт из Active Directory

Тема в разделе "Visual Basic", создана пользователем denisivc, 1 окт 2009.

  1. denisivc

    denisivc Гость

    Мучаюсь уже пол дня, может кто поможет. Задача такая в 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) - выдает ошибку -Такой объект на сервере отсутствует.
    Я так понимаю что проблема во вложенности подразделений.
    Если кто знает или сталкивался подскажите, буду очень признателен
     
  2. denisivc

    denisivc Гость

    Неужели кто не знает???
     
Загрузка...

Поделиться этой страницей