echo off
title 扫描即将开始 制作
color a
cls
echo.
echo ------------------------------------------------------------
echo QQ:欢迎交流
echo.
echo 本批处理是扫描内网IP、MAC地址和计算机名的，并自动保存文件TXT文件
echo.
echo 再利用“自动改IP.bat”实现自动改IP、计算机名、网络号、DNS、网关等
echo.
echo 并自动安装冰点，将冰点改名为DF.exe,并保存在“自动改IP.bat”同目录下
echo.
echo 为了扫描到的结果正确，请按照正确格式输入
echo.
echo ---------------------PS：制作不容易，请保留版权----------------------
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这个扫描出来保存结果这样的：
00-0E-0C-C2-A9-9C 192.168.0.8 SERVER
我是在网上找到的，但用这个扫描出来保存的结果不太理想，
加上我对批处理不熟悉，所以想大家帮我看下怎么改才行，
我想扫描出来保存成下面这样的：
00-0E-0C-C2-A9-9C=192.168.0.8|SERVER
[ Last edited by lotsunhim on 2008-4-14 at 05:23 PM ]
