[文件操作] 批处理如何提取nslookup域名解析结果中的ip地址并按指定格式输出

tian930

求助：代码实现不了效果，编程实在不会
1、文本文件List.txt内容如下：
baidu.com
sina.com.cn

2、上面域名在cmd下nslookup后的结果如下：

C:\>nslookup baidu.com
服务器:  google-public-dns-a.google.com
Address:  8.8.8.8

非权威应答:
名称:    baidu.com
Addresses:  180.149.132.47
          220.181.57.217
          111.13.101.208
          123.125.114.144


C:\>nslookup sina.com.cn
服务器:  google-public-dns-a.google.com
Address:  8.8.8.8

非权威应答:
名称:    sina.com.cn
Addresses:  202.108.33.107
          202.108.33.60


C:\>


3、在论坛里搜索到的代码，然后自己改了好久，只改到这种程度，如下：
@echo off
(  for /f "delims=" %%a in (List.txt) do (
        for /f "delims=" %%b in ('nslookup %%a^|findstr "[0-9]$"') do (
             set "Address=%%b"
             set "Addresses=%%c"
             setlocal enabledelayedexpansion
             set "Address=!Address:*:=!"
             set "Addresses=!Address:*:=!"
             for %%d in (!Address!) do (
                for %%e in (!Addresses!) do echo,DNS地址：%%d 域名：%%a 域名地址：%%e
                endlocal
                )
            )
        )
  )>>Answer.txt


4、Answer.txt文件内容应该如下：
DNS地址：8.8.8.8 域名：baidu.com 域名地址：180.149.132.47
                           域名：baidu.com 域名地址：220.181.57.217
                           域名：baidu.com 域名地址：111.13.101.208
                           域名：baidu.com 域名地址：123.125.114.144
DNS地址：8.8.8.8 域名：sina.com.cn 域名地址：202.108.33.107
                           域名：sina.com.cn 域名地址：202.108.33.60


这个代码，我实在改不出来了，更别说answer.txt的理想内容如标题4的格式了！

求助大神，帮忙改改，谢谢！！

tian930

感谢版主：pcl_test     这个代码相当好用~~谢谢了！！

pcl_test

@echo off
for /f %%a in ('more +22 "%~f0"') do (
    setlocal enabledelayedexpansion
    for /f "delims=" %%b in ('nslookup %%a 2^>^&1') do (   
        for /f "tokens=1,2" %%c in ("#%%b") do (
            if /i "%%c" equ "#Address:" (
                set /p=DNS地址：%%d 域名：%%a<nul
                set s=%%dfedcba9876543210&set/an=0x!s:~15,1!
                for /l %%i in (1 1 !n!) do set "space=!space! "
            ) else (
                if not defined f (
                    if /i "%%c" equ "#Addresses:" (
                        echo; 域名地址：%%d
                        set f=1
                    )
                ) else if "%%c" equ "#" echo;          !space!域名：%%a 域名地址：%%d
            )
        )
    )
    endlocal&echo;
)
pause&exit
baidu.com
sina.com.cn
复制代码

tian930

  多谢~   第三个可以，但是也不是太准确，我再自己改改，再次感谢！！

DiamondbacK

第三方 sed

# 2>nul 3>&2 & echo off & cls
# & nslookup.exe < domain_list.txt | sed -rnf "%~f0" > Answer.txt
# & pause & exit /b
# 使用方法：将域名列表保存在同目录下的文件 domain_list.txt 中，然后运行脚本

:L0
/^>/ {
  h
  $! n
  :L1 
  /^>/! {
    H
    $! { n; b L1 }
  }
  x
  s/^.+Address: *([.0-9]+)\s+名称: *([-.[:alnum:]]+)\nAddresses:\s*/域名: \2, DNS 地址: \1, 解析地址: /
  :L2
  s/^(.+解析地址: )(.*\n)\s*([.0-9]+)/\1\2\1\3/
  t L2
  p
  g
  $! b L0 
}
复制代码

第三方 gawk

# 2>nul 3>&2 & echo off & cls
# & nslookup.exe < domain_list.txt | gawk -f "%~f0" > Answer.txt
# & pause & exit /b
# 使用方法：将域名列表保存在同目录下的文件 domain_list.txt 中，然后运行脚本

BEGIN { RS = "\n*>"; FS = "[:\n]+[\t ]*" }
$7 == "Addresses" {
  for (i = 8; i <= NF; i++) {
    print "域名: " $6 ", DNS 地址: " $4 ", 解析地址: " $i
  }
}
复制代码

Windows 7 以上系统自带

:: 使用方法：将域名列表保存在同目录下的文件 domain_list.txt 中，然后运行脚本
@echo off

PowerShell -c "(gc .\domain_list.txt | nslookup.exe) -join \"`n\" -split '\n*>' | %% { $fields = $_ -split '[:\n]+[\t ]*'; if ($fields[6] -eq 'Addresses') { for ($i = 7; $i -lt $fields.count; $i++) { \"域名: $($fields[5]), DNS 地址: $($fields[3]), 解析地址: $($fields[$i])\" }}} > Answer.txt"

pause & exit /b
复制代码