Code:
Set oBrowserDescriptions = Description.Create ()
oBrowserDescriptions("micClass").Value = "Browser"
oBrowserDescriptions("openedbytestingtool").Value = "True"
Set oPageDescriptions = Description.Create ()
oPageDescriptions("micClass").Value = "Page"
Set oBrowserObj = Browser(oBrowserDescriptions).Page(oPageDescriptions)
Systemutil.Run "iexplore"
Browser(oBrowserDescriptions).Navigate "www.google.com"
oBrowserObj.Sync
Set oBowserChObj = oBrowserObj.ChildObjects(oLinkDescriptions)
Set oBowserChObj = oBrowserObj.ChildObjects()
iChObjCnt = oBowserChObj.Count -1
msgbox iChObjCnt
For iCount = 0 to iChObjCnt
If oBowserChObj(iCount).GetROProperty("micclass") = "Link" Then
If oBowserChObj(iCount).GetROProperty("visible") = true Then
msgbox oBowserChObj(iCount).GetROProperty("name")
End if
End If
Next