kill-calc.vbs

' Kill Calculator
procToKill = "Calculator.exe"
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Process",,48) 
For Each objItem in colItems 
    If objItem.Name = procToKill  Then
        Set objShare = objWMIService.Get("Win32_Process.Handle=" & objItem.ProcessID)
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Found Matching PID " & objItem.ProcessID
        Wscript.Echo "With Process Name " & objItem.Name
        Wscript.Echo "-----------------------------------"
        Set objInParam = objShare.Methods_("Terminate"). _
            inParameters.SpawnInstance_()
        Set objOutParams = objWMIService.ExecMethod("Win32_Process.Handle=" & objItem.ProcessID, "Terminate", objInParam)
        Wscript.Echo "Out Parameters: "
        Wscript.echo "ReturnValue: " & objOutParams.ReturnValue
    End If
Next