Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Как получить всех пользователей домена? / 4 сообщений из 4, страница 1 из 1
22.11.2002, 18:10:34
    #32071512
Nikolo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить всех пользователей домена?
Привет! Мне нужно состряпать программу для отдела кадров. Все данные о сотрудниках лежат в аккаунтах домена Винды. Можно ли как-нибудь их оттуда вытащить?
...
Рейтинг: 0 / 0
22.11.2002, 18:35:13
    #32071523
hDrummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить всех пользователей домена?
чтобы вытащить что-нибудь не нужное, нужно его туда сначала засунуть

Если пишешь на Делфи, посмотри справку Win32 Programmer's Reference - > LAN Manager Functions

там есть такие функции:

NetUserAdd
NetUserChangePassword
NetUserDel
NetUserEnum
NetUserGetGroups
NetUserGetInfo
NetUserGetLocalGroups
NetUserSetGroups
NetUserSetInfo
NetUserModalsGet
NetUserModalsSet

можно всё получить.
...
Рейтинг: 0 / 0
22.11.2002, 22:47:49
    #32071565
Гость
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить всех пользователей домена?
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
...
Рейтинг: 0 / 0
22.11.2002, 22:49:12
    #32071566
Гость
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить всех пользователей домена?
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
...
Рейтинг: 0 / 0
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Как получить всех пользователей домена? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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