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

[代码合集] 自己修改的一个工具合集,请帮忙优化一下,多多指教

  1. @Echo Off
  2. Setlocal enabledelayedexpansion
  3. title  CMD 工 具 箱
  4. cls
  5. setlocal
  6. set user=
  7. set pwd=
  8. set times=4
  9. :check
  10. echo.
  11. echo This is a secure system. Authorized Access Only!!!
  12. echo.
  13. echo User Access Verification
  14. echo.
  15. set /p user= Login:
  16. set /p pwd= Password:
  17. if "%user%"=="admin" (if "%pwd%"=="admin" goto :CMDTool)
  18. REM                                       
  19. if %times%==0 goto :Close
  20. set /A times=%times%-1
  21. set /a checkup=%times%+1
  22. echo.
  23. echo 帐号密码错误,还有%checkup%机会^^!
  24. pause>nul & cls
  25. goto :check
  26. :Close
  27. echo.
  28. echo Logon Failed^^!
  29. pause>nul
  30. exit
  31. :CMDTool
  32. title  CMD 工 具 箱
  33. color 2f
  34. //mode con: cols=80 lines=27
  35. cls
  36. @Echo Off
  37. echo                        ────────────────  
  38. echo     ─────────┤         CMD 工 具 箱       ├─────────
  39. echo    │                  ────────────────                   │
  40. echo    │  [1] WIFI共享网络工具                    [2] 自动关机               │
  41. echo    │                                                                     │
  42. echo    │  [3] 停止自动关机                        [4] Ping网段所有IP         │
  43. echo    │                                                                     │
  44. echo    │  [5] 请算1到n的总和                      [6] 清理系统垃圾           │
  45. echo    │                                                                     │
  46. echo    │  [7] JAVA小工具                          [8] 重新启动打印服务       │
  47. echo    │                                                                     │
  48. echo    │  [9] 生成一键以管理员运行                [A] IP释放并更新           │
  49. echo    │                                                                     │
  50. echo    │  [B] BAT加密工具                         [C] IP显示主机名和MAC      │
  51. echo    │                                                                     │
  52. echo    │  [D] 显示系统信息                        [E] 跟踪指定IP或域名路由   │
  53. echo    │                                                                     │
  54. echo    │  [F] 添加右键获取管理员所有权            [G] 局域网共享工具         │
  55. echo    │                                                                     │
  56. echo    │  [H] 显示使用TCP^&UDP端口的进程           [I] 禁启用任务管理器       │
  57. echo    │                                                                     │
  58. echo    │  [0] 退出                                17年11月17日               │
  59. echo     ───────────────────────────────────
  60. Echo.
  61. choice /C 123456789abcdefghi0  /d 0 /t 30  /M "请选择!!30秒自动退出
  62. if errorlevel 19 exit
  63. if errorlevel 18 Goto :CMDTool18
  64. if errorlevel 17 Goto :CMDTool17
  65. if errorlevel 16 Goto :CMDTool16
  66. if errorlevel 15 Goto :CMDTool15
  67. if errorlevel 14 Goto :CMDTool14
  68. if errorlevel 13 Goto :CMDTool13
  69. if errorlevel 12 Goto :CMDTool12
  70. if errorlevel 11 Goto :CMDTool11
  71. if errorlevel 10 Goto :CMDTool10
  72. if errorlevel 9 Goto :CMDTool9
  73. if errorlevel 8 Goto :CMDTool8
  74. if errorlevel 7 Goto :CMDTool7
  75. if errorlevel 6 Goto :CMDTool6
  76. if errorlevel 5 Goto :CMDTool5
  77. if errorlevel 4 Goto :CMDTool4
  78. if errorlevel 3 Goto :CMDTool3
  79. if errorlevel 2 Goto :CMDTool2
  80. if errorlevel 1 Goto :CMDTool1
  81. Rem =========================WIFI 共 享 网 络 工 具================================
  82. :CMDTool1
  83. color 5f
  84. title  WIFI 共 享 网 络 工 具
  85. cls
  86. echo                     ───────────────  
  87. echo     ───────┤    WIFI 共 享 网 络 工 具   ├────────
  88. echo    │               ───────────────                 │
  89. echo    │                                                              │
  90. echo    │[1] 开始配置共享网络(如SSID和WIFI密码) [2] 启用无线共享     │
  91. echo    │                                                              │
  92. echo    │[3] 停止无线共享                         [4] 删除共享网络配置 │
  93. echo    │                                                              │
  94. echo    │[5] 显示连接的客户端                     [6]返回主菜单        │
  95. echo    │                                                              │
  96. echo    │[0] 退出                                 17年10月28日         │
  97. echo     ────────────────────────────────
  98. choice /C 1234560 /M "请选择!!
  99. if errorlevel 7 exit
  100. if errorlevel 6 Goto :CMDTool
  101. if errorlevel 5 Goto :wifiset4
  102. if errorlevel 4 Goto :wifiset3
  103. if errorlevel 3 Goto :wifiset2
  104. if errorlevel 2 Goto :wifiset1
  105. if errorlevel 1 goto :wifiset
  106. Rem ====================开始配置共享网络(如SSID和WIFI密码)=======================
  107. :wifiset
  108. cls
  109. set ssid=
  110. set pass=
  111. choice /C YN /M "是否设置共享网络,按Y设置,按N返回菜单
  112. if errorlevel 2 Goto :CMDTool1
  113. if errorlevel 1 echo Please wait....
  114. cls
  115. netsh wlan stop hostednetwork
  116. netsh wlan set hostednetwork mode=disallow
  117. cls
  118. Echo 本程序是Windows7以上系统共享WIFI设置的工具。
  119. Echo 注:计算机必须要两个以上可用的网卡,且要一个是无线网卡。
  120. Echo.
  121. Set /p ssid=请输入SSID名字,默认为360WIFI-AC:
  122. Set /p pass=请输入WIFI密码,默认为1234567890:
  123. if "!ssid!"=="" set ssid=360WIFI-AC
  124. if "!pass!"=="" set pass=1234567890
  125. netsh wlan set hostednetwork mode=allow ssid=%ssid% key=%pass%
  126. netsh wlan start hostednetwork
  127. netsh interface set interface name="本地连接 2" newname="虚拟WIFI"
  128. cls
  129. Echo 设置Internet连接共享
  130. Echo 右键,宽带连接(不用宽带连接的就用本地连接),选择“属性”
  131. Echo “共享”,勾上“允许其他······连接(N)”并选择“虚拟WiFi”。
  132. Echo ===================================================================
  133. Echo WIFI共享配置成功,WIFI名字为%ssid%,密码为%pass%,请牢记!任意键返回……
  134. pause>nul && goto :CMDTool1
  135. Rem ================================启用无线共享================================
  136. :wifiset1
  137. cls
  138. netsh wlan start hostednetwork
  139. cls
  140. Echo 网络共享已启动,任意键返回……
  141. pause>nul && goto :CMDTool1
  142. Rem ===================================停止无线共享===============================
  143. :wifiset2
  144. cls
  145. netsh wlan stop hostednetwork
  146. cls
  147. Echo 网络共享已停用,任意键返回……
  148. pause>nul && goto :CMDTool1
  149. Rem ====================================删除共享网络配置================================
  150. :wifiset3
  151. cls
  152. netsh wlan stop hostednetwork
  153. netsh wlan set hostednetwork mode=disallow
  154. cls
  155. Echo 网络共享已删除,任意键返回……
  156. pause>nul && goto :CMDTool1
  157. Rem =====================================显示连接的客户端================================
  158. :wifiset4
  159. cls
  160. netsh wlan show hostednetwork
  161. Echo =================任意键返回=================
  162. pause>nul && goto :CMDTool1
  163. Rem =====================================这是自动关机程序================================
  164. :CMDTool2
  165. @echo off
  166. shutdown -a
  167. set settime=
  168. set sum=
  169. set time_begin=%time:~0,-6%
  170. for /f "tokens=1,2 delims=:" %%i in ("%time_begin%") do (
  171.     set /a hour_b=%%i
  172.     set /a munite_b=%%j
  173. )
  174. set date_begin=%date%
  175. for /f "tokens=1,2,3 delims=-" %%i in ("%date_begin%") do (
  176.     set /a yea_b=%%i
  177.     set /a mon_b=%%j
  178.     set /a dat_b=%%k
  179. )
  180. cls
  181. echo 当前时间是%yea_b%年%mon_b%月%dat_b%日%time_begin%[Q=主菜单]
  182. echo.
  183. set /p settime=请输入分钟[n]或具体时间[如12:30]:
  184. if /i "!settime!"=="Q" Goto :CMDTool
  185. if "!settime!"=="" Goto :CMDTool2
  186. echo %settime%|findstr ":">nul && Goto :shutdown2 || Goto :shutdown1
  187. :shutdown1
  188. if !settime! lss 1 goto :CMDTool2
  189. if !settime! gtr 1440 goto :CMDTool2
  190. set /a sum=%settime%
  191. set /a hour_=%settime%/60
  192. set /a munite_=%settime%%%60
  193. Goto :Showtime
  194. :shutdown2
  195. set time_end=%settime%
  196. for /f "tokens=1,2 delims=:" %%i in ("%time_end%") do (
  197.     set /a hour_e=%%i:~2
  198.     set /a munite_e=%%j:~2
  199. )
  200. if not defined hour_e Goto :CMDTool2
  201. if not defined munite_e Goto :CMDTool2
  202. if %hour_e% lss 0 Goto :CMDTool2
  203. if %hour_e% gtr 23 Goto :CMDTool2
  204. if %munite_e% lss 0 Goto :CMDTool2
  205. if %munite_e% gtr 59 Goto :CMDTool2
  206. echo %hour_e% : %munite_e%
  207. call :time_lapse
  208. @set /a sum=%hour_%*60+%munite_%
  209. :Showtime
  210. @set /a a=!sum!*60
  211. cls
  212. echo 剩余 %hour_% 小时 %munite_% 分,合计 %sum% 分钟。
  213. echo.
  214. choice /C YNC /M "计算机将在%sum%分钟后自动关闭,是请按 Y ,按 N 重输,按C返回主菜单
  215. if errorlevel 3 Goto :CMDTool
  216. if errorlevel 2 Goto :CMDTool2
  217. if errorlevel 1 Goto :DW
  218. :DW
  219. ::echo @ECHO OFF >>aaa.bat
  220. ::echo title 倒计时 >>aaa.bat
  221. ::echo SETLOCAL ENABLEDELAYEDEXPANSION >>aaa.bat
  222. ::echo mode con: cols=40 lines=3 >>aaa.bat
  223. ::echo for /F "usebackq delims=, tokens=2" %%%%a in (`"Tasklist /v /fo csv | findstr /i "倒计时""`) do (  >>aaa.bat
  224. ::echo set /a PID=%%%%~a  >>aaa.bat
  225. ::echo ) >>aaa.bat
  226. ::echo SET /a s=%%a%% >>aaa.bat
  227. ::echo :AAA >>aaa.bat
  228. ::echo FOR /l %%%%i in (1,1,%%s%%) do ( >>aaa.bat
  229. ::echo SET /a s-=1 >>aaa.bat
  230. ::echo choice /T 1 /C QY /D Y /N ^>nul >>aaa.bat
  231. ::echo if %%s%%==120 msg %%username%% /time:5 "系统即将在120秒后关闭,请注意保存资料" ^& goto :AAA >>aaa.bat
  232. ::echo if errorlevel 2 cls ^& echo 倒计时开始 %%s%% 按Q关闭自动关机并退出 ^& goto :AAA >>aaa.bat
  233. ::echo if errorlevel 1 del aaa.bat ^& shutdown -a ^& taskkill /F /PID %%PID%% /T >>aaa.bat
  234. ::echo ) >>aaa.bat
  235. ::echo mshta vbscript:msgbox("系统即将关闭",64,"自动关机提醒")(window.close) >>aaa.bat
  236. ::echo del aaa.bat >>aaa.bat
  237. ::echo :eof >>aaa.bat
  238. ::start aaa.bat %a%
  239. shutdown -a & cls & shutdown -s -f -t %a%
  240. echo 自动关机设置完成,请查看屏幕右下角信息,任意键返回主菜单
  241. pause>nul & Goto :CMDTool
  242. :time_lapse
  243. if %munite_e% lss %munite_b% (
  244.     set /a hour_e=%hour_e%-1
  245.     set /a munite_e=%munite_e%+60
  246. )
  247. set /a munite_=%munite_e%-%munite_b%
  248. if %hour_e% lss %hour_b% (
  249.     set /a hour_e=%hour_e%+24
  250. )
  251. set /a hour_=%hour_e%-%hour_b%
  252. Goto :eof
  253. Rem =====================================这是取消自动关机程序================================
  254. :CMDTool3
  255. cls
  256. Echo.
  257. choice /C YN /M "是否取消自动关机,是请按 Y ,否按 N 返回主菜单
  258. if errorlevel 2 Goto :CMDTool
  259. if errorlevel 1 shutdown -a
  260. cls
  261. Echo 自动关机已取消,任意键返回……
  262. pause>nul && goto :CMDTool
  263. Rem =====================================Ping网段所有IP================================
  264. :CMDTool4
  265. if exist "D:\pingall.log" del D:\pingall.log
  266. cls
  267. Set Ping= & set /a a=-1 & set /a b=-1 & set /a c=-1
  268. Set /p Ping=请输入要Ping的网段[Q=主菜单]:
  269. if /i "!Ping!"=="Q" Goto :CMDTool
  270. if "!Ping!"=="" Goto :CMDTool4
  271. for /f "tokens=1,2,3 delims=." %%i in ("%Ping%") do set /a "a=%%i" & set /a "b=%%j" & set /a "c=%%k"
  272. if not defined c Goto :CMDTool4
  273. if %a% lss 1 Goto :CMDTool4
  274. if %b% lss 0 Goto :CMDTool4
  275. if %c% lss 0 Goto :CMDTool4
  276. if %a% gtr 255 Goto :CMDTool4
  277. if %b% gtr 255 Goto :CMDTool4
  278. if %c% gtr 255 Goto :CMDTool4
  279. :SetRange
  280. set Range= & set /a d=0 & set /a e=0
  281. cls
  282. Set /p Range=请输入%a%.%b%.%c%的范围[1-255]:
  283. for /f "tokens=1,2 delims=-" %%l in ("%Range%") do set /a "d=%%l" & set /a "e=%%m"
  284. if not defined e Goto :SetRange
  285. if %d% gtr %e% Goto :SetRange
  286. if %d% lss 1 Goto :SetRange
  287. if %e% lss 1 Goto :SetRange
  288. if %d% gtr 255 Goto :SetRange
  289. if %e% gtr 255 Goto :SetRange
  290. set /a sum=%e%-%d%
  291. if %sum% lss 15 (Goto :SinglePing) else Goto:MultiPing
  292. Echo Please wait....
  293. :SinglePing
  294. for /l %%i in (%d%,1,%e%) do (ping -n 1 -l 1 -w 6 %a%.%b%.%c%.%%i | find "来自" >>D:\pingall.log & echo 正在Ping%a%.%b%.%c%.%%i中,请稍候..)
  295. cls & Goto :ShowPing
  296. :MultiPing
  297. echo wscript.sleep 10 >>sleep.vbs
  298. echo ping ^%%1 -n 1 -l 1 -a >>checkip.bat
  299. echo if ^%%errorlevel^%%==0 (echo ^%%1 OK^>^>D:\pingall.log) >>checkip.bat
  300. for /l %%i in (%d%,1,%e%) do (@cscript sleep.vbs >nul & start /min cmd /c checkip.bat %a%.%b%.%c%.%%i & @echo on & echo 正在Ping%a%.%b%.%c%.%%i中,请稍候.. & @echo off)
  301. :ShowPing
  302. if exist "sleep.vbs" del sleep.vbs
  303. if exist "checkip.bat" del checkip.bat & cls
  304. if not exist "D:\pingall.log" echo %a%.%b%.%c%.%Range%的范围错误或没在使用!请重新输入 & pause>nul & Goto :CMDTool4
  305. set n=0
  306. for /f "delims=" %%a in ('type "D:\pingall.log"') do set /a n+=1
  307. if "%n%"=="0" echo %a%.%b%.%c%.%Range%的范围错误或没在使用!请重新输入 & pause>nul & Goto :CMDTool4
  308. type D:\pingall.log
  309. echo.
  310. echo %a%.%b%.%c%.%Range%的范围共%n%个IP在使用中
  311. echo.
  312. choice /C YN /M "是否保存并查看记录文件,查看请按 Y ,删除请按 N
  313. if errorlevel 2 del d:\pingall.log & Goto :CMDTool
  314. if errorlevel 1 start /wait notepad.exe d:\pingall.log & Goto :CMDTool
  315. Rem =====================================请算1到n的总和================================
  316. :CMDTool5
  317. cls
  318. set n=
  319. set /p n=输入你想计算的数字n[Q=主菜单]:
  320. if /i "!n!"=="Q" Goto :CMDTool
  321. if "!n!"=="" Goto :CMDTool5
  322. if %n% lss 1 Goto :CMDTool5
  323. if %n% gtr 999999999 Goto :CMDTool5
  324. for /l %%i in (1 1 %n%) do ( set /a sum=sum+%%i)
  325. echo 1+2+....+n=%sum%
  326. pause>nul && goto :CMDTool
  327. Rem =====================================清理系统垃圾================================
  328. :CMDTool6
  329. color 5a
  330. cls
  331. @echo off
  332. echo 正在清除系统垃圾文件,请稍等......
  333. del /f /s /q  %systemdrive%\*.tmp
  334. del /f /s /q  %systemdrive%\*._mp
  335. del /f /s /q  %systemdrive%\*.log
  336. del /f /s /q  %systemdrive%\*.gid
  337. del /f /s /q  %systemdrive%\*.chk
  338. del /f /s /q  %systemdrive%\*.old
  339. del /f /s /q  %systemdrive%\recycled\*.*
  340. del /f /s /q  %windir%\*.bak
  341. del /f /s /q  %windir%\prefetch\*.*
  342. rd /s /q %windir%\temp & md  %windir%\temp
  343. del /f /q  %userprofile%\cookies\*.*
  344. del /f /q  %userprofile%\recent\*.*
  345. del /f /s /q  "%userprofile%\Local Settings\Temporary Internet Files\*.*"
  346. del /f /s /q  "%userprofile%\Local Settings\Temp\*.*"
  347. del /f /s /q  "%userprofile%\recent\*.*"
  348. echo 清除系统LJ完成!任意键返回
  349. pause>nul && goto :CMDTool
  350. Rem =====================================这是JAVA小工具程序================================
  351. :CMDTool7
  352. cls  
  353. @echo off  
  354. title JAVA 小 工 具
  355. color 3f   
  356. cls
  357. set /p Dr=设置JAVA原码目录[Q=主菜单]:
  358. if /i "!Dr!" =="Q" Goto :CMDTool
  359. if "!Dr!" =="" Goto :CMDTool7
  360. if not exist !Dr! (Goto :CMDTool7)
  361. cd /d !Dr!
  362. :java
  363. set class=
  364. set name=
  365. set name2=
  366. set name3=
  367. cls
  368. echo                     ───────────────  
  369. echo     ───────┤     Java Applet 小 工 具     ├────────
  370. echo    │               ───────────────                 │
  371. echo    │                                                              │
  372. echo    │[1] 新建JAVA程序                 [2] 编译JAVA程序             │
  373. echo    │                                                              │
  374. echo    │[3] 生成Html文件                 [4] 运行Java程序             │
  375. echo    │                                                              │
  376. echo    │[5] 返回主菜单                   [M] 浏览目录文件             │
  377. echo    │                                                              │
  378. echo    │[0] 退出                             17年10月30日             │
  379. echo     ────────────────────────────────
  380. echo     当前JAVA原码目录为%Dr%,按M可浏览目录文件
  381. Echo.
  382. choice /C 12345M0 /M "请选择!!
  383. if errorlevel 7 exit
  384. if errorlevel 6 start %Dr% && goto :java
  385. if errorlevel 5 Goto :CMDTool
  386. if errorlevel 4 Goto :java3
  387. if errorlevel 3 Goto :java2
  388. if errorlevel 2 Goto :java1
  389. if errorlevel 1 goto :CreateClass
  390. :CreateClass
  391. cls
  392. Echo [1]新建JAVA程序
  393. set class=
  394. set identify=0
  395. set /p class=请输入类名:
  396. If exist "!class!".java cls & echo 注意:文件%class%.java已存在,请从输入!!!& pause>nul & Goto :CreateClass
  397. if "!class!"=="" cls & echo 注意: 类名不能为空!!!& echo 提示:类名必须符合Java命名标准(如:类名第一个字符不能为数字)& pause>nul & goto CreateClass
  398. for /l %%i in (0,1,9) do (
  399. if "%class:~0,1%"=="%%i" set identify=1
  400. )
  401. if "%identify%"=="0" (Goto :Begin) else ( cls & echo 注意: 类名不符合Java命名标准,请从输入!!!&echo 提示:类名必须符合Java命名标准(如:类名第一个字符不能为数字)& pause>nul & Goto :CreateClass)
  402. :Begin
  403. echo public class %class%{  >%Dr%\%class%.java
  404. echo    public static void main(String[] args) {   >>%Dr%\%class%.java
  405. echo                          /*请输入编程内容*/ >>%Dr%\%class%.java
  406. echo. >>%Dr%\%class%.java
  407. echo. >>%Dr%\%class%.java
  408. echo. >>%Dr%\%class%.java
  409. echo. >>%Dr%\%class%.java
  410. echo }             >>%Dr%\%class%.java
  411. echo }  >>%Dr%\%class%.java
  412. :Modify
  413. start /wait notepad.exe %Dr%\%class%.java
  414. :Build
  415. set build=0
  416. choice /C YN /M "是否需要编译%class%.java,请按 Y 编绎,或按 N 返回菜单
  417. if errorlevel 2 Goto :java
  418. if errorlevel 1 Goto :java1
  419. :java1
  420. cls
  421. Echo [2]编译JAVA程序
  422. set name=%class%
  423. set /p name= 请输入文件名默认为%class%[C=菜单]:
  424. if /i "!name!"=="C" Goto :java
  425. If not exist %name%.java Goto :java1
  426. javac %name%.java
  427. If exist !name!.class Goto :if1
  428. Echo 编译错误,请查看错误代码!
  429. choice /C YN /M "请按 Y 返回重输,或按 N 返回菜单
  430. if errorlevel 2 Goto :java
  431. if errorlevel 1 Goto :java1
  432. :if1
  433. Echo %name%.class编译成功,请牢记!
  434. choice /C YN /M "请按 Y 生成Html,或按 N 返回菜单
  435. if errorlevel 2 Goto :java
  436. if errorlevel 1 Goto :java2
  437. :java2
  438. cls
  439. Echo [3] 生成Html文件
  440. set name2=%name%
  441. set /p name2= 请输入文件名默认为%name%[C=菜单]:
  442. if "!name2!"=="" Goto :java2
  443. if /i "!name2!"=="C" Goto :java
  444. if exist "!name2!".class Goto :if2
  445. choice /C YN /M "找不到%name2%.class,按 Y 重输,或按 N 返回菜单
  446. if errorlevel 2 Goto :java
  447. if errorlevel 1 Goto :java2
  448. :if2
  449. Echo ^<html^> >>%name2%.html
  450. Echo ^<body^> >>%name2%.html
  451. Echo ^<applet code = "%name2%.class" height = 500 width = 800^> >>%name2%.html
  452. Echo ^</applet^> >>%name2%.html
  453. Echo ^</body^> >>%name2%.html
  454. Echo ^</html^> >>%name2%.html
  455. cls
  456. Echo %name2%.html已生成,请牢记!
  457. choice /C YN /M "请按 Y 调试程序,或按 N 返回菜单
  458. if errorlevel 2 Goto :java
  459. if errorlevel 1 Goto :java3
  460. :java3
  461. cls
  462. Echo [4] 运行Java程序
  463. set name3=%name2%
  464. set /p name3= 请输入文件名默认为%name2%[C=菜单]:
  465. if /i "!name3!"=="C" Goto :java
  466. if "!name3!"=="" Goto :java3
  467. if exist "!name3!".html Goto :if3
  468. choice /C YN /M "找不到%name3%.html,按 Y 重输,或按 N 返回菜单
  469. if errorlevel 2 Goto :java
  470. if errorlevel 1 Goto :java3
  471. :if3
  472. appletviewer %name3%.html
  473. cls
  474. Echo Java程序已停止,任意键返回……
  475. pause>nul && Goto :java
  476. ::=============================重启打印服务=========================================
  477. :CMDTool8
  478. cls
  479. choice /C YN /M "是否需要重启打印服务,按 Y 重启,或按 N 取消并返回主菜单
  480. if errorlevel 2 Goto :CMDTool
  481. if errorlevel 1 echo Please wait....
  482. sc stop spooler
  483. echo.wscript.sleep(1000)>sleep.vbs
  484. cscript //nologo sleep.vbs
  485. del sleep.vbs
  486. choice /C YN /M "是否需要清理打印任务,按 Y 清理,或按 N 不清理
  487. if errorlevel 2 sc start spooler
  488. if errorlevel 1 echo y|del %windir%\system32\spool\printers\*.*
  489. sc start spooler
  490. cls
  491. echo 打印服务已重新启动.任意键返回主菜单
  492. pause>nul && Goto :CMDTool
  493. ::===========================生成一键以管理员启动程序BAT================================
  494. :CMDTool9
  495. cls
  496. Echo 任意地方输入字母Q可返回主菜单
  497. set /p Name=请输入用户名[域Domain\User]:
  498. if /i "!Name!"=="Q" Goto CMDTool
  499. set /p Pass=请输入密码[注:特殊符号可能有问题]:
  500. if /i "!Pass!"=="Q" Goto CMDTool
  501. :Program
  502. cls
  503. set /p Program=请输入程序或直接把程序拖至本窗口释放:
  504. if /i "!Program!"=="Q" Goto CMDTool
  505. if not exist !Program! (Goto :Program)
  506. choice /C YN /M "是否以管理员:"%Name%"生成一键以管理员启动程序BAT,按 Y 生成,或按 N 返回主菜单
  507. if errorlevel 2 Goto :CMDTool
  508. if errorlevel 1 echo Please wait....
  509. Echo ^@if (@CodeSection == @Batch) @then >>1KeyRunAsAdmin.bat
  510. Echo ^@echo off >>1KeyRunAsAdmin.bat
  511. Echo start "" runas /user:%Name% %Program% >>1KeyRunAsAdmin.bat
  512. ECHO.set sh=WScript.CreateObject("WScript.Shell")>1KeyRunAsAdmin.VBS
  513. ECHO.WScript.Sleep 2000   >>1KeyRunAsAdmin.VBS
  514. ECHO.sh.SendKeys "%Pass%"   >>1KeyRunAsAdmin.VBS
  515. ECHO.sh.SendKeys "{enter}"  >>1KeyRunAsAdmin.VBS
  516. ECHO.start /B cmd.EXE  >>1KeyRunAsAdmin.bat
  517. ECHO.cscript //nologo   1KeyRunAsAdmin.VBS    >>1KeyRunAsAdmin.bat
  518. Echo 已生成1KeyRunAsAdmin.bat,请检查第一个SendKeys后的密码是否正确,修改后请保存。
  519. start /wait notepad.exe 1KeyRunAsAdmin.VBS
  520. set build=0
  521. choice /C YN /M "是否立即运行程序,按 Y 运行,或按 N 返回主菜单
  522. if errorlevel 2 Goto:CMDTool
  523. if errorlevel 1 start 1KeyRunAsAdmin.bat
  524. ::===============================IP释放并更新==============================================
  525. :CMDTool10
  526. cls
  527. choice /C YN /M "是否立即释放并更新IP,期间网络将会短暂断开,按 Y 运行,或按 N 返回主菜单
  528. if errorlevel 2 Goto:CMDTool
  529. if errorlevel 1 echo 正在更新IP信息.....
  530. ipconfig /release
  531. ipconfig /renew
  532. cls
  533. Echo IP已释放并更新,任意键返回主菜单
  534. pause>nul && Goto :CMDTool
  535. ::====================================BAT 加 密 工 具===============================================
  536. :CMDTool11
  537. cls
  538. %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a   
  539. cls  
  540. @echo off  
  541. title BAT 加 密 工 具
  542. color 1f  
  543. :start  
  544. cls
  545. echo                        ────────────────  
  546. echo     ─────────┤       BAT 加 密 工 具      ├──────────
  547. echo    │                  ────────────────                    │
  548. echo    │                                                                      │
  549. echo    │            1、本工具用来对明文批处理文件进行加密!                    │
  550. echo    │                                                                      │
  551. echo    │            2、直接把待加密批处理文件拖至本窗口释放即可!              │
  552. echo    │                                                                      │
  553. echo    │            3、加密后会在当前目录下生成NewCode.bat文件!               │
  554. echo    │                                                                      │
  555. echo    │                                        17年09月18日                  │
  556. echo     ────────────────────────────────────  
  557. echo.
  558. set /p file=请输入需要加密的批处理文件名后按回车键[Q=主菜单]:
  559. if "%file%"=="Q" goto :CMDTool
  560. echo %file%|findstr /i "\.bat">nul && goto :go
  561. echo %file%|findstr /i "\.c*">nul && goto :go
  562. cls
  563. echo ==============
  564. echo 请正确输入!
  565. echo ==============
  566. echo.
  567. echo.
  568. echo 按任意键重新输入......
  569. pause>nul && goto :start
  570. :go
  571. if not exist "%file%" goto :newly
  572. if exist encrypt.bat copy encrypt.bat encryptbak.bat
  573. echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a >"%tmp%\encrypt.tmp"
  574. echo cls>>"%tmp%\encrypt.tmp"
  575. type "%file%">>"%tmp%\encrypt.tmp"
  576. setlocal enabledelayedexpansion
  577. for %%i in ("%tmp%\encrypt.tmp") do (
  578.     echo %%~zi >nul 2>nul
  579.     set size=%%~zi
  580.     set num=!size:~-1!
  581.     set /a mod=!num!%%2
  582.     if !mod! equ 0 (goto :even) else (goto :odd)
  583. )
  584. :even
  585. copy "%tmp%\encrypt.tmp" NewCode.bat
  586. del "%tmp%\encrypt.tmp"
  587. cls
  588. echo ==========================================
  589. echo 恭喜你, 批处理加密成功,已保存为NewCode.bat
  590. echo ==========================================
  591. echo.
  592. echo.
  593. echo 按任意键返回主菜单......
  594. pause>nul && goto :CMDTool
  595. :odd
  596. echo. >>"%tmp%\encrypt.tmp"
  597. copy "%tmp%\encrypt.tmp" NewCode.bat
  598. del "%tmp%\encrypt.tmp"
  599. cls
  600. echo ==========================================
  601. echo 恭喜你, 批处理加密成功,已保存为NewCode.bat
  602. echo ==========================================
  603. echo.
  604. echo.
  605. echo 按任意键返回主菜单......
  606. pause>nul && goto :CMDTool
  607. :newly
  608. cls
  609. echo ================================
  610. echo 找不到批处理文件, 请重新输入!
  611. echo ================================
  612. echo.
  613. echo.
  614. echo 按任意键开始......
  615. pause>nul && goto :start
  616. :quit
  617. exit
  618. ::===============================IP显示主机名和MAC=======================
  619. :CMDTool12
  620. cls
  621. set IpAdd=
  622. set /p IpAdd=请输入要查询的IP地址[Q=主菜单]:
  623. if /i "!IpAdd!"=="Q" Goto :CMDTool
  624. echo %IpAdd%|findstr "^[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*$">nul|| (echo 输入错误,按任意键重输^^! & pause>nul & goto :CMDTool12)
  625. set _IpAdd=%IpAdd:.= %
  626. call :checkIpAdd %_IpAdd%
  627. :checkIpAdd
  628. if "%4"=="" (echo 输入错误,按任意键重输^^! & pause>nul & goto :CMDTool12)
  629. for %%i in (%1 %2 %3 %4) do (
  630.     if %%i gtr 255 (echo 输入错误,按任意键重输^^! & pause>nul & goto :CMDTool12)
  631. )
  632. nbtstat -A %IpAdd%
  633. echo 按任意键返回主菜单......
  634. pause>nul && Goto :CMDTool
  635. ::=============================显示系统信息===============================
  636. :CMDTool13
  637. cls
  638. systeminfo
  639. echo 按任意键返回主菜单......
  640. pause>nul && Goto :CMDTool
  641. :============================跟踪指定IP的路由=============================
  642. :CMDTool14
  643. cls
  644. set Router=
  645. set /p Router=请输入要跟踪的IP或域名[Q=主菜单]:
  646. if /i "!Router!"=="Q" Goto :CMDTool
  647. cls
  648. echo 正在跟踪%Router%所通过的路由中,请稍后.....
  649. tracert %Router%
  650. echo 按任意键返回主菜单......
  651. pause>nul && Goto :CMDTool
  652. ::===========================获取管理员所有权================================
  653. :CMDTool15
  654. cls
  655. echo 正在添加权限........
  656. echo Windows Registry Editor Version 5.00 >>reg.reg
  657. echo [HKEY_CLASSES_ROOT\*\shell\runas] >>reg.reg
  658. echo ^@="获取管理员所有权" >>reg.reg
  659. echo "NoWorkingDirectory"="" >>reg.reg
  660. echo [HKEY_CLASSES_ROOT\*\shell\runas\command] >>reg.reg
  661. echo ^@="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F" >>reg.reg
  662. echo "IsolatedCommand"="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F" >>reg.reg
  663. echo [HKEY_CLASSES_ROOT\exefile\shell\runas2] >>reg.reg
  664. echo ^@="获取管理员所有权" >>reg.reg
  665. echo "NoWorkingDirectory"="" >>reg.reg
  666. echo [HKEY_CLASSES_ROOT\exefile\shell\runas2\command] >>reg.reg
  667. echo ^@="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F" >>reg.reg
  668. echo "IsolatedCommand"="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F" >>reg.reg
  669. echo [HKEY_CLASSES_ROOT\Directory\shell\runas] >>reg.reg
  670. echo ^@="获取管理员所有权" >>reg.reg
  671. echo "NoWorkingDirectory"="" >>reg.reg
  672. echo [HKEY_CLASSES_ROOT\Directory\shell\runas\command] >>reg.reg
  673. echo ^@="cmd.exe /c takeown /f \"^%%1\" /r /d y && icacls \"^%%1\" /grant administrators:F /t" >>reg.reg
  674. echo "IsolatedCommand"="cmd.exe /c takeown /f \"^%%1\" /r /d y && icacls \"^%%1\" /grant administrators:F /t" >>reg.reg
  675. regedit /s reg.reg
  676. del reg.reg
  677. echo 添加完成,按任意键返回主菜单......
  678. pause>nul && Goto :CMDTool
  679. ::===================================这是局域网共享工具程序================================
  680. :CMDTool16
  681. cls
  682. @echo off
  683. title 局 域 网 共 享 工 具
  684. color 4f
  685. cls
  686. echo                     ───────────────  
  687. echo     ───────┤     局 域 网 共 享 工 具     ├────────
  688. echo    │               ───────────────                 │
  689. echo    │                                                              │
  690. echo    │[1] 开通局域网共享               [2] 开通局域网共享(需验证)   │
  691. echo    │                                                              │
  692. echo    │[3] 关闭局域网共享               [4] 返回主菜单               │
  693. echo    │                                                              │
  694. echo    │[0] 退出                             17年10月28日             │
  695. echo     ────────────────────────────────
  696. Echo.
  697. choice /C 12340 /M "请选择!!
  698. if errorlevel 5 exit
  699. if errorlevel 4 Goto :CMDTool
  700. if errorlevel 3 Goto :ShareOff
  701. if errorlevel 2 Goto :ShareOn2
  702. if errorlevel 1 Goto :ShareOn
  703. :ShareOn
  704. cls
  705. @ ECHO OFF
  706. @ ECHO.
  707. @ ECHO.                            说      明
  708. @ ECHO --------------------------------------------------------------------
  709. @ ECHO 本批处理执行后,将作以下一些设置:
  710. @ ECHO 1、允许SAM帐户和共享的匿名枚举(原版系统允许,本系统默认是禁用)。
  711. @ ECHO 2、本机帐户若空密码,允许其它机访问本机。
  712. @ ECHO 3、Windows防火墙:允许文件和打印机共享。
  713. @ ECHO 4、共享方式:本地用户以来宾身份验证。
  714. @ ECHO 5、来宾帐户:启用。
  715. @ ECHO --------------------------------------------------------------------
  716. @ ECHO.
  717. @ ECHO 采用这种共享方式,其它机访问本机都不用输用户名和密码。举例来说,家庭
  718. @ ECHO 局域网,彼此都是可以信任的,请使用这种方式。
  719. @ ECHO.
  720. @ ECHO 无论采用哪一种共享方式,共享只是方便内部使用,在用路由器上网的场合,
  721. @ ECHO 外网不能访问到您的机,无需担心共享了就会被入侵。您只需记住,单机拨号
  722. @ ECHO 上网时,不要打开共享就可以了。
  723. @ ECHO --------------------------------------------------------------------
  724. @ ECHO.
  725. echo 请详细阅读说明,任意键继续....
  726. PAUSE>nul
  727. ::============================生成开通局域网共享.reg===============================
  728. echo>>开通局域网共享.reg Windows Registry Editor Version 5.00
  729. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  730. echo>>开通局域网共享.reg "restrictanonymous"=dword:00000000
  731. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  732. echo>>开通局域网共享.reg "restrictanonymous"=dword:00000000
  733. : 以上两行在系统中的位置是:本地安全策略-安全选项-网络访问:不允许SAM帐户和共享
  734. : 的匿名枚举。系统默认值是:已停用。
  735. : 解说:操作系统默认:利用ipc$通道可以建立空连接,匿名枚举出该机有多少帐户。显然
  736. : 有一定的安全隐患。本系统已设为不允许空连接了。以此提高单机拨号上网的安全性。
  737. : 负面影响是局域网不能互访了。要更改一下才可以解决。
  738. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  739. echo>>开通局域网共享.reg "limitblankpassworduse"=dword:00000000
  740. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  741. echo>>开通局域网共享.reg "limitblankpassworduse"=dword:00000000
  742. : 以上两行在系统中的位置是:本地安全策略--安全选项--帐户:使用空白密码的本地帐户
  743. : 只允许进行控制台登录。系统默认值是:已启用。
  744. : 解说:很多人的帐户是不加密码的。这样,当局域网中别的电脑访问本机时,会弹出错误提示:
  745. : 登录失败:用户帐户限制………。这是XP系统的一条安全策略造成的,防止别人趁你空密码时
  746. : 进入你的电脑。如果你觉得无所谓,不必做这些限制,那就把它设为:已停用。
  747. echo>>开通局域网共享.reg [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count]
  748. echo>>开通局域网共享.reg "HRZR_EHAPCY"=hex:0C,00,00,00,26,00,00,00,F0,FB,E5,52,64,95,C6,01
  749. echo>>开通局域网共享.reg "HRZR_EHAPCY:"P:\JVAQBJF\flfgrz32\sverjnyy.pcy",Jvaqbjf 防火墙"=hex:0C,00,00,00,08,00,00,00,F0,FB,E5,52,64,95,C6,01
  750. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  751. echo>>开通局域网共享.reg "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  752. echo>>开通局域网共享.reg "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  753. echo>>开通局域网共享.reg "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  754. echo>>开通局域网共享.reg "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  755. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch]
  756. echo>>开通局域网共享.reg "Epoch"=dword:000001ED
  757. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Providers]
  758. echo>>开通局域网共享.reg "LogonTime"=hex:E8,31,8E,4F,64,95,C6,01
  759. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  760. echo>>开通局域网共享.reg "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  761. echo>>开通局域网共享.reg "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  762. echo>>开通局域网共享.reg "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  763. echo>>开通局域网共享.reg "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  764. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch]
  765. echo>>开通局域网共享.reg "Epoch"=dword:000001ED
  766. : 以上数值对应系统中的位置:控制面板--防火墙--例外--文件和打印机共享。系统默认:不选。
  767. : 解说:所有的策略都设置好了,局域网依然不能访问,提示:您没有权限使用网络资源,找
  768. : 不到网络路径!呵呵,真是令人火冒三丈!其实XP还有一道关卡,就是防火墙,必须要经过
  769. : 防火墙的允许才行。
  770. echo>>开通局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  771. echo>>开通局域网共享.reg "forceguest"=dword:00000001
  772. : 以上数值对应系统中的位置是:控制面板--管理工具--本地安全策略--本地策略--安全选项,
  773. : 网络访问:本地帐户的共享和安全模式:仅来宾-本地用户以来宾份验证。这时,当局域网
  774. : 其他机访问本机时,不会弹出对话框,就可以直接进入。在家庭网等完全可以信任的区域,
  775. : 建议使用这种方式。
  776. regedit /s 开通局域网共享.reg
  777. net user Guest /active:yes
  778. del 开通局域网共享.reg
  779. cls
  780. @ ECHO.
  781. @ ECHO --------------------------------------------------------------------
  782. @ ECHO 操作完成。按任意键返回菜单......
  783. @ ECHO 注意:本机要重启后才会生效。
  784. @ ECHO --------------------------------------------------------------------
  785. @ ECHO.
  786. @ ECHO 疑难问题补充:
  787. @ ECHO   如果以前的共享方式是“本地用户以自己自己身份验证”时共享了文件夹,
  788. @ ECHO 则现在改为以来宾身份验证后再访问该文件夹,会弹出错误:“无法访问,您
  789. @ ECHO 没有权限使用网络资源.”解决办法是:在该文件夹属性上把原共享取消,然
  790. @ ECHO 后重新共享,就行了。
  791. @ ECHO --------------------------------------------------------------------
  792. pause>nul && Goto :CMDTool16
  793. :ShareOn2
  794. cls
  795. @ ECHO OFF
  796. @ ECHO.
  797. @ ECHO.                            说      明
  798. @ ECHO --------------------------------------------------------------------
  799. @ ECHO 本批处理执行后,将作以下一些设置:
  800. @ ECHO 1、允许SAM帐户和共享的匿名枚举(原版系统允许,本系统默认是禁用)。
  801. @ ECHO 2、本机帐户若空密码,允许其它机访问本机。
  802. @ ECHO 3、Windows防火墙:允许文件和打印机共享。
  803. @ ECHO 4、共享方式:本地用户以自己的身份验证。
  804. @ ECHO 5、来宾帐户:不启用。
  805. @ ECHO --------------------------------------------------------------------
  806. @ ECHO.
  807. @ ECHO 采用这种共享方式,访问本机时必须要输入正确的用户名和密码,才能访问。
  808. @ ECHO.
  809. @ ECHO 无论采用哪一种共享方式,共享只是方便内部使用,在用路由器上网的场合,
  810. @ ECHO 外网不能访问到您的机,无需担心共享了就会被入侵。您只需记住,单机拨号
  811. @ ECHO 上网时,不要打开共享就可以了。
  812. @ ECHO --------------------------------------------------------------------
  813. @ ECHO.
  814. echo 请详细阅读说明,任意键继续....
  815. PAUSE>nul
  816. ::============================生成开通局域网共享需验证.reg===============================
  817. echo>>开通局域网共享需验证.reg Windows Registry Editor Version 5.00
  818. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  819. echo>>开通局域网共享需验证.reg "restrictanonymous"=dword:00000000
  820. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  821. echo>>开通局域网共享需验证.reg "restrictanonymous"=dword:00000000
  822. : 以上两行在系统中的位置是:本地安全策略-安全选项-网络访问:不允许SAM帐户和共享
  823. : 的匿名枚举。系统默认值是:已停用。
  824. : 解说:操作系统默认:利用ipc$通道可以建立空连接,匿名枚举出该机有多少帐户。显然
  825. : 有一定的安全隐患。本系统已设为不允许空连接了。以此提高单机拨号上网的安全性。
  826. : 负面影响是局域网不能互访了。要更改一下才可以解决。
  827. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  828. echo>>开通局域网共享需验证.reg "limitblankpassworduse"=dword:00000000
  829. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  830. echo>>开通局域网共享需验证.reg "limitblankpassworduse"=dword:00000000
  831. : 以上两行在系统中的位置是:本地安全策略--安全选项--帐户:使用空白密码的本地帐户
  832. : 只允许进行控制台登录。系统默认值是:已启用。
  833. : 解说:很多人的帐户是不加密码的。这样,当局域网中别的电脑访问本机时,会弹出错误提示:
  834. : 登录失败:用户帐户限制………。这是XP系统的一条安全策略造成的,防止别人趁你空密码时
  835. : 进入你的电脑。如果你觉得无所谓,不必做这些限制,那就把它设为:已停用。
  836. echo>>开通局域网共享需验证.reg [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count]
  837. echo>>开通局域网共享需验证.reg "HRZR_EHAPCY"=hex:0C,00,00,00,26,00,00,00,F0,FB,E5,52,64,95,C6,01
  838. echo>>开通局域网共享需验证.reg "HRZR_EHAPCY:"P:\JVAQBJF\flfgrz32\sverjnyy.pcy",Jvaqbjf 防火墙"=hex:0C,00,00,00,08,00,00,00,F0,FB,E5,52,64,95,C6,01
  839. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  840. echo>>开通局域网共享需验证.reg "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  841. echo>>开通局域网共享需验证.reg "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  842. echo>>开通局域网共享需验证.reg "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  843. echo>>开通局域网共享需验证.reg "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  844. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch]
  845. echo>>开通局域网共享需验证.reg "Epoch"=dword:000001ED
  846. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Providers]
  847. echo>>开通局域网共享需验证.reg "LogonTime"=hex:E8,31,8E,4F,64,95,C6,01
  848. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  849. echo>>开通局域网共享需验证.reg "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  850. echo>>开通局域网共享需验证.reg "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  851. echo>>开通局域网共享需验证.reg "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  852. echo>>开通局域网共享需验证.reg "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  853. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch]
  854. echo>>开通局域网共享需验证.reg "Epoch"=dword:000001ED
  855. : 以上数值对应系统中的位置:控制面板--防火墙--例外--文件和打印机共享。系统默认:不选。
  856. : 解说:所有的策略都设置好了,局域网依然不能访问,提示:您没有权限使用网络资源,找
  857. : 不到网络路径!呵呵,真是令人火冒三丈!其实XP还有一道关卡,就是防火墙,必须要经过
  858. : 防火墙的允许才行。
  859. echo>>开通局域网共享需验证.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  860. echo>>开通局域网共享需验证.reg "forceguest"=dword:00000000
  861. : 以上数值对应系统中的位置是:控制面板--管理工具--本地安全策略--本地策略--安全选项,
  862. : 网络访问:本地帐户的共享和安全模式:经典-本地用户以自己的身份验证。这时,当局域网
  863. : 其他机访问本机时,会弹出对话框,需要填写本机正确的用户名和密码才允许访问。这种方式
  864. : 是安全的。建议使用。
  865. regedit /s 开通局域网共享需验证.reg
  866. net user Guest /active:no
  867. del 开通局域网共享需验证.reg
  868. cls
  869. @ ECHO.
  870. @ ECHO -------------------------------------------------------------------
  871. @ ECHO 操作完成。按任意键返回菜单.....
  872. @ ECHO 无需重启,其它机现在就可以访问本机了。
  873. @ ECHO.
  874. @ ECHO -------------------------------------------------------------------
  875. @ ECHO.
  876. @ ECHO 常见疑问:
  877. @ ECHO    经上述处理后,访问本机,如果仍然是直接就进去了,没出现提示输入帐
  878. @ ECHO 号和密码的对话框,那是因为其他电脑的帐户名称跟本机帐户名一样(比如双
  879. @ ECHO 方都是administrator),且本机无密码。您应该把本机帐户改名,或加密码。
  880. @ ECHO 这样,未经授权的用户就不能随意访问您共享的资源了。
  881. @ ECHO -------------------------------------------------------------------
  882. pause>nul && Goto :CMDTool16
  883. :ShareOff
  884. cls
  885. @ ECHO OFF
  886. @ ECHO.
  887. @ ECHO.                      说     明
  888. @ ECHO ----------------------------------------------------------
  889. @ ECHO 本批处理执行后,将作以下一些设置:
  890. @ ECHO 1、不允许SAM帐户和共享的匿名枚举(原版系统默认是允许的)。
  891. @ ECHO 2、本机帐户若空密码,不允许其它机访问本机。
  892. @ ECHO 3、Windows防火墙:不允许文件和打印机共享。
  893. @ ECHO 4、来宾帐户:禁用。
  894. @ ECHO.
  895. @ ECHO 如果您不需要常在局域网内互传文件,可以关闭共享功能以提高
  896. @ ECHO 安全性。尤其是单机拨号上网的用户,更应关闭共享。
  897. @ ECHO ----------------------------------------------------------
  898. @echo.
  899. echo 请详细阅读说明,任意键继续....
  900. PAUSE>nul
  901. ::============================生成关闭局域网共享.reg===============================
  902. echo>>关闭局域网共享.reg Windows Registry Editor Version 5.00
  903. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  904. echo>>关闭局域网共享.reg "restrictanonymous"=dword:00000001
  905. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  906. echo>>关闭局域网共享.reg "restrictanonymous"=dword:00000001
  907. :以上两行在系统中的位置是:本地安全策略-安全选项-网络访问:不允许SAM帐户和共享
  908. :的匿名枚举。系统默认值是:已停用。
  909. :解说:操作系统默认:利用ipc$通道可以建立空连接,匿名枚举出该机有多少帐户。显然
  910. :有一定的安全隐患。本系统已设为不允许空连接了。以此提高单机拨号上网的安全性。
  911. :负面影响是局域网不能互访了。要更改一下才可以解决。
  912. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  913. echo>>关闭局域网共享.reg "limitblankpassworduse"=dword:00000001
  914. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  915. echo>>关闭局域网共享.reg "limitblankpassworduse"=dword:00000001
  916. :以上两行在系统中的位置是:本地安全策略--安全选项--帐户:使用空白密码的本地帐户
  917. :只允许进行控制台登录。系统默认值是:已启用。
  918. :解说:很多人的帐户是不加密码的。这样,当局域网中别的电脑访问本机时,会弹出错误提示:
  919. :登录失败:用户帐户限制………。这是XP系统的一条安全策略造成的,防止别人趁你空密码时
  920. :进入你的电脑。如果你觉得无所谓,不必做这些限制,那就把它设为:已停用。
  921. echo>>关闭局域网共享.reg [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count]
  922. echo>>关闭局域网共享.reg "HRZR_EHAPCY"=hex:0C,00,00,00,2A,00,00,00,90,AF,A4,87,A4,95,C6,01
  923. echo>>关闭局域网共享.reg "HRZR_EHAPCY:"P:\JVAQBJF\flfgrz32\sverjnyy.pcy",Jvaqbjf 防火墙"=hex:0C,00,00,00,13,00,00,00,90,AF,A4,87,A4,95,C6,01
  924. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG]
  925. echo>>关闭局域网共享.reg "Seed"=hex:AC,6F,9A,2B,11,64,44,68,EC,90,1B,76,72,A7,0A,14,\
  926. echo>>关闭局域网共享.reg 4C,79,37,BB,FD,BD,70,B2,B2,58,D5,B5,89,5C,B6,4E,\
  927. echo>>关闭局域网共享.reg 3B,18,A5,26,46,BC,3E,6A,30,A4,7D,A0,56,E6,6A,B5,\
  928. echo>>关闭局域网共享.reg 57,3A,BF,A1,CD,CA,B6,64,4C,F9,0E,D2,64,ED,86,1F,\
  929. echo>>关闭局域网共享.reg 61,F6,D1,01,0B,7C,8D,BD,73,10,C8,4E,57,93,4E,90
  930. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  931. echo>>关闭局域网共享.reg "445:TCP"="445:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22005"
  932. echo>>关闭局域网共享.reg "137:UDP"="137:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22001"
  933. echo>>关闭局域网共享.reg "138:UDP"="138:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22002"
  934. echo>>关闭局域网共享.reg "139:TCP"="139:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22004"
  935. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch]
  936. echo>>关闭局域网共享.reg "Epoch"=dword:000001FC
  937. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  938. echo>>关闭局域网共享.reg "445:TCP"="445:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22005"
  939. echo>>关闭局域网共享.reg "137:UDP"="137:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22001"
  940. echo>>关闭局域网共享.reg "138:UDP"="138:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22002"
  941. echo>>关闭局域网共享.reg "139:TCP"="139:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22004"
  942. echo>>关闭局域网共享.reg [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch]
  943. echo>>关闭局域网共享.reg "Epoch"=dword:000001FC
  944. :以上数值对应系统中的位置:控制面板--防火墙--例外--文件和打印机共享。系统默认:不选。
  945. :解说:所有的策略都设置好了,局域网依然不能访问,提示:您没有权限使用网络资源,找
  946. :不到网络路径!呵呵,真是令人火冒三丈!其实XP还有一道关卡,就是防火墙,必须要经过
  947. :防火墙的允许才行。
  948. regedit /s 关闭局域网共享.reg
  949. net user Guest /active:no
  950. del 关闭局域网共享.reg
  951. cls
  952. @ ECHO.
  953. @ ECHO ----------------------------------------------------------
  954. @ ECHO 操作完成。按任意键返回菜单......
  955. @ ECHO 不必重启,设置已生效。
  956. @ ECHO ----------------------------------------------------------
  957. pause>nul && Goto :CMDTool16
  958. ::================================本机开放的端口及使用该端口的进程======================
  959. :CMDTool17
  960. cls
  961. echo ╔-                              -╗
  962. echo   本机开放的端口及使用该端口的进程
  963. echo ╚-                              -╝
  964. echo ------------------------------------   
  965. ECHO TCP协议: 本机地址             外部地址              进程名称
  966. ::利用netstat命令找出使用TCP协议通信的端口,并将结果分割;
  967. ::将第二个参数(IP加端口)传给%%i,第五个参数(PID号)传给%%j;
  968. for /F "usebackq skip=4 tokens=2,3,5" %%i in (`"netstat -ano -p TCP"`) do (
  969.   call :Assoc %%i TCP %%k %%j
  970.   echo          !TCP_Port:~,17!    !TCP_OutPort:~,17!    !TCP_Proc_Name:~,20!  
  971. )
  972. ECHO UDP协议: 本机地址                     进程名称
  973. for /F "usebackq skip=4 tokens=2,4" %%i in (`"netstat -ano -p UDP"`) do (  
  974.   call :Assoc %%i UDP %%j
  975.   echo          !UDP_Port:~,17!            !UDP_Proc_Name:~,20!
  976. )
  977. echo 按任意键返回主菜单
  978. pause>nul & Goto :CMDTool
  979. :Assoc
  980. set "kong=          "
  981. ::对%1(第一个参数)进行分割,将第二个参数传给%%e。在本程序中,%1即为上面的%%i(形式为:IP:端口号)
  982. for /F "delims=" %%e in ("%1") do (
  983.     set  %2_Port=%%e%kong%
  984.   )
  985. for /F "delims=" %%f in ("%4") do (
  986.     set  %2_OutPort=%%f%kong%
  987.   )
  988. :: 查询PID等于%3(第三个参数)的进程,并将结果传给变量?_Proc_Name,?代表UDP或者TCP;
  989. for /F "skip=1 usebackq delims=, tokens=1" %%a in (`"Tasklist /FI "PID eq %3" /FO CSV"`) do (
  990.    ::%%~a表示去掉%%a外面的引号,因为上述命令的结果是用括号括起来的。  
  991.    set %2_Proc_Name=%%~a%kong%
  992.   )
  993. goto :eof
  994. ::============================================禁启用 任务管理器===============================
  995. :CMDTool18
  996. cls
  997. echo 禁启用任务管理器
  998. echo.
  999. set /p YN=ON-开启/OFF-关闭/Q-主菜单:
  1000. if /i "%yn%"=="q" Goto :CMDTool
  1001. if /i "%yn%"=="on" (set dword=0 & Echo 任务管理器已启用) else (if /i "%yn%"=="off" (set dword=1 & Echo 任务管理器已禁用) else (cls & echo 输入错误,任意键返回主菜单 & pause>nul & Goto :CMDTool))
  1002. reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system" /v disabletaskmgr /t REG_DWORD /d %dword% /f
  1003. pause>nul & Goto :CMDTool
