VPF::Узнать ФИО пользователя по его нику

Gorets

Дата 4.4.2006, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 30.5.2005

Репутация: нет
Всего: нет

Нужен пример работы с Active Directory.
В частности как узнать ФИО пользователя по его нику.

bems

Дата 5.4.2006, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

попробуй єтот вариант

Код


type USER_INFO_10=record
                  usri10_name,
                  usri10_comment,
                  usri10_usr_comment,
                  usri10_full_name:pwidechar
                  end;
pUSER_INFO_10=^USER_INFO_10;

function NetUserGetInfo(servername,username:pwidechar;level:dword;var bufptr:pUSER_INFO_10):dword;stdcall;external 'Netapi32.dll';
function NetApiBufferFree(Buffer:pointer):dword;stdcall;external 'Netapi32.dll';

procedure TForm1.FormDblClick(Sender: TObject);
var uinfo:pUSER_INFO_10;b:pwidechar;s:dword;
begin
s:=255;
GetMem(b,s);
GetUserNameW(b,s);
if (NetUserGetInfo(nil,b,10,uinfo)=0) then
   begin
   if uinfo.usri10_full_name^=#0000 then messageboxw(0,uinfo.usri10_name,b,0)
                                    else messageboxw(0,uinfo.usri10_full_name,b,0);
   NetApiBufferFree(uinfo);
   end;
FreeMem(b,s);
end;

--------------------

Обижено школьников: 8

Gorets

Дата 5.4.2006, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 30.5.2005

Репутация: нет
Всего: нет

ничего у меня не выводит таким способом... smile

но я в инете нашел один пример и немного переработал его под себя.
думаю многим будет интересно

Это сообщение отредактировал(а) Gorets - 5.4.2006, 15:21

Присоединённый файл ( Кол-во скачиваний: 15 )

ActiveDirectorySearcher.rar 4,02 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »