Script um Prozesse (excel) zu beenden

'Zeit: WScript.Sleep 1000 * 60 * 3 'ms * secs per min * minutes
'---------------------------------------------------------------------------------------

'Überprüft ob EXCEL läuft:
'------------------------------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'excel.exe'")


'Wenn EXCEL läuft, wird eine Info ausgeworfen und der Prozess wird dann nach 3 Minuten beendet:
'-------------------------------------------------------------------------------------------------

If colProcesses.Count = 1 Then

Dim Answer
Set WshShell = WScript.CreateObject("WScript.Shell")
Answer = WshShell.Popup("Excel wird in 3 Minuten beendet!", 3, "Info", 0 + 64)
WScript.Sleep 1000 * 60 * 3 'ms * secs per min * minutes

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

i=kill
Do while i=kill
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'excel.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
WScript.Sleep 1000 * 60 * 3 'ms * secs per min * minutes
Loop

'Wenn EXCEL nicht läuft, dann überprüfe in 5 Minuten wieder nach ob es läuft (=BEGINNE DIESES SCRIPT VON VORNE)
'-------------------------------------------------------------------------------------------------------------------

Else
Wscript.Sleep 1000 * 60 * 5 'ms * secs per min * minutes
end if

'Hier den Pfad Eingeben, wo dieses Script liegt.
'------------------------------------------------------------------------------------------------------

Return = WshShell.Run ("Pfad")

Const ProcessListMax = 20
Const ProcessListId = 0
Const ProcessListTime = 1

Dim strComputer, objWMIService, colProcesses, objProcess, ProcessList, i

    strComputer = "."  
    
    ReDim ProcessList(ProcessListMax, 1)
    
    For i = 0 To UBound(ProcessList)
        ProcessList(i, ProcessListId) = 0
    Next
    
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
    
    Do While 1
        Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'Excel.exe'")  
        
        For Each objProcess In colProcesses
            If ProcessTerminate(objProcess.Properties_("ProcessId")) = True Then objProcess.Terminate  
        Next
    Loop

Private Function ProcessTerminate(ByVal Id)
    Dim i
    
    ProcessTerminate = False
    
    For i = 0 To UBound(ProcessList)
        If ProcessList(i, ProcessListId) = Id Then
            If Now >= ProcessList(i, ProcessListTime) Then ProcessList(i, ProcessListId) = 0:  ProcessTerminate = True
            Exit Function
        End If
    Next
    
    For i = 0 To UBound(ProcessList)
        If ProcessList(i, ProcessListId) = 0 Then
            ProcessList(i, ProcessListId) = Id
            ProcessList(i, ProcessListTime) = DateAdd("n", 3, Now)  
            Exit For
        End If
    Next
    
    If i > UBound(ProcessList) Then MsgBox "Die ProzessListe ist Voll!", vbExclamation, "Fehler":  Exit Function   
End Function