@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('type "%~dp0\1.txt"')do ping/n "1" "%%~i" >nul 2>nul&&(
 for /f "delims=" %%j in ('ping "%%~i"^|findstr/n .')do (
  for /f "delims=:" %%k in ("%%j")do if %%k geq 3 if %%k neq 8 if %%k neq 10 (
   set "#%%i#_name#=%%j"
   set "#%%i#_name#=!#%%i#_name#:<=!"
   set "#%%i#_name#=!#%%i#_name#:>=!"
   set "#%%i#_name#=!#%%i#_name#: (=(!"
   set "#%%i#_name#=!#%%i#_name#: =\!"
   set "#%%i#_name#=!#%%i#_name#:ms=!"
   set "#%%i#_name#=!#%%i#_name#:s=!"
   if %%k geq 3 if %%k leq 6 (
    rem::echo,!#%%i#_name#!
   )else if %%k equ 9 (
    for /f "delims=(" %%l in ("!#%%i#_name#!")do (
     rem::echo,%%i丢失:%%~nxl
     set "#%%i#_if1#=%%~nxl"
    )
   )else if %%k equ 11 (
    for /f "delims=(" %%l in ("!#%%i#_name#!")do (
     rem::echo,%%i平均速率:%%~nxl
     set "#%%i#_if2#=%%~nxl"
    )
   )
   rem::此行为判断行并导出实体数据
   if !#%%i#_if1#! equ 0 if !#%%i#_if2#! leq 100 if not defined #%%i# (
    set/a "#%%i#_number+=1"
    if !#%%i#_number! geq 6 (
     set "#%%i#=yes"
     (echo,i  p: %%i
     echo,速率: !#%%i#_if2#!
     echo,丢失: !#%%i#_if1#!)
    )
   )
  )
 )
)
pause
复制代码

@echo off
for /f %%a in (IP列表.txt) do (
    setlocal enabledelayedexpansion
    for /f "tokens=3 delims=,(，（" %%b in ('ping %%a^|findstr /i "Lost Average 丢失 平均"') do (
        for /f "tokens=2 delims==ms " %%c in ("%%b") do (
            set /a n+=1
            set #!n!=%%c
        )
    )
    if !#1! equ 0 if !#2! lss 100 echo;%%a    !#2!
    endlocal
)
pause
复制代码