Форум: "WinAPI";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизКоманда RunAs... Найти похожие ветки
← →
Bers (2003-11-28 12:40) [0]Доброго времени суток!
Уважаемые Мастера, подскажите:
Как программно реализовать команду типа RunAs в проводнике т.е. запустить приложение на машине пользователя с моими (администраторскими) правами?
Заранее благодарен.
С Уважением, Андрей.
ICQ:192538327
P.S.
Это не написание вирусов... чесное слово :)
Нужно для облегчения работы администратору.
← →
Игорь Шевченко (2003-11-28 13:54) [1]
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfMain = class(TForm)
Button: TButton;
procedure ButtonClick(Sender: TObject);
end;
var
fMain: TfMain;
implementation
uses
HSAdvApi;
{$R *.dfm}
procedure TfMain.ButtonClick(Sender: TObject);
begin
MyCreateProcess();
end;
procedure TfMain.MyCreateProcess;
const
UserName : WideString = "TESTUSER";
Password : WideString = "testuser";
ConstCommandLine : String = "CMD.EXE";
Title : WideString = "Test process";
Domain : WideString = "WORKGROUP";
var
MyStartupInfo : STARTUPINFO;
ProcessInfo : PROCESS_INFORMATION;
CommandLine : array[0..512] of WideChar;
begin
FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
MyStartupInfo.cb := SizeOf(MyStartupInfo);
StringToWideChar(ConstCommandLine, CommandLine,
Sizeof(CommandLine) div SizeOf(WideChar));
MyStartupInfo.lpTitle := PWideChar(Title);
if not CreateProcessWithLogonW (PWideChar(UserName), PWideChar(Domain),
PWideChar(Password), LOGON_WITH_PROFILE, nil,
CommandLine, 0, nil, nil, @MyStartupInfo, @ProcessInfo) then
RaiseLastWin32Error()
else begin
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
end;
end.
И в кладовке лежит программа :)
← →
Bers (2003-11-28 15:10) [2]Спасибо за подробную подсказку :)
С Уважением, Андрей.
← →
Bers (2003-11-28 16:51) [3]Еще раз добрый... вечер.
Сделал свой вариант, а функцияLogonUser
возвращаетFALSE
и если указываюLOGON32_LOGON_NETWORK
и приLOGON32_LOGON_BATCH
:
function RunProgramAs(AppName:string):Boolean;
var IDUser:THandle;
// i:LongBool;
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
begin
if NOT LogonUser("testuser","testuser","MYDOMAIN",LOGON32_LOGON_NETWORK,
LOGON32_PROVIDER_DEFAULT,IDUser)
then
begin
MessageBox(0,"ОШИБКА ИНИЦИАЛИЗАЦИИ ПОЛЬЗОВАТЕЛЯ.","ОШИБКА ПРИЛОЖЕНИЯ",MB_OK);
result:=false;
Exit;
end;
ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
result:=CreateProcessAsUser(IDUser,nil,PChar(AppName),nil,nil,False,0,nil,nil,si,pi);
end;
Если кто знает, подскажите почему?
С Уважением, Андрей.
← →
Bers (2003-11-28 16:55) [4]ПОПРАВКА: Вторым параметром LogonUser идет домен, а уж третьим пароль. Это я здесь ошибся, а в программе все как надо, тем не менее все равно FALSE.
С Уважением, Андрей.
← →
clickmaker (2003-11-28 17:05) [5]Очевидно, нет прав на соответствующий вход. Попробуй LOGON32_LOGON_SERVICE или LOGON32_LOGON_INTERACTIVE
← →
Bers (2003-11-28 17:19) [6]Нет дело не в этом в Help-е нарыл что:
The process that callsLogonUser
must have theSE_TCB_NAME
privilege.
Мой процесс данной привелегии не имеет(проверил), а вот как ее установить...?
С Уважением, Андрей.
← →
clickmaker (2003-11-28 17:29) [7]hToken: THandle;
tkp: TOKEN_PRIVILEGES;
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
LookupPrivilegeValue(nil, SE_TCB_NAME, tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, false, tkp, 0, nil, 0);
← →
Bers (2003-11-28 18:09) [8]А почему на строку:
AdjustTokenPrivileges(hToken, false, tkp, 0, nil, 0);
она при компиляции ругается:
[Error] myclass.pas(158): There is no overloaded version of "AdjustTokenPrivileges" that can be called with these arguments
С Уважением, Андрей.
← →
Reindeer Moss Eater (2003-11-28 18:17) [9]потому что перечень аргументов не тот что надо
← →
Игорь Шевченко (2003-11-28 20:26) [10]clickmaker © (28.11.03 17:29)
Ну-ну. Посмотрел бы я на того "не администратора", который имеет привилегию SE_TCB_NAME ;)
← →
clickmaker (2003-11-29 00:34) [11]
> Игорь Шевченко © (28.11.03 20:26) [10]
Наше дело предложить... ;)
← →
Bers (2003-12-02 11:53) [12]Доброго времени суток.
> Игорь Шевченко
Ну-ну. Посмотрел бы я на того "не администратора", который имеет привилегию SE_TCB_NAME ;)
Если я правильно понял (из help-ов и данной ветки форума), то функцияLookupPrivilegeValue
ищет привелегию у текущего пользователя, а т.к. это системная привелегия, то у обычного пользователя её быть не может? А как следствие не будет работать LogonUser... и как тогда быть?
> И в кладовке лежит программа :)
Я ее что-то не нашел... можно ссылочку?
С Уважением, Андрей.
← →
Игорь Шевченко (2003-12-02 16:45) [13]Bers (02.12.03 11:53)
А не надо LogonUser, надо CreateProcessWithLogonW
← →
Bers (2003-12-03 12:43) [14]Еще раз здравствуйте!
>>Игорь Шевченко ©
>>А не надо LogonUser, надо CreateProcessWithLogonW
Если я правильно понял, то функцияCreateProcessWithLogonW
из модуляHSAdvApi
, а где его взять? У себя на винте я его не нашел...
С Уважением, Андрей.
← →
Игорь Шевченко (2003-12-03 13:24) [15]
unit HSAdvApi;
interface
uses
Windows;
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;
const
LOGON_WITH_PROFILE = $00000001;
LOGON_NETCREDENTIALS_ONLY = $00000002;
LOGON_ZERO_PASSWORD_BUFFER = $80000000;
implementation
uses
SysUtils;
{ ADVAPI32.DLL functions }
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";
var
DllHandle : THandle;
_CreateProcessWithLogonW : TCreateProcessWithLogonW;
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;
initialization
finalization
if DllHandle <> 0 then
FreeLibrary(DllHandle);
end.
← →
Bers (2003-12-03 14:05) [16]Спасибо!
С Уважением, Андрей.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.031 c