爱华网http://www.ccw.com.cn/soft/apply/os/htm2007/20070723_290850.shtml
*本文所用方法在Windows 9x下不可用。
优化系统、清理垃圾、修复故障，似乎和系统沾边的操作都得和注册表打交道。绝少有人会去记注册表路径，大多数人都是现搜，但是要通过系统自带的“
注册表编辑器”展开网页上的长串注册表路径实在不容易，点都得点老半天，为什么不像IE似的有个地址栏呢？不用安装软件，打开“记事本”，输入以下脚本:
Option Explicit
Dim objShell
Dim strRegAddress
Set objShell = CreateObject("Wscript.Shell")
‘获取用户所输入的地址。
strRegAddress = InputBox("请输入注册表路径地址", "注册表地址栏")
If strRegAddress = "" Then
WScript.Quit
End If
‘如果注册表编辑器已经运行则要先关闭它。
If objShell.AppActivate("注册表编辑器") Then
objShell.SendKeys("%{F4}") ‘Alt + F4关闭窗口。
WScript.Sleep(1000) ‘等待注册表编辑器关闭。
End If
‘合成最终的地址。
strRegAddress = "我的电脑" & strRegAddress
‘将该地址写入注册表。
objShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionAppletsRegeditLastKey",strRegAddress
‘启动注册表编辑器。
objShell.Run("RegEdit.exe")
完成后保存为一个VBS脚本文件(注意:保存类型要选择“所有文件”，否则会存成TXT)。然后将该脚本文件放置到方便使用的地方，比如快速启动栏。以后只要运行该脚本，输入欲打开的注册表路径地址(见图)，回车后就能打开“注册表编辑器”并且定位到该地址了。
