After listing a process, you may want to kill or terminate a process:
strComputer = "."
strProcess = "'iexplore.exe'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcess )
For Each objProcess in colProcess
objProcess.Terminate()
WScript.Echo "Killed Process: " & objProcess.Name & vbTab & objProcess.ProcessId
Next
