【20230914】访问共享路径工具（Win&PE）

BEIKING

1. @echo off
   
2. if /i "%UserName%" == "SYSTEM" (Set PE=1&Goto GotAdmin) else (reg query "HKLM\SYSTEM\ControlSet001\Control\MiniNT" 1>nul 2>nul&&(Set PE=1&Goto GotAdmin))
   
3. :BatchGotAdmin
   
4. Set _Args=%*
   
5. if `%1` neq `` Set "_Args=%_Args:"=""%"
   
6. if exist %WinDir%\System32\fltMC.exe fltMC 1>nul 2>nul||mshta VBScript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c """"%~f0"" %_Args%""",,"runas",1)(Window.Close) 2>nul&&Exit /b
   
7. 
   
8. :GotAdmin
   
9. Title 访问共享&Color 2f
   
10. MODE 1>nul 2>nul&&MODE con: Cols=54 Lines=15
    
11. Pushd "%CD%"&cd /d "%~dp0"
    
12. 
    
13. :Init :: 内部参数初始化
    
14. Set Auto=1
    
15. Set ShareOff=1
    
16. find /? 1>nul 2>nul&&Set "findstr=find.exe"
    
17. findstr /? 1>nul 2>nul&&Set "findstr=findstr.exe"
    
18. if not defined findstr Call :EchoX "cf.: 找不到 find.exe 文件，按任意键退出 。。。"&Pause >nul&Exit /b
    
19. 
    
20. :ChkSer :: 检测共享服务状态
    
21. %WinDir%\System32\sc query LanmanWorkstation|%findstr% " 1060:" 1>nul 2>nul
    
22. if '%ErrorLevel%' == '0' Set err= Workstation（LanmanWorkstation）服务不存在 ！！&Goto SErr
    
23. %WinDir%\System32\sc query LanmanWorkstation|%findstr% "1  STOPPED" 1>nul 2>nul
    
24. if '%ErrorLevel%' == '0' Set err= Workstation（LanmanWorkstation）服务未开启 ！！&Goto SErr
    
25. %WinDir%\System32\sc query lmhosts|%findstr% " 1060:" 1>nul 2>nul
    
26. if '%ErrorLevel%' == '0' Set err= TCP／IP NetBIOS Helper（lmhosts）服务不存在 ！！&Goto SErr
    
27. %WinDir%\System32\sc query lmhosts|%findstr% "1  STOPPED" 1>nul 2>nul
    
28. if '%ErrorLevel%' == '0' Set err= TCP／IP NetBIOS Helper（lmhosts）服务未开启 ！！&Goto SErr
    
29. 
    
30. :RConfig :: 读取配置文件。优先级: new参数 > 参数1文件 > 脚本同名_参数1.txt > 脚本同名.txt
    
31. Set "Config=%~n0.txt"
    
32. if `%1` neq `` (if /i `%1` neq `new` (Set "Config=%1") else Goto Input)
    
33. Set "Config=%Config:"=%"
    
34. if not exist "%Config%" (if not exist "%~n0_%Config%.txt" (Goto Input) else Set "Config=%~n0_%Config%.txt")
    
35. for /f "usebackq tokens=1* delims=:=" %%i in ("%Config%") do (
    
36.     if "%%i" == "路径" Set "unc=%%j"
    
37.     if "%%i" == "用户" Set "user=%%j"
    
38.     if "%%i" == "密码" Set "pass=%%j"
    
39.     if "%%i" == "盘符" Set "dsk=%%j"
    
40. )
    
41. if defined unc Set "路径=%unc:&=^&%"
    
42. if defined user Set "用户=%user%"
    
43. if defined pass Set "密码=%pass:&=^&%"
    
44. if defined dsk Set "盘符=%dsk%"
    
45. 
    
46. :SConfig :: 显示配置参数
    
47. Call :EchoX "xx::  " "70.:[配置参数]"
    
48. echo  ┌→→→→→→→→→→→→→→→→→→→→→→→→┐
    
49. echo  丨⊙共享路径：%路径%
    
50. echo  丨○登录用户：%用户%
    
51. echo  丨○登录密码：%密码%
    
