Introducir usuario y clave automáticamente con el comando Runas

Para solucionar la imposibilidad de iniciar sesión como Invitado o cualquier otro usuario y ejecutar un programa automáticamente con un usuario y contraseña distintos, se puede crear un archivo de texto que luego renombraremos con extensión VBS para ejecutar un script.

Información encontrada en http://xinn.org/RunasVBS.html

El texto del script original ya modificado es el que sigue, pero más abajo reproduzco otro con algunas modificaciones que tuve que hacer para que funcionara correctamente desde una cuenta de Invitado:

Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
'Replace the path with the program you wish to run c:\program files...
oShell.Run "RunAs /noprofile /user:pas ""C:\Archivos de programa\predator2\predator.exe"""
WScript.Sleep 100
'Replace the string --> yourpassword~ with the
'password used on your system. Include the tilde "~"
oShell.Sendkeys "bibt~"
Wscript.Quit

IMPORTANTE: después de muchos intentos en los que no funcionaba el script al ponerlo en el menú de Inicio de la cuenta Invitado de Windows, parece que el problema era del tiempo de espera (WScript.Sleep 100) que he tenido que modificar, quizás porque el ordenador es lento y no ha cargado aún todo lo necesario para ejecutar el script; el valor que he puesto es "100000"

También he añadidolas dos líneas finales, ya que no se cerraba la ventana de comandos inicial (no sé si es correcto desde el punto de vista de un experto, pero funciona):

Script final:

Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
'Replace the path with the program you wish to run c:\program files...
oShell.Run "runas /noprofile /user:pas ""c:\archivos de programa\predator2\predator"""
WScript.Sleep 100000
'Replace the string --> yourpassword~ with the
'password used on your system. Include the tilde "~"
oShell.Sendkeys "bibt~"
oShell.SendKeys "quit"
oShell.SendKeys("{Enter}")