I am using the following code for that issue:-

oWMI = Getobject('winmgmts://')
cQuery = "select * from win32_process where name='your application name.exe'"
oResult = oWMI.ExecQuery(cQuery)
*? oResult.Count
For Each oProcess In oResult
*? oProcess.Name
oProcess.Terminate(0)
Next