vba получение списка доступных подключений

vba-Получение списка доступных подключений.vba

Public Sub qwqw()
Const HKEY_CURRENT_USER = &H80000001
 
strComputer = "."
 
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
 
strKeyPath = "Software\ODBC\ODBC.INI\ODBC Data Sources"
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes
 
For i = 0 To UBound(arrValueNames)

    strValueName = arrValueNames(i)
    objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
    a = arrValueNames(i) & " -- " & strValue
    Debug.Print a
Next
End Sub