批量检查终端是否可以ping服务器

Question

我写了一个批处理，但是根本不起作用：

set THEFILE=ip_list.txt

if exist result.txt del result.txt

::read %THEFILE% and loop through each line
for /F %%A in (%THEFILE%) do (


    SETLOCAL ENABLEDELAYEDEXPANSION
    SET counter=1
    FOR /F "tokens=* USEBACKQ" %%F IN (`ping %%A`) DO (
      SET result%counter%=%%F
      SET counter=%counter%+1
    )
    ECHO %result1%
    ECHO %result2%
    ECHO %result3%
    echo %result9% >> result.txt
    ENDLOCAL

    echo ******************************************* >> result.txt
)

在ip_list.txt内部：

8.8.8.8
4.4.4.4

如果没有发生％100丢失，我需要获得IP地址。

我的代码需要快速帮助。

Answer 1

这是我的做法：

@echo off
setlocal

set THEFILE=ip_list.txt
if exist result.txt del result.txt
for /F %%A in (%THEFILE%) do (
  call :IsPingable %%A && (
    Echo %%A is pingable ) || (Echo %%A is not pingable)
)

exit /b

:IsPingable <comp>
ping -n 1 -w 3000 -4 -l 8 "%~1" | Find "TTL=">nul  
exit /b