[分享]MAC地址查询批处理

sgaizxt001

1. 
   
2. @echo off
   
3. title "局域网MAC地址查询"
   
4. echo     感谢hanyeguxing,qzwqzw给我提供帮助，感谢www.bathome.net给我提供学习的机会，
   
5. echo 有想学批处理的来批处理之家，不过请先看版规再发帖。
   
6. echo.
   
7. echo.
   
8. echo 按任意键继续
   
9. pause >nul
   
10. cls
    
11. echo.    此批处理比网上的局域网MAC地址扫描.exe的查询时间要快一点，而且会自动生成arp
    
12. echo -s ip macaddress格式的批处理。但是有一点要注意，需要网络连的通才能查询的了，而
    
13. echo 且IP地址为C类的192.168类型。IP地址列表支持格式为192.168.x.x-192.168.x.x的类型，
    
14. echo 支持192.168.x.x换行192.168.x.x的类型，不过需要跟批处理放在同一文件夹下面。在输
    
15. echo 入起始IP里，支持单IP，支持单IP段，支持跨网段查询，不过跨网段时之后最后一个网段
    
16. echo 时从1到输入，前面的网段都是从1查询到254，意思就是说192.168.x.y的y其实是没起到
    
17. echo 作用的，不过仍然需要按标准IP地址输入，但很少影响输出结果。
    
18. echo.
    
19. echo.
    
20. echo 1.输入起始IP和结束IP来查找MAC地址输出到arp绑定.bat
    
21. echo 2.从IP地址.txt读取IP来查找MAC地址输出到arp绑定.txt
    
22. echo 3.按0退出
    
23. set/p chio=请选择:
    
24. if "%chio%" == "1" goto input
    
25. if "%chio%" == "2" goto beifen
    
26. if "%chio%" == "0" exit
    
27. :input
    
28. setlocal enabledelayedexpansion
    
29. set/p min=请输入起始IP:
    
30. set/p max=请输入结束IP:
    
31. for /f "tokens=3,4,7,8 delims=." %%m in ("%min%.%max%") do (
    
32.   set min_3=%%m
    
33.   set min_4=%%n
    
34.   set max_3=%%o
    
35.   set max_4=%%p
    
36.                                                            )
    
37. if %min_3% equ %max_3% (goto li) else (goto lu)
    
38. endlocal
    
39. :end
    
40. pause
    
41. goto :eof
    
42. 
    
43. :li
    
44. for /l %%a in (%min_4%,1,%max_4%) do (
    
45.   for /f "tokens=1* delims==" %%i in ('ping 192.168.%min_3%.%%a -n 1 -w 20 /l 1 ^>nul ^& if not errorlevel 1 nbtstat -a 192.168.%min_3%.%%a') do (
    
46.      if not "%%j" == "" echo.arp -s 192.168.%min_3%.%%a  %%j>>arp绑定.bat
    
47.                            )
    
48.              )
    
49. goto :eof
    
50. :lu
    
51. for /l %%b in (%min_3%,1,%max_3%) do (
    
52. for /l %%a in (1,1,254) do (
    
53.    set /a max_5=max_4+1
    
54.    if not "%%b.%%a" == "!max_3!.!max_5!" (
    
55.    for /f "tokens=1* delims==" %%i in ('ping 192.168.%%b.%%a -n 1 -w 20 /l 1 ^>nul ^& if not errorlevel 1 nbtstat -a 192.168.%%b.%%a') do (
    
56.      if not "%%j" == "" echo.arp -s 192.168.%%b.%%a  %%j>>arp绑定.bat
    
57.                                       )
    
58.                           ) else (
    
59.                              goto end
    
60.                                  )
    
61.                    )
    
62. )
    
63. goto :eof
    
64. 
    
65. :beifen
    
66. setlocal enabledelayedexpansion
    
67. for /f "tokens=1,2 delims=-" %%a in (IP地址.txt) do (
    
68.   if not "%%b" == "" (
    
69.     set min=%%a
    
70.     set max=%%b      
    
71.     goto lp          ) else (
    
72.        goto lo
    
73.                             )
    
74.                                                     )
    
75. endlocal
    
76. pause
    
77. :lp
    
78. for /f "tokens=3,4,8 delims=." %%c in ("!min!.!max!") do (
    
79.     set min_2=%%c
    
80.     set min_3=%%d
    
81.     set min_4=%%e   
    
82.                                                          )
    
83. for /l %%i in (!min_3!,1,!min_4!) do (
    
84.       for /f "tokens=1* delims==" %%j in ('ping 192.168.!min_2!.%%i -n 1 -w 20 /l 1 ^>nul ^& if not errorlevel 1 nbtstat -a 192.168.!min_2!.%%i') do (
    
85.         if not "%%k" == "" echo.arp -s 192.168.!min_2!.%%i  %%k>>arp绑定.txt
    
86.                                      )
    
87. )
    
88. goto :eof
    
89. :lo
    
90. for /f "delims=" %%c in (IP地址.txt) do (
    
91. for /f "tokens=1* delims==" %%j in ('ping %%c -n 1 -w 20 /l 1 ^>nul ^& if not errorlevel 1 nbtstat -a %%c') do (
    
92.         if not "%%k" == "" echo.arp -s %%c  %%k>>arp绑定.txt
    
93.                                      )
    
94. )
    
95. goto :eof
    

复制代码

应该算是初稿，以后慢慢完善，不过目前可以完成简单的功能，发出来给大家指点。
没对IP输入格式进行判断，如果乱输造成死机或者其他损失的不负责哦。如果按标准输入IP格式，是不会有问题的

[ 本帖最后由 sgaizxt001 于 2010-5-4 21:10 编辑 ]

ccccpp

输出无反应!!