注册表的run项为何被锁定？？如何解除？

打开记事本输入以下内容
Dim unchain
Set unchain=wscript.createobject("wscript.shell")
unchain.popup("取消禁用注册表")
unchain.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies&