qtp CloseAllApp

Public Sub CloseAllApp()
    set bjWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process     Where Name     = 'EXCEL.exe'")
    For Each objProcess in colProcesses
        objProcess.Terminate()
    Next
end sub


--close other process just need to change "EXCEL.exe" in to "e.g.: putty.exe"