How to Close QTP after execution

Private Function CloseQTP        

    Set objWMIService = GetObject(“winmgmts:\\.\root\CIMV2″)     

       Set colProcess = objWMIService.ExecQuery (“Select * from Win32_Process Where Name = ‘QTPro.exe’”)     

       For Each objProcess in colProcess                      

  objProcess.Terminate()           

 Next          

  Set objWMIService = Nothing         

   Set colProcess = NothingEnd FunctionCall CloseQTP

  Source: Mercury Forum’s KB articles