Version Info using VBA and registry quirks. InterRegional Settings GmbH

**DocAElstein** · 03-31-2025, 02:09 PM

From Mike > that list is perhaps derived from a registry list ,
HKEY_CLASSES_ROOT\TypeLib

OK, Let's take a look….
There is a bit of an awkward thing with sub Folders with different numbers on. Here is the first few
https://i.postimg.cc/k4Jm9RQ6/Type-L...-0-Library.jpg

Type-Lib-Microsoft-Active-X-Data-Objects-2-0-Library.jpg
Probably those numbers are in the range 1.0 to 6.0 or there abouts. Never mind, I am sure my high levels of VBA skillture will get me over that little hurdle ….. here we go then …. Hold ya butts ….

[EDIT This coding is a pile or Wank ,
( You may want to revisit your code, as it seems to be dropping some names. )
, hopefully these pages will do better
https://www.excelfox.com/forum/showt...registry/page2
https://www.excelfox.com/forum/showt...ngs-GmbH/page3

Code:

Public Sub ListQuid()  '     https://eileenslounge.com/viewtopic.php?p=326180#p326180                  ' https://powershell.one/wmi/root/cimv2/stdregprov-EnumKey    '   https://www.vbforums.com/showthread.php?552899-Getting-all-sub-keys-from-a-registry-value                  https://www.vba-tutorial.de/apireferenz/registry.htm
Dim Ws As Worksheet: Set Ws = ThisWorkbook.Worksheets("CLSIDsOldVista4810TZG")                    ' set ws = Set Ws = Me ' Set Ws = ActiveSheet
Dim RegObject As Object, MeQuids() As Variant, QuidsNmbrValue As Variant
 Set RegObject = GetObject("winmgmts:\\.\root\default:StdRegProv")
 RegObject.EnumKey 2147483648#, "TypeLib", MeQuids()                                                                                                    ' https://powershell.one/wmi/root/cimv2/stdregprov-EnumKey
Dim Cnt As Long, ExRowCnt As Long: Let ExRowCnt = 1 ' ==============================================
    For Cnt = LBound(MeQuids()) To UBound(MeQuids())
     Let Ws.Range("K" & ExRowCnt + 1 + 1 & "") = MeQuids(Cnt)
    ' RegObject.getstringvalue 2147483648#, "TypeLib\" & MeQuids(Cnt) & "\2.0", "", QuidsNmbrValue ' as example this is the first one,    https://i.postimg.cc/k4Jm9RQ6/Type-Lib-Microsoft-Active-X-Data-Objects-2-0-Library.jpg
    ' This extra loop stuff could probably be done better ' ----------------------------------------
    Dim strQuidNmbr As String, QuidNmbr As Single
        For QuidNmbr = 1 To 6 Step 0.1
         Let strQuidNmbr = Format(QuidNmbr, "0.0")
        RegObject.getstringvalue 2147483648#, "TypeLib\" & MeQuids(Cnt) & "\" & strQuidNmbr & "", "", QuidsNmbrValue
            If IsNull(QuidsNmbrValue) Then
            
            Else
             Let Ws.Range("L" & ExRowCnt + 1 + 1 & "") = QuidsNmbrValue
             Let ExRowCnt = ExRowCnt + 1
            End If
        Next QuidNmbr ' ----------------------------------------------------------------------------
        If Ws.Range("K" & ExRowCnt + 1 + 1 & "").Value <> "" Then Let ExRowCnt = ExRowCnt + 1 ' This will make sure we also go down a lins for any  Quid  with no name
    Next Cnt         ' =============================================================================
End Sub
Sub SortIt() ' This will help to get a similar order to that seen in the VB Editor referrence list
Dim Ws As Worksheet: Set Ws = ThisWorkbook.Worksheets("CLSIDsOldVista4810TZG")
 Ws.Range("M3:N666") = Ws.Range("K3:L666").Value
 Ws.Range("M3:N666").Sort Key1:=Ws.Range("N3:N666"), Order1:=xlAscending
End Sub










'    https://eileenslounge.com/viewtopic.php?p=326198#p326198        https://eileenslounge.com/viewtopic.php?p=326198&sid=6f3fd375f6153093b306e77e56d88af9#p326198



'    HKEY_CLASSES_ROOT (2147483648#) (&H80000000)
'    HKEY_CURRENT_USER (2147483649#)
'    HKEY_LOCAL_MACHINE (2147483650#)
'    HKEY_USERS (2147483651#)
'    HKEY_CURRENT_CONFIG (2147483653#)