中国DOS联盟

@echo off
@title  局域网在线电脑共享资源扫描  wangwei QQ 251485609
@echo.
@echo 　    对局域网进行拼测，查找在线电脑共享资源，对其浏览管理如同在自己电脑操作。
@echo.
@echo 　        严正警告：未经对方同意，不得非法进入操作，否则责任自负。
@echo.
set /p wgsz=    请填入网关(默认192.168.1.1):
@echo.
arp -d 2>nul
if "%wgsz%"==""  set wgsz=192.168.1.1
ping -n 1  %wgsz%>nul
cd.>jc.txt
for /f "tokens=*" %%i in ('arp -a') do @echo %%i>>jc.txt
for /f "tokens=1* delims=:" %%i in ('findstr /n . jc.txt') do if %%i equ 1 @echo %%j>ip.txt
for /f "tokens=2 delims= " %%i in (ip.txt) do set ip=%%i
for /f "tokens=1* delims=:" %%i in ('findstr /n . jc.txt') do if %%i equ 3 @echo %%j>wg.txt
del ip.txt
for /f "tokens=1" %%l in (wg.txt) do set wd1=%%l
@echo 　  局域网中以下电脑在线！(本机IP: %ip%)>zx.txt
@echo 　  IP地址        MAC地址>>zx.txt
set wd=%wd1:~0,-1%
set /p dzm=  你要扫描多少个端口？(0-255):
cd.>jc.txt
for /l %%i in (0,1,%dzm%) do start ping -n 1 %wd%%%i
for /f "skip=3 tokens=*" %%k in ('arp -a') do @echo %%k >>jc.txt
for /f "tokens=1,2" %%j in ('findstr /c:"dynamic" jc.txt') do @echo  %%j>>zx.txt
del jc.txt
del wg.txt
start zx.txt
cls
@echo.
@echo    正在扫描共享资源, 请稍候... ...
echo   扫描到的共享资源>gxzy.txt
for /f "skip=3 tokens=*" %%k in (zx.txt) do (
for %%f in (c d e f g h) do (
if exist "\\%%k\本地磁盘 (%%f)\" net view \\%%k|find "本地磁盘"&&echo "\\%%k\本地磁盘 (%%f)\">>gxzy.txt
)
)
del zx.txt
cd.>gxzys.txt
for /f "delims=" %%a in ('findstr /n .*  "gxzy.txt"') do (
        set "var=%%a"
        setlocal enabledelayedexpansion
        set var=!var:*:=!
if not "!var!"==""  set var=!var:"=!
            echo.!var!>>gxzys.txt
            endlocal
)
del gxzy.txt
start gxzys.txt