用VBS脚本如何实现这个功能

来源：百度知道 编辑：UC知道 时间：2024/07/04 14:08:17
用VBS脚本如何判断网络是通的，如果网络是不通侧等待重试,如果网络是通的执行下一条命令.
不要告诉我原理最好拿出脚本列子

好，写个例子给你：
Dim strMachines,aMachines,machine
Dim objPing,objStatus,objws
Dim connect,unconnect

Machine="www.baidu.com"
Set objPing=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
Do
        connect=0
        unconnect=0
        'ping 10次
        For i=1 To 10
                For Each objStatus in objPing
                        If IsNull(objStatus.StatusCo