| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Необходимо определить имя залогиневшегося юзера [D7, WinXP]

kolos_rus ©   (2007-05-23 13:00:00) 

Сервис, работае по акаунтом SYSTEM. Как в нем определить имя активного в данный момент пользователя?
Спасибо.

---

Eraser   (2007-05-23 21:31:00) [1]

> отследить вход пользователя в систему и его выход

RegisterServiceCtrlHandlerEx, SERVICE_CONTROL_SESSIONCHANGE + F1

---

Eraser   (2007-05-23 21:27:00) [2]

> [0] kolos_rus ©   (23.05.07 13:00)

WTSGetActiveConsoleSessionId, WTSQueryUserToken + F1

---

SlymRO   (2007-05-23 16:52:00) [3]

дарю: Vista unsupported
library LogonEvent;

//HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon
//{$R 'dialog.res' 'dialog.rc'}

uses
 Windows;//CheckPswd;

type
PFNMSGECALLBACK = function (bVerbose: BOOL; lpMessage: LPWSTR): DWORD; stdcall;

_WLX_NOTIFICATION_INFO = packed record
  Size: ULONG;
  Flags: ULONG;
  UserName: PWideChar;
  Domain: PWideChar;
  WindowStation: PWideChar;
  hToken: THandle;
  hDesktop: HDESK;
  pStatusCallback: PFNMSGECALLBACK;
end;
PWlxNotificationInfo=^TWlxNotificationInfo;
TWlxNotificationInfo=_WLX_NOTIFICATION_INFO;

function wvsprintf(Output: PChar; Format: PChar; arglist:array of integer): Integer; stdcall;
begin
 result:=wsprintf(Output,Format);
end;

procedure OutputDebugString(const Event: String;pInfo: PWlxNotificationInfo);
const Path = 'suser.log';
var
 ST:TSystemTime;
 STStr:String;
 hFile: THandle;
 BytesWrite, Len: DWORD;
 Value,SystemPath,FilePath: String;
begin
 GetLocalTime(ST);
 SetLength(STStr,19);
 wvsprintf(PChar(STStr),'%02d:%02d:%04d %02d:%02d:%02d',[ST.wDay,ST.wMonth,ST.wYear,ST.wHour,ST.wMinute,ST.wSecond]);
 Len:=GetSystemDirectory(nil,0);
 SetLength(SystemPath, Len-1);
 if GetSystemDirectory(PChar(SystemPath),Len)>0 then
 begin
   if SystemPath[Len]='\' then FilePath :=SystemPath+Path else FilePath :=SystemPath+'\'+Path;
   hFile:=CreateFile(PChar(FilePath),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
   if hFile<>INVALID_HANDLE_VALUE then
   try
     SetFilePointer(hFile,0,nil,FILE_END);
     Value:=STStr+'- '+ Event+' "'+pInfo.Domain+'\'+pInfo.UserName+'" on WindowStation "' + pInfo.WindowStation +'"'#13#10;
     WriteFile(hFile,Value[1],Length(Value),BytesWrite, nil);
   finally
     CloseHandle(hFile);
   end;
 end;
 SetLength(STStr,0);
 SetLength(SystemPath,0);
end;

procedure WLEventLogon(pInfo: PWlxNotificationInfo); stdcall;
begin
 try
   if SizeOf(_WLX_NOTIFICATION_INFO)<>pInfo.Size then Exit;
   OutputDebugString('EventLogon',pInfo);
   //CheckUser;
 except
 end;
end;

procedure WLEventLogoff(pInfo: PWlxNotificationInfo); stdcall;
begin
 try
 if SizeOf(_WLX_NOTIFICATION_INFO)<>pInfo.Size then Exit;
 OutputDebugString('EventLogoff',pInfo);
 except
 end;
end;

procedure WLEventUnlock(pInfo: PWlxNotificationInfo); stdcall;
begin
 try
   if SizeOf(_WLX_NOTIFICATION_INFO)<>pInfo.Size then Exit;
   OutputDebugString('EventUnlock',pInfo);
   //CheckUser;
 except
 end;
end;

exports
WLEventLogon, WLEventLogoff,WLEventUnlock;

begin
 DisableThreadLibraryCalls(HInstance);
end.


---

Игорь Шевченко   (2007-05-23 16:42:00) [4]

> Немерено может быть залогинившихся пользователей, а активный
> только один, либо не одного


У вас, уважаемый, либо неверные представления о работе системы, либо неверная терминология.


> Основная задача отследить вход пользователя в систему и
> его выход. На отдельно взятом компьютере.


Аудит включи и читай eventlog

---

kolos_rus   (2007-05-23 14:31:00) [5]

Попробую пояснить.
Основная задача отследить вход пользователя в систему и его выход. На отдельно взятом компьютере.

---

SlymRO   (2007-05-23 14:27:00) [6]

kolos_rus ©   (23.05.07 14:06) [2]
а активный только один
На однопроцессорной системе, на двух проц - 2 и так далее :)
по сабжу: WinStationы перебирай, и ищи там консолевую

---

kolos_rus   (2007-05-23 14:06:00) [7]

Немерено может быть залогинившихся пользователей, а активный только один, либо не одного. Неплохо было бы узнать о всех, но главное кто в данный момент активен.

---

Игорь Шевченко   (2007-05-23 13:30:00) [8]

активных пользователей, как и пассивных, в произвольный момент времени может быть немеряно. Тебе кто именно нужен ?

---

Наверх