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.

Solution

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)