Dim WshShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
' Erstmalige Wartezeit zur Start der Prozessüberwachung, in Millisekunden:
WScript.Sleep 60000

' Hier die Ausführbare Datei der zu überwachenden Prozess angeben:
sProcessName = "ts3client_win64.exe"          

sComputer = "."     
Set oWmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")  

Set oShell = CreateObject("WScript.Shell")  

Do
  Set colProcessList = oWmi.ExecQuery("Select * from Win32_Process Where Name = '" & sProcessName & "'")  

  If colProcessList.Count = 0 Then

   ' Sichere Beendung der Prozesse, falls es mehrere gibt:
	WSHShell.Run "taskkill /IM ""ts3client_win64.exe", 0, True

    ' Hier den Pfad zur überwachenden Applikation angeben,siehe zusätliche Hinweisse im 8+3_Support.txt Datei:
	WSHShell.CurrentDirectory="C:\Progra~1\TeamSp~1"
	WSHShell.Run "CMD.EXE /c start C:\Progra~1\TeamSp~1\ts3client_win64.exe", 0, false

    ' Schreibt einen LogFileeintrag wenn der Task neu gestartet wird:
	WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile("fail.log", 8, true).WriteLine (Date() & " " & Time() & " Task neugestartet")  
 
   End If

    ' Hier kann die Wartezeit bis zur nächsten Prüfung eingestellt werden, in Milisekunden.
    WScript.Sleep 60000       
 
Loop