Как закрыть все броузеры, кроме центра качества в QTP?

Question

У меня есть код ниже, но иногда он получает сообщение об ошибке, поскольку объект не отображается.

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

Это старая нить, но, возможно, мой ответ будет полезен больше. У меня была такая же проблема. Решение было чистым для объектов в финале скрипта. Добавьте это в финале:

Set oDesc = Ничто

Set TempIndex = Nothing

Гудлак,