List all binary values within a key | |
---|---|
Const vtBinary = 3 Sub ListBinaryValues() Dim Reg Set Reg = CreateObject("RegEdit.Server") 'get a specified key rListBinaryValues Reg.GetKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion") End Sub Sub rListBinaryValues(Key) Dim SubKey, Value 'List all values under the key For Each Value In Key.Values 'type value name and path if the value is of a binary type If Value.Type = vtBinary Then Wscript.Echo Value.Key.Path & ":" & Value.Name End If Next 'List all subkeys. For Each SubKey In Key.SubKeys rListBinaryValues SubKey Next End Sub |
Represents one value from windows registry
Intuitive, easy to use COM interface to windows registry. Set of classes to read/enumerate/modify windows registry keys and values from ASP, VBS and T-SQL.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz