'Get RegEdit.Server object
Set S = CreateObject("RegEdit.Server")
'Number of classes.
Wscript.Echo S.GetKey("HKCR").numSubKeys
'Same as
Wscript.Echo S.GetKey("HKCR").SubKeys.Count
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.