脚本与Bginfo一起使用

Question

我使用BGinfo给我一些关于我的机器的不同事实。它所做的一件事就是运行这个外部脚本，它返回一个名为Public IP的BGinfo变量：

Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "http://ifconfig.me/ip", False
o.send
echo o.responseText

问题是如果由于某种原因网卡没有得到正确的连接或者网站不可用，则说明

的diagbox的脚本错误

  

评估脚本字段＆＃39; Public IP＆＃39;时出错msxm13.dll第4行，位置0   系统找不到指定的资源

我想知道如何在此VBScript中放置一个错误陷阱来捕获错误并返回例如＆＃34;没有连接到公共IP＆＃34;？

Answer 1

On error resume next
<some code>
If err.number <> 0 then
    Msgbox err.number & " " & err.description
    err.clear
End If

是一般形式。