Im VBS mit einer Schleife Programmstart prüfen

Question

Guten Tag
Ich habe mir eine VBS-Schleife  zusammengebastelt. Ich hätte aber gerne mehrere Programme auf deren Start geprüft bzw  gestartet. Ich habe keine Idee wie ich das in die Schleife einfüge.
Möglicherweise kann mir jemand mal erklären ob oder wie das  funktioniert.

Danke

Do While x < 4
x = x + 1
set service = GetObject ("winmgmts:")
for each Process in Service.InstancesOf ("Win32_Process")
    If  Process.Name = "myprogram.exe" then
    Exit Do    
    End If
next
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run ("""" & "C:\Programme\myprogram.exe " & """"),7
WScript.Sleep 30000
Loop