|
|
|
Как получить всех пользователей домена?
|
|||
|---|---|---|---|
|
#18+
Привет! Мне нужно состряпать программу для отдела кадров. Все данные о сотрудниках лежат в аккаунтах домена Винды. Можно ли как-нибудь их оттуда вытащить? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2002, 18:10:34 |
|
||
|
Как получить всех пользователей домена?
|
|||
|---|---|---|---|
|
#18+
чтобы вытащить что-нибудь не нужное, нужно его туда сначала засунуть Если пишешь на Делфи, посмотри справку Win32 Programmer's Reference - > LAN Manager Functions там есть такие функции: NetUserAdd NetUserChangePassword NetUserDel NetUserEnum NetUserGetGroups NetUserGetInfo NetUserGetLocalGroups NetUserSetGroups NetUserSetInfo NetUserModalsGet NetUserModalsSet можно всё получить. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2002, 18:35:13 |
|
||
|
Как получить всех пользователей домена?
|
|||
|---|---|---|---|
|
#18+
dim domain, user, list set list = CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\list.txt") set domain = GetObject("WinNT://EDR") domain.Filter = Array("User") for each User in Domain list.write User.Name & vbCrLf next list.close ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2002, 22:47:49 |
|
||
|
Как получить всех пользователей домена?
|
|||
|---|---|---|---|
|
#18+
dim domain, user, list set list = CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\list.txt") set domain = GetObject("WinNT://DomainName") domain.Filter = Array("User") for each User in Domain list.write User.Name & vbCrLf next list.close ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2002, 22:49:12 |
|
||
|
|

start [/forum/topic.php?fid=46&msg=32071566&tid=1818561]: |
0ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
35ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
36ms |
get tp. blocked users: |
1ms |
| others: | 196ms |
| total: | 305ms |

| 0 / 0 |
