[code=BatchFile]@echo off
title 扫描即将开始
color a
cls
echo.
echo ------------------------------------------------------------
echo.
echo 本批处理是扫描内网IP、MAC地址和计算机名的,并自动保存文件TXT文件
echo.
echo 再利用“自动改IP.bat”实现自动改IP、计算机名、网络号、DNS、网关等
echo.
echo 并自动安装冰点,将冰点改名为DF.exe,并保存在“自动改IP.bat”同目录下
echo.
echo 为了扫描到的结果正确,请按照正确格式输入
echo.
echo ------------------------------------------------------------
set /p gateway=请输入内网网关:
set /p dns1=请输入你的首选DNS:
set /p dns2=请输入你的备用DNS:
echo gateway %gateway% >info.txt
echo DNS1 %dns1% >>info.txt
echo DNS2 %dns2% >>info.txt
echo MAC IP 计算机名 >>info.txt
set rc=0
set /p ipq=请输入内网IP的前3位(如192.168.0):
set /p iph=请输入你要扫描的IP起始段(IP的最后一位):
set /p con1=请输入你要扫描的数量:
set /a con= %iph%+%con1%
:scan
set ip=%ipq%.%iph%
ping -n 1 -w 1 %ip% >nul
title 正在检测 %ip% 制作
if %errorlevel% GEQ 1 goto dz
for /f "tokens=1" %%i in ('nbtstat -a %ip% ^| find /i "UNIQUE" ^| find /i "00"') do set pcname=%%i
for /f "tokens=4" %%i in ('nbtstat -a %ip% ^| find /i "MAC Address"') do set mac=%%i
echo %mac% %ip% %pcname% >>info.txt
set /a iph=%iph%+1
set /a rc=%rc%+1
if %iph% GTR %con% goto end
goto scan
:dz
echo %ip%不在线,无法扫描!
set /a iph=%iph%+1
if %iph% GTR %con% goto end
goto scan
:end
title 扫描完毕 制作
echo 扫描完毕!!
@echo 共扫描%con%台PC。其中%rc%台PC在线!!
pause[/code]