Проверьте, не работает ли ключ реестра

Question

Я пытаюсь прочитать раздел реестра и посмотреть, существует ли он - я сделал следующее, но я продолжаю получать ошибку, что ключ не существует ... когда он это делает? Что я делаю не так?

[Const HKEY_LOCAL_MACHINE = &H80000002 

strComputer = "." 
Set objRegistry = GetObject("winmgmts:\\" & _ 
    strComputer & "\root\default:StdRegProv") 

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\localhost" 
strValueName = "http" 
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 

Answer 1

Моя плохо ... Я искал для значения реестра вместо фактического keyName..changed его "strValueName":

If IsNull(**strValueName**) Then 
    Wscript.Echo "The registry key does not exist." 
Else 
    Wscript.Echo "The registry key exists." 
End If 

и работает отлично сейчас ..