新建一个文本文档，输入以下字符：

Dim unchain set unchain=WScript.CreateObject("wscript.shell")

unchain.popup("取消－禁用注册表－")

unchain.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",00000000,"REG_DWORD"

unchain.popup("注册表解锁成功")

wscript.quit()

另存为unchainreg.vbs.双击运行该文件，即可解锁注册表