欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

怎样用vbs实现ping一个ip地址 当time连续3次大于指定数值,就调用win系统声音报警。该怎么处理

更新时间: 2014-01-05 01:52:29 责任编辑: Author_N1

 

怎样用vbs实现ping一个ip地址 当time连续3次大于指定数值,就调用win系统声音报警。
怎样用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:\Windows\Media\Notify.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 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:29
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2358/
本文WWW.DOC100.NET DOC100.NET版权所有。