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()