您当前的位置: 怎样用vbs实现：ping一个输入的ip地址 当返回的time连续3次大于指定数值，就调用win系统声音或本目录中第一个声音文件进行报警。
请给出代码谢谢啦
------解决方案--------------------
- VBScript code
ip = "218.1.64.33"
limit = 10
n = 0
For i = 1 To 30
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & ip & "'")
For Each objStatus in objPing
' WScript.Echo objStatus.ResponseTime
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Or objStatus.ResponseTime> limit Then
n = n + 1
Else
If n > 0 Then n = n - 1
End If
Next
If n >= 3 Then Exit For
WScript.Sleep 1000
Next
If n >=3 Then
strSoundFile = "C:WindowsMediaNotify.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, True
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Speak "Ping Timeout"
' 装中文 SpeecjSDK的话
' objVoice.Speak "网络不正常"
End If