[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[系统相关] 请教这个批处理,输入2后,执行哪些内容

  1. @echo off
  2. color 2f
  3. mode con cols=50 lines=30
  4. title  Share
  5. ver | findstr "6.1">nul && set bulid=nt6 && goto sc_top
  6. ver | findstr "10.">nul && set bulid=nt10 && goto sc_top
  7. ver | findstr "5.">nul && set bulid=nt5 && goto sc_top
  8. ver | findstr "6.3">nul && set bulid=nt10 && goto sc_top
  9. ver | findstr "6.2">nul && set bulid=nt10 && goto sc_top
  10. echo.&echo.&echo.&echo.&echo.&echo.&echo.
  11. echo                       igm
  12. echo.     
  13. echo.&echo.&echo.
  14. echo          it ok!
  15. pause>nul 2>nul
  16. exit
  17. :sc_top
  18. cls
  19. del /q %temp%\info.txt>nul 2>nul
  20. :sc_menu
  21. echo.&echo.&echo.
  22. echo             share 19.3.13
  23. echo.
  24. echo    --------------------------------------------
  25. echo.&echo.&echo.
  26. echo               1、network information
  27. echo.
  28. echo               2、simple share(no password)
  29. echo.
  30. echo               3、password share
  31. echo.
  32. echo               4、share and power manage
  33. echo.
  34. echo               5、power setup(image)
  35. echo.
  36. echo               6、print share setup(image)
  37. echo.
  38. echo               7、update and retroaction
  39. echo.&echo.&echo.&echo.&echo.
  40. set select=
  41. set str1=1234567
  42. set /p select= enter unmber,enter:
  43. if not defined select goto sc_wrong
  44. echo %select%|findstr "[%str1%]">nul||goto sc_wrong
  45. if %select%==1 (goto sc_info)
  46. if %select%==2 (goto sc_zd)
  47. if %select%==3 (goto sc_sd)
  48. if %select%==4 (goto sc_gl)
  49. if %select%==5 (goto sc_help)
  50. if %select%==6 (goto sc_print)
  51. if %select%==7 (goto sc_update)
  52. :sc_wrong
  53. mshta vbscript:msgbox("1-7",64,"fe")(window.close)
  54. goto sc_top
  55. :sc_info
  56. cls
  57. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
  58. echo                  Processing information....
  59. if %bulid%==nt5 (goto sc_nt5) else (goto sc_nt6)
  60. :sc_nt5
  61. (echo.
  62. echo.)>>%temp%\info.txt
  63. ping www.baidu.com -n 1 >nul || echo              互联网状态:       [ 离线 ]>>%temp%\info.txt && goto sc_ver_nt5
  64. echo              互联网状态:       [ 在线 ]>>%temp%\info.txt
  65. :sc_ver_nt5
  66. (echo ----------------------------------------------------------
  67. echo.)>>%temp%\info.txt
  68. for /f "skip=1 tokens=2-4 delims=, " %%a in ('wmic os get caption') do (
  69. if exist %windir%\SysWOW64 echo         系统版本:       %%a %%b %%c  64位>>%temp%\info.txt & goto sc_ver_nt5_next
  70. echo         系统版本:       %%a %%b %%c  32位>>%temp%\info.txt
  71. )
  72. :sc_ver_nt5_next
  73. (echo.
  74. echo         计算机名:            %COMPUTERNAME%
  75. echo.)>>%temp%\info.txt
  76. for /f "tokens=2 delims= " %%a in ('net config workstation^|findstr /c:"工作站域"') do echo         工作组:              %%a>>%temp%\info.txt & goto sc_info_nt5
  77. :sc_info_nt5
  78. (echo.
  79. echo         当前用户:            %USERNAME%
  80. echo.)>>%temp%\info.txt
  81. for /f "delims=" %%a in ('date /t') do echo         本机日期:            %%a>>%temp%\info.txt
  82. echo.>>%temp%\info.txt
  83. for /f "delims=" %%a in ('time /t') do echo         本机时间:            %%a>>%temp%\info.txt
  84. echo ---------------------------------------------------------->>%temp%\info.txt
  85. goto sc_info_more
  86. :sc_nt6
  87. (echo.
  88. echo.)>>%temp%\info.txt
  89. ping www.baidu.com -n 1 >nul || echo          互联网状态:       [ 离线 ]>>%temp%\info.txt && goto sc_ver_nt6
  90. echo          互联网状态:       [ 在线 ]>>%temp%\info.txt
  91. :sc_ver_nt6
  92. (echo ----------------------------------------------------------
  93. echo.)>>%temp%\info.txt
  94. for /f "skip=1 tokens=2-5 delims=?, " %%a in ('wmic os get caption') do (
  95. if exist %windir%\SysWOW64 echo    系统版本:      %%a %%b %%c %%d 64位>>%temp%\info.txt & goto sc_ver_nt6_next
  96. echo    系统版本:       %%a %%b %%c %%d 32位>>%temp%\info.txt
  97. )
  98. :sc_ver_nt6_next
  99. (echo.
  100. echo    计算机名:            %COMPUTERNAME%
  101. echo.)>>%temp%\info.txt
  102. for /f "tokens=2 delims= " %%a in ('net config workstation^|findstr /c:"工作站域"') do echo    工作组:              %%a>>%temp%\info.txt
  103. (echo.
  104. echo    当前用户:            %USERNAME%
  105. echo.)>>%temp%\info.txt
  106. for /f "delims=" %%a in ('date /t') do echo    本机日期:            %%a>>%temp%\info.txt
  107. echo.>>%temp%\info.txt
  108. for /f "delims=" %%a in ('time /t') do echo    本机时间:            %%a>>%temp%\info.txt
  109. echo ---------------------------------------------------------->>%temp%\info.txt
  110. :sc_info_more
  111. if %bulid%==nt5 ipconfig /all|findstr /v /c:"Windows IP Configuration"|findstr /v /c:"Host Name"|findstr /v /c:"Primary Dns Suffix"|findstr /v /c:"Node Type"|findstr /v /c:"IP Routing Enabled"|findstr /v /c:"WINS Proxy Enabled">>%temp%\info.txt && goto sc_info_next
  112. ipconfig /all|findstr /v /c:"Windows IP 配置"|findstr /v /c:"主机名"|findstr /v /c:"主 DNS 后缀"|findstr /v /c:"节点类型"|findstr /v /c:"IP 路由已启用"|findstr /v /c:"WINS 代理已启用">>%temp%\info.txt
  113. :sc_info_next
  114. (echo.
  115. echo ----------------------------------------------------------
  116. echo.
  117. echo.)>>%temp%\info.txt
  118. start /w notepad %temp%\info.txt
  119. del /q %temp%\info.txt>nul 2>nul
  120. goto sc_top
  121. :sc_zd
  122. call :sc_qxfix
  123. cls
  124. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
  125. echo                   action......
  126. net user guest /active:yes>nul 2>nul
  127. net user guest "">nul 2>nul
  128. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v forceguest /t REG_DWORD /d 0x1 /f>nul 2>nul
  129. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v LimitBlankPasswordUse /t REG_DWORD /d 0x0 /f>nul 2>nul
  130. if %bulid%==nt10 reg add "HKLM\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters" /v AllowInsecureGuestAuth /t REG_DWORD /d 0x1 /f>nul 2>nul
  131. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v restrictanonymoussam /t REG_DWORD /d 0x0 /f>nul 2>nul
  132. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\MSV1_0" /v LmCompatibilityLevel /t REG_DWORD /d 0x1 /f>nul 2>nul
  133. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v everyoneincludesanonymous /t REG_DWORD /d 0x1 /f>nul 2>nul
  134. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v NoLmHash /t REG_DWORD /d 0x0 /f>nul 2>nul
  135. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\LanmanServer\Parameters" /v restrictnullsessaccess /t REG_DWORD /d 0x0 /f>nul 2>nul
  136. goto sc_main
  137. :sc_sd
  138. call :sc_qxfix
  139. cls
  140. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
  141. echo                    Start repairing......
  142. net user guest /active:no>nul 2>nul
  143. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v forceguest /t REG_DWORD /d 0x0 /f>nul 2>nul
  144. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\MSV1_0" /v NtlmMinClientSec /t REG_DWORD /d 0x0 /f>nul 2>nul
  145. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\MSV1_0" /v NtlmMinServerSec /t REG_DWORD /d 0x0 /f>nul 2>nul
  146. goto sc_main
  147. :sc_main
  148. sc config LanmanWorkstation start= auto>nul 2>nul
  149. sc config LanmanServer start= auto>nul 2>nul
  150. sc config Winmgmt start= auto>nul 2>nul
  151. sc config RpcSs start= auto>nul 2>nul
  152. sc config Netman start= auto>nul 2>nul
  153. sc config RasMan start= demand>nul 2>nul
  154. sc config SSDPSRV start= auto>nul 2>nul
  155. sc config BFE start= auto>nul 2>nul
  156. sc config ALG start= demand>nul 2>nul
  157. sc config SharedAccess start= auto>nul 2>nul
  158. net start SharedAccess /y>nul 2>nul
  159. sc config Browser start= auto>nul 2>nul
  160. net start Browser /y>nul 2>nul
  161. sc config Dnscache start= auto>nul 2>nul
  162. net start Dnscache /y>nul 2>nul
  163. sc config Dhcp start= auto>nul 2>nul
  164. net start Dhcp /y>nul 2>nul
  165. sc config lmhosts start= auto>nul 2>nul
  166. net start lmhosts /y>nul 2>nul
  167. sc config Spooler start= auto>nul 2>nul
  168. net start Spooler /y>nul 2>nul
  169. sc config upnphost start= demand>nul 2>nul
  170. net start upnphost /y>nul 2>nul
  171. reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Netlogon" /v Start|findstr "0x4">nul 2>nul && sc config Netlogon start= demand>nul 2>nul
  172. reg add "HKLM\SYSTEM\CurrentControlSet\services\NetBT\Parameters" /v TransportBindName /t REG_SZ /d \Device\ /f>nul 2>nul
  173. reg delete "HKLM\SYSTEM\CurrentControlSet\services\LanmanServer\Parameters" /v SMB1 /F>nul 2>nul
  174. reg delete "HKLM\SYSTEM\CurrentControlSet\services\LanmanServer\Parameters" /v SMB2 /F>nul 2>nul
  175. reg delete "HKLM\SYSTEM\CurrentControlSet\services\NetBT\Parameters" /v SMBDeviceEnabled /F>nul 2>nul
  176. sc config netbt start= system>nul 2>nul
  177. net start netbt>nul 2>nul
  178. if %bulid%==nt5 (goto sc_sernt5) else (goto sc_sernt6)
  179. :sc_sernt5
  180. sc config PlugPlay start= auto>nul 2>nul
  181. sc config TapiSrv start= auto>nul 2>nul
  182. sc config Nla start= auto>nul 2>nul
  183. net start Nla /y>nul 2>nul
  184. netsh firewall set service type = fileandprint mode = enable scope = subnet>nul 2>nul
  185. set "nbt=HKLM\SYSTEM\CurrentControlSet\services\NetBT\Parameters\Interfaces"
  186. for /f "tokens=2 delims={" %%a in ('reg query "%nbt%"') do (reg query "%nbt%\TCPIP_{%%a" /s|findstr /i /c:"NetbiosOptions">nul && reg add "%nbt%\TCPIP_{%%a" /v NetbiosOptions /t REG_DWORD /d 0x0 /f>nul 2>nul)
  187. goto sc_main2_etc
  188. :sc_sernt6
  189. sc config DcomLaunch start= auto>nul 2>nul
  190. sc config RpcEptMapper start= auto>nul 2>nul
  191. sc config SamSs start= auto>nul 2>nul
  192. sc config nsi start= auto>nul 2>nul
  193. sc config SstpSvc start= demand>nul 2>nul
  194. sc config MpsSvc start= auto>nul 2>nul
  195. net start MpsSvc /y>nul 2>nul
  196. sc config NlaSvc start= auto>nul 2>nul
  197. sc config netprofm start= auto>nul 2>nul
  198. sc config fdPHost start= auto>nul 2>nul
  199. net start fdPHost /y>nul 2>nul
  200. sc config FDResPub start= auto>nul 2>nul
  201. net start FDResPub /y>nul 2>nul
  202. sc config HomeGroupListener start= auto>nul 2>nul
  203. sc config WMPNetworkSvc start= auto>nul 2>nul
  204. net start WMPNetworkSvc /y>nul 2>nul
  205. sc config HomeGroupProvider start= auto>nul 2>nul
  206. net start HomeGroupProvider /y>nul 2>nul
  207. netsh advfirewall firewall set rule group=\"网络发现\" new enable=Yes>nul 2>nul
  208. netsh advfirewall firewall set rule group=\"文件和打印机共享\" new enable=Yes>nul 2>nul
  209. if %bulid%==nt10 powershell -NonInteractive "Enable-WindowsOptionalFeature -Online -FeatureName SMB1Protocol">nul 2>nul
  210. for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\NetBT\Parameters\Interfaces" /s /e /f "0x2"^|findstr "\Tcpip_"') do reg add "%%a" /v NetbiosOptions /t REG_DWORD /d 0x0 /f>nul 2>nul
  211. :sc_main2_etc
  212. (echo [Unicode]
  213. echo Unicode=yes
  214. echo [Version]
  215. echo signature="$CHICAGO$"
  216. echo Revision=1
  217. echo [Privilege Rights]
  218. echo sedenynetworklogonright =
  219. echo senetworklogonright = Everyone,Administrators,Users,Power Users,Backup Operators,guest)>>%temp%\zcl.inf
  220. secedit /configure /db %temp%\zcl.sdb /cfg %temp%\zcl.inf /log %temp%\zcl.log /quiet
  221. del /q %temp%\zcl.*>nul 2>nul
  222. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v restrictanonymous /t REG_DWORD /d 0x0 /f>nul 2>nul
  223. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\LanmanServer\Parameters" /v AutoShareServer /t REG_DWORD /d 0x1 /f>nul 2>nul
  224. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\LanmanServer\Parameters" /v AutoShareWks /t REG_DWORD /d 0x1 /f>nul 2>nul
  225. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser\Parameters" /v MaintainServerList /t REG_SZ /d Auto /f>nul 2>nul
  226. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser\Parameters" /v IsDomainMaster /t REG_SZ /d FALSE /f>nul 2>nul
  227. reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\NetBT\Parameters" /v EnableLMHOSTS|findstr "0x0">nul 2>nul && reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\NetBT\Parameters" /v EnableLMHOSTS /t REG_DWORD /d 0x1 /f>nul 2>nul
  228. reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{D6277990-4C6A-11CF-8D87-00AA0060F5BF}" /f>nul 2>nul
  229. net use * /del /y>nul 2>nul
  230. net config server /hidden:no>nul 2>nul
  231. net share ipc$>nul 2>nul
  232. reg delete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\NetBT\Parameters" /v NodeType /f>nul 2>nul
  233. reg delete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\NetBT\Parameters" /v DhcpNodeType /f>nul 2>nul
  234. goto sc_tip
  235. :sc_gl
  236. cls
  237. reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v forceguest|findstr "0x1">nul 2>nul||goto classic
  238. reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v forceguest /t REG_DWORD /d 0x0 /f>nul 2>nul
  239. set jlb=y
  240. :classic
  241. echo.&echo.&echo.&echo.
  242. echo          功能:管理本机共享,修改共享权限
  243. echo.
  244. echo              家庭版系统仅支持查看共享
  245. echo   ----------------------------------------------
  246. echo.&echo.&echo.&echo.&echo.
  247. echo                    【使用说明】
  248. echo.&echo.
  249. echo        点左侧“共享”可查看本机所有共享;
  250. echo.
  251. echo        右键点左侧“共享”可“新建共享”;
  252. echo.
  253. echo        右键点右侧共享可“停止共享”(能多选);
  254. echo.
  255. echo        右键点右侧共享选“属性”可修改权限;
  256. echo.&echo.&echo.&echo.&echo.&echo.&echo.
  257. fsmgmt.msc
  258. if %jlb%==y reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v forceguest /t REG_DWORD /d 0x1 /f>nul 2>nul
  259. goto sc_top
  260. :sc_tip
  261. cls
  262. echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
  263. echo                  itok!!!
  264. mshta vbscript:msgbox("it is RE",64,"提示")(window.close)
  265. exit
  266. :sc_help
  267. cls
  268. start "%ProgramFiles%\Internet Explorer\iexplore.exe" "https://zhuanlan.zhihu.com/p/24285252"
  269. goto sc_top
  270. :sc_print
  271. cls
  272. start "%ProgramFiles%\Internet Explorer\iexplore.exe" "https://zhuanlan.zhihu.com/p/24187152"
  273. goto sc_top
  274. :sc_update
  275. cls
  276. start "%ProgramFiles%\Internet Explorer\iexplore.exe" "https://zhuanlan.zhihu.com/p/24178142"
  277. goto sc_top
  278. goto :eof
  279. :sc_qxfix
  280. cls
  281. echo.&echo.&echo.
  282. echo                     【fo】
  283. echo    --------------------------------------------
  284. echo.
  285. echo         copy
  286. echo.
  287. echo           print enter
  288. echo.&echo.&echo.&echo.&echo.&echo.&echo.
  289. echo f enter:
  290. echo.&echo.
  291. set /p lj=
  292. for %%a in ("%lj%") do set name=%%~na
  293. net share "%name%"="%lj%">nul 2>nul
  294. if %bulid%==nt5 cacls "%lj%" /t /e /p everyone:f >nul 2>nul && goto :eof
  295. icacls "%lj%" /grant everyone:(oi)(ci)F>nul 2>nul
  296. goto :eof
复制代码

if %select%==2 (goto sc_zd)
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

if %select%==2 (goto sc_zd)
Batcher 发表于 2019-8-26 13:01


没这么简单, sc_zd后面还很多呢。请看看,简单就不问了。

TOP

回复 3# ceo80


    没错,就是执行121行到136行那些好多代码的。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 3# ceo80


    你疑惑的是这个?
  1. call :sc_qxfix
复制代码
简单共享——就是开启guest用户,并设置几个共享服务注册表键值。

TOP

写这个批处理的人牛掰啊

TOP

回复 5# holley


    是啊,看的头大。具体 是执行哪些代码 呢,能否帮我列出来或者说明下,是第几行到第几行。

TOP

回复  ceo80


    没错,就是执行121行到136行那些好多代码的。
Batcher 发表于 2019-8-26 14:43



    除了121到136,还有别的行数吧?

TOP

回复 8# ceo80


我给出个主意吧:
你把 @echo off 删掉,在每一行下面加一句 pause
这样就能知道具体执行了哪些代码,不用自己猜,也不用听信别人告诉你的结论。用实践来检验。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表