How to RunProgram() as admin ?

[Psychophanta]

How can be run an external program in windows 7 as Administrator?
I am not able to see any parameter in RunProgram() function or any other thing to do it.

[ts-soft]

You can't do this with RunProgram, only with API:
ShellExecute or ShellExecuteEx
Example:

Code: Select all

ShellExecute_(0, "RunAS", "notepad", "", "", #SW_SHOWNORMAL)

[Psychophanta]

Thanx!

[Nituvious]

How about setting the compiler options to request admin?

[LuCiFeR[SD]]

How about setting the compiler options to request admin?

wouldn't work as he is trying to elevate an external programs permissions.

[Shield]

It will work because the administrator rights will be passed to the new process.
Best solution is to use API.

[tj1010]

if login is wrong it wont run with this API,,, processes ran with PB command and non-auth API run as calling PID token

It's nice this way, the only way to bypass it is manual mapping with a driver or disabling UAC features. Even manual-mapping through ring3 and advanced dll injection won't bypass it because it's allocation and thread based, referenced in kernel tables.

[LuCiFeR[SD]]

It will work because the administrator rights will be passed to the new process.
Best solution is to use API.

Actually I meant to write something along the lines of :

"Knowing Psychophanta, he wants to launch an elevated process from a button, so it wouldn't work"

but I wrote some nonsense instead

[ts-soft]

The really best way is this function:

Code: Select all

Procedure RunProgrammWithThePowerOfChuckNorris(ProgramName$, Parameters$ = "", WorkingDirectory$ = "")
  Protected shExecInfo.SHELLEXECUTEINFO
  
  With shExecInfo
    \cbSize = SizeOf(SHELLEXECUTEINFO)
    \lpVerb = @"runas"
    \lpParameters = @Parameters$
    \lpFile = @ProgramName$
    \lpDirectory = @WorkingDirectory$
    \nShow = #SW_NORMAL
  EndWith
  
  ProcedureReturn ShellExecuteEx_(shExecInfo)
EndProcedure

RunProgrammWithThePowerOfChuckNorris("notepad.exe") 

[LuCiFeR[SD]]

The really best way is this function:

Code: Select all

Procedure RunProgrammWithThePowerOfChuckNorris(ProgramName$, Parameters$ = "", WorkingDirectory$ = "")
  Protected shExecInfo.SHELLEXECUTEINFO
  
  With shExecInfo
    \cbSize = SizeOf(SHELLEXECUTEINFO)
    \lpVerb = @"runas"
    \lpParameters = @Parameters$
    \lpFile = @ProgramName$
    \lpDirectory = @WorkingDirectory$
    \nShow = #SW_NORMAL
  EndWith
  
  ProcedureReturn ShellExecuteEx_(shExecInfo)
EndProcedure

RunProgrammWithThePowerOfChuckNorris("notepad.exe") 

ROFL /me loves ts-soft

[Psychophanta]

Nice ts-soft,

now how to send data to the notepad.exe to be written there?
The question is that i want to open cmd as admin and then write commands there sending data form other external process

[tj1010]

Both AttachThreadInput and CreatePipe are affected by security tokens.

[Kwai chang caine]

RunProgrammWithThePowerOfChuckNorris()

[yrreti]

Cool one ts-soft, Cool one.
You made my day.

[Psychophanta]

The really best way is this function:

Code: Select all

Procedure RunProgrammWithThePowerOfChuckNorris(ProgramName$, Parameters$ = "", WorkingDirectory$ = "")
  Protected shExecInfo.SHELLEXECUTEINFO
  
  With shExecInfo
    \cbSize = SizeOf(SHELLEXECUTEINFO)
    \lpVerb = @"runas"
    \lpParameters = @Parameters$
    \lpFile = @ProgramName$
    \lpDirectory = @WorkingDirectory$
    \nShow = #SW_NORMAL
  EndWith
  
  ProcedureReturn ShellExecuteEx_(shExecInfo)
EndProcedure

RunProgrammWithThePowerOfChuckNorris("notepad.exe") 

I does not work:

Code: Select all

Procedure RunProgrammWithThePowerOfChuckNorris(ProgramName$, Parameters$ = "", WorkingDirectory$ = "")
  Protected shExecInfo.SHELLEXECUTEINFO
  
  With shExecInfo
    \cbSize = SizeOf(SHELLEXECUTEINFO)
    \lpVerb = @"runas"
    \lpParameters = @Parameters$
    \lpFile = @ProgramName$
    \lpDirectory = @WorkingDirectory$
    \nShow = #SW_NORMAL
  EndWith
  
  ProcedureReturn ShellExecuteEx_(shExecInfo)
EndProcedure

RunProgrammWithThePowerOfChuckNorris("diskpart")

May be Norris is too old to Rock'n'Roll