高手这么多,谁写一个扫描本网内IP和mac! - 中国DOS联盟论坛

不能确定缓存刷新时间，万一PING时间长了，可能就刷掉了，还有我说256是指静态MAC，也就是绑定的，非绑定的没条件测试
1,1,20是我在本地测试时填的，没有改回来
非三类掩码的计算没有写，因为子网IP段是各类IP的一部分，还是可以PING到，只要不怕耗时间^_^

附一个很早以前写的批处理


@ECHO OFF
set dataA=0 128 192 224 240 248 252 254 255
set ier=输入错误! key:
set con=999
if not "%1" == "" (set con=1&&set go=des) else goto int
if not "%1" == "" echo %1|find ".">nul&&set go=int
goto %go%


:int
cls
if %con% equ 1 (set mask=%1&&set con=0) else set /p mask=MASK:
:chk1
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "tokens=1-4 delims=." %%a in ("%mask%") do if %%a lss 128 (cls&echo %mask% %ier%1 %%a^>128&goto int) else set m_1=%%a&set m_2=%%b&set m_3=%%c&set m_4=%%d
for /f "tokens=2,3 delims==_" %%i in ('set m_') do echo %%j|findstr /v /b /e "%dataA%"&&cls&&echo %mask% %ier%2&&echo 第%%i段 %%j&&goto int
set /a _tmp1=%m_1%+%m_2%+%m_3%+%m_4%
set /a _tmp2=4
:chk2
set /a _tmp3=!m_%_tmp2%!
if not "%_tmp3%" == "0" (echo.) else set /a _tmp2=%_tmp2%-1&&goto chk2
set /a _tmp4=%_tmp1%-%_tmp3%
set /a _tmp5=%dataA:~-3%*(%_tmp2%-1)
if %_tmp4% == %_tmp5% (goto next) else echo %mask% %ier%3&goto int

:next
set /a des1=%_tmp2%*8-8
if "%_tmp3%" == "%dataA:~2,3%" set des2=1
if "%_tmp3%" == "%dataA:~6,3%" set des2=2
if "%_tmp3%" == "%dataA:~10,3%" set des2=3
if "%_tmp3%" == "%dataA:~14,3%" set des2=4
if "%_tmp3%" == "%dataA:~18,3%" set des2=5
if "%_tmp3%" == "%dataA:~22,3%" set des2=6
if "%_tmp3%" == "%dataA:~26,3%" set des2=7
if "%_tmp3%" == "%dataA:~30,3%" set des2=8
set /a des=%des1%+%des2%
echo MASK:%mask%=%des%
ENDLOCAL
goto end

:des
cls
if "%1" == "mask" set con=0
if %con% equ 1 (set mask=%1&&set con=0) else set /p mask=MASK:

:ce
echo %mask%|find "- ."&&cls&&echo %mask% %ier%1&&goto des
set /a mask1=%mask%/8
set /a mask2=%mask%%%8
set /a chk=%mask1%+%mask2%
if %chk% gtr 0 (if %chk% gtr 4 (cls&&echo %mask% %ier%2&&goto des)) else cls&&echo %mask% %ier%3&&goto des  
set s1=0&set s2=0&set s3=0&set s4=0&set s5=%mask1%
if "%mask1%" == "0" (set s0=%mask%&&goto ct) else set s0=%mask2%

:cf
set s%s5%=255
set /a s5=%s5%-1
if not "%s5%" == "0" goto cf 

:ct
if "%s0%" == "0" set s=%dataA:~0,1%
if "%s0%" == "1" set s=%dataA:~2,3%
if "%s0%" == "2" set s=%dataA:~6,3%
if "%s0%" == "3" set s=%dataA:~10,3%
if "%s0%" == "4" set s=%dataA:~14,3%
if "%s0%" == "5" set s=%dataA:~18,3%
if "%s0%" == "6" set s=%dataA:~22,3%
if "%s0%" == "7" set s=%dataA:~26,3%
if "%s0%" == "8" set s=%dataA:~30,3%
set /a _tmp=%mask1%+1
set s%_tmp%=%s%
echo %mask%=%s1%.%s2%.%s3%.%s4%

