LISTING 1: Winmgmts.vbs
NONEXECUTABLE: To obtain the executable file, download the Zip file from the opening page of the article.

'* Using the winmgmts moniker and VBScript's GetObject to access WMI

strComputer    = "tmtowtdi"
strProcsToKill = "notepad.exe"

'* Step 1. Connect to WMI on the target computer.
'* Step 2. Retrieve instances of the Win32_Process class.
BEGIN CALLOUT A
Set wbemObjectSet = _ 
   GetObject("winmgmts://" & strComputer).InstancesOf("Win32_Process")
END CALLOUT A

'* Step 3. Enumerate the SWbemObjectSet that contains instances of
'* SWbemObjects, which are Win32_Process objects in this case. Echo the
'* values of the ProcessID and Name properties for each process
'* instance and terminate all processes where the Name property is
'* equal to strProcsToKill ("notepad.exe" in this example). 
BEGIN CALLOUT B
For Each wbemObject In wbemObjectSet
   WScript.Echo wbemObject.ProcessID & ": " & wbemObject.Name
   If LCase(wbemObject.Name) = strProcsToKill Then wbemObject.Terminate
Next
END CALLOUT B