检查注册表值

Question

将以下行添加到验证脚本中，以检查注册表值是否已添加并获取消息

验证HKLM\SOFTWARE\OLEforRetail\ServiceOPOS\MSR\REDIRON_MSR注册表值时取心的错误

以下是代码：

Dim strRegvalue

strRegvalue = g_objShell.RegRead("HKLM\SOFTWARE\OLEforRetail\ServiceOPOS\MSR\REDIRON_MSR\")

If LCase(strRegvalue) = "True" Then
  Call WriteToLog("HKLM\SOFTWARE\OLEforRetail\ServiceOPOS\MSR\REDIRON_MSR value verified successfully")
Else
  RegSuccessCode = 111
  Call WriteToLog("Error occurred while verifying the Registry Value for HKLM\SOFTWARE\OLEforRetail\ServiceOPOS\MSR\REDIRON_MSR")
End If

你能告诉我我哪里出了问题吗。

Answer 1

如果要使用RegRead检查注册表项的存在，可以通过读取键的默认值来实现。但是，必须启用错误处理，因为如果不能读取值(即键不存在)，RegRead将引发错误：

key = "HKLM\SOFTWARE\OLEforRetail\ServiceOPOS\MSR\REDIRON_MSR\"

On Error Resume Next
g_objShell.RegRead key
If Err Then
  WScript.Echo key & " does not exist."
Else
  WScript.Echo key & " exists."
End If
On Error Goto 0

更好的方法是使用WMI注册表方法，例如EnumKey。

Set reg = GetObject("winmgmts://./root/default:StdRegProv")

Const HKLM = &h80000002
key = "SOFTWARE\OLEforRetail\ServiceOPOS\MSR\REDIRON_MSR\"

retval = reg.EnumKey(HKLM, key, Null)
If retval = 0 Then
  WScript.Echo key & " exists."
Else
  WScript.Echo key & " does not exist."
End If