解锁注册表

打开记事本输入以下内容

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.popup.quit()　

最后保存为" unchain.vbs ",双击它即可解锁。
这是我从书上学的，很管用，和大家分享一下