复制代码

W
::echo @ECHO OFF >>aaa.bat
::echo title 倒计时 >>aaa.bat
::echo SETLOCAL ENABLEDELAYEDEXPANSION >>aaa.bat
::echo mode con: cols=40 lines=3 >>aaa.bat
::echo for /F "usebackq delims=, tokens=2" %%%%a in (`"Tasklist /v /fo csv | findstr /i "倒计时""`) do (  >>aaa.bat
::echo set /a PID=%%%%~a  >>aaa.bat
::echo ) >>aaa.bat
::echo SET /a s=%%a%% >>aaa.bat
::echo :AAA >>aaa.bat
::echo FOR /l %%%%i in (1,1,%%s%%) do ( >>aaa.bat
::echo SET /a s-=1 >>aaa.bat
::echo choice /T 1 /C QY /D Y /N ^>nul >>aaa.bat
::echo if %%s%%==120 msg %%username%% /time:5 "系统即将在120秒后关闭,请注意保存资料" ^& goto :AAA >>aaa.bat
::echo if errorlevel 2 cls ^& echo 倒计时开始 %%s%% 按Q关闭自动关机并退出 ^& goto :AAA >>aaa.bat
::echo if errorlevel 1 del aaa.bat ^& shutdown -a ^& taskkill /F /PID %%PID%% /T >>aaa.bat
::echo ) >>aaa.bat
::echo mshta vbscript:msgbox("系统即将关闭",64,"自动关机提醒")(window.close) >>aaa.bat
::echo del aaa.bat >>aaa.bat
::echo :eof >>aaa.bat
::start aaa.bat %a%

