MSXML2.DOMDocumentのLoadメソッドにタイムアウトを設定するには

ききらら 2006-08-18 15:14:17 No: 96333

はじめまして。
自分のサイトでVBScriptでXMLファイルを別サイトから読み込んでいます。しかし、別サイト側の障害でXMLファイルを配信できない場合自分のサイトページがおかしくなるためタイムアウトを10秒に設定したいのです。
下記のとおり書いてみました。
ここはこう書かないとダメ！などのご意見お願いします。

Dim objDOM, rtResult
Dim xmlServerHttp

Set objDOM = Server.CreateObject("MSXML2.DOMDocument")
objDOM.async = False
objDOM.setProperty "ServerHTTPRequest", true

//タイムアウト設定
Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
Dim lResolve, lConnect, lSend, lReceive
lResolve = 10 * 1000
lConnect = 10 * 1000
lSend = 10 * 1000
lReceive = 10 * 1000
xmlServerHttp.setTimeouts lResolve, lConnect, lSend, lReceive

//スクリプト自体のタイムアウト設定
Server.ScriptTimeout = 10

rtResult = objDOM.Load("http://hogehoge.jp/index.rdf")