用vbs实现注册表开关的脚本

1. Dim WSHShell,r,M,v,t,g,i  
2. On Error Resume Next  
3. Set WSHShell=WScript.CreateObject("WScript.Shell")  
4. v="HKCU\Software\Microsoft\Windows\CurrentVersion\  
5. Policies\System\DisableRegistryTools"  
6. i="REG_DWORD"  
7. t="注册表开关"  
8. r=WSHShell.RegRead(v)  
9. g=1  
10. If (r=1) Then g=0  
11. If g=1 Then  
12. WSHShell.RegWrite v,1,i  
13. M=MsgBox("是否限制注册表编辑器?",4,t)  
14. Else  
15. WSHShell.RegDelete v  
16. M=MsgBox("是否解除注册表编辑器限制?",4,t)  
17. End If