UC知道求个vbs脚本，实现监测网络连接
来源：百度知道 编辑：UC知道 时间：2024/06/30 09:10:43
我晚上总是挂机，但是猫不是很好，所以我就想写个VBS脚本，实现监测网络连接的功能，就是在网络断开的时候自动连接。自动链接部分已经 搞定，只是监测网络连接部分不知道怎么弄，利用cmd的ping命令到时可以，但是如何获得它的返回结果啊，求教各位高手了
感觉你这个监视目的意义不大，按理说拨号连接的属性就可以让电脑在断线后自动重拨，且可以设置重拨次数(最高99)，还可以设置重拨间隔。我觉得够你用的，不就是打游戏吗？
非要什么PING来监视的话，一楼的效果不好，你的思路也不对。用下面这段，直接就知道目标是不是通了。 并且可以监视多个目标，防止一个目标万一不通的时候造成的错误动作。
strMachines = "baidu.com;google.com"
aMachines = split(strMachines, ";")
For Each machine in aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
WScript.Echo( machine & " 不通")
Else
MsgBox machine & " 通啦"
End If
Next
Next