保存为unicode编码文件,在winrar里面右键——查看文件
P.S. 貌似多了几个unicode字符,用原文件试试吧
@echo off
cls
@TITLE 局 域 网 扫 描……
@mode con: cols=50 lines=30
@ECHO OFF
echo ╭───────────────╮
echo ╭──┤ Windows XP 局 域 网 扫 描 ├──╮
echo │ ╰───────────────╯ │
echo │ │
echo │ 自动扫描IP尾数为 1~254 的电脑列表 │
echo │ │
echo │ 根据扫描的电脑列表结果,来生成 │
echo │ │
echo │ MACCFG.ini文件,该文件包含MAC列表 │
echo │ │
echo │ IP列表、机名列表、以及其他功能列表 │
echo │ │
echo │ 可配合主菜单六的全自动修改配置 │
echo │ │
echo │ 全自动修改IP、机名、 │
echo │ │
echo ╰─────────────────────╯
set /p ipq=请输入局域网IP的前3位(192.168.0):
cls
if exist maccfg.ini del MACCFG.ini
echo.
echo.
echo.
cls
echo ╭───────────────╮
echo ╭──┤ 局 域 网 扫 描 By 梅问寒 ├──╮
echo │ ╰───────────────╯ │
set startip=1
set online=0
set csnum=0
:scan
if %startip% GTR 254 goto scanipend
set ip=%ipq%.%startip%
ping -n 1 -w 1 %ip% >nul
if %errorlevel% GEQ 1 goto dz
set /a online+=1
for /f "tokens=1 delims=<> " %%i in ('nbtstat -a %ip% ^| find /i "UNIQUE" ^| find /i "00"') do set pcname=%%i
if %startip% LSS 10 echo │ %ip% 在 线 %pcname%
if %startip% LSS 100 (if %startip% GEQ 10 echo │ %ip% ýÿýÿýÿ ýÿýÿýÿ %pcname%)
if %startip% GEQ 100 echo │ %ip% ýÿýÿýÿ ýÿýÿýÿ %pcname%
for /f "tokens=4" %%i in ('nbtstat -a %ip% ^| find /i "MAC Address"')do set pcmac=%%i
echo %pcmac% %ip% %pcname%>>MACCFG.INI
set /a startip+=1
set /a csnum+=1
goto scan
:dz
if %startip% LSS 10 echo │ %ip% 离 线
if %startip% LSS 100 (if %startip% GEQ 10 echo │ %ip% 离 线)
if %startip% GEQ 100 echo │ %ip% 离 ýÿýÿýÿ
set /a startip+=1
goto scan
:scanipend
echo │ 扫描完毕 │
echo ╰─────────────────────╯
echo 共扫描254台PC 其中%online%台PC在线 按任意键返ýÿýÿýÿ
pause >nul
Last edited by dikex on 2008-11-9 at 23:33 ]