批处理如何每5分钟批量ping多个ip 并将ave值放入txt文件？

doubat

做网络时延的实验。想使用ping采集数据。
实现功能：
1、 一天内每5分钟批量ping多个ip
2、从txt中读入ip地址
3、 将每次ping的ave值放入txt文件
格式:
      ip    date time  ave

再世情緣

刚刚写了一个，测试还行。。。
注意把批处理命名为pp.bat，为后面的vbs定时脚本用。。。

1. 
   
2. @echo off &&color 0a
   
3. setlocal enabledelayedexpansion
   
4. pushd "%cd%"
   
5. :main
   
6. if not exist "ip.txt" msg %username% /time:5 "错误！！请确认IP地址已存入当前目录下的ip.txt文本！！！" &&call exit
   
7. if not exist "ping_result.txt" echo.IP                Date                Time                AVE >ping_result.txt
   
8. for /f "delims=" %%a in (ip.txt) do (
   
9.   set "ip=%%a"
   
10.   echo.正在Ping !ip! , 请稍后 ....
    
11.   ping -w 500 -n 4 !ip! | findstr /i "Average" >tmp.txt ||set "Ave=NULL"
    
12.   for /f "tokens=3 delims=," %%i in (tmp.txt) do (
    
13.     set "Average=%%i"
    
14.     for /f "tokens= 3 delims= " %%m in ("!Average!") do (
    
15.     set "Ave=%%m"
    
16.     )
    
17.   )
    
18.   echo.!ip!        !date:~,10!        !time:~,8!         !Ave! >>ping_result.txt
    
19. )
    
20. del /q /f tmp.txt
    
21. call exit

复制代码

每次Ping 会生成一个临时文件tmp.txt，你要的结果放在脚本所在目录，文档名称为ping_result.txt，如果Ping 不通，Ave值为Null ，请把ip地址列表放在脚本所在目录，格式为

1. 192.168.1.1
   
2. 192.168.1.2
   
3. ......

复制代码

至于你要的每5分钟自动ping。。。这个。。。批处理窗口一直开着。。。有时候系统会自动结束cmd(貌似是，反正我的机器经常自动结束cmd.exe，尤其是后台运行的时候。。。)，建议用vbs脚本写，放在同一目录，直接运行vbs就行，我vbs刚刚入门。。。。再次献丑了。。。

1. for i=0 to 65536
   
2.   WSCript.CreateObject("WSCript.shell").run "pp.bat", 1
   
3.   WSCript.sleep "300000"
   
4. next

复制代码

这个。。。刚才测试360竟然说这个vbs是木马。。。。兄弟，天地良心啊，至于你用不用。。。。您看着办吧。。。对了，vbs运行的时候是后台的。。。如果需要关闭，打开一个新的cmd窗口

1. taskkill /f /im "wscript.exe"

复制代码

terse

修改下 隐藏运行

1. if "%~1"=="" mshta vbscript:createobject("wscript.shell").run("%~s0 0",0)(window.close)&exit
   
2. @echo off&setlocal enabledelayedexpansion
   
3. if not exist "ip.txt" msg %username% /time:5 "错误！！请确认IP地址已存入当前目录下的ip.txt文本！！！"&exit
   
4. if not exist "ping_result.txt" >ping_result.txt echo.IP                Date                Time                AVE
   
5. :loop
   
6. for /f "delims=" %%i in (ip.txt) do (
   
7.   set "Ave=NULL"
   
8.   for /f "skip=11 tokens=4 delims==" %%j in ('ping -w 500 -n 4 %%i') do set "Ave=%%j"
   
9.   >>ping_result.txt echo;%%i        !date:~,10!        !time:~,8!        !Ave: =!
   
10. )
    
11. ping/n 300 127.1>nul
    
12. goto loop
    

复制代码

测试环境 win xp3