QTP-IE-Close All Browsers

One thumb role in testing in general and Automation in specific is get the application to the base state after completion of testing or before starting the test.

With QTP used against web application, there are chances the script fail due to object recognition issues when multiple browser instances are open.
The risk of failure however can be mitigated by using unique properties for each object, but mostly it is advised to close all open instances of browsers if not required for test execution.

Multiple ways of doing it :
Use of IE DOM to close the instances
Use of VBscript to kill all open IE processes
Use of native QTP code to check the window properties and close the browsers

One instance is noted below

*************************************************************************

'Close all open browser opened before QTP launch
'Skip TD/QC if already open
'vTDString : To Skip open TD/QC browsers, pass the window name as parameter

Do while Window("title:=.*Internet.*","index:=0").Exist
vBrowserName = Window("title:=.*Internet.*","index:=0").GetROProperty ("title")
If Instr (vBrowserName, vTDString) Then
Do while Window("title:=.*Internet.*","index:=1").Exist
vBrowserName = Window("title:=.*Internet.*","index:=1").GetROProperty ("title")
If Instr (vBrowserName, vTDString) Then
Exit DO
Else
Reporter.ReportEvent 2, "Closed CT1 Browser", "Closed Browser Session with name '" & vBrowserName & "'"
Window("title:=.*Internet.*","index:=1").Close
End If
Loop
Exit Do
Else
Reporter.ReportEvent 2, "Closed Browser", "Closed Browser Session with name '" & vBrowserName & "'"
Window("title:=.*Internet.*","index:=0").Close
End If

Loop

*************************************************************************

** Happy Automating **