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