VPF::CreateProcessWithLogonW и запуск из под сервиса

DaDe

Дата 3.10.2010, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 17.6.2007

Репутация: нет
Всего: нет

Добрый день.

Долго пытаюсь уже решить данную проблему, но безуспешно.
Может кто из читающих, что-нибудь подскажет по теме.

Проблема в том, что есть сервис запущенный с минимальным привилегиями и нужно, чтобы этот сервис запускал консольное приложение от имени администратора.
Проблема состоит в том, что в ОС Windows 7 не консольные приложения нормально запускаются, а вот консольные не запускаются.
Под XP и консольные запускаются нормально.

Один из вариантов запуска:

Код


var
   pwUsername,pwDomain,pwPassword,pwCmdLine:PWidechar;
var
   StartupInfo:TStartupInfo;
   ProcessInfo:TProcessInformation;
begin
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOWDEFAULT;
GetMem(pwCmdLine,80 * sizeof(WideChar));
GetMem(pwUsername,80 * sizeof(WideChar));
GetMem(pwDomain,80 * sizeof(WideChar));
GetMem(pwPassword,80 * sizeof(WideChar));
StringToWideChar(CMD,pwCmdLine,80);
StringToWideChar(Lo,pwUsername,80);
StringToWideChar(DM,pwDomain,80);
StringToWideChar(PAS,pwPassword,80);
StartupInfo.lpDesktop:= Pchar(ST+'\'+DS);
StartupInfo.lpTitle:=pwUsername;
Log('CreateProcessWithLogon ...');
try
if not CreateProcessWithLogon(pwUsername,pwDomain,pwPassword,
      1,
      nil,
      pwCmdLine,                      { pointer to command line string }
      CREATE_NEW_CONSOLE,
      nil,                           { pointer to new environment block }
      nil,                           { pointer to current directory name }
      StartupInfo,                   { pointer to STARTUPINFO }
      ProcessInfo)
    then Log('error CreateProcessWithLogon: '+SysErrorMessage(GetLastError))
    else begin
                Log('CreateProcessWithLogon is Ok');
                if ToWait then WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
                if ToWait then Log('Object terminated');
         end;
except end;
if ProcessInfo.hThread <>null then CloseHandle(ProcessInfo.hThread );
if ProcessInfo.hProcess<>null then CloseHandle(ProcessInfo.hProcess);
FreeMem(pwPassword);
FreeMem(pwDomain);
FreeMem(pwUsername);
FreeMem(pwCmdLine);

Может, кто сможет подсказать.
Буду очень признателен.

grofast

Дата 4.10.2010, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Добрый день.

Я тоже мучаюсь с этой проблемой.

А подскажи как ты определяешь.

Рабочую станцию и рабочий стол?

StartupInfo.lpDesktop:= Pchar(ST+'\'+DS);

Спасибо.

DaDe

Дата 4.10.2010, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 17.6.2007

Репутация: нет
Всего: нет

winsta0\Default

grofast

Дата 4.10.2010, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Блин у меня на windows7 x64 +delphi 2011 не работает(

Если как обычное приложение все отлично если как сервис ни одно окно не показывается.
Хотя процесс запускается отлично.(

Это сообщение отредактировал(а) grofast - 4.10.2010, 15:42

DaDe

Дата 4.10.2010, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 17.6.2007

Репутация: нет
Всего: нет

Цитата(grofast @ 4.10.2010, 15:40)

Блин у меня на windows7 x64 +delphi 2011 не работает(

Если как обычное приложение все отлично если как сервис ни одно окно не показывается.
Хотя процесс запускается отлично.(

Результат процедуры Log покажи. Или вопрос, у тебя CreateProcessWithLogon выполняется или нет?

grofast

Дата 5.10.2010, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ExtCtrls;

type
  TMenedgerZadanii = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;


procedure MyCreateProcess(ConstCommandLine: string);
 function CreateProcessWithLogonW(const lpUsername: PWideChar;
  const lpDomain: PWideChar; const lpPassword: PWideChar;
  dwLogonFlags: DWORD; const lpApplicationName: PWideChar;
  lpCommandLine: PWideChar; dwCreationFlags: DWORD;
  lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;
  lpStartupInfo: PStartupInfo;
  lpProcessInfo: PProcessInformation): Boolean; stdcall;


  type
  TCreateProcessWithLogonW =
    function(const lpUsername: PWideChar;
    const lpDomain: PWideChar; const lpPassword: PWideChar;
    dwLogonFlags: DWORD; const lpApplicationName: PWideChar;
    lpCommandLine: PWideChar; dwCreationFlags: DWORD;
    lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;
    lpStartupInfo: PStartupInfo;
    lpProcessInfo: PProcessInformation): Boolean; stdcall;



  const
  DllName = 'advapi32.dll';


    LOGON_WITH_PROFILE = $00000001;
  LOGON_NETCREDENTIALS_ONLY = $00000002;
  LOGON_ZERO_PASSWORD_BUFFER = $80000000;




var
  MenedgerZadanii: TMenedgerZadanii;

   DllHandle: THandle;
  _CreateProcessWithLogonW: TCreateProcessWithLogonW;


implementation


{$R *.DFM}


procedure OpenTxt(Text:String);
 var
   F: Textfile;
 begin


   AssignFile(f,'D:\Служба.txt'); {Assigns the Filename}

   if Not FileExists('D:\Служба.txt') Then
   Begin
     ReWrite(f);
     CloseFile(f);
   End;

   AssignFile(f,'D:\Служба.txt'); {Assigns the Filename}
   //Reset(f);
   Append(f); {Opens the file for editing}
   Writeln(f,Text);
   Closefile(f); {Closes file F}
 end;




function InitLib: Boolean;
begin
  if DllHandle = 0 then
    if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
      DllHandle := LoadLibrary(DllName);
      if DllHandle <> 0 then
      begin
        _CreateProcessWithLogonW := GetProcAddress(DllHandle,
          'CreateProcessWithLogonW');
      end;
    end;
  Result := (DllHandle <> 0);
end;

function NotImplementedBool: Boolean;
begin
  SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
  Result := false;
end;



function CreateProcessWithLogonW(const lpUsername: PWideChar;
  const lpDomain: PWideChar; const lpPassword: PWideChar;
  dwLogonFlags: DWORD; const lpApplicationName: PWideChar;
  lpCommandLine: PWideChar; dwCreationFlags: DWORD;
  lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;
  lpStartupInfo: PStartupInfo;
  lpProcessInfo: PProcessInformation): Boolean; stdcall;
begin
  if InitLib and Assigned(_CreateProcessWithLogonW) then
    Result := _CreateProcessWithLogonW(lpUsername, lpDomain, lpPassword,
      dwLogonFlags, lpApplicationName, lpCommandLine, dwCreationFlags,
      lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInfo)
  else
    Result := NotImplementedBool;
end;




 procedure MyCreateProcess(ConstCommandLine: string);
const
  UserName: WideString = 'programist';
  Password: WideString = '35673576';
  //ConstCommandLine : String = 'MONIC_S.EXE ';
  Title: WideString ='';
  Domain: WideString = '';
var
  MyStartupInfo: STARTUPINFO;
  ProcessInfo: PROCESS_INFORMATION;
  CommandLine: array[0..512] of WideChar;
begin
  FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
  MyStartupInfo.cb := SizeOf(MyStartupInfo);


  //MyStartupInfo.lpDesktop :=Nil;

  //MyStartupInfo.lpDesktop :=PChar('winsta0\Default');

  StringToWideChar(ConstCommandLine, CommandLine,
    Sizeof(CommandLine) div SizeOf(WideChar));
  MyStartupInfo.lpTitle := PWideChar(Title);


  OpenTxt('Дошли до креат процес');


  if not CreateProcessWithLogonW(PWideChar(UserName), PWideChar(Domain),
    PWideChar(Password), LOGON_WITH_PROFILE, nil,
    PWideChar(WideString(CommandLine)),CREATE_NEW_CONSOLE, nil, nil, @MyStartupInfo, @ProcessInfo) then
    OpenTxt(intToStr(GetLastError)+' '+SysErrorMessage(GetLastError))
  else
  begin
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;


  OpenTxt('Окончание процедуры '+IntToStr(GetLastError))

end;



procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  MenedgerZadanii.Controller(CtrlCode);
end;

function TMenedgerZadanii.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;









procedure TMenedgerZadanii.ServiceStart(Sender: TService; var Started: Boolean);
begin
//MyCreateProcess('C:\windows\system32\cmd.exe');
 MyCreateProcess('C:\windows\explorer.exe');
end;

procedure TMenedgerZadanii.Timer1Timer(Sender: TObject);
begin

//MyCreateProcess('D:\w32dasm10\W32dsmv10\kWdsm.exe');

//MyCreateProcess('C:\windows\system32\cmd.exe');


end;

end.

Если строчку с указанием рабочего стола закоментировать то процесс запускается
но на десктопе текущего пользователя не появляется.
Если раскоментировать то вообще не запускается

CreateProcessWithLogonW всегда возврашает true типа все удачно
gestlasterror возврашает 0.

Служба под пользователем programist (он в группе администраторы)

Это сообщение отредактировал(а) bems - 5.10.2010, 19:57

grofast

Дата 5.10.2010, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Если из под Ситемы запускаю то выводит в лог ошибку 5
Отказано в доступе.

DaDe

Дата 5.10.2010, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 17.6.2007

Репутация: нет
Всего: нет

Цитата(grofast @ 5.10.2010, 16:26

)

CreateProcessWithLogonW всегда возврашает true типа все удачно
gestlasterror возврашает 0.

Судя по коду. Когда у тебя отображается результат gestlasterror, то CreateProcessWithLogonW не выполняется.

Цитата(grofast @ 5.10.2010, 16:45

)

Если из под Ситемы запускаю то выводит в лог ошибку 5
Отказано в доступе.

Из под System не получится, есть ограничения.

bems

Дата 5.10.2010, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

grofast, кнопка КОД справа вверху над формой ответа

--------------------

Обижено школьников: 8

kami

Дата 6.10.2010, 01:30 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(DaDe @ 3.10.2010, 15:07

)

запуск из под сервиса, под ОС Windows 7

Нарыл у себя в закромах.
Писалось несколько лет назад, проверено сейчас под Vista - cmd.exe из сервиса запускается на активном десктопе "только так". В висте система разграничения учетных записей, afair, не отличается от семерки - так же в разных терминальных сессиях, соответственно - разные WinSta и Desktop. Смотреть метод Timer1Timer.
Функции когда-то писались под запуск вообще любого файла, у которого есть ассоциации в реестре.

Может быть, что-то (или большинство) лишнее - просьба удалить самим smile

Присоединённый файл ( Кол-во скачиваний: 517 )

Unit1.pas 7,57 Kb

grofast

Дата 6.10.2010, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Цитата(DaDe @ 5.10.2010, 19:14)

Цитата(grofast @ 5.10.2010, 16:26

)

CreateProcessWithLogonW всегда возврашает true типа все удачно
gestlasterror возврашает 0.

Судя по коду. Когда у тебя отображается результат gestlasterror, то CreateProcessWithLogonW не выполняется.

Цитата(grofast @ 5.10.2010, 16:45

)

Если из под Ситемы запускаю то выводит в лог ошибку 5
Отказано в доступе.

Из под System не получится, есть ограничения.

Нет почему

у меня в коде прописано и если удачно процесс создается и если не удачно

Выводить лог

Код


//****************Если не удачно

  if not CreateProcessWithLogonW(PWideChar(UserName), PWideChar(Domain),
    PWideChar(Password), LOGON_WITH_PROFILE, nil,
    PWideChar(WideString(CommandLine)),CREATE_NEW_CONSOLE, nil, nil, @MyStartupInfo, @ProcessInfo) then
    OpenTxt(intToStr(GetLastError)+' '+SysErrorMessage(GetLastError))





  else     
  begin
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;


  OpenTxt('Окончание процедуры '+IntToStr(GetLastError))  //*********************В любом случае вывести последнюю ошибку

Я кстати досмотрелся вчера ,в логах пишет что приложение запустилось но не может инициализироваться.
Видимо из-за виртуализации.

Если под тем пользователем под которым стартует служба то приложение запускается
но на десктопе текущего пользователя не отображается я так думаю оно в нулевой сессии.
Висит себе в процесах.

Если из под другого пользователя приложение пытается запуститься
то в логах пишет

explorer.exe - Ошибка приложения
Ошибка при запуске приложения (0xc0000142). Для выхода из приложения нажмите кнопку "ОК".

То есть CreateProcessWithLogonW отрабатывает на отлично

приложение запускается но почемуто не может инициализироватся.

Я так думаю из-за виртуализации.

Пока эксперементирую.)

Добавлено @ 10:18

Цитата(bems @ 5.10.2010, 19:57)

grofast, кнопка КОД справа вверху над формой ответа

Спасибо.

Это сообщение отредактировал(а) bems - 6.10.2010, 16:43

grofast

Дата 6.10.2010, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

Цитата(kami @ 6.10.2010, 01:30)

Цитата(DaDe @ 3.10.2010, 15:07

)

запуск из под сервиса, под ОС Windows 7

Спасибо огромное.

Я много функций переписал одной строкой и много нового узнал.

И все заработало.

Спасибо спасибо спасибо)))).

grofast

Дата 6.10.2010, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.3.2008

Репутация: нет
Всего: нет

kami

А еще просьба подскажи плиз нужно для решения второй части задачи.

Если ни один пользователь не залогинен можно ли из под службы (system) запустить мою программу с правами пользователя?

Или может залогинится сначала под ним нужно.?

Спасибо.

bems

Дата 6.10.2010, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Модератор: grofast, я второй раз прошу тебя пользоваться кнопкой "код". В следующий раз пойдешь на пару дней в ридонли

--------------------

Обижено школьников: 8

kami

Дата 6.10.2010, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72

Цитата(grofast @ 6.10.2010, 14:24

)

Если ни один пользователь не залогинен можно ли из под службы (system) запустить мою программу с правами пользователя?

Чтобы запустить программу с правами пользователя, нужно получить права пользователя. Чтобы получить права пользователя, нужно или получить его токен (для не-вошедшего в систему пользователя - вызвать LogonUser) или сразу вызвать CreateProcessWithLogonW, которая автоматом его "залогинет".
P.S. Могу ошибаться - давно не освежал в памяти данные этого направления.
P.P.S.

Цитата(grofast @ 6.10.2010, 11:28

)

Спасибо огромное.

Вспомнил, что у этих моих функций есть ограничение, вытекающее из ограничения WTSGetActiveConsoleSessionID - если активно используется FastUserSwitching, то она будет возвращать SessionID для первого из залогиненных, и не важно, находится его сессия в WTS_SESSIONSTATE_LOCK (вызывана "смена пользователя") или активна.
Решение, afair, в регистрации для своего сервиса нотификаций о смене сессии (SERVICE_CONTROL_SESSIONCHANGE), правда для этого нужно задействовать HandlerEx, а не Handler, как в Delphi ( по крайней мере по D7 включительно) и работе уже с этими данными.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »