VBScript- Single line as administrator

Question

Is it possible to use the shell.run command to run the specified program as an administrator?

for instance:

shell.run(cmd.exe) <---Run this as admin
shell.run(Notepad) <---Run this as normal

I know i can execute the script to run as admin but that means everything inside that script is executed as an administrator.

My other option was to seperate the scripts and run one as admin and include what needs to be ran as admin in that script, then call another script to run and run that one as normal.

Answer 1

Set oShell = CreateObject("Shell.Application")
oShell.ShellExecute "cmd.exe", , , "runas", 1
oShell.Run "nodepad.exe"

(Source: http://social.technet.microsoft.com/Forums/eu/ITCG/thread/310e57f9-2367-4293-9f97-53d0e077aacc)

(More Info: http://ss64.com/vb/shellexecute.html)

Answer 2

Windows (from XP through to Win7 at least) has a runas command which does what you need. See here for details.

So, instead of running cmd.exe, you would run runas.exe, giving cmd.exe as the program to run.