Close Quality Center Browsers Window

Dim intIndex

Set oDesc=Description.Create

oDesc(“micclass”).Value=”Browser”

intIndex=0

While Browser(“micclass:=Browser”,”index:=”&intIndex).exist(0) and intIndex

If instr(1, Browser("micclass:=Browser","index:="&intIndex).getRoProperty("name"),"Quality Center") = 0 Then

SystemUtil.CloseProcessByHwnd( Browser("micclass:=Browser","index:="&intIndex).getRoProperty("hwnd"))

else

intIndex=intIndex+1

End if

wend