联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@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
?%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 %%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 %%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 %%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 %%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 %%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 %%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 %%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 %%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 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
CD.>a.txt copy a.txt + b.txt w.txt copy a.txt + w.txt rr.txt del a.txt del w.txt