52. echo  丨○映射盘符：%盘符%
    
53. echo  └→→→→→→→→→→→→→→→→→→→→→→→→┘
    
54. 
    
55. :Auto :: 自动化处理
    
56. if not defined unc Goto Input&if not defined user Goto Input
    
57. if "%Auto%" == "1" Goto Check
    
58. 
    
59. :Manual :: 手动处理
    
60. Call :EchoX "xx::               " "e5::打开共享（O）丨 修改参数（S）"&choice /c os
    
61. if '%ErrorLevel%' == '1' Goto Check
    
62. if '%ErrorLevel%' == '2' Goto Input
    
63. 
    
64. :Input :: 输入配置参数
    
65. Cls&for /f "usebackq" %%i in (`echo %Config%`) do Set "title=%%~ni%%~xi"
    
66. Title -^>%title%
    
67. Call :EchoX "xx::  " "70.:[配置参数]"
    
68. echo  ┌→→→→→→→→→→→→→→→→→→→→→→→→→
    
69. Set unc=&Call :EchoX "xx:: 丨" "cf::⊙" "共享路径："&Set /p unc=
    
70. Set user=&Call :EchoX "xx:: 丨○登录用户："&Set /p user=
    
71. Set pass=&Call :EchoX "xx:: 丨○登录密码："&Set /p pass=
    
72. Set dsk=&Call :EchoX "xx:: 丨○映射盘符："&Set /p dsk=
    
73. echo  └→→→→→→→→→→→→→→→→→→→→→→→→→
    
74. 
    
75. :Check :: 检测配置参数
    
76. if not defined unc Set err= 参数不完整，共享路径不能为空 ！！&Goto NErr
    
77. if "%unc:~0,2%" neq "\" Set "unc=\\%unc%"
    
78. if "%unc:~-1%" == "" Set "unc=%unc:~0,-1%"
    
79. for /f "usebackq tokens=1,* delims=" %%i in (`echo %unc:~2%`) do Set sub=%%j
    
80. Set "dsk=%dsk::=%"
    
81. if "%dsk%" == ":=" (Set dsk=) else Set "dsk=%dsk%:"
    
82. if not defined sub (if defined dsk Set subdsk=%dsk%&Set dsk=) else Set sub=
    
83. if not defined user (Set Guest=0&Set "user=administrator")
    
84. 
    
85. :Login :: 共享路径登录验证
    
86. REM 已存在共享路径处理
    
87. Set OC=&if "%ShareOff%" == "1" (net use|find /i "%unc%%sub%" 1>nul 2>nul||Goto LogOff) else Goto LogOff
    
88. Call :EchoX "xx::  " "70:: 共享已存在，" "e5::继续打开（O）丨 关闭共享（C）"&choice /c OC
    
89. Set OC=%ErrorLevel%
    
90. :LogOff :: 若共享路径登录成功过，则删除登录后短时间内仍能访问 (存在延迟)
    
91. net use "%unc%%sub%" /delete 1>nul 2>nul
    
92. if defined dsk if exist "%dsk%" (
    
93.     echo.|net use %dsk% /delete 1>nul 2>nul
    
94.     if exist "%dsk%" (
    
95.         echo.&Call :EchoX "xx::   已存在与 %dsk% 的连接，是否强行断开并关闭？(y/n): "
    
96.         net use %dsk% /delete 1>nul 2>nul
    
97.     )
    
98. )
    
99. net use "%unc%%sub%" /user:"%user%" "试错，清除登录缓存！" 1>nul 2>nul
    
100. net use "%unc%%sub%" /user:".\%user%" "试错，清除登录缓存！" 1>nul 2>nul
     
101. if "%OC%" == "2" (echo.&Call :EchoX "  " "cf.: 共享已关闭，但存在延迟短时间内仍能访问！"&Call :Delay 5 +&Exit /b) else echo.&Call :EchoX "xx::  " "e5.: √正在登录共享路径 。。。    　"
     
102. if defined pass (net use %dsk% "%unc%%sub%" /user:"%user%" "%pass%" 1>nul 2>nul) else (echo.|net use %dsk% "%unc%%sub%" /user:"%user%" 1>nul 2>nul)
     
