Question

VBS如何写一段判断语句，判断某台计算机是否能ping通，如果可以ping通，再执行下面的语句，否则就结束脚本

Answer 1

Set shell=WScript.CreateObject("wscript.shell")
ip="12.0.0.1"
Set pingResult=shell.Exec("cmd /c ping "&ip)
splistStr=pingResult.StdOut.ReadAll

If InStr(1,splistStr,"%",1)<>0 Then
'lost=Split(Split(splistStr,"(",-1,1)(1),"%",-1,1)(0)
'//////////////////////////////////////////////////////////////
'ping 失败的结果
'1.0.0.1 的 Ping 统计信息:
'数据包: 已发送 = 4，已接收 = 0，丢失 = 4 (100% 丢失)，
''//////////////////////////////////////////////////////////////
'
'127.0.0.11 的 Ping 统计信息:
'数据包: 已发送 = 2，已接收 = 2，丢失 = 0 (0% 丢失)，
'往返行程的估计时间(以毫秒为单位):
'最短 = 0ms，最长 = 0ms，平均 = 0ms
''//////////////////////////////////////////////////////////////
'根据以上结果，我觉得只要判断是否含有“往返行程的估计时间”字符串存在就可以了
If InStr(1,splistStr,"往返行程的估计时间",1)<>0 Then
MsgBox "可以ping通"
Else
WScript.Quit
End If
Else
'ip书写有误
WScript.Quit
End If

Answer 2

这个。。。。，恐怕要调用API，用批处理很方便，功力没有这么深啊

提供各类网络服务器架设（WEB，FTP，EMAIL，AD，文件服务器，打印服务器）等，
配置各种路由交换设备，为您公司低成本实现员工行为管控。（收费300元以下）

克油：143 309 0545