How to Close Any Application From VBA,QTP,VBScript

January 19, 2009

This is the code where you can close any application.Even from QTP You can give this command to stop any application.


The steps are...
1. Go to Task Manager.
2. Find out which application you want to close.
3. Right click on it.
4. Go to process and Select it.
5. It will navigate you to Process page.
6.Just remember the process name of the corresponding application.

Checkout the process:

Now pass the processname below my code.

Private Function CloseAppliction()
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = qlock.exe'")
For Each objProcess in colProcess
Set objWMIService = Nothing
Set colProcess = Nothing
End Function

again,say i will close excell,...

Public Function fn_close_all_excel_files()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'EXCEL.EXE'")
For Each objProcess in colProcessList
End Function

You Might Also Like