VBSでｸﾘｯｸをする処理 VBSで下記のような処理をしたいのですがｺｰﾄﾞをご教授頂いてもよろしいでしょうか？配列に下記の3つのURLが入っています｡ MSN【http://jp.msn.…

VBSでｸﾘｯｸをする処理

VBSで下記のような処理をしたいのですがｺｰﾄﾞをご教授頂いてもよろしいでしょうか？

配列に下記の3つのURLが入っています｡
MSN【http://jp.msn.com/】MSN天気【http://weather.jp.msn.com/】MSNｽﾎﾟｰﾂ【http://topics.jp.msn.com/sports】
For eachで各要素をIEで開く→ｸﾘｯｸ処理→IEを閉じるというﾙｰﾌﾟをします

---ｸﾘｯｸ処理の部分の詳細は下記になります---

?現在開いているURLに｢weather｣が含まれる場合
URLに｢regin｣が含まれるﾘﾝｸをｿｰｽから全て抽出しﾗﾝﾀﾞﾑにどれかをｸﾘｯｸ
?現在開いているURLに｢sports｣が含まれる場合
URLに｢sports｣が含まれるﾘﾝｸをｿｰｽから全て抽出しﾗﾝﾀﾞﾑにどれかをｸﾘｯｸ
?現在開いているURLに何も含まれない場合
何もせずにIEを終了
?現在開いているURLの“HTMLｿｰｽ”に｢これはﾀﾞﾒです｣という文字列が含まれる場合
ｽｸﾘﾌﾟﾄを強制終了

※URLに移動するだけではなく､あくまでｸﾘｯｸになります｡
※ｻｲﾄが10秒経っても読み込み完了しなければ､完了してなくともｸﾘｯｸ処理へと進みます｡
読み込みが完了しない等でｸﾘｯｸ先がない場合は､IEを閉じその回のﾙｰﾌﾟは終了します｡

※質問中の｢regin｣は｢region｣ですよね?修正してｺｰﾄﾞを組んでいます｡
※強制終了は､元のurlとｸﾘｯｸ後の両方で判断しました｡

'# 初期設定
Dim open_url(2)
Dim find_url()

open_url(0) = "http://jp.msn.com/"
open_url(1) = "http://weather.jp.msn.com/"
open_url(2) = "http://topics.jp.msn.com/sports"

For Each temp_url In open_url
'# IE表示
Set IE = CreateObject( "InternetExplorer.Application" )
IE.Visible = true
IE.Navigate(temp_url)

'# IE待機処理
t = Timer + 10
Do Until (IE.busy = False) or (Timer > t)
Loop

'# 強制終了
If Instr(IE.document.body.innerHTML, "これはﾀﾞﾒです") Then
MsgBox "強制終了"
WScript.quit
End If

'# ｷｰﾜｰﾄﾞの設定
kw = ""
If Instr(temp_url, "weather") Then
kw = "region"
ElseIf Instr(temp_url, "sports") Then
kw = "sports"
End if

If kw <> "" Then
j = 0
ReDim find_url(IE.Document.Links.length)
'# ﾘﾝｸのurlにｷｰﾜｰﾄﾞが含まれるものを探す
For i = 0 to IE.Document.Links.length - 1
If Instr(IE.Document.Links(i).href, kw) Then
find_url(j) = i
j = j + 1
End If
Next

'# ﾘﾝｸのurlにｷｰﾜｰﾄﾞが含まれるものをﾗﾝﾀﾞﾑに開く
Randomize
IE.Document.Links(find_url(Int(Rnd * j))).Click

'# IE待機処理
t = Timer + 10
Do Until (IE.busy = False) or (Timer > t)
Loop

'# 強制終了
If Instr(IE.document.body.innerHTML, "これはﾀﾞﾒです") Then
MsgBox "強制終了"
WScript.quit
End If
End If

'# IE終了
IE.Quit
Set IE = nothing
Next

この度はご回答頂きありがとう御座います｡
正常に動作致しましたが､4回に1度くらいの頻度で下記のｴﾗｰで止まってしまいます｡
(天気予報かｽﾎﾟｰﾂのところで発生します)

行:21
文字:2
ｴﾗｰ:ｵﾌﾞｼﾞｪｸﾄがありません｡:IE.document.body
ｺｰﾄﾞ:800A01A8
ｿｰｽ:Microsoft VBScript実行時ｴﾗｰ

安定して動作させたいので､このｴﾗｰが起きないように解決できるでしょうか？