VPF::запуск от имени - Форум программистов

uranpro

Дата 11.8.2008, 16:48 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

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

мне нужно запустить файл .cmd от имени аднина(лог и пас есть). как это сделать ?

зы: это обсуждалось, но вариант не работает((

Код


procedure TForm1.Button1Click(Sender: TObject);
var
 a :Thandle;
 b : TStartupInfo;
 c : TProcessInformation;
 UserName,
 AppName,
 Domain,
 Passw:PAnsiChar;
begin
 Username := PChar(Edit1.Text);
 Domain := PChar('Domen');
 Passw := PChar(Edit2.Text);
 AppName := PChar('cmd');
 if LogonUser(Username, Domain, Passw, LOGON32_LOGON_INTERACTIVE,
               LOGON32_PROVIDER_WINNT50,a)
  then
   begin
    Application.MessageBox('','logon OK',MB_Ok);
    if CreateProcessAsUser(a,AppName,'',nil,nil,true,0,nil,'c:\',b,c)
     then Application.MessageBox('','Start OK',MB_Ok)
     else Application.MessageBox('','ERROR',MB_Ok);
   end;
end;

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

I want a perfect soul

volvo877

Дата 11.8.2008, 17:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(uranpro @ 11.8.2008, 16:48

)

вариант не работает((

Там же написано, почему не работает... Привилегий не хватает? Вот здесь есть вариант (правда Сишный): http://forum.vingrad.ru/index.php?showtopi...ost&p=47430

И вот тут еще один, уже Дельфийский (это та же тема, но на несколько постов ниже): http://forum.vingrad.ru/index.php?showtopi...ost&p=50439

Virtuals

Дата 11.8.2008, 19:40 (ссылка)

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

Загрузка ...

Опытный

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

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

uranpro,
1. для CreateProcessAsUser требуются права сервиса!, без вариантов
2. CreateProcessWithLogonW это оболочка для запуске через сервис "Вторичный вход в систему" (внимание использовать юникод)

ЗЫ а так же
последовательность такая
LogonUser
ImpersonateLoggedOnUser
CreateProcessAsUser
// все из сервиса!

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