帮忙看这个VBS那里有问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 01:09:09
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.StatusCode) or objStatus.StatusCode<>0 Then
unconnect=unconnect+1
Else
connect=connect+1
End If
Next
Next
'如果10次都通则执行命令
If connect=10 Then
MsgBox

呵呵，还是我，把do换个位置就行了。
Dim strMachines,aMachines,machine
Dim objPing,objStatus,objws
Dim connect,unconnect

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