- 工信部备案号 滇ICP备05000110号-1
- 滇公网安备53011102001527号
- 增值电信业务经营许可证 B1.B2-20181647、滇B1.B2-20190004
- 云南互联网协会理事单位
- 安全联盟认证网站身份V标记
- 域名注册服务机构许可：滇D3-20230001
- 代理域名注册服务机构：新网数码
- CN域名投诉举报处理平台：电话：010-58813000、邮箱：service@cnnic.cn
相关文章
【滇企复工进行时】8455线路检测中心：未雨绸缪，危机之下必有机遇 倪光南推进国产操作系统：打破有鸡没蛋或有蛋没鸡 【站长故事】30岁seo老鸟走过的路：继续拼搏不敢松懈 良好习惯护航上网安全 A5图王：没有信心的站长看过来，让你恢复建站信心
VBScript 检测网络连接是否正常
2018-07-20 19:54:40
11794
正常手动检测网络是否连通有两个最为常见的办法：一是ping一个主机；二是打开某知名网站。所以脚本检测也顺着这两个思路进行。
关于ping的VBScript实现有如下代码可供参考：
Function Ping(strTarget)
Dim objShell, objExec, strPingResults
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
'WScript.Echo VbCrLf & strTarget & " responded to ping."
Ping = True
Else
'WScript.Echo VbCrLf & strTarget & " did not respond to ping."
Ping = False
End If
Set objExec = Nothing
Set objShell = Nothing
End Function
