CODE: [Copy to clipboard]
@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
[