问答和技巧交流之一：
这是hhstone 在网上论坛和网友的交流记录，欢迎交流和发表评论。

?? 求救! 运行注册表时, 系统提示注册编辑已被他人禁止.
hhstone:
## 1.
1. 备份注册表
2. 用记事本把下面的内容生成文件, 以.reg 为扩展名.如uk98.reg
3. 双击解锁注册表的脚本文件  uk98.reg ，将内容写入注册表。
      如果无法写入，说明 .reg 与regedit.exe的关联已被关了，
      可采取下述步骤。
4. 双击运行  rdwin.vbs ，这是一个读注册表判断是否加了锁的
      程序。如果键值是1 ，证实已加锁，执行下一步。
5. 双击运行  ukwin.vbs ，这时加的锁，应已解开。可以再次运
      行  rdwin.vbs  ，如果是 0 ，证实已经解开。
6. 本源码在win98 下通过.

'uk98.reg 脚本文件:

REGEDIT4

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableRegistryTools"=dword:00000000

## 2. 用 WSH 测试注册表是否加锁的文件(rdwin.vbs)

'rdwin.vbs
MessageText   = "此脚本是用于解读windows注册表加锁否。"
TitleText     = "Windows Scripting Host 应用--解读注册表加锁否"
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Popup "将为您解读注册表加锁否"

Value = WSHShell.RegRead ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools")
MsgBOX "解读注册表加锁否(1-加锁,0-未锁) = " & Value

## 3. 用 WSH 解锁注册表的文件(ukwin.vbs)
'ukwin.vbs
MessageText   = "此脚本是用于解锁windows注册表。"
TitleText     = "Windows Scripting Host 应用--解锁注册表"
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Popup "将为您解开注册表"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"


Value = WSHShell.RegRead ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools")
MsgBOX "解锁注册表 = " & Value & "成功"