1、新建文本文档，并修改后缀为vbs文件。
2、添加以下内容

On Error Resume Next
url="http://192.168.142.161:8080"
#url="http://www.baidu.com"
set objh = CreateObject("MSXML2.XMLHTTP")
objh.open"GET",url,false
objh.send()
Wscript.Echo objh.status
:pause

3、修改url访问地址，保存文件。
4、双击vbs脚本文件。

得到http状态码为200，访问url正常；

得到http状态码为12029，访问url异常；