On Error Resume Next

Dim strComputer
Dim UserName
Dim Password
Dim strProcessToKill
Dim SWBemlocator
Dim objWMIService
Dim objItem
Dim colItems

strComputer = "."
UserName = ""
Password = ""

strProcessToKill = "notepad.exe"

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer _
  (strComputer,"\root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",, 48 )

For Each objItem in colItems
    If  objItem.Name = strProcessToKill Then
	    objItem.Terminate
    End If
Next

Dim objShell
Dim strCommandLine

strCommandLine = "taskkill /f /im notepad.exe"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run strCommandLine,  0 , False