Just to share a sample script to kill multiple process in your windows 2000, XP or Vista Option Explicit Dim objWMIService, objProcess, colProcess Dim xComputer, xProcessKill ,xProcessKill2,xProcessKill3 xComputer = "." xProcessKill = "'taskmgr.exe'" xProcessKill2 = "'notepad.exe'" xProcessKill3 = "'iexplore.exe'" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & xComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & xProcessKill) For Each objProcess in colProcess objProcess.Terminate() Next Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & xProcessKill2) For Each objProcess in colProcess objProcess.Terminate() Next Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " ...