HTTPステータスコードを取得(VBScript)

VBScriptで、ある任意のWeb画面に対してリクエストを行い、
HTTPステータスコード(200 ok 等)を取得する方法はありますでしょうか。
現在Web画面が正常に表示されているかどうかを確認する為の監視ツールを考えています。
どなたかお分かりになる方がいらっしゃいましたらご教授下さい。

No.2 ベストアンサー 回答者： notnot 回答日時： 2008/06/17 23:18

VBで使えるCOMはVBSでも使えます。

VBSに書き直して、ばさばさっと削ってみました。

Set oHttp = CreateObject("MSXML2.XMLHTTP")
oHttp.Open "GET", "http://www.google.co.jp/" , False
oHttp.Send
WScript.Echo oHttp.Status

この回答へのお礼

有難う御座いました。
大変助かりました。

お礼日時：2008/06/18 06:48

No.1 回答者： osamuy 回答日時： 2008/06/17 21:20

「vbscript xmlhttprequest status」で検索して見つかったもの。

参考URL：http://www.kanaya440.com/contents/tips/vbs/007.h …

この回答への補足

返答有難う御座います。
参考のURLを確認してみましたが、これはVBではありませんでしょうか？

補足日時：2008/06/17 21:51