Dim WSHShell,r,M,v,t,g,i 
On Error Resume Next 
Set WSHShell=WScript.CreateObject("WScript.Shell") 
v="HKCU/Software/Microsoft/Windows/CurrentVersion/ 
Policies/System/DisableRegistryTools" 
i="REG_DWORD" 
t="注冊表開關" 
r=WSHShell.RegRead(v) 
g=1 
If (r=1) Then g=0 
If g=1 Then 
WSHShell.RegWrite v,1,i 
M=MsgBox("是否限制注冊表編輯器?",4,t) 
Else 
WSHShell.RegDelete v 
M=MsgBox("是否解除注冊表編輯器限制?",4,t) 
End If