这段本来想做成倒计时的,但一会就和主机时间不准了,也就注释掉了,高手们有没有办法可以做到准确的倒计时

TOP

本帖最后由 0000 于 2017-12-22 21:15 编辑

帮忙优化了一下
  1. @Echo Off
  2. Setlocal enabledelayedexpansion
  3. title  CMD 工 具 箱
  4. cls
  5. set user=
  6. set pwd=
  7. set times=4
  8. :check
  9. cls
  10. echo;
  11. echo This is a secure system. Authorized Access Only!!!
  12. echo;
  13. echo User Access Verification
  14. echo;
  15. set /p user= UserName:
  16. set /p pwd= Password:
  17. if "!user!"=="admin" if "!pwd!"=="admin" goto CMDTool
  18. if %times% == 0 goto :Close
  19. set /a times-=1,checkup=times+1
  20. echo;
  21. echo 帐号密码错误,还有%checkup%机会^^!
  22. pause>nul
  23. goto check
  24. :Close
  25. ECHO;
  26. echo Logon Failed^^!
  27. pause>nul & exit
  28. :CMDTool
  29. title  CMD 工 具 箱
  30. color 2f
  31. REM mode con: cols=80 lines=27
  32. cls
  33. echo                        ────────────────  
  34. echo     ─────────┤         CMD 工 具 箱       ├─────────
  35. echo    │                  ────────────────                   │
  36. echo    │  [1] WIFI共享网络工具                    [2] 自动关机               │
  37. echo    │                                                                     │
  38. echo    │  [3] 停止自动关机                        [4] Ping网段所有IP         │
  39. echo    │                                                                     │
  40. echo    │  [5] 请算1到n的总和                      [6] 清理系统垃圾           │
  41. echo    │                                                                     │
  42. echo    │  [7] JAVA小工具                          [8] 重新启动打印服务       │
  43. echo    │                                                                     │
  44. echo    │  [9] 生成一键以管理员运行                [A] IP释放并更新           │
  45. echo    │                                                                     │
  46. echo    │  [B] BAT加密工具                         [C] IP显示主机名和MAC      │
  47. echo    │                                                                     │
  48. echo    │  [D] 显示系统信息                        [E] 跟踪指定IP或域名路由   │
  49. echo    │                                                                     │
  50. echo    │  [F] 添加右键获取管理员所有权            [G] 局域网共享工具         │
  51. echo    │                                                                     │
  52. echo    │  [H] 显示使用TCP^&UDP端口的进程           [I] 禁启用任务管理器       │
  53. echo    │                                                                     │
  54. echo    │  [0] 退出                                17年11月17日               │
  55. echo     ───────────────────────────────────
  56. echo;
  57. choice /C 123456789abcdefghi0 /d 0 /t 30  /M "请选择!!30秒自动退出
  58. if errorlevel 19 exit
  59. for /l %%N in (18,-1,1) do if errorlevel %%N Goto :CMDTool%%N
  60. Rem =========================WIFI 共 享 网 络 工 具================================
  61. :CMDTool1
  62. color 5f
  63. title  WIFI 共 享 网 络 工 具
  64. cls
  65. echo                     ───────────────  
  66. echo     ───────┤    WIFI 共 享 网 络 工 具   ├────────
  67. echo    │               ───────────────                 │
  68. echo    │                                                              │
  69. echo    │[1] 开始配置共享网络(如SSID和WIFI密码) [2] 启用无线共享     │
  70. echo    │                                                              │
  71. echo    │[3] 停止无线共享                         [4] 删除共享网络配置 │
  72. echo    │                                                              │
  73. echo    │[5] 显示连接的客户端                     [6]返回主菜单        │
  74. echo    │                                                              │
  75. echo    │[0] 退出                                 17年10月28日         │
  76. echo     ────────────────────────────────
  77. choice /C 1234560 /M "请选择!!
  78. if errorlevel 7 exit
  79. if errorlevel 6 Goto :CMDTool
  80. if errorlevel 5 Goto :wifiset4
  81. if errorlevel 4 Goto :wifiset3
  82. if errorlevel 3 Goto :wifiset2
  83. if errorlevel 2 Goto :wifiset1
  84. if errorlevel 1 goto :wifiset
  85. Rem ====================开始配置共享网络(如SSID和WIFI密码)=======================
  86. :wifiset
  87. cls
  88. set ssid=
  89. set pass=
  90. choice /C YN /M "是否设置共享网络,按Y设置,按N返回菜单
  91. if errorlevel 2 Goto :CMDTool1
  92. if errorlevel 1 echo Please wait....
  93. netsh wlan stop hostednetwork
  94. netsh wlan set hostednetwork mode=disallow
  95. cls
  96. Echo 本程序是Windows7以上系统共享WIFI设置的工具。
  97. Echo 注:计算机必须要两个以上可用的网卡,且要一个是无线网卡。
  98. Echo;
  99. Set /p ssid=请输入SSID名字,默认为360WIFI-AC:
  100. Set /p pass=请输入WIFI密码,默认为1234567890:
  101. if "!ssid!"=="" set ssid=360WIFI-AC
  102. if "!pass!"=="" set pass=1234567890
  103. netsh wlan set hostednetwork mode=allow ssid=!ssid! key=!pass!
  104. netsh wlan start hostednetwork
  105. netsh interface set interface name="本地连接 2" newname="虚拟WIFI"
  106. echo;
  107. Echo 设置Internet连接共享
  108. Echo 右键,宽带连接(不用宽带连接的就用本地连接),选择“属性”
  109. Echo “共享”,勾上“允许其他······连接(N)”并选择“虚拟WiFi”。
  110. Echo ===================================================================
  111. Echo WIFI共享配置成功,WIFI名字为!ssid!,密码为!pass!,请牢记!任意键返回……
  112. pause>nul && goto :CMDTool1
  113. Rem ================================启用无线共享================================
  114. :wifiset1
  115. cls
  116. netsh wlan start hostednetwork
  117. echo;
  118. Echo 网络共享已启动,任意键返回……
  119. pause>nul && goto :CMDTool1
  120. Rem ===================================停止无线共享===============================
  121. :wifiset2
  122. cls
  123. netsh wlan stop hostednetwork
  124. echo;
  125. Echo 网络共享已停用,任意键返回……
  126. pause>nul && goto :CMDTool1
  127. Rem ====================================删除共享网络配置================================
  128. :wifiset3
  129. cls
  130. netsh wlan stop hostednetwork
  131. netsh wlan set hostednetwork mode=disallow
  132. echo;
  133. Echo 网络共享已删除,任意键返回……
  134. pause>nul && goto :CMDTool1
  135. Rem =====================================显示连接的客户端================================
  136. :wifiset4
  137. cls
  138. netsh wlan show hostednetwork
  139. Echo =================任意键返回=================
  140. pause>nul && goto :CMDTool1
  141. Rem =====================================这是自动关机程序================================
  142. :CMDTool2
  143. shutdown -a 2>nul
  144. set settime=
  145. set sum=
  146. set time_begin=%time:~0,-6%
  147. for /f "tokens=1,2 delims=:" %%i in ("%time_begin%") do (
  148.     set /a hour_b=%%i,munite_b=%%j
  149. )
  150. for /f "tokens=1,2,3 delims=-" %%i in ("%date%") do (
  151.     set /a yea_b=%%i,mon_b=%%j,dat_b=%%k
  152. )
  153. cls
  154. echo 当前时间是%yea_b%年%mon_b%月%dat_b%日%time_begin%[Q=主菜单]
  155. echo;
  156. set /p settime=请输入分钟[n]或具体时间[如12:30]:
  157. if /i "!settime!"=="Q" Goto :CMDTool
  158. if "!settime!"=="" Goto :CMDTool2
  159. echo !settime!|findstr ":">nul && Goto :shutdown2 || Goto :shutdown1
  160. :shutdown1
  161. if !settime! lss 1 goto :CMDTool2
  162. if !settime! gtr 1440 goto :CMDTool2
  163. set /a sum=settime,hour_=settime/60,munite_=settime%%60
  164. Goto :Showtime
  165. :shutdown2
  166. set time_end=%settime%
  167. for /f "tokens=1,2 delims=:" %%i in ("%time_end%") do (
  168.     set /a hour_e=%%i
  169.     set /a munite_e=%%j
  170. )
  171. if not defined hour_e Goto :CMDTool2
  172. if not defined munite_e Goto :CMDTool2
  173. if %hour_e% lss 0 Goto :CMDTool2
  174. if %hour_e% gtr 23 Goto :CMDTool2
  175. if %munite_e% lss 0 Goto :CMDTool2
  176. if %munite_e% gtr 59 Goto :CMDTool2
  177. echo %hour_e% : %munite_e%
  178. call :time_lapse
  179. set /a sum=hour_*60+munite_
  180. :Showtime
  181. set /a a=sum*60
  182. cls
  183. echo 剩余 %hour_% 小时 %munite_% 分,合计 %sum% 分钟。
  184. echo;
  185. choice /C YNC /M "计算机将在%sum%分钟后自动关闭,是请按 Y ,按 N 重输,按C返回主菜单
  186. if errorlevel 3 Goto :CMDTool
  187. if errorlevel 2 Goto :CMDTool2
  188. if errorlevel 1 Goto :DW
  189. :DW
  190. (
  191. echo @ECHO off
  192. echo IF "%%1"=="WaitKey" GOTO WaitKey
  193. echo TITLE 倒计时
  194. echo MODE con: cols=40 lines=3
  195. echo CD.^>$ ^& START /b "" "%%~f0" WaitKey
  196. echo SET s=%%1
  197. echo FOR /l %%%%i in (%%s%%,-1,0^) do (
  198. echo  TIMEOUT 1 /nobreak ^>nul
  199. echo  IF %%%%i == 120 START MSG %%username%% /time:5 "系统即将在120秒后关闭,请注意保存资料"
  200. echo  IF EXIST $ (
  201. echo   CLS ^& ECHO 倒计时开始 %%%%i 按Q关闭自动关机并退出
  202. echo  ^) ELSE (
  203. echo   DEL "%%~f0" ^& SHUTDOWN -a 2^>nul ^& EXIT
  204. echo  ^)
  205. echo ^)
  206. echo DEL $
  207. echo MSHTA vbscript:msgbox("系统即将关闭",64,"自动关机提醒"^)(window.close^)
  208. echo DEL "%%~f0" ^& EXIT
  209. echo :WaitKey
  210. echo CHOICE /c 1Q /d 1 /t 1 ^>nul
  211. echo IF NOT EXIST $ EXIT
  212. echo IF ERRORLEVEL 2 DEL $ ^& EXIT
  213. echo GOTO WaitKey
  214. )>aaa.bat
  215. start aaa.bat %a%
  216. shutdown -a 2>nul & cls & shutdown -s -f -t %a%
  217. echo 自动关机设置完成,请查看屏幕右下角信息,任意键返回主菜单
  218. pause>nul & Goto :CMDTool
  219. :time_lapse
  220. if %munite_e% lss %munite_b% (
  221.     set /a hour_e=hour_e-1
  222.     set /a munite_e=munite_e+60
  223. )
  224. set /a munite_=munite_e-munite_b
  225. if %hour_e% lss %hour_b% (
  226.     set /a hour_e=hour_e+24
  227. )
  228. set /a hour_=hour_e-hour_b
  229. Goto :eof
  230. Rem =====================================这是取消自动关机程序================================
  231. :CMDTool3
  232. cls
  233. ECHO;
  234. choice /C YN /M "是否取消自动关机,是请按 Y ,否按 N 返回主菜单
  235. if errorlevel 2 Goto :CMDTool
  236. if errorlevel 1 shutdown -a
  237. cls
  238. Echo 自动关机已取消,任意键返回……
  239. pause>nul & goto :CMDTool
  240. Rem =====================================Ping网段所有IP================================
  241. :CMDTool4
  242. if exist "D:\pingall.log" del D:\pingall.log
  243. cls
  244. Set Ping=
  245. set /a a=-1,b=-1,c=-1
  246. Set /p Ping=请输入要Ping的网段[Q=主菜单]:
  247. if /i "!Ping!"=="Q" Goto :CMDTool
  248. if not defined Ping Goto :CMDTool4
  249. for /f "tokens=1,2,3 delims=." %%i in ("!Ping!") do set /a "a=%%i,b=%%j,c=%%k"
  250. if not defined c Goto :CMDTool4
  251. if !a! lss 1 Goto :CMDTool4
  252. if !b! lss 0 Goto :CMDTool4
  253. if !c! lss 0 Goto :CMDTool4
  254. if !a! gtr 255 Goto :CMDTool4
  255. if !b! gtr 255 Goto :CMDTool4
  256. if !c! gtr 255 Goto :CMDTool4
  257. :SetRange
  258. set Range=
  259. set /a d=0,e=0
  260. cls
  261. Set /p Range=请输入%a%.%b%.%c%的范围[1-255]:
  262. for /f "tokens=1,2 delims=-" %%l in ("!Range!") do set /a "d=%%l,e=%%m"
  263. if not defined e Goto :SetRange
  264. if !d! gtr !e! Goto :SetRange
  265. if !d! lss 1 Goto :SetRange
  266. if !e! lss 1 Goto :SetRange
  267. if !d! gtr 255 Goto :SetRange
  268. if !e! gtr 255 Goto :SetRange
  269. set /a sum=e-d
  270. if %sum% lss 15 (Goto :SinglePing) else Goto:MultiPing
  271. Echo Please wait....
  272. :SinglePing
  273. for /l %%i in (%d%,1,%e%) do (
  274. echo 正在Ping%a%.%b%.%c%.%%i中,请稍候..
  275. ping -n 1 -l 1 -w 6 %a%.%b%.%c%.%%i | find "来自" >>D:\pingall.log
  276. )
  277. cls & Goto :ShowPing
  278. :MultiPing
  279. echo wscript.sleep 10 >sleep.vbs
  280. (
  281. @echo ping %%1 -n 1 -l 1 -a
  282. @echo if ^%%errorlevel^%%==0 echo ^%%1 OK^>^>D:\pingall.log
  283. )>checkip.bat
  284. for /l %%i in (%d%,1,%e%) do (
  285. cscript /nologo sleep.vbs
  286. start /b cmd /c checkip.bat %a%.%b%.%c%.%%i >nul 2>nul
  287. echo 正在Ping%a%.%b%.%c%.%%i中,请稍候..
  288. )
  289. timeout 10 /nobreak
  290. :ShowPing
  291. if exist "sleep.vbs" del sleep.vbs
  292. if exist "checkip.bat" del checkip.bat
  293. if not exist "D:\pingall.log" echo %a%.%b%.%c%.!Range!的范围错误或没在使用!请重新输入 & pause>nul & Goto :CMDTool4
  294. set n=0
  295. for /f "delims=" %%a in ('type "D:\pingall.log"') do set /a n+=1
  296. if "%n%"=="0" echo %a%.%b%.%c%.!Range!的范围错误或没在使用!请重新输入 & pause>nul & Goto :CMDTool4
  297. type D:\pingall.log
  298. ECHO;
  299. echo %a%.%b%.%c%.!Range!的范围共%n%个IP在使用中
  300. ECHO;
  301. choice /C YN /M "是否保存并查看记录文件,查看请按 Y ,删除请按 N
  302. if errorlevel 2 del d:\pingall.log & Goto :CMDTool
  303. if errorlevel 1 start /wait notepad.exe d:\pingall.log & Goto :CMDTool
  304. Rem =====================================请算1到n的总和================================
  305. :CMDTool5
  306. cls
  307. set n=
  308. set /p n=输入你想计算的数字n[Q=主菜单]:
  309. if /i "!n!"=="Q" Goto :CMDTool
  310. if "!n!"=="" Goto :CMDTool5
  311. if !n! lss 1 Goto :CMDTool5
  312. if !n! gtr 10000 Goto :CMDTool5
  313. for /l %%i in (1 1 !n!) do set /a sum+=%%i
  314. echo 1+2+....+n=%sum%
  315. pause>nul & goto :CMDTool
  316. Rem =====================================清理系统垃圾================================
  317. :CMDTool6
  318. color 5a
  319. cls
  320. echo 正在清除系统垃圾文件,请稍等......
  321. del /f /s /q  %systemdrive%\*.tmp
  322. del /f /s /q  %systemdrive%\*._mp
  323. del /f /s /q  %systemdrive%\*.log
  324. del /f /s /q  %systemdrive%\*.gid
  325. del /f /s /q  %systemdrive%\*.chk
  326. del /f /s /q  %systemdrive%\*.old
  327. del /f /s /q  %systemdrive%\recycled\*.*
  328. del /f /s /q  %windir%\*.bak
  329. del /f /s /q  %windir%\prefetch\*.*
  330. rd /s /q %windir%\temp & md  %windir%\temp
  331. del /f /q  %userprofile%\cookies\*.*
  332. del /f /q  %userprofile%\recent\*.*
  333. del /f /s /q  "%userprofile%\Local Settings\Temporary Internet Files\*.*"
  334. del /f /s /q  "%userprofile%\Local Settings\Temp\*.*"
  335. del /f /s /q  "%userprofile%\recent\*.*"
  336. echo 清除系统LJ完成!任意键返回
  337. pause>nul & goto :CMDTool
  338. Rem =====================================这是JAVA小工具程序================================
  339. :CMDTool7
  340. cls  
  341. title JAVA 小 工 具
  342. color 3f   
  343. cls
  344. set /p Dr=设置JAVA原码目录[Q=主菜单]:
  345. if /i "!Dr!"=="Q" Goto :CMDTool
  346. if not defined Dr Goto :CMDTool7
  347. if not exist !Dr! (Goto :CMDTool7)
  348. cd /d !Dr!
  349. :java
  350. set class=
  351. set name=
  352. set name2=
  353. set name3=
  354. cls
  355. echo                     ───────────────  
  356. echo     ───────┤     Java Applet 小 工 具     ├────────
  357. echo    │               ───────────────                 │
  358. echo    │                                                              │
  359. echo    │[1] 新建JAVA程序                 [2] 编译JAVA程序             │
  360. echo    │                                                              │
  361. echo    │[3] 生成Html文件                 [4] 运行Java程序             │
  362. echo    │                                                              │
  363. echo    │[5] 返回主菜单                   [M] 浏览目录文件             │
  364. echo    │                                                              │
  365. echo    │[0] 退出                             17年10月30日             │
  366. echo     ────────────────────────────────
  367. echo     当前JAVA原码目录为!Dr!,按M可浏览目录文件
  368. ECHO;
  369. choice /C 12345M0 /M "请选择!!
  370. if errorlevel 7 exit
  371. if errorlevel 6 start !Dr! && goto :java
  372. if errorlevel 5 Goto :CMDTool
  373. if errorlevel 4 Goto :java3
  374. if errorlevel 3 Goto :java2
  375. if errorlevel 2 Goto :java1
  376. if errorlevel 1 goto :CreateClass
  377. :CreateClass
  378. cls
  379. Echo [1]新建JAVA程序
  380. set class=
  381. set identify=0
  382. set /p class=请输入类名:
  383. If exist "!class!".java (
  384. cls
  385. echo 注意:文件!class!.java已存在,请从输入!!!
  386. pause>nul & Goto :CreateClass
  387. )
  388. if "!class!"=="" (
  389. cls
  390. echo 注意: 类名不能为空!!!
  391. echo 提示:类名必须符合Java命名标准(如:类名第一个字符不能为数字)
  392. pause>nul & goto CreateClass
  393. )
  394. for /l %%i in (0,1,9) do if "!class:~0,1!"=="%%i" set identify=1
  395. if "%identify%"=="0" (
  396. Goto Begin
  397. ) else (
  398. cls
  399. echo 注意: 类名不符合Java命名标准,请从输入!!!
  400. echo 提示:类名必须符合Java命名标准(如:类名第一个字符不能为数字)
  401. pause>nul & Goto :CreateClass
  402. )
  403. :Begin
  404. (
  405. echo public class !class!{
  406. echo    public static void main(String[] args) {
  407. echo                          /*请输入编程内容*/
  408. echo;&echo;&echo;&echo;
  409. echo    }
  410. echo }
  411. )>!Dr!\!class!.java
  412. :Modify
  413. start /wait notepad.exe !Dr!\!class!.java
  414. :Build
  415. set build=0
  416. choice /C YN /M "是否需要编译!class!.java,请按 Y 编绎,或按 N 返回菜单
  417. if errorlevel 2 Goto :java
  418. if errorlevel 1 Goto :java1
  419. :java1
  420. cls
  421. Echo [2]编译JAVA程序
  422. set name=!class!
  423. set /p name= 请输入文件名默认为!class![C=菜单]:
  424. if /i "!name!"=="C" Goto :java
  425. If not exist !name!.java Goto :java1
  426. javac !name!.java
  427. If exist !name!.class Goto :if1
  428. Echo 编译错误,请查看错误代码!
  429. choice /C YN /M "请按 Y 返回重输,或按 N 返回菜单
  430. if errorlevel 2 Goto :java
  431. if errorlevel 1 Goto :java1
  432. :if1
  433. Echo !name!.class编译成功,请牢记!
  434. choice /C YN /M "请按 Y 生成Html,或按 N 返回菜单
  435. if errorlevel 2 Goto :java
  436. if errorlevel 1 Goto :java2
  437. :java2
  438. cls
  439. Echo [3] 生成Html文件
  440. set name2=!name!
  441. set /p name2= 请输入文件名默认为!name![C=菜单]:
  442. if "!name2!"=="" Goto :java2
  443. if /i "!name2!"=="C" Goto :java
  444. if exist "!name2!".class Goto :if2
  445. choice /C YN /M "找不到!name2!.class,按 Y 重输,或按 N 返回菜单
  446. if errorlevel 2 Goto :java
  447. if errorlevel 1 Goto :java2
  448. :if2
  449. (
  450. Echo ^<html^>
  451. Echo ^<body^>
  452. Echo ^<applet code = "!name2!.class" height = 500 width = 800^>
  453. Echo ^</applet^>
  454. Echo ^</body^>
  455. Echo ^</html^>
  456. )>!name2!.html
  457. cls
  458. Echo !name2!.html已生成,请牢记!
  459. choice /C YN /M "请按 Y 调试程序,或按 N 返回菜单
  460. if errorlevel 2 Goto :java
  461. if errorlevel 1 Goto :java3
  462. :java3
  463. cls
  464. Echo [4] 运行Java程序
  465. set name3=!name2!
  466. set /p name3= 请输入文件名默认为!name2![C=菜单]:
  467. if /i "!name3!"=="C" Goto :java
  468. if "!name3!"=="" Goto :java3
  469. if exist "!name3!".html Goto :if3
  470. choice /C YN /M "找不到!name3!.html,按 Y 重输,或按 N 返回菜单
  471. if errorlevel 2 Goto :java
  472. if errorlevel 1 Goto :java3
  473. :if3
  474. appletviewer !name3!.html
  475. cls
  476. Echo Java程序已停止,任意键返回……
  477. pause>nul & Goto :java
  478. ::=============================重启打印服务=========================================
  479. :CMDTool8
  480. cls
  481. choice /C YN /M "是否需要重启打印服务,按 Y 重启,或按 N 取消并返回主菜单
  482. if errorlevel 2 Goto :CMDTool
  483. if errorlevel 1 echo Please wait....
  484. sc stop spooler
  485. timeout 2 /nobreak >nul
  486. choice /C YN /M "是否需要清理打印任务,按 Y 清理,或按 N 不清理
  487. if errorlevel 2 sc start spooler
  488. if errorlevel 1 del %windir%\system32\spool\printers\*.* /Q
  489. sc start spooler
  490. cls
  491. echo 打印服务已重新启动.任意键返回主菜单
  492. pause>nul && Goto :CMDTool
  493. ::===========================生成一键以管理员启动程序BAT================================
  494. :CMDTool9
  495. cls
  496. Echo 任意地方输入字母Q可返回主菜单
  497. set /p Name=请输入用户名[域Domain\User]:
  498. if /i "!Name!"=="Q" Goto CMDTool
  499. set /p Pass=请输入密码[注:特殊符号可能有问题]:
  500. if /i "!Pass!"=="Q" Goto CMDTool
  501. :Program
  502. cls
  503. set /p Program=请输入程序或直接把程序拖至本窗口释放:
  504. if /i "!Program!"=="Q" Goto CMDTool
  505. if not exist !Program! Goto Program
  506. choice /C YN /M "是否以管理员:"!Name!"生成一键以管理员启动程序BAT,按 Y 生成,或按 N 返回主菜单
  507. if errorlevel 2 Goto :CMDTool
  508. if errorlevel 1 echo Please wait....
  509. (
  510. Echo ^@if (@CodeSection == @Batch^) @then
  511. Echo ^@echo off
  512. Echo start "" runas /user:!Name! !Program!
  513. ECHO start /B cmd.EXE
  514. ECHO cscript //nologo 1KeyRunAsAdmin.VBS
  515. )>1KeyRunAsAdmin.bat
  516. (
  517. ECHO set sh=WScript.CreateObject("WScript.Shell"^)
  518. ECHO WScript.Sleep 2000
  519. ECHO sh.SendKeys "!Pass!"
  520. ECHO sh.SendKeys "{enter}"
  521. )>1KeyRunAsAdmin.VBS
  522. Echo 已生成1KeyRunAsAdmin.bat,请检查第一个SendKeys后的密码是否正确,修改后请保存。
  523. start /wait notepad.exe 1KeyRunAsAdmin.VBS
  524. set build=0
  525. choice /C YN /M "是否立即运行程序,按 Y 运行,或按 N 返回主菜单
  526. if errorlevel 2 Goto CMDTool
  527. if errorlevel 1 start 1KeyRunAsAdmin.bat
  528. Goto CMDTool
  529. ::===============================IP释放并更新==============================================
  530. :CMDTool10
  531. cls
  532. choice /C YN /M "是否立即释放并更新IP,期间网络将会短暂断开,按 Y 运行,或按 N 返回主菜单
  533. if errorlevel 2 Goto CMDTool
  534. if errorlevel 1 echo 正在更新IP信息.....
  535. ipconfig /release
  536. ipconfig /renew
  537. cls
  538. Echo IP已释放并更新,任意键返回主菜单
  539. pause>nul & Goto :CMDTool
  540. ::====================================BAT 加 密 工 具===============================================
  541. :CMDTool11
  542. cls
  543. title BAT 加 密 工 具
  544. color 1f  
  545. :start  
  546. cls
  547. echo                        ────────────────  
  548. echo     ─────────┤       BAT 加 密 工 具      ├──────────
  549. echo    │                  ────────────────                    │
  550. echo    │                                                                      │
  551. echo    │            1、本工具用来对明文批处理文件进行加密!                    │
  552. echo    │                                                                      │
  553. echo    │            2、直接把待加密批处理文件拖至本窗口释放即可!              │
  554. echo    │                                                                      │
  555. echo    │            3、加密后会在当前目录下生成NewCode.bat文件!               │
  556. echo    │                                                                      │
  557. echo    │                                        17年09月18日                  │
  558. echo     ────────────────────────────────────  
  559. ECHO;
  560. set /p file=请输入需要加密的批处理文件名后按回车键[Q=主菜单]:
  561. if "!file!"=="Q" goto :CMDTool
  562. echo !file!|findstr /i "\.bat">nul && goto :go
  563. echo !file!|findstr /i "\.c*">nul && goto :go
  564. cls
  565. echo ==============
  566. echo 请正确输入!
  567. echo ==============
  568. ECHO;
  569. ECHO;
  570. echo 按任意键重新输入......
  571. pause>nul & goto :start
  572. :go
  573. if not exist "!file!" goto :newly
  574. if exist encrypt.bat copy encrypt.bat encryptbak.bat
  575. echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a >"%tmp%\encrypt.tmp"
  576. echo cls>>"!tmp!\encrypt.tmp"
  577. type "!file!">>"!tmp!\encrypt.tmp"
  578. setlocal enabledelayedexpansion
  579. for %%i in ("!tmp!\encrypt.tmp") do (
  580.     echo %%~zi >nul 2>nul
  581.     set size=%%~zi
  582.     set num=!size:~-1!
  583.     set /a mod=num%%2
  584.     if !mod! equ 0 (goto even) else goto odd
  585. )
  586. :even
  587. copy "!tmp!\encrypt.tmp" NewCode.bat
  588. del "!tmp!\encrypt.tmp"
  589. cls
  590. echo ==========================================
  591. echo 恭喜你, 批处理加密成功,已保存为NewCode.bat
  592. echo ==========================================
  593. ECHO;
  594. ECHO;
  595. echo 按任意键返回主菜单......
  596. pause>nul & goto :CMDTool
  597. :odd
  598. ECHO; >>"!tmp!\encrypt.tmp"
  599. copy "!tmp!\encrypt.tmp" NewCode.bat
  600. del "!tmp!\encrypt.tmp"
  601. cls
  602. echo ==========================================
  603. echo 恭喜你, 批处理加密成功,已保存为NewCode.bat
  604. echo ==========================================
  605. ECHO;
  606. ECHO;
  607. echo 按任意键返回主菜单......
  608. pause>nul & goto :CMDTool
  609. :newly
  610. cls
  611. echo ================================
  612. echo 找不到批处理文件, 请重新输入!
  613. echo ================================
  614. ECHO;
  615. ECHO;
  616. echo 按任意键开始......
  617. pause>nul & goto :start
  618. :quit
  619. exit
  620. ::===============================IP显示主机名和MAC=======================
  621. :CMDTool12
  622. cls
  623. set IpAdd=
  624. set /p IpAdd=请输入要查询的IP地址[Q=主菜单]:
  625. if /i "!IpAdd!"=="Q" Goto :CMDTool
  626. echo !IpAdd!|findstr "^[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*$">nul|| (echo 输入错误,按任意键重输^^! & pause>nul & goto :CMDTool12)
  627. set _IpAdd=!IpAdd:.= !
  628. call :checkIpAdd !_IpAdd!
  629. echo 按任意键返回主菜单......
  630. pause>nul & Goto :CMDTool
  631. :checkIpAdd
  632. if "%4"=="" (echo 输入错误,按任意键重输^^! & pause>nul & goto :CMDTool12)
  633. for %%i in (%1 %2 %3 %4) do (
  634.     if %%i gtr 255 (echo 输入错误,按任意键重输^^! & pause>nul & goto :CMDTool12)
  635. )
  636. nbtstat -A !IpAdd!
  637. goto :eof
  638. ::=============================显示系统信息===============================
  639. :CMDTool13
  640. cls
  641. systeminfo
  642. echo 按任意键返回主菜单......
  643. pause>nul & Goto :CMDTool
  644. :============================跟踪指定IP的路由=============================
  645. :CMDTool14
  646. cls
  647. set Router=
  648. set /p Router=请输入要跟踪的IP或域名[Q=主菜单]:
  649. if /i "!Router!"=="Q" Goto :CMDTool
  650. cls
  651. echo 正在跟踪!Router!所通过的路由中,请稍后.....
  652. tracert !Router!
  653. echo 按任意键返回主菜单......
  654. pause>nul & Goto :CMDTool
  655. ::===========================获取管理员所有权================================
  656. :CMDTool15
  657. cls
  658. echo 正在添加权限........
  659. (
  660. echo Windows Registry Editor Version 5.00
  661. echo [HKEY_CLASSES_ROOT\*\shell\runas]
  662. echo ^@="获取管理员所有权"
  663. echo "NoWorkingDirectory"=""
  664. echo [HKEY_CLASSES_ROOT\*\shell\runas\command]
  665. echo ^@="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F"
  666. echo "IsolatedCommand"="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F"
  667. echo [HKEY_CLASSES_ROOT\exefile\shell\runas2]
  668. echo ^@="获取管理员所有权"
  669. echo "NoWorkingDirectory"=""
  670. echo [HKEY_CLASSES_ROOT\exefile\shell\runas2\command]
  671. echo ^@="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F"
  672. echo "IsolatedCommand"="cmd.exe /c takeown /f \"^%%1\" && icacls \"^%%1\" /grant administrators:F"
  673. echo [HKEY_CLASSES_ROOT\Directory\shell\runas]
  674. echo ^@="获取管理员所有权"
  675. echo "NoWorkingDirectory"=""
  676. echo [HKEY_CLASSES_ROOT\Directory\shell\runas\command]
  677. echo ^@="cmd.exe /c takeown /f \"^%%1\" /r /d y && icacls \"^%%1\" /grant administrators:F /t"
  678. echo "IsolatedCommand"="cmd.exe /c takeown /f \"^%%1\" /r /d y && icacls \"^%%1\" /grant administrators:F /t"
  679. )>reg.reg
  680. regedit /s reg.reg
  681. del reg.reg
  682. echo 添加完成,按任意键返回主菜单......
  683. pause>nul & Goto :CMDTool
  684. ::===================================这是局域网共享工具程序================================
  685. :CMDTool16
  686. cls
  687. title 局 域 网 共 享 工 具
  688. color 4f
  689. cls
  690. echo                     ───────────────  
  691. echo     ───────┤     局 域 网 共 享 工 具     ├────────
  692. echo    │               ───────────────                 │
  693. echo    │                                                              │
  694. echo    │[1] 开通局域网共享               [2] 开通局域网共享(需验证)   │
  695. echo    │                                                              │
  696. echo    │[3] 关闭局域网共享               [4] 返回主菜单               │
  697. echo    │                                                              │
  698. echo    │[0] 退出                             17年10月28日             │
  699. echo     ────────────────────────────────
  700. ECHO;
  701. choice /C 12340 /M "请选择!!
  702. if errorlevel 5 exit
  703. if errorlevel 4 Goto :CMDTool
  704. if errorlevel 3 Goto :ShareOff
  705. if errorlevel 2 Goto :ShareOn2
  706. if errorlevel 1 Goto :ShareOn
  707. :ShareOn
  708. cls
  709. ECHO;
  710. ECHO                             说      明
  711. ECHO --------------------------------------------------------------------
  712. ECHO 本批处理执行后,将作以下一些设置:
  713. ECHO 1、允许SAM帐户和共享的匿名枚举(原版系统允许,本系统默认是禁用)。
  714. ECHO 2、本机帐户若空密码,允许其它机访问本机。
  715. ECHO 3、Windows防火墙:允许文件和打印机共享。
  716. ECHO 4、共享方式:本地用户以来宾身份验证。
  717. ECHO 5、来宾帐户:启用。
  718. ECHO --------------------------------------------------------------------
  719. ECHO;
  720. ECHO 采用这种共享方式,其它机访问本机都不用输用户名和密码。举例来说,家庭
  721. ECHO 局域网,彼此都是可以信任的,请使用这种方式。
  722. ECHO;
  723. ECHO 无论采用哪一种共享方式,共享只是方便内部使用,在用路由器上网的场合,
  724. ECHO 外网不能访问到您的机,无需担心共享了就会被入侵。您只需记住,单机拨号
  725. ECHO 上网时,不要打开共享就可以了。
  726. ECHO --------------------------------------------------------------------
  727. ECHO;
  728. echo 请详细阅读说明,任意键继续....
  729. PAUSE>nul
  730. ::============================生成开通局域网共享.reg===============================
  731. (
  732. echo Windows Registry Editor Version 5.00
  733. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  734. echo "restrictanonymous"=dword:00000000
  735. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  736. echo "restrictanonymous"=dword:00000000
  737. rem 以上两行在系统中的位置是:本地安全策略-安全选项-网络访问:不允许SAM帐户和共享
  738. rem 的匿名枚举。系统默认值是:已停用。
  739. rem 解说:操作系统默认:利用ipc$通道可以建立空连接,匿名枚举出该机有多少帐户。显然
  740. rem 有一定的安全隐患。本系统已设为不允许空连接了。以此提高单机拨号上网的安全性。
  741. rem 负面影响是局域网不能互访了。要更改一下才可以解决。
  742. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  743. echo "limitblankpassworduse"=dword:00000000
  744. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  745. echo "limitblankpassworduse"=dword:00000000
  746. rem 以上两行在系统中的位置是:本地安全策略--安全选项--帐户:使用空白密码的本地帐户
  747. rem 只允许进行控制台登录。系统默认值是:已启用。
  748. rem 解说:很多人的帐户是不加密码的。这样,当局域网中别的电脑访问本机时,会弹出错误提示:
  749. rem 登录失败:用户帐户限制………。这是XP系统的一条安全策略造成的,防止别人趁你空密码时
  750. rem 进入你的电脑。如果你觉得无所谓,不必做这些限制,那就把它设为:已停用。
  751. echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count]
  752. echo "HRZR_EHAPCY"=hex:0C,00,00,00,26,00,00,00,F0,FB,E5,52,64,95,C6,01
  753. echo "HRZR_EHAPCY:"P:\JVAQBJF\flfgrz32\sverjnyy.pcy",Jvaqbjf 防火墙"=hex:0C,00,00,00,08,00,00,00,F0,FB,E5,52,64,95,C6,01
  754. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  755. echo "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  756. echo "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  757. echo "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  758. echo "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  759. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch]
  760. echo "Epoch"=dword:000001ED
  761. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Providers]
  762. echo "LogonTime"=hex:E8,31,8E,4F,64,95,C6,01
  763. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  764. echo "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  765. echo "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  766. echo "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  767. echo "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  768. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch]
  769. echo "Epoch"=dword:000001ED
  770. rem 以上数值对应系统中的位置:控制面板--防火墙--例外--文件和打印机共享。系统默认:不选。
  771. rem 解说:所有的策略都设置好了,局域网依然不能访问,提示:您没有权限使用网络资源,找
  772. rem 不到网络路径!呵呵,真是令人火冒三丈!其实XP还有一道关卡,就是防火墙,必须要经过
  773. rem 防火墙的允许才行。
  774. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  775. echo "forceguest"=dword:00000001
  776. rem 以上数值对应系统中的位置是:控制面板--管理工具--本地安全策略--本地策略--安全选项,
  777. rem 网络访问:本地帐户的共享和安全模式:仅来宾-本地用户以来宾份验证。这时,当局域网
  778. rem 其他机访问本机时,不会弹出对话框,就可以直接进入。在家庭网等完全可以信任的区域,
  779. rem 建议使用这种方式。
  780. )>开通局域网共享.reg
  781. regedit /s 开通局域网共享.reg
  782. net user Guest /active:yes
  783. del 开通局域网共享.reg
  784. cls
  785. ECHO;
  786. ECHO --------------------------------------------------------------------
  787. ECHO 操作完成。按任意键返回菜单......
  788. ECHO 注意:本机要重启后才会生效。
  789. ECHO --------------------------------------------------------------------
  790. ECHO;
  791. ECHO 疑难问题补充:
  792. ECHO   如果以前的共享方式是“本地用户以自己自己身份验证”时共享了文件夹,
  793. ECHO 则现在改为以来宾身份验证后再访问该文件夹,会弹出错误:“无法访问,您
  794. ECHO 没有权限使用网络资源.”解决办法是:在该文件夹属性上把原共享取消,然
  795. ECHO 后重新共享,就行了。
  796. ECHO --------------------------------------------------------------------
  797. pause>nul && Goto :CMDTool16
  798. :ShareOn2
  799. cls
  800. ECHO;
  801. ECHO;                            说      明
  802. ECHO --------------------------------------------------------------------
  803. ECHO 本批处理执行后,将作以下一些设置:
  804. ECHO 1、允许SAM帐户和共享的匿名枚举(原版系统允许,本系统默认是禁用)。
  805. ECHO 2、本机帐户若空密码,允许其它机访问本机。
  806. ECHO 3、Windows防火墙:允许文件和打印机共享。
  807. ECHO 4、共享方式:本地用户以自己的身份验证。
  808. ECHO 5、来宾帐户:不启用。
  809. ECHO --------------------------------------------------------------------
  810. ECHO;
  811. ECHO 采用这种共享方式,访问本机时必须要输入正确的用户名和密码,才能访问。
  812. ECHO;
  813. ECHO 无论采用哪一种共享方式,共享只是方便内部使用,在用路由器上网的场合,
  814. ECHO 外网不能访问到您的机,无需担心共享了就会被入侵。您只需记住,单机拨号
  815. ECHO 上网时,不要打开共享就可以了。
  816. ECHO --------------------------------------------------------------------
  817. ECHO;
  818. echo 请详细阅读说明,任意键继续....
  819. PAUSE>nul
  820. ::============================生成开通局域网共享需验证.reg===============================
  821. (
  822. echo Windows Registry Editor Version 5.00
  823. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  824. echo "restrictanonymous"=dword:00000000
  825. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  826. echo "restrictanonymous"=dword:00000000
  827. rem 以上两行在系统中的位置是:本地安全策略-安全选项-网络访问:不允许SAM帐户和共享
  828. rem 的匿名枚举。系统默认值是:已停用。
  829. rem 解说:操作系统默认:利用ipc$通道可以建立空连接,匿名枚举出该机有多少帐户。显然
  830. rem 有一定的安全隐患。本系统已设为不允许空连接了。以此提高单机拨号上网的安全性。
  831. rem 负面影响是局域网不能互访了。要更改一下才可以解决。
  832. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  833. echo "limitblankpassworduse"=dword:00000000
  834. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  835. echo "limitblankpassworduse"=dword:00000000
  836. rem 以上两行在系统中的位置是:本地安全策略--安全选项--帐户:使用空白密码的本地帐户
  837. rem 只允许进行控制台登录。系统默认值是:已启用。
  838. rem 解说:很多人的帐户是不加密码的。这样,当局域网中别的电脑访问本机时,会弹出错误提示:
  839. rem 登录失败:用户帐户限制………。这是XP系统的一条安全策略造成的,防止别人趁你空密码时
  840. rem 进入你的电脑。如果你觉得无所谓,不必做这些限制,那就把它设为:已停用。
  841. echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count]
  842. echo "HRZR_EHAPCY"=hex:0C,00,00,00,26,00,00,00,F0,FB,E5,52,64,95,C6,01
  843. echo "HRZR_EHAPCY:"P:\JVAQBJF\flfgrz32\sverjnyy.pcy",Jvaqbjf 防火墙"=hex:0C,00,00,00,08,00,00,00,F0,FB,E5,52,64,95,C6,01
  844. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  845. echo "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  846. echo "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  847. echo "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  848. echo "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  849. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch]
  850. echo "Epoch"=dword:000001ED
  851. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Print\Providers]
  852. echo "LogonTime"=hex:E8,31,8E,4F,64,95,C6,01
  853. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  854. echo "445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
  855. echo "137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
  856. echo "138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
  857. echo "139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
  858. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch]
  859. echo "Epoch"=dword:000001ED
  860. rem 以上数值对应系统中的位置:控制面板--防火墙--例外--文件和打印机共享。系统默认:不选。
  861. rem 解说:所有的策略都设置好了,局域网依然不能访问,提示:您没有权限使用网络资源,找
  862. rem 不到网络路径!呵呵,真是令人火冒三丈!其实XP还有一道关卡,就是防火墙,必须要经过
  863. rem 防火墙的允许才行。
  864. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  865. echo "forceguest"=dword:00000000
  866. rem 以上数值对应系统中的位置是:控制面板--管理工具--本地安全策略--本地策略--安全选项,
  867. rem 网络访问:本地帐户的共享和安全模式:经典-本地用户以自己的身份验证。这时,当局域网
  868. rem 其他机访问本机时,会弹出对话框,需要填写本机正确的用户名和密码才允许访问。这种方式
  869. rem 是安全的。建议使用。
  870. )>开通局域网共享需验证.reg
  871. regedit /s 开通局域网共享需验证.reg
  872. net user Guest /active:no
  873. del 开通局域网共享需验证.reg
  874. cls
  875. ECHO;
  876. ECHO -------------------------------------------------------------------
  877. ECHO 操作完成。按任意键返回菜单.....
  878. ECHO 无需重启,其它机现在就可以访问本机了。
  879. ECHO;
  880. ECHO -------------------------------------------------------------------
  881. ECHO;
  882. ECHO 常见疑问:
  883. ECHO    经上述处理后,访问本机,如果仍然是直接就进去了,没出现提示输入帐
  884. ECHO 号和密码的对话框,那是因为其他电脑的帐户名称跟本机帐户名一样(比如双
  885. ECHO 方都是administrator),且本机无密码。您应该把本机帐户改名,或加密码。
  886. ECHO 这样,未经授权的用户就不能随意访问您共享的资源了。
  887. ECHO -------------------------------------------------------------------
  888. pause>nul && Goto :CMDTool16
  889. :ShareOff
  890. cls
  891. ECHO OFF
  892. ECHO;
  893. ECHO;                      说     明
  894. ECHO ----------------------------------------------------------
  895. ECHO 本批处理执行后,将作以下一些设置:
  896. ECHO 1、不允许SAM帐户和共享的匿名枚举(原版系统默认是允许的)。
  897. ECHO 2、本机帐户若空密码,不允许其它机访问本机。
  898. ECHO 3、Windows防火墙:不允许文件和打印机共享。
  899. ECHO 4、来宾帐户:禁用。
  900. ECHO;
  901. ECHO 如果您不需要常在局域网内互传文件,可以关闭共享功能以提高
  902. ECHO 安全性。尤其是单机拨号上网的用户,更应关闭共享。
  903. ECHO ----------------------------------------------------------
  904. @ECHO;
  905. echo 请详细阅读说明,任意键继续....
  906. PAUSE>nul
  907. ::============================生成关闭局域网共享.reg===============================
  908. (
  909. echo Windows Registry Editor Version 5.00
  910. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  911. echo "restrictanonymous"=dword:00000001
  912. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  913. echo "restrictanonymous"=dword:00000001
  914. rem 以上两行在系统中的位置是:本地安全策略-安全选项-网络访问:不允许SAM帐户和共享
  915. rem 的匿名枚举。系统默认值是:已停用。
  916. rem 解说:操作系统默认利用ipc$通道可以建立空连接,匿名枚举出该机有多少帐户。显然
  917. rem 有一定的安全隐患。本系统已设为不允许空连接了。以此提高单机拨号上网的安全性。
  918. rem 负面影响是局域网不能互访了。要更改一下才可以解决。
  919. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]
  920. echo "limitblankpassworduse"=dword:00000001
  921. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa]
  922. echo "limitblankpassworduse"=dword:00000001
  923. rem 以上两行在系统中的位置是:本地安全策略--安全选项--帐户:使用空白密码的本地帐户
  924. rem 只允许进行控制台登录。系统默认值是:已启用。
  925. rem 解说:很多人的帐户是不加密码的。这样,当局域网中别的电脑访问本机时,会弹出错误提示:
  926. rem 登录失败:用户帐户限制………。这是XP系统的一条安全策略造成的,防止别人趁你空密码时
  927. rem 进入你的电脑。如果你觉得无所谓,不必做这些限制,那就把它设为:已停用。
  928. echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count]
  929. echo "HRZR_EHAPCY"=hex:0C,00,00,00,2A,00,00,00,90,AF,A4,87,A4,95,C6,01
  930. echo "HRZR_EHAPCY:"P:\JVAQBJF\flfgrz32\sverjnyy.pcy",Jvaqbjf 防火墙"=hex:0C,00,00,00,13,00,00,00,90,AF,A4,87,A4,95,C6,01
  931. echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG]
  932. echo "Seed"=hex:AC,6F,9A,2B,11,64,44,68,EC,90,1B,76,72,A7,0A,14,\
  933. echo 4C,79,37,BB,FD,BD,70,B2,B2,58,D5,B5,89,5C,B6,4E,\
  934. echo 3B,18,A5,26,46,BC,3E,6A,30,A4,7D,A0,56,E6,6A,B5,\
  935. echo 57,3A,BF,A1,CD,CA,B6,64,4C,F9,0E,D2,64,ED,86,1F,\
  936. echo 61,F6,D1,01,0B,7C,8D,BD,73,10,C8,4E,57,93,4E,90
  937. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  938. echo "445:TCP"="445:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22005"
  939. echo "137:UDP"="137:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22001"
  940. echo "138:UDP"="138:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22002"
  941. echo "139:TCP"="139:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22004"
  942. echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Epoch]
  943. echo "Epoch"=dword:000001FC
  944. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
  945. echo "445:TCP"="445:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22005"
  946. echo "137:UDP"="137:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22001"
  947. echo "138:UDP"="138:UDP:LocalSubNet:Disabled:@xpsp2res.dll,-22002"
  948. echo "139:TCP"="139:TCP:LocalSubNet:Disabled:@xpsp2res.dll,-22004"
  949. echo [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\SharedAccess\Epoch]
  950. echo "Epoch"=dword:000001FC
  951. rem 以上数值对应系统中的位置:控制面板--防火墙--例外--文件和打印机共享。系统默认:不选。
  952. rem 解说:所有的策略都设置好了,局域网依然不能访问,提示:您没有权限使用网络资源,找
  953. rem 不到网络路径!呵呵,真是令人火冒三丈!其实XP还有一道关卡,就是防火墙,必须要经过
  954. rem 防火墙的允许才行。
  955. )>关闭局域网共享.reg
  956. regedit /s 关闭局域网共享.reg
  957. net user Guest /active:no
  958. del 关闭局域网共享.reg
  959. cls
  960. ECHO;
  961. ECHO ----------------------------------------------------------
  962. ECHO 操作完成。按任意键返回菜单......
  963. ECHO 不必重启,设置已生效。
  964. ECHO ----------------------------------------------------------
  965. pause>nul & Goto :CMDTool16
  966. ::================================本机开放的端口及使用该端口的进程======================
  967. :CMDTool17
  968. cls
  969. echo ╔-                              -╗
  970. echo   本机开放的端口及使用该端口的进程
  971. echo ╚-                              -╝
  972. echo ------------------------------------   
  973. ECHO TCP协议rem 本机地址             外部地址              进程名称
  974. ::利用netstat命令找出使用TCP协议通信的端口,并将结果分割;
  975. ::将第二个参数(IP加端口)传给%%i,第五个参数(PID号)传给%%j;
  976. for /F "usebackq skip=4 tokens=2,3,5" %%i in (`"netstat -ano -p TCP"`) do (
  977.   call :Assoc %%i TCP %%k %%j
  978.   echo          !TCP_Port:~,17!    !TCP_OutPort:~,17!    !TCP_Proc_Name:~,20!  
  979. )
  980. ECHO UDP协议rem 本机地址                     进程名称
  981. for /F "usebackq skip=4 tokens=2,4" %%i in (`"netstat -ano -p UDP"`) do (  
  982.   call :Assoc %%i UDP %%j
  983.   echo          !UDP_Port:~,17!            !UDP_Proc_Name:~,20!
  984. )
  985. echo 按任意键返回主菜单
  986. pause>nul & Goto :CMDTool
  987. :Assoc
  988. set "kong=          "
  989. ::对%1(第一个参数)进行分割,将第二个参数传给%%e。在本程序中,%1即为上面的%%i(形式为:IP:端口号)
  990. for /F "delims=" %%e in ("%1") do set %2_Port=%%e!kong!
  991. for /F "delims=" %%f in ("%4") do set %2_OutPort=%%f!kong!
  992. ::查询PID等于%3(第三个参数)的进程,并将结果传给变量?_Proc_Name,?代表UDP或者TCP;
  993. for /F "skip=1 usebackq delims=, tokens=1" %%a in (`"Tasklist /FI "PID eq %3" /FO CSV"`) do (
  994.    rem %%~a表示去掉%%a外面的引号,因为上述命令的结果是用括号括起来的。  
  995.    set %2_Proc_Name=%%~a!kong!
  996. )
  997. goto :eof
  998. ::============================================禁启用 任务管理器===============================
  999. :CMDTool18
  1000. cls
  1001. echo 禁启用任务管理器
  1002. ECHO;
  1003. set /p YN=ON-开启/OFF-关闭/Q-主菜单:
  1004. if /i "!yn!"=="q" Goto :CMDTool
  1005. if /i "!yn!"=="on" (
  1006. set dword=0
  1007. Echo 任务管理器已启用
  1008. ) else (
  1009. if /i "!yn!"=="off" (
  1010.   set dword=1
  1011.   Echo 任务管理器已禁用
  1012. ) else (
  1013.   cls
  1014.   echo 输入错误,任意键返回主菜单 & pause>nul & Goto :CMDTool
  1015. ))
  1016. reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system" /v disabletaskmgr /t REG_DWORD /d %dword% /f
  1017. pause>nul & Goto :CMDTool
复制代码

TOP

返回列表