批量检查终端是否可以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