IE操作するプログラムでエラー処理は？

VBSでIEを操作するプログラムを作っていますがエラー対応をどうすればよいか悩んでいます。
仕様として：
・エラー時にすごく目立つように表示したい
・指定ページが表示されない場合
・ログインが連続4回失敗したらエラー表示したい
・ログインできても５０３や５０５エラーが出たらエラー表示したい

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Document.fm1.Action="http://abc.xyxyxy-xyxyxy.zzz/"
objIE.Document.fm1.Method="POST"
objIE.Document.fm1.Click

No.2 ベストアンサー 回答者： korin_ 回答日時： 2008/11/26 12:00

こんにちは。

ページが表示されたかどうかを判断するには、エラーページが表示されるまで待機して、表示された後のテキストを取得して404エラーかどうか判断するしかないように思います。

Do Until objIE.Busy = False
WScript.sleep(250)
Loop

dim strBody
strBody = objIE.Document.body.innerText ' ←表示されたテキストを取得

No.3 回答者： nda23 回答日時： 2008/11/26 17:30

回答ではなく参考意見です。

IEが起動してからはIE側の処理になります。つまり、HTML内の
Scriptに記述しなければなりません。つまり、起動Script側では
処理できません。
リクエストヘッダ等の取得はXMLHttpRequestを参照することで取得
できます。但し、実画面と、サーバの間を別途、仲介しなければ
ならないので、プログラムは難しいものとなるでしょう。

http://msdn.microsoft.com/ja-jp/library/ms535874 …

No.1 回答者： yyr446 回答日時： 2008/11/26 11:39

IE Object クラスのプロパティやメソッドがほとんど公開されていないので

（もしかして、知らないのは私だけ？）
ご希望の要件を、作りこむのは難しいと思います。