Manejo de ventanas en VBS

Mi codigo comentado:

'miShell objeto que ejecuta el proceso 'miEjecución objeto asociado a la aplicación

Dim miShell, miEjecucion Set miShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

’ Wait for Uninstall ‘ ——————————————————————————– Set miEjecucion = miShell.Exec("Ruta absoluta del ejecutable")

WScript.Sleep 500

’ ——————————————————————————– cambioPantalla "Instalación"

miShell.SendKeys "{TAB}" ' <install> miShell.SendKeys "{ENTER}" ' <install>

WScript.Sleep 50

’ Espera a la correcta finalizacion de

Do While miEjecucion.Status = 0 WScript.Sleep 500 Loop

cambioPantalla (miEjecucion.ProcessID)

miShell.SendKeys "{ENTER}" ' <Cerrar>

’ Salir del Script WScript.Quit

’ Cambia la ventana activa por la del parametro o sale en 30 segundos ‘ dato puede ser Integer = Pid del proceso o String = Titulo de la ventana SUB cambioPantalla( dato ) i = 0 DO bActive = miShell.AppActivate( dato ) WScript.Sleep 1000 i = i + 1 LOOP UNTIL bActive = TRUE OR i > 30 WScript.Sleep 100 END SUB