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

所属分类: 脚本专栏 / vbs 阅读数: 365
收藏 0 赞 0 分享
问:
嗨,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 则意味着这个值不存在。
上面已经说过,我们随意尝试对各种类型的注册表值使用过这个方法,看来好像每次都有效。如果您遇到这个方法无效的情况,请让我们知道。
更多精彩内容其他人还在看

vbscript Split函数用法详解(字符串转数组函数)

本文详细介绍了vbscript中split函数的用法,有关split函数的一些实例,vbscript中split函数的语法介绍,有需要的朋友参考下
收藏 0 赞 0 分享

VBS实现将Excel表格保存为txt文本

希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢
收藏 0 赞 0 分享

vbs解决处理TXT文本数据相关问题实现代码

使用vbs处理txt数据时,会遇到一些问题,本文将提供详细的解决方法,希望可以帮助你们
收藏 0 赞 0 分享

关于vbs 生成静态页面过程中出现的问题

访问某个aspx页面,然后把服务器返回的页面以filestream 的形式保存为html格式,接下来将介绍实现代码
收藏 0 赞 0 分享

dim函数第三个参数设置截取字符的长度问题

dim函数的第三个参数,也就是截取字符的长度,我在设置这个的时候,出了些问题,提示无效的过程调用或参数,本文详细介绍如何解决
收藏 0 赞 0 分享

邪恶的eval和new Function使用介绍

这些代码可以干什么?可以肯定的是可以干很多猥琐的事
收藏 0 赞 0 分享

WScript.Shell对象SpecialFolders属性未公开文档分享

WshShell对象的SpecialFolders属性返WshSpecialFolders 对象,该对象是一个特殊文件夹集合,其中包含整套Windows特殊文件夹
收藏 0 赞 0 分享

用VBS修改(设置)系统时间和日期的代码

用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后,这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢
收藏 0 赞 0 分享

VBS For Next循环的一些细节

For Next 语句是 VBS 中常用的循环语句,你可能已经用过无数次 For Next 循环,但是你是否注意过它的一些细节呢
收藏 0 赞 0 分享

VBS For Next循环的陷阱分享

在《VBS For Next循环的一些细节》中说到了 For Next 循环的控制变量仅仅在循环开始前求值一次,但是其中存在一处陷阱
收藏 0 赞 0 分享
查看更多