用vbscript得到注册表中是否存在某个值

问：
嗨，Scripting Guy！如何知道远程计算机上的注册表中是否存在某个值？
-- AL
答：
嗨，AL。完全披露时间：尽管我们叫做 Scripting Guy，但这并不表示我们了解有关脚本编写的一切事情。这个问题就是一个很好的例证。第一次看到这个问题时，我们认为：“好吧，WMI 中显然有某种 If Exists 方法可以实现这个目的。”但当我们发现其中并没有这样的方法时，知道我们有多吃惊么？事实上，我们找不到任何可以检查注册表中是否存在某个值的方法。我们甚至——惭愧!——去查阅文档，以为我们可能遗漏了什么。运气当然不会那么好。
在我们找不到 If Exists 方法后，我们想：“好吧，那我们就试着读取这个值。当然了，尝试读取一个不存在的值会触发一个错误。然后我们就可以捕获这个错误，并确定这个值是否存在。”
大家知道，如果您使用 WSH 的 RegRead 方法来读取一个不存在的值，那么就会触发一个错误。但 RegRead 方法只对本地计算机有效，您不能对远程计算机使用这个方法。因此您需要使用 WMI。然后，猜一猜会出现什么情况呢：如果您使用 WMI 尝试读取一个不存在的值，根本不会产生任何错误。相反，WMI 会继续运行，就好像没有错误发生一样。真是不可救药。
但后来我们发现了一些事情。当您使用 WMI 来读取注册表时，这个值会作为“输出参数”返回。当我们检查这个输出参数的实际值时，我们发现如果您尝试读取的值不存在，那么您就会得到 Null。这就是说，我们所要做的就是检查 Null 值，这样我们就可以知道这个注册表值存不存在。
明白了吗？以下示例脚本查找注册表值 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Test Value：


代码如下:

Const HKEY_LOCAL_MACHINE = &H80000002 
strComputer = "." 
Set objRegistry = GetObject("winmgmts:\\" & _  
    strComputer & "\root\default:StdRegProv") 
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion" 
strValueName = "Test Value" 
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue 
If IsNull(strValue) Then 
    Wscript.Echo "The registry key does not exist." 
Else 
    Wscript.Echo "The registry key exists." 
End If

如您所见，我们首先将常量 HKEY_LOCAL_MACHINE 设置为 &H80000002；等一会我们将使用这个值来连接注册表的 HKEY_LOCAL_MACHINE 部分。然后，我们连接 WMI 服务，并连接 StdRegProv 类（位于 root\default namespace 中）。
我们先将注册表路径和注册表值隐藏在一对变量中，然后调用 GetStringValue 方法。注意这个方法的以下四个参数：我们的常量 HKEY_LOCAL_MACHINE；变量 strPath（表示注册表路径）；变量 strValueName（表示我们要读取的注册表值）；以及 strValue。strValue 即我们的输出参数：注册表中记录的实际字符串值将会存储在 strValue 中，并返回给我们。
根据以下情况，我们就可以知道注册表值是否存在：如果 strValue 为 Null，则这个值不存在。我们对很多注册表值都使用了这个方法，看来每次都有效。它对 REG_DWORD 值也有效，当然，您必须使用 GetDWORDValue 方法才能读取这种值。有关如何使用 WMI 处理注册表的详细信息，请参阅“Microsoft Windows 2000 脚本编写”中的 “注册表”一章。
现在，我们知道您在想什么：您在想，“好吧，那如果我创建了一个空白的注册表值又会怎样？是否输出参数仍会作为 Null 返回，即使注册表值存在？”信不信由你，情况是不同的。相反，空白的注册表值会作为“empty”返回，也就是说这个值等于空字符串 ("")。我们认识到这个问题可能会带来困扰，在这种情况下，无（空字符串）并不等于无（Null 值）。空白意味着注册表值存在，但是这个值为空白；而 Null 则意味着这个值不存在。
上面已经说过，我们随意尝试对各种类型的注册表值使用过这个方法，看来好像每次都有效。如果您遇到这个方法无效的情况，请让我们知道。