Countdown während der Laufzeit wieder auf Anfang stellen und erst wenn t0 erreicht, dann ein bestimmtes Programm starten. Lösung als vbscript wäre schön

Option Explicit

Const wait = 30
Const progPath = "C:\Windows\notepad.exe"  

Dim objFSO, objWSH, objWMI, colItems, objItem, ownPID
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objWSH = CreateObject("WScript.Shell")  
Set objWMI = GetObject("winmgmts:\\.\root\CIMV2")  

' Prozess ID des eigenen Scriptprozesses  
ownPID = objWMI.Get("Win32_Process.Handle='" & objWSH.Exec("mshta.exe").ProcessID & "'").ParentProcessId  

' Alle evtl. sonstigen Prozesse dieses Scripts beenden  
Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='wscript.exe' " & _  
                                "AND CommandLine LIKE '%" & WScript.ScriptName & "%' " & _  
                                "AND ProcessID <> " & ownPID)  
For Each objItem In colItems
  objItem.Terminate
Next

' Warten  
WScript.Sleep wait * 1000

' Alle evtl. bereits laufendeden Instanzen des Programms beenden  
Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & objFSO.GetFileName(progPath) & "'")  
For Each objItem In colItems
  objItem.Terminate
Next

' Programm starten  
objWSH.Run """" & progPath & """"