Нужно из под своей проги запустить другую с правами другого пользователя na WinXP Home SP1 & WinXP Prof SP1 & Win XP Prof SP2. Есть команда runas но для этого нужно вводить пароль вручную. Как это сделать чтобы прога сама подставляла пароль?

> Есть команда runas но для этого нужно вводить пароль вручную.
>  Как это сделать чтобы прога сама подставляла пароль?

А зачем?

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

> если она, эта прога "гуевая".

хмм, а какие критерии "гуевости"?


> Как это сделать чтобы прога сама подставляла пароль?

Это коренноное нарушение безопастности, никто не должен подставлять пароль, окромя владельца пароля.
Даже если соблюдение нопрм безопасности не требуется - нельзя привыкать к безалаберности.
Оффтоп. извиняюсь за ошибки - не могу попадаь в клаву - бухнул.

> А зачем?

Странный  вопрос... Ну смотрите прога Nero стоит в инет клубе на компах где клиенты работают под ограниченными учетными записями нужно дать им возможность записать на сд-двд, но под ограниченной записью неро не пойдет просит пароль админа. Так вот можно пойти по такому пути чтобы создать прогу в которую забить список прог которые она запускала бы с правами админа а нужные пароли вытаскивала из базы где-то из сервера в зашифрованном увиде. Убедил?
P.S. Между прочим есть в нете такая прожка которая  называется admlink или adminlink. Но но задача стоит чтобы сделать свою.

> можно "другую" прогу сделать сервисом

На счет сервиса не думал. Но как это будет выглядеть Неро запущен как сервис? А ресурсы винды жраться не будут?

> olevacho_   (18.05.09 23:07) [4]
>
>
> > А зачем?
>
> Странный  вопрос... Ну смотрите прога Nero стоит в инет
> клубе на компах где клиенты работают под ограниченными учетными
> записями нужно дать им возможность записать на сд-двд, но
> под ограниченной записью неро не пойдет просит пароль админа.
>

Хм. Странный ответ.
Я не очень спец по инет-клубам. Но несколько раз приходилось пользоваться ими. Так в них вообще не было никакой возможности для "клиента" записать что-то на внешний носитель на компе клиента! Например на флэшку. Только на компе админа можно было записать по личной просьбе.
А тут прожиг CD/DVD.

Что касается непосредственно Nero, так у него есть компонент, права раздающий.

> под ограниченной записью неро не пойдет просит пароль админа

Собственно, тут просто надо гнать в шею сисадмина, за незнание продукта и виндовса.

function FTCreateProcessWithLogon(UserName, Domain, Password, Command, WorkDirectory: String): Boolean;
var
 si: TSTARTUPINFO;
 pif: PROCESS_INFORMATION;
 Temp: integer;
 AUserName: PWideChar;
 ADomain: PWideChar;
 APassword: PWideChar;
 ACommand: PWideChar;
 AWorkDir: PWideChar;
begin
 si.cb := SizeOf(tstartupinfo);
 si.dwFlags  := STARTF_USESHOWWINDOW;
 si.wShowWindow := SW_SHOWDEFAULT;
 si.lpReserved := nil;
 si.lpDesktop := nil;
 si.lpTitle := nil;

 AUserName := StringToPWide(UserName,Temp);
 ADomain := StringToPWide(Domain,Temp);
 APassword := StringToPWide(Password,Temp);
 ACommand := StringToPWide(Command,Temp);
 AWorkDir := StringToPWide(WorkDirectory,Temp);

 Result := CreateProcessWithLogonW(
   AUserName,
   ADomain,
   APassword,
   0,
   nil,
   ACommand,
   0,
   nil,
   AWorkDir,
   si,
   pif);
end;

> Странный  вопрос... Ну смотрите прога Nero стоит в инет
> клубе на компах где клиенты работают под ограниченными учетными
> записями нужно дать им возможность записать на сд-двд, но
> под ограниченной записью неро не пойдет просит пароль админа.
>  Так вот можно пойти по такому пути чтобы создать прогу
> в которую забить список прог которые она запускала бы с
> правами админа а нужные пароли вытаскивала из базы где-то
> из сервера в зашифрованном увиде. Убедил?

А в случае с Нерой лучше установить NeroBurnRights :)

> Собственно, тут просто надо гнать в шею сисадмина, за незнание
> продукта и виндовса.

Экий вы, батенька, резкий...
Попробуйте-ка банк-клиент сбербанковский запустить юзером с рядовыми привилегиями...

> roadster ©   (20.05.09 11:43) [11]

неудачный пример: я как раз живу на установке банк-клиентов. от кучи банков. на кучу машин. под кучу конфигураций. ;)
а про NeroBurnRights  я первый сказал :Р

> неудачный пример: я как раз живу на установке банк-клиентов.
>  от кучи банков. на кучу машин. под кучу конфигураций. ;
> )

Тады как сбербанковский клиент под рядовым юзером?

> function FTCreateProcessWithLogon(UserName, Domain, Password,
>  Command, WorkDirectory: String): Boolean;

Спасибо. Буду юзать

> неудачный пример: я как раз живу на установке банк-клиентов.
>  от кучи банков. на кучу машин. под кучу конфигураций. ;
> )
> а про NeroBurnRights  я первый сказал :Р

Так как же сбербанк-клиент под рядовыми привилегиями запустить?
А то ж был случай, себе наваял утиль для запуска под другой учеткой, так программисты сбербанка этот утиль себе тоже попросили :)

> Попробуйте-ка банк-клиент сбербанковский запустить юзером
> с рядовыми привилегиями...

И чего? Не уж-то не запустится? Запустится как миленький, а вот если он работать не корректно будет, то тут уже виноваты программисты клиента. На сколько я знаю они сами себе его писали...

> а вот если он работать не корректно будет

Вот именно.
И не надо расстреливать админов.