' ProcessKillLocal.vbs ' Sample VBScript to kill a program ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 2.7 - December 2005 ' ------------------------ -------------------------------' OptionExplicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill strComputer ="." strProcessKill ="'otrun.exe'" Set objWMIService =GetObject("winmgmts:" _ &"{impersonationLevel=impersonate}!\\" _ & strComputer &"\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = "& strProcessKill ) ForEach objProcess in colProcess objProcess.Terminate() Next WSCript.Echo "Just killed process "& strProcessKill _ &" on "& strComputer WScript.Quit ' End of WMI Example of a Kill Process