// --- IGlobalInterfaceTable interface                     https://msdn.microsoft.com/library/windows/desktop/ms678517
//                                                         Enables any apartment in a process to get access to an interface implemented on an object in any other apartment in the process.
//
//     В _AtlModule может быть много COM объектов. 
//     Этот интерфейс позволяет получить доступ к интерфесам разных COM объектов.
//
 CComPtr< IGlobalInterfaceTable >  ppGIT;                  // Pointer to the Global Interface Table

 hr = _AtlModule.GetGITPtr( 
  (IGlobalInterfaceTable **)&ppGIT
 );
 
 if ( FAILED( hr )      || 
      ppGIT == nullptr 
    )
  return  0;

// --- Проще всего в ATL получить pointer to the Global Interface Table можно путем доступа к member CAtlModule::m_pGIT
//
//     CAtlModule Class                                    https://msdn.microsoft.com/en-us/library/windows/desktop/hhz4ew64(v=vs.120).aspx
//                                                         This class provides methods used by several ATL module classes.
//
 CComPtr< IGlobalInterfaceTable >  ppGIT02;                // Pointer to the Global Interface Table

 ppGIT02 = _AtlModule.m_pGIT;

// --- Ниже продемонстрировано как получить pointer to the Global Interface Table без использования ATL
//
  void  **gpGIT;

 hr = CoCreateInstance(
  CLSID_StdGlobalInterfaceTable,
  NULL,
  CLSCTX_INPROC_SERVER,
  IID_IGlobalInterfaceTable,
  (void **)&gpGIT
 );

// --- Interface IInitDone
//
public:

STDMETHOD( Init                ) ( IDispatch *pConnection);
STDMETHOD( Done                ) ();
STDMETHOD( GetInfo             ) ( SAFEARRAY **pInfo);

// --- Interface ILanguageExtender
//
public:

STDMETHOD( RegisterExtensionAs ) ( BSTR *bstrExtensionName);

STDMETHOD( GetNProps           ) ( long *plProps );
STDMETHOD( FindProp            ) ( BSTR bstrPropName,   long       *plPropNum      );
STDMETHOD( GetPropName         ) ( long lPropNum,       long       lPropAlias,    BSTR *pbstrPropName );
STDMETHOD( GetPropVal          ) ( long lPropNum,       VARIANT    *pvarPropVal    );
STDMETHOD( SetPropVal          ) ( long lPropNum,       VARIANT    *pvarPropVal    );
STDMETHOD( IsPropReadable      ) ( long lPropNum,       BOOL       *pboolPropRead  );
STDMETHOD( IsPropWritable      ) ( long lPropNum,       BOOL       *pboolPropWrite );

STDMETHOD( GetNMethods         ) ( long *plMethods);
STDMETHOD( FindMethod          ) ( BSTR bstrMethodName, long       *plMethodNum    );
STDMETHOD( GetMethodName       ) ( long lMethodNum,     long       lMethodAlias,  BSTR *pbstrMethodName);
STDMETHOD( GetNParams          ) ( long lMethodNum,     long       *plParams       );
STDMETHOD( GetParamDefValue    ) ( long lMethodNum,     long       lParamNum,     VARIANT *pvarParamDefValue);
STDMETHOD( HasRetVal           ) ( long lMethodNum,     BOOL       *pboolRetValue );
STDMETHOD( CallAsProc          ) ( long lMethodNum,     SAFEARRAY  **paParams     );
STDMETHOD( CallAsFunc          ) ( long lMethodNum,     VARIANT    *pvarRetValue, SAFEARRAY **paParams );

// --- Flag values
//     -----------

enum OpenFlags {

 modeRead         = ( int ) 0x00000, 
 modeWrite        = ( int ) 0x00001, 
 modeReadWrite    = ( int ) 0x00002, 
 shareCompat      = ( int ) 0x00000, 
 shareExclusive   = ( int ) 0x00010, 
 shareDenyWrite   = ( int ) 0x00020, 
 shareDenyRead    = ( int ) 0x00030, 
 shareDenyNone    = ( int ) 0x00040, 
 modeNoInherit    = ( int ) 0x00080, 
 modeCreate       = ( int ) 0x01000, 
 modeNoTruncate   = ( int ) 0x02000, 
 typeText         = ( int ) 0x04000,                       // typeText and typeBinary are
 typeBinary       = ( int ) 0x08000,                       // used in derived classes only
 osNoBuffer       = ( int ) 0x10000, 
 osWriteThrough   = ( int ) 0x20000, 
 osRandomAccess   = ( int ) 0x40000, 
 osSequentialScan = ( int ) 0x80000, 

};