用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 则意味着这个值不存在。
上面已经说过，我们随意尝试对各种类型的注册表值使用过这个方法，看来好像每次都有效。如果您遇到这个方法无效的情况，请让我们知道。