怎样获取页面上所有链接的名称和url

‘启动ie，并打开baidu
systemutil.Run “C:\Program Files\Internet Explorer\iexplore.exe”, _
“http://www.baidu.com”‘ 描述链接对象
Set linkDes = Description.Create
linkDes(“html tag”).value = “A”

‘利用childobject获取page下的所有链接对象集
set oLink = Browser(“iQuickTest Studio | iQuickTest”). _
Page(“iQuickTest Studio | iQuickTest”). _
ChildObjects(linkDes)

‘获取所有link对象的名称和url
For i=0 to oLink.count-1

print “链接名称：” & oLink(i).GetROProperty(“text”) & _
“链接Url：” & oLink(i).GetROProperty(“url”)

Next