'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
Set Key = S.GetKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved")
For Each Value In Key.Values
Wscript.Echo Value.Value
Next
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.