Set wshShell = WScript.CreateObject ("WSCript.shell") wshshell.run "runas ..."
Как получить результаты и отобразить в MsgBox