you can do it this way also:
1. create one of these scripts:
"runbox.js"
(new ActiveXObject("Shell.Application")).FileRun()
"runbox.vbs"
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.FileRun
2. create a shortcut with the following target:
%windir%\surun.exe wscript.exe f:\run.js //b
or
%windir%\surun.exe wscript.exe f:\run.vbs //b
// replace f:\ with your path
edit:
doesn't seem to work...
surun's dialog box pops-up but when some cmd is run from the RUN box there isn't any elevation..
use Kay method
edit2:
finally managed to do it...run box actually runs elevated.
instead of the above scripts, use an ahk script converted to exe.
the exe contains the following code:
hMod := 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:
http://www.autohotkey.com/forum/viewtopic.php?p=154745#154745
download the attached file, or copy-paste the above code and download Autohotkey, then use the compiler tool.