用批处理写的MAC地址扫描器
将下面文件复制到记事本，并保存为.bat文件，然后运行。
echo off
cls
@echo ================================================
@echo ============局域网MAC地址扫描器=================
@echo =============扫描你所在的网段===================
@echo ================================================
@echo .
pause

set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&

echo ┌──────────────────────────────────────┐
set/p=　<nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%
echo     100%%
echo └──────────────────────────────────────┘
set b=
set a=■
set /a z=100

@echo [计算机名]      [Mac地址]     [IP地址]     [IPX]    [CDKey]    网关 DNS1 DNS2 DNS3 DNS4 >config.txt
set /p getway= 请输入网关地址（必须）：
set /p DNS1= 请输入DNS1地址（必须）：
set /p DNS2= 请输入DNS2地址（可选）：
set /p DNS3= 请输入DNS3地址（可选）：
set /p DNS4= 请输入DNS4地址（可选）：
If Exist ipconfig.txt Del ipconfig.txt   
ipconfig /all >ipconfig.txt
If Exist phyaddr.txt       Del phyaddr.txt
find "Host Name" ipconfig.txt >ComputerCfg.txt
For /f "skip=2 tokens=17" %%N In (ComputerCfg.txt) Do Set ComputerName=%%N
find "IP Address" ipconfig.txt >IPAddr.txt
For /f "skip=2 tokens=15" %%I In (IPAddr.txt) Do Set IP=%%I
find "Physical Address" ipconfig.txt >phyaddr.txt
For /f "skip=2 tokens=12" %%M In (phyaddr.txt) Do Set strMac=%%M
@Echo %IP% >ping.txt
For /f "delims=. tokens=1" %%M In (ping.txt) Do Set p1=%%M
For /f "delims=. tokens=2" %%M In (ping.txt) Do Set p2=%%M
For /f "delims=. tokens=3" %%M In (ping.txt) Do Set p3=%%M
set /a ipscan=0
goto panduan

:panduan
cls
set a=%a%■
set /a b=%ipscan%*100/254
set /a z=%ipscan%*100/254
@echo 完成进度 %z%%%

@echo    ┌──────────────────────────────────────────┐
@echo      %a% %b%%%
@echo    └──────────────────────────────────────────┘

IF %ipscan%==254 (
goto end
) ELSE (
goto scanip
)

:end
del c.txt
del c1.txt
del c2.txt
del ComputerCfg.txt
del IPAddr.txt
del ipconfig.txt
del phyaddr.txt
del ping.txt
set /a sum =5
set /a sum-=1

@echo .       文件已保存!
@echo .
@echo .
set/p=%sum% 秒后退出! <nul
if %sum% EQU 0 exit
ping /n 2 127.1 >nul
exit

:scanip
set /a ipscan+=1

ping /n 1 /w 300 %p1%.%p2%.%p3%.%ipscan% >c.txt
find    "Maximum" c.txt && Goto star
goto panduan

:star
nbtstat -a %p1%.%p2%.%p3%.%ipscan% >c1.txt
For /f "skip=2 tokens=4" %%X In (c1.txt) Do Set p5=%%X
find "UNIQUE" c1.txt >c2.txt
For /f "skip=2 tokens=1" %%N In (c2.txt) Do Set p6=%%N
@echo %p6%          %p5%          %p1%.%p2%.%p3%.%ipscan%          %ipscan%          请填写CS-CDKEY          %getway%          %DNS2%          %DNS3%          %DNS4%          %DNS1%>>config.txt
goto panduan