VBSのhttp通信時にネットワーク接続してなくてもエラーにさせない方法

以下のような無限ループ中でhttp通信を行いなにかしらを行うようなスクリプトを作っています

Do
    WScript.Sleep 10000 ' 10秒に一回実行
    Const URL1 = "http://xxxx.xxx"
    Dim oXMLHTTP   ' MSXMLオブジェクト
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", URL1, False
    oXMLHTTP.Send
    If oXMLHTTP.responseText = "1" Then
        ' なんか行う
    End If
Loop

Windows10で使っているのですが、ネットワークに接続していない状態(というよりノーパソを一時閉じて開いた直後とかスリープから復帰した直後)だと
oXMLHTTP.Sendの行で『指定されたリソースが見つかりません』というエラーが
表示されてしまい、スリープする度に強制終了されるのでちょっと面倒くさいです。
うまくtry catchかエラーを無視する方法ってないのでしょうか……
お知恵を貸していただけると幸いです。

行動規範の内容に同意します

回答1件

ベストアンサー

On Errorを使います。

VBScript
1    On Error REsume Next
2    oXMLHTTP.Send
3    rc = Err.Number
4    On Error Goto 0
5    If rc = 0 Then
6      If oXMLHTTP.responseText = "1" Then
7          ' なんか行う
8      End If
9    End If