dim wshshell,r,m,v,t,i
on error resume next
set wshshell=wscript.createobject("wscript.shell")
v="hkey_current_user\software\microsoft\windows\currentversion\policies\system\disableregistrytools"
i="REG_DWORD"
t="注册表开关"
r=wshshell.regread v
if r=0 then
m=msgbox("是否限制注册表编辑器?",4,t)
if m=vbyes then wshshell.regwrite v,1,i
else
m=msgbox("是否解除注册表编辑器限制?",4,t)
if m=vbyes then wshshell.regdelete v
end if

保存为.vbs无法运行