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

'启动 IE, 并打开百度
SystemUtil.Run "C:\Program Files\Internet Explorer\iexplore.exe","http://www.baidu.com"

'描述性链接对象
Set linkDesc = Description.Create
linkDesc("html tag").Value = "A"

'利用 ChildObjects 获取 Page 下的所有链接对象集
Set oLink = Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").ChildObjects(linkDesc)

'获取所有 link 对象的名称和 url
For i = 0 to oLink.Count - 1
	print "链接名称：" & oLink(i).GetROProperty("text")&_
	"链接URL：" & oLink(i).GetROProperty("url")
Next