How to Get Names of All Open Browsers

Set b = Description.Create()
b(“application version”).Value = “internet explorer 6″
Set bC = DeskTop.ChildObjects(b)
Cnt = bC.Count
MsgBox “There are total: ” & Cnt & ” browsers opened”

For i = 0 To (Cnt -1)
MsgBox “Browser : “&i&” has title: “& bC(i).GetROProperty(“title”)
Next

Set b = Nothing
Set b = Nothing