'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, am besten im Autostart!
'------------------------------------------------------------------------------
' ------------------------
 
Return = WshShell.Run ("Pfad")