Option Explicit
Dim objWMIService, objProcess, colProcess
Dim Computer, ProcessKill1, ProcessKill2
WScript.Sleep(1000*60*60*[COLOR="#FF0000"][U]2[/U][/COLOR])
Computer = "."
ProcessKill1 = "'Diablo III.exe'"
ProcessKill2 = "'Demonbuddy.exe'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& Computer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & ProcessKill1)
For Each objProcess in colProcess
objProcess.Terminate()
Next
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & ProcessKill2)
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo "Data: " & Date() & vbCrLf & vbCrLf & "O godzinie " _
& Time() & " zakończono procesy: " & ProcessKill1 & " oraz " & ProcessKill2 & Computer
WScript.Quit