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

Вниз

Поучение имени Юзверя.....   Найти похожие ветки 

← →
Azerg ©   (2002-11-14 13:55) [0]

Уважаемые мастаки, подскажите пожалуйста как получить имя юзера под которым запущена программа-процесс

---

← →
Marcus   (2002-11-14 14:14) [1]

Может что-то подобное поможет:
GetKernelObjectSecurity(OpenProcess(..., ), OWNER_SECURITY_INFORMATION, sd, ...);
GetSecurityDescriptorOwner(sd, sid, ...
LookupAccountSid(nil, sid, ...

---

← →
Eugen Honeker   (2002-11-14 15:43) [2]


function GetProcessOwner(dwProcessID: DWORD; lpBuffer: PChar; nBufferLength: DWORD): boolean;
type
PTOKEN_USER = ^TOKEN_USER;
TOKEN_USER = record
User: SID_AND_ATTRIBUTES;
end;

var
hProcess,
hToken : THANDLE;
tinfo : array[0..255]of byte;
dwTmp: DWORD;
snu: SID_NAME_USE;
lpDomain: array[0..127]of char;
cbUser,
cbDomain: DWORD;
begin
result:= false;
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, dwProcessID);
if (hProcess = 0) then exit;

hToken:= 0;
if OpenProcessToken(hProcess, TOKEN_QUERY, hToken) then
try
if GetTokenInformation(hToken, TokenUser, @tinfo[0], sizeof(tinfo), dwTmp) then
if LookupAccountSid(nil, PTOKEN_USER(@tinfo[0]).User.Sid, lpBuffer, cbUser, lpDomain, cbDomain, snu) then
result:= (cbUser <= nBufferLength);
finally
CloseHandle(hToken);
end;
CloseHandle(hProcess);
end;


пример:

var
lpUserName: array[0..15]of char;
...
if GetProcessOwner({PID}, lpUserName, sizeof(lpUserName)) then
MessageBox(0, lpUserName, nil, 144);
...


---

← →
Eugen Honeker   (2002-11-14 15:47) [3]

добавление:

для системных процессов нужно "SeDebugPrivilege".

если кто то знает лучшый вариант, пожалуста поделитесь.

---

← →
AZerg ©   (2002-11-14 16:00) [4]

Спасибо:)))

---

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

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

Наверх

Память: 0.47 MB
Время: 0.018 c