用vbs操作注册表实例代码

打开或关闭CMD：

1.  Dim WSHShell, r, m, v, t, g 
2. Dim i 
3.  
4. On Error Resume Next 
5.  
6. Set WSHShell=WScript.CreateObject("WScript.Shell") 
7. v="HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\system\DisableCMD" 
8. i="REG_DWORD" 
9. t="命令提示窗口开关" 
10.  
11. r=WSHShell.RegRead(v) 
12. g=1 
13.  
14. If (r=1) Then g=0 
15. If g=1 Then 
16.  WSHShell.RegWrite v,1,i 
17.  m=MsgBox("是否限制命令提示窗口？",3,t) 
18. Else 
19.  WSHShell.RegDelete v 
20.  m=MsgBox("是否解除命令提示窗口限制？",3,t) 
21. End If 
22.  
23.   将以上内容复制到记事本中，将文件另存为*.VBS即可！ 
24.  
25.   打开或关闭注册表： 
26.  
27. Dim WSHShell,r,M,v,t,g,i 
28.  
29. On Error Resume Next 
30.  
31. Set  WSHShell=WScript.CreateObject("WScript.Shell") 
32.  v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" 
33.  i="REG_DWORD" 
34.  t="注册表开关" 
35.  r=WSHShell.RegRead(v) 
36.  g=1 
37.  
38. If r=1 Then g=0 
39. If g=1 Then 
40.  WSHShell.RegWrite v,1,i 
41.  M=MsgBox("是否限制注册表编辑器?",4,t) 
42. Else 
43.  WSHShell.RegDelete v 
44.  M=MsgBox("是否解除注册表编辑器限制?",4,t) 
45. End If 
46.  
47.   也是将以上内容复制到记事本中，将文件另存为*.VBS即可！ 
48.  
49.   打开或关闭任务管理器： 
50.  
51. Dim WSHShell, r, m, v, t, g 
52. Dim i 
53.  
54. On Error Resume Next 
55.  
56. Set WSHShell=WScript.CreateObject("WScript.Shell") 
57. v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" 
58. i="REG_DWORD" 
59. t="任务管理器开关" 
60.  
61. r=WSHShell.RegRead(v) 
62. g=1 
63.  
64. If (r=1) Then g=0 
65. If g=1 Then 
66.  WSHShell.RegWrite v,1,i 
67.  m=MsgBox("是否限制任务管理器？",3,t) 
68. Else 
69.  WSHShell.RegDelete v 
70.  m=MsgBox("是否解除任务管理器限制？",3,t) 
71. End If 

也是将以上内容复制到记事本中，将文件另存为*.VBS即可!

希望大家能用上以上脚本!