嵌套的for循环，设置变量和批处理脚本中的if else

Question

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

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

这将给我多行Ping输出，这里只显示单行（我使用的是4.2.2.2，例如）

^{pr2}$

如果我ping到单个IP，我可以选择TTL字段，但不能选择TTL的确切值

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

{45}给出了比较所需的值。 我读过关于setlocal enabledelayedexpansion的文章，这很有用，但是我不能将这些都组合成一行，使用set变量和使用IF-ELSE循环。
Plz对如何实现IP选择进行了简单描述。

制作批处理脚本后由我编辑解决方案：
此批处理脚本将pingIP.txt文件文件。找到TTL值，如果TTL值等于128，它将运行一个命令NBTSTAT-a ip地址（用于查找组信息），并将其存储在nbt_查询中_操作文本文件。
在对每个IP地址启动NBTSTAT命令之前，将搜索此文件中的现有结果，如果在该文件中找不到特定IP的结果，则NBTSTAT将激发。
注意，变量应该用括起来引用！字符，！TTL！, !防护等级1！, !错误等级！。此外，还要感谢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
                     )
                                          )
)

谢谢，

Answer 1

您可以在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

我用这个文件测试：文件.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

此批处理文件：

^{pr2}$

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

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