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

Question

以下のような無限ループ中で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かエラーを無視する方法ってないのでしょうか……
お知恵を貸していただけると幸いです。

Answer 1

On Errorを使います。

    On Error REsume Next
    oXMLHTTP.Send
    rc = Err.Number
    On Error Goto 0
    If rc = 0 Then
      If oXMLHTTP.responseText = "1" Then
          ' なんか行う
      End If
    End If

Comments

[opoonabst]

解決できました！ありがとうございました！

[otn]

あと、下記3行はループの外に出した方が良いです。
Const URL1 = "http://xxxx.xxx"
Dim oXMLHTTP ' MSXMLオブジェクト
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")