Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и ADSI / 6 сообщений из 6, страница 1 из 1
22.12.2004, 09:22:33
    #32838165
serg_tmb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и ADSI
Привет всем!!!
Люди кто нибудь наверняка делал такую штуку, мне надо вытянуть из AD все данные о пользователях домена и поместить в экселевскую таблицу.

"Шизофрения это конечно неприятно, но гораздо лучше чем гемморой" (С) Shmatrix
...
Рейтинг: 0 / 0
22.12.2004, 10:05:19
    #32838296
Summerson
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и ADSI
Я делал, и практически это самое. Но вообще существует встроенный механизм, позволяющий выгрузить нужную информацию из Active Directory в любой формат. Так что можно ничего вручную не писать. Но если писать надо, то в MSDN есть примеры.
...
Рейтинг: 0 / 0
22.12.2004, 10:49:11
    #32838458
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и ADSI
...
Рейтинг: 0 / 0
23.12.2004, 09:59:50
    #32840811
serg_tmb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и ADSI
Спасибо всем, разобрался. Код могу опубликовать он короткий пять строчек всего.

"Шизофрения это конечно неприятно, но гораздо лучше чем гемморой" (С) Shmatrix
...
Рейтинг: 0 / 0
30.12.2004, 10:43:52
    #32851013
ingeen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и ADSI
было бы здорово! тоже столкнулся с этой проблемой...
...
Рейтинг: 0 / 0
14.01.2005, 16:42:14
    #32865590
serg_tmb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB и ADSI
ingeenбыло бы здорово! тоже столкнулся с этой проблемой...

Извини выходные, не сразу заметил.Вот:

Sub qqq()
Dim i As Integer
Dim obj As Object
Dim o As Object
i = 0
Set obj = GetObject("WinNT://name_DC") 'name_DC - имя контроллера домена
obj.Filter = Array("user")
For Each o In obj
i = i + 1
Worksheets(1).Cells(i, 1).Value = o.FullName
Worksheets(1).Cells(i, 2).Value = o.Name
Next
End Sub
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB и ADSI / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]