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 >mac.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%>>mac.txt
goto panduan