Учетные записи

LEXA_VV

Доброго времени суток !Может кто-нибудь подсказать: возможно-ли получение списка учетных записей пользователей, и списка рабочих станций с их IP-адресами с доменного сервера или другим способом ?Заранее благодарен
8 ответов

LEXA_VV

Еще и удаленно... и желательно с паролями...


LEXA_VV

Не, пароли не нужны


LEXA_VV

ADSI


LEXA_VV

Может вот это подойдет?The ************************** function returns user account, computer, or group account information. Call this function to quickly enumerate account information for display in user interfaces.В MSDN подробности.


LEXA_VV

А средствами Delphi это возможно сделать ?


LEXA_VV

Еще и удаленно... и желательно с паролями...
С паролями смотри здесь.


LEXA_VV

Ссылка битая


LEXA_VV

Бросаем на форму несколько Edit'ов. Код кнопки для получения IP приведёнпароли и список юзеров он тебе не даст но список IP-адресов ты получишь... procedure TForm1.Button1Click(Sender: TObject);type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of Char; I: Integer; GInitData: TWSAData;begin //Инициализация сокетов WSAStartup($101, GInitData);//Получаем имя локального компьютера (хоста) GetHostName(Buffer, SizeOf(Buffer));//Получаем указатель на хост phe := GetHostByName(buffer); if phe = nil then Exit;//Получаем указатель на массив адресов. pPtr := PaPInAddr(phe^.h_addr_list); I := 0;//Перечисляем все адреса while pPtr^<> nil do begin //Вывести адрес TEdit(FindComponent('Edit'+IntToStr(i+1))).Text:=inet_ntoa(pptr^^); Inc(I); end;//Закрываем сокет WSACleanup;end;