一応要望の仕様通りにしましたが､
こんな内容でしょうか｡

Option Explicit

'------------------------------
' ﾗﾝﾀﾞﾑに1?10秒ｽﾘｰﾌﾟ
'------------------------------
 WScript.Sleep (Rnd()*10 + 1)* 1000

 dim objIE
 Set objIE = CreateObject("InternetExplorer.Application")

'------------------------------
' IE ではてなを表示
'------------------------------
 objIE.Navigate "http://www.hatena.ne.jp/"
 objIE.Visible = True
 waiteIE objIE

 Dim links, link, ar, linkArray
 Set links = objIE.Document.getElementsByTagName("A")

 For Each link in Links
 ar = ar & link.href & vbNewLine
 Next

'------------------------------
' IE を終了
'------------------------------
 objIE.Quit
 Set objIE = Nothing

'------------------------------
' 内容を表示
'------------------------------
 WScript.Echo ar

'------------------------------
' 配列に保存
'------------------------------
 linkArray = Split( ar, vbNewLine )

'--------------------------------------------------
Sub waiteIE(objIE)
'--------------------------------------------------
 
 Do While objIE.Busy = True Or objIE.readystate <> 4
 WScript.Sleep 100
 Loop
 
 WScript.Sleep 1000
End Sub