Hola
1. El subforo indicado para dudas de Scripting es Scripting, no dudas generales.
2. Has de usar el botón modificar para editar un comentario, no inundarnos con más posts para hacer correciones de última hora.
3. El doble post no está permitido.
4. Has de usar las etiquetas de código para insertar códigos.
Porfavor,
LEE LAS NORMAS.
El problema es simple de entender, estás intentando buscar un archivo de texto plano como si se tratase de un proceso,
en otras palabras, le estás indicando al Script que busque un proceso que no existe (nunca se instanció), y por eso se inicia un bucle infinito.
For Each objProcess in colProcessList
If objProcess.name = "start.bat" then
...
End if
Start.bat no es un proceso, por proceso se entiende a un archivo binario que acaba en .exe,
al ejecutar el archivo
Start.bat, lo que se inicia es el proceso
CMD.exe, que es el encargado de parsear las órdenes del Script, y ese es el proceso que debes controlar.
Añádele un título a tu Script Batch:
...
Y eso añadirá un Caption a la barra de título del proceso CMD:
...Así ya tienes algo que poder comparar de forma (algo más) eficiente en VBS:
ProcessName = "CMD.exe"
WindowCaption = "Mi título"
Set WSS = WScript.CreateObject("WScript.Shell")
Set CMD = WSS.Exec("CMD.exe /C ""Tasklist.exe /FI ""ImageName EQ " & ProcessName & """ /FO csv /NH /V | Find /I """ & WindowCaption & """""")
Do Until CMD.Status ' Esperar hasta que que finalice la ejecución del proceso.
WScript.Sleep 500 ' ms
Loop
' Evaluamos el código de salida del proceso (el que devuelve el comando 'FIND')
Select case CMD.ExitCode
Case 0 ' El nombre de la ventana se ha encontrado.
' Hacer algo...
Case 1 ' El nombre de la ventana no se ha encontrado.
' Hacer algo...
Case Else ' Código de error inesperado, quizás '2', por un error de sintaxis.
' Hacer algo...
End Select
PD: Puedes dejar de usar la
Class Win32_Process de
WMI ya que no proporciona ninguna propiedad para obtener el título de la ventana de un proceso
http://msdn.microsoft.com/en-us/library/aa394372%28v=vs.85%29.aspxDe todas formas, lo que estás haciendo en Batch es complétamente innecesario, no tiene lógica, tienes un script batch sólamente con una instrucción (Start) cuando puedes hacer lo mismo desde el propio lenguaje de VisualBasicScript, lo cual te seria más sencillo y te ahorra abrir múltiples archivos innecesarios:
WScript.CreateObject("WScript.Shell").Run "www.Google.com"
Saludos
Mostrar Mensajes
)