【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

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

BEIKING

根据读取配置文件的优先级: new参数 > 参数1文件 > 脚本同名_参数1.txt > 脚本同名.txt
各位自己体验

ynifcp12

支持一下

fulibo

学习了!

yc2428

谢谢分享

wanigu

谢谢楼主的分享!

JayeDieyan

谢谢分享

zhangz9

多谢分享

旁观者清

谢谢分享。

2012zsw

谢谢分享辛苦了

lixiangliuyi

提前设置好共享文件夹的访问权限，建议添加everyone读取权限，密码为空
net use z: \\计算机名\共享文件名  "此处输密码,没有的不填" /user:计算机名\用户名(设置为everyone最好)

yyz2191958

谢谢分享

sndnvaps

谢谢楼主分享。

hhello

谢了分享

iaanqrm

51xp

谢谢楼主的分享!

zx6769

谢楼主的分享!

fegr

谢谢分享

chibuzhu

感谢分享

cyanxx

感谢分享

2018rt

感谢分享

BEIKING

【20230630】
增加映射盘符功能

mtbin

进来学习学习

ideamake

不错

717758565

能在pe系统里用吗

BEIKING

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

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

daatseng

优秀人才

yyz2191958

楼主辛苦了

lx5815

楼主辛苦了 谢谢

cyanxx

支持一下 谢谢