How to Close QTP after execution

How to Close QTP after execution

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