VBS 判断注册表某个键值的值是否是xxx

设：HKEY_CLASSES_ROOT\...\aaa 的值为"1"(二进制),如何判断键值的值是否是“1”?如果不是“1”，就改为“1”
键HKEY_CLASSES_ROOT\...\aaa 原来就存在，只是判断它的值是否是“1”

On Error Resume Next
Dim OperationRegistry,Value
Set OperationRegistry = CreateObject("Wscript.Shell")
Value = OperationRegistry.RegRead("HKEY_CLASSES_ROOT\...\aaa")
If (Value = 1) Then
Msgbox "HKEY_CLASSES_ROOT\...\aaa的值为1",4160,"结果"
Else
Msgbox "HKEY_CLASSES_ROOT\...\aaa的值不为1",4160,"结果"
OperationRegistry.RegWrite "HKEY_CLASSES_ROOT\...\aaa",1,"REG_BINARY"
End If
Set OperationRegistry = Nothing
Wscript.Quit

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fpv8fm42s.html