作为一名局域网管理员，经常调用“ping”命令来测试某电脑的网络连通性是再平常不过的了。每次都在命令行下输入命令显得有些烦琐（尽管命令本身不是很复杂），于是，我用批处理和VBS编程分别写了两个小程序，可以简单快速地调用“ping”。

批处理调用ping命令

只要将以下代码写到记事本中，然后将其保存扩展名为BAT的文件；使用时，只要双击该文件即可运行，根据提示输入要ping的电脑的IP，然后根据返回信息即可作出判断。

@echo off

title   网络连通性测试小工具 v1 .0

color 1e 

CLS

ECHO                    *************************

ECHO                    = 网络连通性测试小工具  =

echo                    *************************

echo.

echo.

echo 本工具用于测试本机与192.168.1.X网段内特定IP的网络连通性（其实就是ping对方IP）。

Echo  ________________________________________________________

echo.

:q

set /p IP=请键入对方IP的最后一段:

if /I "%IP%"==’n’ exit

cls

echo 现在将开始测试本机与192.168.1.%IP%的网络连通性，按任意键开始……

PAUSE>nul

ping 192.168.1.%ip% -n 5

echo.

echo     __________________________________________________________

echo.

echo         测试完成，请自行根据返回结果判断连通性。

echo.

echo       【返回有TTL值说明网络畅通，其他信息则表示不通】

echo.

echo       按任意键退出……

PAUSE>nul

说明：以上程序段仅仅ping网段为192.168.1.X的电脑，使用时只要输入ip的最末段即可，如果要测试其他网段，请修改上面的“192.168.1.”为你的范围。

VBS调用ping命令

如果不喜欢批处理方式运行ping命令，不妨试一下VBS代码。将下面的代码写在记事本中，然后保存为扩展名为VBS的文件。

Dim ip,wshshell,comd,IPADDR,times

Set wshshell=WScript.CreateObject("wscript.shell")

DO 

ip=inputbox("本工具用于测试局域网内特定IP的网络连通性。"&CHR(13)&chr(10)&CHR(13)&chr(10)&"输入IP地址最后一段(如:140),输入[1,254]范围外的数字或单击“取消”退出。","网络连通性测试小工具",1)

if ip="" or ip<="0" or ip>="255" then 

EXIT DO 

Else

times=inputbox("发送数据的次数(默认为3,建议不要超过10,单击“取消”则使用默认值“3”):","发送的数据包次数",3)

If times="" or times<="0" then 

times="3"

end if

IPADDR="192.168.1."&IP

MsgBox"现在将测试本机与IP为“"&IPADDR&"”的电脑的网络连通性。"&CHR(13)&CHR(10)&"单击“确定”开始测试……", 64, "测试连通性"

comd="ping 192.168.1."&IP&"  -n  "×  

wshshell.run(comd)

end if

LOOP

使用以上程序时，输入IP的最后一位（如输入过[1,254]的数字则程序自动退出），然后输入ping发送数据包的次数，就可以调用ping命令来测试；之后继续提示输入IP末位，如果不想测试，单击“取消”按钮即可结束程序运行。

小提示：如果你的网段不是192.168.1.X，要修改代码中的“comd="ping 192.168.1."&IP&"  -n  "×”中的数字（当然，你也可以对本程序稍作改进，以便在运行时先提示输入网段，然后输入IP末位数字）。

通过这两种方式之一调用ping命令来测试电脑网络是否畅通，就更加方便了。