Progid from Interface ID

HRESULT FindCoClass(ITypeInfo* pti, GUID target, std::string &progid, std::string &clsid, std::string &version)
{
   HRESULT hr = S_OK;
   UINT count = 0;
   char buf[100];
   std::string tmp;
   WCHAR* pwszProgID = NULL;

   USES_CONVERSION;
   UINT index=0;
   
   CComPtr<ITypeLib> spTypeLib = NULL;
    hr = pti->GetContainingTypeLib(&spTypeLib, &index);

   if(SUCCEEDED(hr) && spTypeLib){
      
      UINT cnt = spTypeLib->GetTypeInfoCount();
      for(int i=0; i < cnt; i++){
         TYPEKIND tk;
         CComPtr<ITypeInfo> spTypeInfo = NULL;
         hr = spTypeLib->GetTypeInfoType(i, &tk);
         if(SUCCEEDED(hr)){
            if(tk == TKIND_COCLASS){
               hr = spTypeLib->GetTypeInfo(i, &spTypeInfo);
               if(SUCCEEDED(hr) && spTypeLib){
                  TYPEATTR *ta = NULL;
                  hr = spTypeInfo->GetTypeAttr(&ta);
                  if(SUCCEEDED(hr) && ta){
                     for(int j=0; j< ta->cImplTypes; j++){
                        HREFTYPE ht;
                        TYPEATTR *ta2 = NULL;
                        CComPtr<ITypeInfo> ti2 = NULL;

                        spTypeInfo->GetRefTypeOfImplType(j,&ht);
                        hr = spTypeInfo->GetRefTypeInfo(ht, &ti2);
                        if(SUCCEEDED(hr) && ti2){
                           hr = ti2->GetTypeAttr(&ta2);
                           if(SUCCEEDED(hr) && ta2){
                              if(ta2->guid == target){ //we found our match..
                                 sprintf(buf, "%d.%d", ta->wMajorVerNum, ta->wMinorVerNum);
                                 version = buf;
                                 if (!FAILED(hr = (ProgIDFromCLSID(ta->guid,&pwszProgID))))
                                 {
                                    progid = W2A(pwszProgID);
                                    CoTaskMemFree(pwszProgID);
                                 }
                                 if (!FAILED(hr = (StringFromCLSID(ta->guid,&pwszProgID))))
                                 {
                                    clsid = W2A(pwszProgID);
                                    CoTaskMemFree(pwszProgID);
                                 } 
                                 ti2->ReleaseTypeAttr(ta2);
                                 spTypeInfo->ReleaseTypeAttr(ta);
                                 return S_OK;
                              }
                              ti2->ReleaseTypeAttr(ta2);
                           }
                        }
                     }
                     spTypeInfo->ReleaseTypeAttr(ta);
                  }
               }   
            }
         }
      }
   }
     return 0;
}

HRESULT GetIDispatchMethods(IDispatch* pDisp, std::list &methods)
{
    HRESULT hr = S_OK;
    UINT count = 0;
    char buf[100];
    std::string tmp;
    std::string progid;
    std::string clsid;
    std::string version;

    USES_CONVERSION;

    CComPtr<IDispatch> spDisp(pDisp);
    if(!spDisp)
        return E_INVALIDARG;

    CComPtr<ITypeInfo> spTypeInfo = NULL;
    hr = spDisp->GetTypeInfo(0, 0, &spTypeInfo);

    if(SUCCEEDED(hr) && spTypeInfo)
    {
        TYPEATTR *pTatt = nullptr;
        hr = spTypeInfo->GetTypeAttr(&pTatt);
		
        if(SUCCEEDED(hr) && pTatt)
        {
           hr = FindCoClass(spTypeInfo,pTatt->guid, progid, clsid, version);
           if(progid.length() > 0)methods.push_back("ProgID: " + progid); 
           if(clsid.length() > 0)methods.push_back("CLSID: " + clsid);
           if(version != "0.0") methods.push_back("Version: " + version);

....