Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: 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 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
3-1098274766
Overstep
2004-10-20 16:19
2004.11.21
BDE and PDOXUSRS.NET


3-1098348656
Jet
2004-10-21 12:50
2004.11.21
Выборка из двух таблиц


3-1098502374
Vasis
2004-10-23 07:32
2004.11.21
Выборка по дате


1-1099552404
Владимир
2004-11-04 10:13
2004.11.21
OLE Contener


14-1099894188
тихий вовочка
2004-11-08 09:09
2004.11.21
как же нам не стыдно