Executando programas e Jobs como administrador via Script VBscript

Este exemplo a conta admin para abrir o Notepad
Para maiores informações consulte a sintaxe do comando runas "runas ?"
Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /noprofile /user:seudominio\seuusuario ""notepad"
WScript.Sleep 100
' Não retire o til "~"
oShell.Sendkeys "suasenha~"
Wscript.Quit

Obs: Salve o arquivo com a extensão .vbs