Скачать: CL | DM;

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

← →
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]

спасибо

---

← →
cerber1 ©   (2004-10-12 00:18) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c