Code

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