103. if '%ErrorLevel%' neq '0' if defined pass (net use %dsk% "%unc%%sub%" /user:"%user%" "%pass%" 1>nul 2>nul) else (echo.|net use %dsk% "%unc%%sub%" /user:"%user%" "" 1>nul 2>nul)
     
104. if '%ErrorLevel%' neq '0' if defined pass (net use %dsk% "%unc%%sub%" /user:".\%user%" "%pass%" 1>nul 2>nul) else (echo.|net use %dsk% "%unc%%sub%" /user:".\%user%" 1>nul 2>nul)
     
105. if '%ErrorLevel%' neq '0' if defined pass (net use %dsk% "%unc%%sub%" /user:".\%user%" "%pass%" 1>nul 2>nul) else (echo.|net use %dsk% "%unc%%sub%" /user:".\%user%" "" 1>nul 2>nul)
     
106. if '%ErrorLevel%' neq '0' if "%Guest%" == "0" (Set Guest=1&Set "user=guest"&Goto Login)
     
107. if '%ErrorLevel%' neq '0' if exist "%dsk%" Set err= %dsk:~0,1% 盘符已存在，且无法主动断开连接 ！！&Goto NErr
     
108. if '%ErrorLevel%' neq '0' Set err= 验证不通过，请检查参数配置或非内网用户 ！！&Goto NErr
     
109. if defined subdsk if not defined dsk (Call :SelSub&echo.&Set dsk=%subdsk%&Set subdsk=&Goto Login)
     
110. %WinDir%\explorer.exe "%unc%%sub%"
     
111. if not defined PE (Goto Success) else (Set n=0&Set have=)
     
112. for /l %%i in (1,1,50) do for /f "tokens=2*" %%j in ('reg query "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\TypedPaths" /v "url%%i" 2^>nul') do (Set n=%%i&if /i "%unc%%sub%" == "%%k" Set have=1)
     
113. if defined have (Goto Success) else (Set /a n+=1)
     
114. reg add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\TypedPaths" /f /v "url%n%" /t REG_SZ /d "%unc%%sub%" 1>nul 2>nul
     
115. 
     
116. :Success
     
117. if /i `%1` == `new` if exist "%~n0.txt" for /l %%i in (1,1,100) do if not exist "%~n0_%%i.txt" (copy /y "%~n0.txt" "%~n0_%%i.txt"&Goto WConfig)
     
118. :WConfig :: 登录成功，参数写入配置文件
     
119. (echo 路径:=%unc:&=^&%
     
120. echo 用户:=%user%
     
121. echo 密码:=%pass:&=^&%
     
122. echo 盘符:=%dsk%
     
123. ) >"%Config%"
     
124. Exit /b
     
125. 
     
126. :SelSub :: 不支持选择带空格二级目录
     
127. setlocal enabledelayedexpansion
     
128. :SSLoop
     
129. Set n=0&for /f "skip=7 tokens=1,* delims= " %%i in ('net view "%unc%"') do Set /a n+=1
     
130. if !n! gtr 5 (Set /a n+=9&MODE 1>nul 2>nul&&MODE con: Cols=54 Lines=!n!)
     
131. Cls&Call :EchoX "cf.:  根路径不允许映射盘符，请选择二级目录↓"
     
132. Set n=0&for /f "skip=7 tokens=1,* delims= " %%i in ('net view "%unc%"') do (
     
133.     if !n! gtr 0 echo         !n!.!share!
     
134.     Set /a n+=1&Set sub!n!=%%i&Set share=%%i
     
135. )
     
136. if !n! == 0 echo   资源列表是空的。
     
137. echo -----------------------------------------------------
     
138. Set choice=&Call :EchoX "xx::  "&Set /p choice=选择:
     
139. Set "choice=%choice: =%"
     
140. (if not defined sub%choice% Goto SSLoop)&(if "%choice%" == "!n!" Goto SSLoop)
     
141. Set sub=\!sub%choice%!
     
142. endlocal&Set sub=%sub%
     
143. Goto :eof
     
144. 
     