:end
pause>nul
exit

Originally posted by everest79 at 2006-12-30 10:45 PM:
不能确定缓存刷新时间，万一PING时间长了，可能就刷掉了，还有我说256是指静态MAC，也就是绑定的，非绑定的没条件测试
1,1,20是我在本地测试时填的 ...

对此我们可以作出以下的改动

@echo off
arp /d
FOR /L %%i IN (1,1,255) Do start /b ping 192.168.1.%%i -n 1 -w 0 >nul
arp /a | find "dynamic">IP.txt
type ip.txt
pause

我们的目的只是刷新本地的arp缓存，而当我们发出一个请求的arp数据包，只要对方的主机在就会回应那个arp数据包，我们本机的arp缓存就会刷新，而那个ping的数据包我们根本不用理会它，所以可以把等待时间设为0；
而且在for循环里使用start可以使得ping能并行运行，可以大大缩短运行的时间（代价是资源占用率高），由于运行地很快到最后会发现有一些mac全部为0的地址还没有消失，这是使用find寻找带用dynamic的行即可；
个人觉得这个批处理在局域网中还是挺有用的。

[ Last edited by dikex on 2006-12-30 at 11:08 PM ]

此贴收下，多谢

如果跨VLAN,这结就不好用了

这个程序应该自动检测本机的IP地址及子网掩码，然后根据IP地址和子网掩码判断局域网的大小，然后再进行检测，呵呵。

第46楼　everest79	发表于 2006-12-31 11:45
金牌会员　发帖 1,127　积分 2,564
不能确定缓存刷新时间，万一PING时间长了，可能就刷掉了，还有我说256是指静态MAC，也就是绑定的，非绑定的没条件测试 1,1,20是我在本地测试时填的，没有改回来非三类掩码的计算没有写，因为子网IP段是各类IP的一部分，还是可以PING到，只要不怕耗时间^_^

