Have you tried using ShellExecute?
RunCmdElevated.vbs
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cmd.exe", "/k echo test", "", "runas", 1
wscript RunCmdElevated.vbs
gives
Test
C: \ Windows \ system32>
in a new window. "1" is the view mode
http://ss64.com/vb/shellexecute.html
source
share