145. :SErr :: 服务报错
     
146. if defined err (Cls&Call :EchoX "cf.:%err%"&Pause >nul&Exit /b) else Goto :eof
     
147. 
     
148. :NErr :: 验证报错
     
149. if defined err (Cls&Call :EchoX "cf.:%err%"&Call :EchoX "e5.: 按任意键，重新配置参数 。。。"&Pause >nul&Goto Input) else Goto :eof
     
150. 
     
151. :Delay :: 延迟操作 <%1=Sec|延迟秒数> [%2=+|显示倒计时]。
     
152. if `%2` == `+` (Set n=2) else Set n=1
     
153. if exist %WinDir%\System32\timeout.exe (timeout /t %1 %n%>nul) else if exist %WinDir%\System32\choice.exe (choice /t %1 /d y /n >nul) else ping 127.1 -n %1 >nul
     
154. Goto :eof
     
155. 
     
156. :EchoX :: 显示彩色文字 (不支持半角字符 \ / : * ? " < >|. % ! ~)。
     
157. setlocal enabledelayedexpansion
     
158. Set echox=EchoX.exe&&!echox! 1>nul 2>nul||(Set echox=&mkdir "%TEMP%\EchoX" 2>nul)
     
159. for %%a in (%*) do (
     
160.     Set "param=%%a"&Set "param=!param:"=!"
     
161.     Set "color=!param:~0,2!"&(if not exist %WinDir%\System32\findstr.exe if not defined echox Set "color=xx")
     
162.     Set n=0&(if "!param:~2,2!" == "::" Set n=1)&(if "!param:~2,2!" == ".:" Set n=2)
     
163.     if !n! gtr 0 (
     
164.         if /i "!color!" == "xx" (Set /p="_!param:~4!"<nul) else (Set param=%%~nxa&if defined echox (!echox! -c !color! -n "!param:~4!") else (Pushd "%TEMP%\EchoX" 2>nul&>"!param:~4!",Set /p= <nul&findstr /a:!color! .* "!param:~4!*"&del "!param:~4!"&Popd))
     
165.         if !n! == 2 echo.
     
166.     ) else if defined param Set /p="_!param!"<nul
     
167. )
     
168. endlocal
     
169. Goto :eof

复制代码

【20230630】
增加映射盘符功能

【20230914】
1、删除基本不会用到的Ping功能检测
2、增加已打开连接关闭功能。
3、如果要保持旧版习惯，不提示关闭已打开连接。
     在 脚本 15 行：Set ShareOff=1 注释或改0

注意：附件为旧版，我现在编辑帖子清不了附件好奇怪，要新版复制代码到记事本保存。

2012huguoliang

直接一闪而过

tcog

多谢老板

wn168cn@163.com

谢谢分享

八叶伞

感谢分享

lr

谢谢分享

yanjiandiannao

不错不错

ppll2030

附件要从第一步上传文件那里删除才可以。

mafa3

看见高手

hjzwzq

支持一下

2010laodu

谢谢分享

BEIKING

【20230914】
1、删除基本不会用到的Ping功能检测
2、增加已打开连接关闭功能。
3、如果要保持旧版习惯，不提示关闭已打开连接。
     在 脚本 15 行：Set ShareOff=1 注释或改0

2010yuhongxi

感谢分享

megatron

多谢大佬分享

BEIKING

xiangsui 发表于 2023-9-1 14:25
要增加一个 清除访问的  ！！！

可以考虑

xiangsui

要增加一个 清除访问的  ！！！

martin313

感谢分享

批处理就解决了，厉害

yyz2191958

这个强大

Fastwingo

感谢分享

不败地意志

这个有点高端了!谢谢分享!

cyanxx

支持一下 谢谢

lx5815

楼主辛苦了 谢谢

yyz2191958

楼主辛苦了

daatseng

优秀人才

BEIKING

717758565 发表于 2023-7-2 12:38
能在pe系统里用吗

Win&PE通用，当然前提要PE支持

717758565

能在pe系统里用吗

ideamake

不错

mtbin

进来学习学习

BEIKING

【20230630】
增加映射盘符功能

2018rt

感谢分享