- 工信部备案号 滇ICP备05000110号-1
- 滇公安备案 滇53010302000111
- 增值电信业务经营许可证 B1.B2-20181647、滇B1.B2-20190004
- 云南互联网协会理事单位
- 安全联盟认证网站身份V标记
- 域名注册服务机构许可：滇D3-20230001
- 代理域名注册服务机构：新网数码
相关文章
云南公布第二批免费向社会提供信息技术服务企业名单 中国互联网企业赴美上市规模预计今年或减半 【滇企复工进行时】蓝队云：未雨绸缪，危机之下必有机遇 搜狐、腾讯、迅雷等一批互联网公司涉黄被罚5万 他们失败的辛酸血泪史：亿唐网、博客中国、酷6网、饭否
VBScript 检测网络连接是否正常
2018-07-20 19:54:40
10165
正常手动检测网络是否连通有两个最为常见的办法：一是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
