Binaryworld - GetFileFromCLSID - The file that implements a COM component with given ... [ VB -> COM-COM+ ]

' Get the name of the DLL or EXE that contains
' the class whose CLSID is passed as an argument
'
' Note: Remote servers aren't taken into account

Function GetFileFromCLSID(ByVal clsid As String) As String
  Const HKEY_CLASSES_ROOT = &H80000000

  ' try to read the HKEY_CLASSES_ROOT\CLSID\{...}\InProcServer32 value
  GetFileFromProgID = GetRegistryValue(HKEY_CLASSES_ROOT, _
    "CLSID\" & clsid & "\InProcServer32", "")

  If Len(GetFileFromProgID) = 0 Then
    ' try to read the HKEY_CLASSES_ROOT\CLSID\{...}\LocalServer32 value
    GetFileFromProgID = GetRegistryValue(HKEY_CLASSES_ROOT, _
      "CLSID\" & clsid & "\LocalServer32", "")
  End If
End Function