我正在尝试制作一个批处理脚本，它将在文件中写入特定的 IP 地址。 我有一个 txt 文件(由一个 python 脚本创建)，其中包含一个 IP 地址列表(每个新行一个)，现在我需要使用 for 循环 ping 每个 IP，检查 TTL 值是否在 100 到 128 之间(windows 主机)并将 IP 地址写入新文件。我一直在尝试调整以设置变量和 for 循环，但这一切都变得太复杂而无法运行。
到目前为止，我已经达到:-
编辑:在命令下更正

for /f %i in (ip.txt) do ping -n 1 %i | find "TTL"

这将给我多行 Ping 输出，这里只显示单行(我使用 4.2.2.2 只是为了举例)

Reply from 4.2.2.2: bytes=32 time=1 ms ttl=45

如果我对单个 IP 执行 ping 命令，我可以选择 TTL 字段但不能选择 TTL 的确切值

for /f "tokens=6 delims= " %a in ('ping -n 1 4.2.2.2 ^| find "TTL"') do echo %a

它给了我值 TTL=45 而我需要 45 来进行比较。 我读到了 setlocal enabledelayedexpansion 这很有用，但我无法将这些全部组合成一行并使用 set 变量并使用 IF-ELSE 循环。
请给出一些关于如何实现IP选择的描述。

在制作批处理脚本解决方案后由我编辑:-
此批处理脚本将对 ips.txt 文件中给出的每个 IP 地址执行 ping 操作。查找 TTL 值，如果 TTL 值等于 128，它将运行命令 NBTSTAT -A ip-address(用于查找 GROUP 信息)并将其存储在nbt_query_op.txt 文件。
在为每个 IP 地址触发 NBTSTAT 命令之前，将搜索此文件以查找现有结果，如果在文件中找不到特定 IP 的结果，NBTSTAT
注意 变量 应该用! 字符引用，!TTL! , !ip1! , !ERRORLEVEL!。另外，也感谢RGuggisberg先生的指点。

@echo off
setlocal EnableDelayedExpansion
for /f %%i in (ips.txt) do (
for /f "tokens=6 delims= " %%a in ('ping -n 1 %%i ^| find "TTL"') do (
    for /f "tokens=2 delims==" %%b in ('echo.%%a') do set ttl=%%b
    echo %%i has TTL:- !ttl!
    if !TTL! == 128      (set ip1=%%i
                 echo        SELECTED IP- !ip1! TTL- !TTL!
                 findstr /c:!ip1! nbt_query_op.txt
                 if not !ERRORLEVEL! ==0 echo !ip1!>>nbt_query_op.txt && nbtstat -A !ip1! | find "GROUP">>nbt_query_op.txt
                     )
                                          )
)

谢谢，
克里斯

最佳答案

在 vbscript 中你可以做这样的事情:

strHost = "4.2.2.2"
if Ping(strHost) = True then
    Wscript.Echo "Host " & strHost & " contacted"
Else
    Wscript.Echo "Host " & strHost & " could not be contacted"
end if
'***************************************************************************************
Function Ping(strHost)
    dim objPing, objRetStatus
    set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
      ("select * from Win32_PingStatus where address = '" & strHost & "'")
    for each objRetStatus in objPing
        if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode <> 0 then
            Ping = False
            WScript.Echo "Status code is " & objRetStatus.StatusCode
        else
            Ping = True
            Msg = Msg & " Pingging " & strHost & vbCrlf & vbCrlf 
            Msg = Msg & "Bytes = " & objRetStatus.BufferSize & vbCrlf 
            Msg = Msg & "Time (ms) = " & objRetStatus.ResponseTime & vbCrlf 
            Msg = Msg & "TTL (s) = "  & objRetStatus.ResponseTimeToLive 
        end if
    next
    Wscript.echo Msg
End Function 
'***************************************************************************************

编辑:2016 年 6 月 30 日 @ 19:11

我用这个文件测试过:file.txt

4.2.2.2
www.google.com
www.google.fr
www.facebook.com
www.stackoverflow.com
www.yahoo.com
www.yahoo.fr
www.developpez.net

这个批处理文件:

@echo off
Title Get TTL from IP adress
set vbsfile=%Tmp%\%~n0.vbs
set IP_File=E:\vb-ping\ip.txt
set LogFile=Log.txt
If Exist %LogFile% Del %LogFile%
For /f %%a in ('Type %IP_File%') Do ( 
    echo TTL for "%%a" is : & Call:VBS "%%a"
    ( echo TTL for "%%a" is : & Call:VBS "%%a" )>> %LogFile%
)
echo.
color 0A
echo Hit any key to open the LogFile "%LogFile%"
pause>nul
Start "" %LogFile%
Exit /b

:VBS 
(
    echo wscript.echo TTL(WScript.Arguments(0^)^)
    echo '**********************************************************************************************************
    echo Function TTL(strHost^)
    echo     dim objPing, objRetStatus
    echo     set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"^).ExecQuery _
    echo       ("select * from Win32_PingStatus where address = '" ^& strHost ^& "'"^)
    echo     for each objRetStatus in objPing
    echo         if IsNull(objRetStatus.StatusCode^) or objRetStatus.StatusCode ^<^> 0 then
    echo            Ping = False
    echo           WScript.Echo "Status code is " ^& objRetStatus.StatusCode
    echo        else
    echo            Ping = True
    echo            TTL = objRetStatus.ResponseTimeToLive 
    echo        end if
    echo     next
    echo End Function 
    echo '**********************************************************************************************************
)> "%vbsfile%"
Cscript /Nologo "%vbsfile%" "%~1"
Exit /b

我得到了这样的输出结果:

TTL for "4.2.2.2" is : 
53
TTL for "www.google.com" is : 
51
TTL for "www.google.fr" is : 
51
TTL for "www.facebook.com" is : 
81
TTL for "www.stackoverflow.com" is : 
53
TTL for "www.yahoo.com" is : 
48
TTL for "www.yahoo.fr" is : 
48
TTL for "www.developpez.net" is : 
48

关于python - 嵌套的 for 循环，设置变量和 if else 在批处理脚本中，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38119808/