QTP操作注册表

在QTP中没有提供用于直接操作注册表的测试对象，但是利用Windows脚本的Shell对象，可以对注册表进行增删改等操作，例如下面的脚本：

Dim WshShell, bKey

' 创建Shell对象
Set WshShell = CreateObject("WScript.Shell")

' 使用Shell对象来读取注册表
bKey = WshShell.RegRead("HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins")
Msgbox bKey

' 修改注册表
WshShell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins", "D:/Program Files/Mozilla Firefox/Plugins", "REG_SZ"

' 删除注册表
WshShell.RegDelete "HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins"

' 修改或写入注册表
WshShell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins", "C:/Program Files/Mozilla Firefox/Plugins", "REG_SZ"