- Bearbeitet
Even more simple: If you have the RUN dialog open, and want to run e.g. "notepad" as administrator, just type "Surun notepad", hit enter and you're done. ;-)
(new ActiveXObject("Shell.Application")).FileRun()
"runbox.vbs"Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.FileRun
%windir%\surun.exe wscript.exe f:\run.js //b
or
%windir%\surun.exe wscript.exe f:\run.vbs //b
// replace f:\ with your pathhMod := DllCall("GetModuleHandle",Str,"Shell32" )
pAddr := DllCall("GetProcAddress", UInt,hMod , UInt,61 )
DllCall( pAddr, UInt,0, UInt,0, UInt,0, UInt,0, UInt,0, UInt,0 )
since the only thing I did was the conversion to exe, real credits go here: