Binaryworld - How to Kill Process by name in Windows XP/2003/2k ... [ VB -> Thread-Process ]

Here is the most easiest way to kill running process in WinXP/2003

Private Sub Command1_Click()
  KillProcess "notepad.exe" '//Replace with ur process name to kill
End Sub

Function KillProcess(ProcessName As String, Optional strComputer As String = ".")
  Dim objProcess, objWMIService
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" _
      & strComputer & "\root\cimv2")
  Set colProcessList = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = '" & ProcessName & "'")
  For Each objProcess In colProcessList
    objProcess.Terminate
  Next
End Function