|
|
|
VB и ADSI
|
|||
|---|---|---|---|
|
#18+
Привет всем!!! Люди кто нибудь наверняка делал такую штуку, мне надо вытянуть из AD все данные о пользователях домена и поместить в экселевскую таблицу. "Шизофрения это конечно неприятно, но гораздо лучше чем гемморой" (С) Shmatrix ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.12.2004, 09:22:33 |
|
||
|
VB и ADSI
|
|||
|---|---|---|---|
|
#18+
Я делал, и практически это самое. Но вообще существует встроенный механизм, позволяющий выгрузить нужную информацию из Active Directory в любой формат. Так что можно ничего вручную не писать. Но если писать надо, то в MSDN есть примеры. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.12.2004, 10:05:19 |
|
||
|
VB и ADSI
|
|||
|---|---|---|---|
|
#18+
Спасибо всем, разобрался. Код могу опубликовать он короткий пять строчек всего. "Шизофрения это конечно неприятно, но гораздо лучше чем гемморой" (С) Shmatrix ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.12.2004, 09:59:50 |
|
||
|
VB и ADSI
|
|||
|---|---|---|---|
|
#18+
было бы здорово! тоже столкнулся с этой проблемой... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.12.2004, 10:43:52 |
|
||
|
VB и ADSI
|
|||
|---|---|---|---|
|
#18+
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.01.2005, 16:42:14 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=32865590&tid=2168344]: |
0ms |
get settings: |
9ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
69ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 231ms |
| total: | 381ms |
| 0 / 0 |
