technogym健身器材:一个网络联通情况测试(定时ping)的bat

一个以前工作时用到的网络联通情况测试, 说白了就是隔一段时间ping一下..因为那时有几个主机不太稳定,所以在网上找了一下,本来想用pingplus..好像叫超级ping吧.那软件...    电信那边的人说看不懂.闷....不得已就搞了这个.bat版的

ServerPingShell.bat (运行时的文件.定义变量的作用)

@echo offecho ***************************************************************************echo ** 网络联通情况记录 **echo ***************************************************************************echo 程序正在运行中，请稍后…………set logfile=网络联通情况%date:~0,4%%date:~5,2%%date:~8,2%.txtset pinglog=pinglog.txtset logfind=logfind.txtset cmdping=pingset driver=ip地址：set timeout=超时情况记录.txtset callbatfilename=ServerPing.batIF NOT EXIST %logfile% echo IP地址        Average Minimum Maximum Sent Received lost   date      time>>%logfile% & echo -------------------------------------------------------------------------------->>%logfile%call %callbatfilename% %driver%  [这里填你要的ip地址,呵呵只一个啊]exit

----------------------------------------------分隔线不包括此行!

ServerPing.bat (ping工作的主要文件,截取导出)

%cmdping% %2 >> %pinglog%Set temp123=TEMP.txtFIND /C "Request timed out" %pinglog% > %temp123%FOR /F "tokens=3" %%i in (%temp123%) do set lv_cnt=%%iif %lv_cnt% GTR 3 date /t >>%timeout% && time /t >>%timeout% && type %pinglog% >>%timeout% && echo ------------->> %timeout%find "statistics" %pinglog% >> %logfind%For /f "skip=2 tokens=4" %%m In (%logfind%) Do set ip=%%mfind "Average" %pinglog% >> %logfind%For /f "skip=2 tokens=3" %%n In (%logfind%) Do set Average=%%nFor /f "skip=2 tokens=6" %%o In (%logfind%) Do set Minimum=%%oFor /f "skip=2 tokens=9" %%p In (%logfind%) Do set Maximum=%%pfind "Lost" %pinglog% >> %logfind%For /f "skip=2 tokens=4" %%q In (%logfind%) Do set Sent=%%qFor /f "skip=2 tokens=7" %%r In (%logfind%) Do set Received=%%rFor /f "skip=2 tokens=11" %%s In (%logfind%) Do set lost=%%s@echo onif %lv_cnt% EQU 0 echo %ip%  %Average%     %Minimum%   %Maximum%,    %Sent%     %Received%    %lost%) %date% %time% >> %logfile%if %lv_cnt% GTR 3 echo %ip%       超       时                               %date% %time% >> %logfile%echo ------------->> %logfile%@echo offdel %pinglog%del %logfind%del %temp123%

----------------------------------------------分隔线不包括此行!

HideRunPing.vbs (bat自身不能隐藏,定时会跑出来,很烦.加个vbs来隐藏和定时)

doSet ws = CreateObject("Wscript.Shell")ws.run "cmd /c ServerPingShell.bat",vbhidewscript.sleep 300000loop

----------------------------------------------分隔线不包括此行!

就这样..进行一下HideRunPing.vbs 后每30秒自已ping一次.时间可以自已在vbs文件里那个wscript.sleep [时间]  改..

导出的效果差不多就是.. 呵呵.

IP地址        Average Minimum Maximum Sent Received lost   date      time--------------------------------------------------------------------------------127.0.0.123:  1ms,     1ms,   1ms,    4,     4,    (0%) 2008-08-01  8:48:58.29-------------127.0.0.123:  1ms,     1ms,   1ms,    4,     4,    (0%) 2008-08-01  8:53:58.28-------------127.0.0.123:  1ms,     1ms,   1ms,    4,     4,    (0%) 2008-08-01  8:58:58.31-------------127.0.0.123:  1ms,     1ms,   1ms,    4,     4,    (0%) 2008-08-01  9:03:58.31