第47楼　everest79	发表于 2006-12-31 11:47
金牌会员　发帖 1,127　积分 2,564
附一个很早以前写的批处理 @ECHO OFF set dataA=0 128 192 224 240 248 252 254 255 set ier=输入错误! key: set con=999 if not "%1" == "" (set con=1&&set go=des) else goto int if not "%1" == "" echo %1\|find ".">nul&&set go=int goto %go% :int cls if %con% equ 1 (set mask=%1&&set con=0) else set /p mask=MASK: :chk1 SETLOCAL ENABLEDELAYEDEXPANSION for /f "tokens=1-4 delims=." %%a in ("%mask%") do if %%a lss 128 (cls&echo %mask% %ier%1 %%a^>128&goto int) else set m_1=%%a&set m_2=%%b&set m_3=%%c&set m_4=%%d for /f "tokens=2,3 delims==_" %%i in ('set m_') do echo %%j\|findstr /v /b /e "%dataA%"&&cls&&echo %mask% %ier%2&&echo 第%%i段 %%j&&goto int set /a _tmp1=%m_1%+%m_2%+%m_3%+%m_4% set /a _tmp2=4 :chk2 set /a _tmp3=!m_%_tmp2%! if not "%_tmp3%" == "0" (echo.) else set /a _tmp2=%_tmp2%-1&&goto chk2 set /a _tmp4=%_tmp1%-%_tmp3% set /a _tmp5=%dataA:~-3%(%_tmp2%-1) if %_tmp4% == %_tmp5% (goto next) else echo %mask% %ier%3&goto int :next set /a des1=%_tmp2%8-8 if "%_tmp3%" == "%dataA:~2,3%" set des2=1 if "%_tmp3%" == "%dataA:~6,3%" set des2=2 if "%_tmp3%" == "%dataA:~10,3%" set des2=3 if "%_tmp3%" == "%dataA:~14,3%" set des2=4 if "%_tmp3%" == "%dataA:~18,3%" set des2=5 if "%_tmp3%" == "%dataA:~22,3%" set des2=6 if "%_tmp3%" == "%dataA:~26,3%" set des2=7 if "%_tmp3%" == "%dataA:~30,3%" set des2=8 set /a des=%des1%+%des2% echo MASK:%mask%=%des% ENDLOCAL goto end :des cls if "%1" == "mask" set con=0 if %con% equ 1 (set mask=%1&&set con=0) else set /p mask=MASK: :ce echo %mask%\|find "- ."&&cls&&echo %mask% %ier%1&&goto des set /a mask1=%mask%/8 set /a mask2=%mask%%%8 set /a chk=%mask1%+%mask2% if %chk% gtr 0 (if %chk% gtr 4 (cls&&echo %mask% %ier%2&&goto des)) else cls&&echo %mask% %ier%3&&goto des set s1=0&set s2=0&set s3=0&set s4=0&set s5=%mask1% if "%mask1%" == "0" (set s0=%mask%&&goto ct) else set s0=%mask2% :cf set s%s5%=255 set /a s5=%s5%-1 if not "%s5%" == "0" goto cf :ct if "%s0%" == "0" set s=%dataA:~0,1% if "%s0%" == "1" set s=%dataA:~2,3% if "%s0%" == "2" set s=%dataA:~6,3% if "%s0%" == "3" set s=%dataA:~10,3% if "%s0%" == "4" set s=%dataA:~14,3% if "%s0%" == "5" set s=%dataA:~18,3% if "%s0%" == "6" set s=%dataA:~22,3% if "%s0%" == "7" set s=%dataA:~26,3% if "%s0%" == "8" set s=%dataA:~30,3% set /a _tmp=%mask1%+1 set s%_tmp%=%s% echo %mask%=%s1%.%s2%.%s3%.%s4% :end pause>nul exit

第48楼　dikex	发表于 2006-12-31 12:06
高级用户　发帖 366　积分 788
Originally posted by everest79 at 2006-12-30 10:45 PM: 不能确定缓存刷新时间，万一PING时间长了，可能就刷掉了，还有我说256是指静态MAC，也就是绑定的，非绑定的没条件测试 1,1,20是我在本地测试时填的 ... 对此我们可以作出以下的改动 @echo off arp /d FOR /L %%i IN (1,1,255) Do start /b ping 192.168.1.%%i -n 1 -w 0 >nul arp /a \| find "dynamic">IP.txt type ip.txt pause 我们的目的只是刷新本地的arp缓存，而当我们发出一个请求的arp数据包，只要对方的主机在就会回应那个arp数据包，我们本机的arp缓存就会刷新，而那个ping的数据包我们根本不用理会它，所以可以把等待时间设为0；而且在for循环里使用start可以使得ping能并行运行，可以大大缩短运行的时间（代价是资源占用率高），由于运行地很快到最后会发现有一些mac全部为0的地址还没有消失，这是使用find寻找带用dynamic的行即可；个人觉得这个批处理在局域网中还是挺有用的。 [ Last edited by dikex on 2006-12-30 at 11:08 PM ]

第49楼　INeverAsk	发表于 2007-11-04 23:19
初级用户　发帖 42　积分 97
此贴收下，多谢

第50楼　niao22	发表于 2008-04-01 00:10
新手上路　发帖 7　积分 14
如果跨VLAN,这结就不好用了

第51楼　Climbing	发表于 2008-04-01 00:52
铂金会员　发帖 2,753　积分 6,962　来自河北保定
这个程序应该自动检测本机的IP地址及子网掩码，然后根据IP地址和子网掩码判断局域网的大小，然后再进行检测，呵呵。

第52楼　densn	发表于 2008-04-02 22:45
初级用户　发帖 14　积分 29
局域网内MAC扫描 http://www.cn-dos.net/forum/viewthread.php?tid=38988&fpage=1