Many times with automation we need to find if a particular process is running on the pc. Then we need to kill it, for example a scheduling script..
here is a sample code to see if the process is running and then kill it-
option explicit
Dim strComputer,strProcess, colProcess, runningProcess
Dim objWMIService, strWMIQuery
strComputer = "."
strProcessName = "calc.exe"
strWMIQuery = "Select * from Win32_Process where name like '" & strProcessName & "'"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery (strWMIQuery)
' Suppose i want to terminate all these process
For Each runningProcess in colProcess
runningProcess.Terminate()
Next
