Запуск приложения из сервиса

← →
Ученик (2002-07-18 12:46) [0]

Есть интерактивный сервис, работающий по "Local system account" необходимо что бы сервис запустил приложение с именем пользователя, который сейчас зарегистрирован в системе, пароль пользователя неизвестен, т.е использовать CreateProcessAsUser нельзя, думаю использовать CreateRemoteThread, который будет создаваться для текущего работающего Shell-процесса и запускать требуемое приложение, может есть пути попроще ?

← →
ZZ (2002-07-18 16:03) [1]

ImpersonateLoggedOnUser для того-же процесса :)

← →
Ученик (2002-07-18 16:18) [2]

>ZZ
В какой момент, и откуда его брать ?

← →
ZZ (2002-07-18 16:27) [3]

Берем процесс
OpenProcess -> OpenProcessToken -> ImpersonateLoggedOnUser ->CreateProcess
-> CreateProcessAsUser

Какой процесс брать я думаю ты знаешь? Ты же хотел делать CreateRemoteThread. Можно, например, найти процесс explorer.exe

← →
Ученик (2002-07-19 10:34) [4]

>ZZ
С ImpersonateLoggedOnUser не получилось, приложение запускалось под SYSTEM, это была работающая последовательность или предполагаемая ? Что должно происходить после вызова ImpersonateLoggedOnUser, описание я читал, но так и понял.

Удалось решить через CreateRemoteThread, работает как надо.

← →
ZZ (2002-07-19 16:11) [5]

Как бы это по проще... После вызова ImpersonateLoggedOnUser поток работает под аккаунтом юзера, токен которого был передан в функцию...

За 100% работоспособность примера не ручаюсь, писал его давно и вроде работал, а 2 раз проверять не хочется :))

procedure TForm1.Button1Click(Sender: TObject);
var
hProc : THandle;
hToken : THandle;

User : array [0..100] of Char;
cbUser : Cardinal;
begin
hProc:=OPenProcess(PROCESS_ALL_ACCESS,false,dwPid);
if hProc = 0 then
ShowMessage("OPenProcess"+#13#10+SysErrorMessage(GetLastError()));

if not OpenProcessToken(hProc,TOKEN_DUPLICATE or TOKEN_QUERY ,hToken)
then
ShowMessage("OpenProcessToken"+#13#10+SysErrorMessage(GetLastError()));

if not ImpersonateLoggedOnUser(hToken)
then
ShowMessage("ImpersonateLoggedOnUser"+#13#10+SysErrorMessage(GetLastError())
);

// Это проверка под кем мы работаем сейчас
cbUser:=100;
GetUserName(User,cbUser);
ShowMessage(User);

RevertToSelf;

cbUser:=100;
GetUserName(User,cbUser);
ShowMessage(User);
end;

← →
Ученик (2002-07-19 17:05) [6]

GetUserName(User,cbUser);
ShowMessage(User);

показывает то что требуется, а запущенное приложение через CreateProcess или WinExec в Task Manager под SYSTEM.

← →
ZZ (2002-07-19 18:37) [7]

RevertToSelf; "возвращает" старую учетную запись
т.е. теоретически код от ImpersonateLoggedOnUser до RevertToSelf под юзером. Остальное - под системой

Запуск приложения из сервиса Найти похожие ветки