Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск программы от имени другово пользователя, RunAs в Win XP 
:(
    Опции темы
man2002ua
Дата 31.3.2003, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 943
Регистрация: 12.11.2002
Где: Киев

Репутация: нет
Всего: 2
Цитата
Юзверь с правами админна и есть АДМИН

угу.



--------------------
"Нет ничего более постоянного, чем временное"
PM MAIL   Вверх
DonPager
Дата 11.4.2003, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Колдырь
**


Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2
sad.gif ну не знаю Я почему не получается не фига..
вот код :
Код

program Project1;
{$APPTYPE CONSOLE}
type
 TSTARTUPINFO = record
   cb: LongWORD;
   lpReserved, lpDesktop, lpTitle: Pointer;
   dwX,dwY,dwXSize,dwYSize,
   dwXCountChars,dwYCountChars,
   dwFillAttribute, dwFlags: LongWORD;
   wShowWindow, cbReserved2: Word;
   lpReserved2: PByte;
   hStdInput, hStdOutput, hStdError: LongWORD;
 end;

 TProcessInformation = record
   hProcess, hThread, dwProcessId, dwThreadId: LongWORD;
  end;

const
pName = 'D:\N_utils\LOG_View.exe';
aName = 'test';
aSrv  = 'ZLODEI';
aPass = 'test';

var
si: TSTARTUPINFO;
pi: TProcessInformation;

function CreateProcessWithLogonW(UserName, Domain, Password: PWideChar;
LogonFlag: LongWord; AppName,CmdLine: PWideChar; CrtFlag: LongWord; Env: LongWord;
CurentDir: PWideChar; StartInfo:TSTARTUPINFO; ProcInfo:TProcessInformation):boolean;
stdcall; external 'advapi32.dll';

begin
if not CreateProcessWithLogonW(aName,aSrv,aPass,1,pName,pName,0, 0,'',si, pi)
then writeln('Error ',GetLastError());
Readln;
end.


он компилится но не запускается sad.gif
выдаёт :
Код
Runtime error 216 at 77E00CC1



--------------------
кодер + лодырь = колдырь
PM MAIL ICQ Skype GTalk   Вверх
man2002ua
Дата 11.4.2003, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 943
Регистрация: 12.11.2002
Где: Киев

Репутация: нет
Всего: 2
Учите матчасть, товарищ лейтенант! smile.gif

Код
program Test;
uses Windows;
{$APPTYPE CONSOLE}

const
 pName :WideString = 'D:\N_utils\LOG_View.exe';
 aName :WideString = 'test';
 aSrv  :WideString = 'ZLODEI'; // Че, в самом деле писюк так называется? :)
 aPass :WideString = 'test';

var
 si: TSTARTUPINFO;
 pi: TProcessInformation;

function CreateProcessWithLogonW(UserName, Domain, Password: WideString;
  LogonFlag: dword; AppName, CmdLine: WideString; CrtFlag: dword; Env: pointer;
  CurentDir: WideString; StartInfo:pointer; ProcInfo:pointer):BOOL; stdcall;
  external 'advapi32.dll';

begin
 ZeroMemory(@si, sizeof(si));
 si.cb := sizeof(si);
 if not CreateProcessWithLogonW(aName,aSrv,aPass,1,pName,pName,0, nil,'',@si, @pi)
 then writeln('Error ',GetLastError());
 Readln;
end.



--------------------
"Нет ничего более постоянного, чем временное"
PM MAIL   Вверх
man2002ua
Дата 11.4.2003, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 943
Регистрация: 12.11.2002
Где: Киев

Репутация: нет
Всего: 2
Учите матчасть, товарищ лейтенант! smile.gif

Код
program Test;
uses Windows;
{$APPTYPE CONSOLE}

const
 pName :WideString = 'D:\N_utils\LOG_View.exe';
 aName :WideString = 'test';
 aSrv  :WideString = 'ZLODEI'; // Че, в самом деле писюк так называется? :)
 aPass :WideString = 'test';

var
 si: TSTARTUPINFO;
 pi: TProcessInformation;

function CreateProcessWithLogonW(UserName, Domain, Password: WideString;
  LogonFlag: dword; AppName, CmdLine: WideString; CrtFlag: dword; Env: pointer;
  CurentDir: WideString; StartInfo:pointer; ProcInfo:pointer):BOOL; stdcall;
  external 'advapi32.dll';

begin
 ZeroMemory(@si, sizeof(si));
 si.cb := sizeof(si);
 if not CreateProcessWithLogonW(aName,aSrv,aPass,1,pName,pName,0, nil,'',@si, @pi)
 then writeln('Error ',GetLastError());
 Readln;
end.



--------------------
"Нет ничего более постоянного, чем временное"
PM MAIL   Вверх
Первый
  Дата 14.4.2003, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Я так понял, что aPass - это пароль пользователя, от имени которого зпускается программа. А если я не знаю этот пароль? Как быть?
PM MAIL   Вверх
man2002ua
Дата 14.4.2003, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 943
Регистрация: 12.11.2002
Где: Киев

Репутация: нет
Всего: 2
Цитата
А если я не знаю этот пароль? Как быть?


застрелиться wink.gif


--------------------
"Нет ничего более постоянного, чем временное"
PM MAIL   Вверх
Teap0t
Дата 20.11.2004, 16:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
сделал также но..

я столкнулся с такой ситуацией smile
есть приложение А работающее из под системной учетной записи (WinXP)
есть необходимость запускать из приложения А другое приложение Б
под другой учетной записью (например Test)
приложене Б запускается но под учетной записью системы smile
хотя если просто запустить приложение А
(под любой другой учетной записью)
приложение Б запускается от требуемой учетной записи

Не подскажите как мне решить эту проблемму smile
  Вверх
Akella
Дата 25.11.2004, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


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

Репутация: нет
Всего: 329
Цитата
Я так понял, что aPass - это пароль пользователя, от имени которого зпускается программа. А если я не знаю этот пароль? Как быть?

есть программа SamInside для чтения инфы о пользователе в WinXP
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0910 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.