Как получить информацию о пользователе?

← →
rainy_2002' (2004-10-11 14:36) [0]

Я не смог дождаться пока придет письмо для активации, поэтому пишу так.
У меня вот такой вопос.
Мне нужно получить информацию о пользователе (имя учетной записи, полное имя укомпьютера и т.д).
Самостоятельнего найти функции в документации у меня не получилось, может кто сталкивался?

← →
panov © (2004-10-11 14:43) [1]

>rainy_2002" (11.10.04 14:36)
На сайте нет необходимости дожидаться ответа после регистрации.
После регистрации ника можно сразу участвововать под ним в конференциях.

← →
Игорь Шевченко © (2004-10-11 14:44) [2]

NetGetUserInfo

← →
Дмитрий Ботвин (2004-10-11 14:46) [3]

Имя учетной записи понятно, полное имя компа тоже (указанием
домена видимо) а вот т.д не понятно. Что конкретно надо узнать?

← →
rainy_2002 (2004-10-11 14:48) [4]

Про активацию понял - учту.
Полное имя компьютера действительно с указанием домена. И т.д. можно опустить :)

← →
Дмитрий Ботвин (2004-10-11 15:05) [5]

Попробуй вот это:

procedure GetNetUser(CompName: WideString);
type THostInfo = record
wkui1_username: PWideChar;
wkui1_logon_domain: PWideChar;
wkui1_oth_domains: PWideChar;
wkui1_logon_server: PWideChar;
end;
var
Info: Pointer;
ElTotal,ElCount,Resume: DWord;
HostInfo: THostInfo;
UserName, Domain: String;
begin
Resume:=DWord(0);
Info:=nil;
NetWkstaUserEnum(PWideChar(HostName),1,Info,64,ElCount,ElTotal,Resume);
if Info<>nil then
try
HostInfo:=THostInfo(info^);
UserName:=HostInfo.wkui1_username;
Domain:=HostInfo.wkui1_logon_domain;
except
UserName:="unknown";
Domain:="unknown";
end
NetApiBufferFree(Info);
end;

← →
Дмитрий Ботвин (2004-10-11 15:07) [6]

В строке NetWkstaUserEnum(PWideChar(HostName),1,Info,64,ElCount,ElTotal,Resume);
поправь HostName на CompName - не то написал :-)))

← →
rainy_2002 (2004-10-11 15:11) [7]

спасибо

А еще рой в реестре.Там все есть. А где - читай книги.

Как получить информацию о пользователе? Найти похожие ветки