How to close all broswers except quality center in QTP?

Question

I have below code but sometimes it gets an error as object not visible.

Dim TempIndex,oDesc
'1) Create a Browser object'
Set oDesc=Description.Create
oDesc("micclass").Value="Browser"
TempIndex=0

'2) loop and Check if a browser is open'
While Browser("micclass:=Browser","index:="&TempIndex).exist(0) and TempIndex<Desktop.ChildObjects(oDesc).count
'3) Close the browser if its not Quality center '
        If instr(1, Browser("micclass:=Browser","index:="&TempIndex).getRoProperty("name"),"HP Application Lifecycle Management 12.50") = 0 Then
        Browser("micclass:=Browser","index:="&TempIndex).close
        else
        TempIndex=TempIndex+1
        End if
Wend

Answer 1

It's a old thread but maybe my response be useful for anymore. I had the same trouble. The solution was clean the objects in the final of script. Add this in the final:

Set oDesc = Nothing

Set TempIndex = Nothing

Goodluck,