Проверьте, существует ли значение двоичного реестра через VBScript

Question

У меня есть код, который проверяет, существует или нет значение ключа реестра. Он работает только для двоичных значений, если целевой путь является двоичным значением, он не может проверить его и скажет, что ключ не существует.

Вот код:

Const HKEY_CURRENT_USER = &H80000001

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

strKeyPath = "System\CurrentControlSet\Control\Stranger"
strValueName = "TargetBinaryKey"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue

If IsNull(strValue) Then
WScript.Echo "The Key Does Not Exists."
Else
WScript.Echo "The Key Exists."
End If

Что мне делать?

Answer 1

Вы должны использовать .enumValues вместо .GetStringValue.Вы можете найти фрагмент кода здесь

Добавление: вы также можете использовать GetBinaryValue, если знаете заранее, что значение хранится в двоичном виде