COM

        Dim cat As New COMAdmin.COMAdminCatalog()<br />
        Dim apps As COMAdmin.COMAdminCatalogCollection<br />
        apps = cat.GetCollection("Applications")<br />
        apps.Populate()<br />
<br />
        Dim comps As COMAdmin.COMAdminCatalogCollection<br />
        Dim comp As COMAdmin.COMAdminCatalogObject<br />
<br />
            comps = apps.GetCollection("Components", AppID)<br />
            comps.Populate()<br />
<br />
            comp.Value("Description") = "This is my Jofreder description"<br />
            comps.SaveChanges()

class CEvent_OnClick : public IDispatch
{
private:
	CWebTest1Dlg*		m_pParent; // This is the parent object, i.e. the window holding the web control.

protected:
    ULONG	m_cRef;

public:
        CEvent_OnClick(CWebTest1Dlg* pParent);
        ~CEvent_OnClick(void);

        STDMETHODIMP QueryInterface(REFIID, void **);
        STDMETHODIMP_(ULONG) AddRef(void);
        STDMETHODIMP_(ULONG) Release(void);

		//IDispatch
        STDMETHODIMP GetTypeInfoCount(UINT* pctinfo);
        STDMETHODIMP GetTypeInfo(/* [in] */ UINT iTInfo,
            /* [in] */ LCID lcid,
            /* [out] */ ITypeInfo** ppTInfo);
		STDMETHODIMP GetIDsOfNames(
            /* [in] */ REFIID riid,
            /* [size_is][in] */ LPOLESTR *rgszNames,
            /* [in] */ UINT cNames,
            /* [in] */ LCID lcid,
            /* [size_is][out] */ DISPID *rgDispId);
		STDMETHODIMP Invoke(
            /* [in] */ DISPID dispIdMember,
            /* [in] */ REFIID riid,
            /* [in] */ LCID lcid,
            /* [in] */ WORD wFlags,
            /* [out][in] */ DISPPARAMS  *pDispParams,
            /* [out] */ VARIANT  *pVarResult,
            /* [out] */ EXCEPINFO *pExcepInfo,
            /* [out] */ UINT *puArgErr);

};

CEvent_OnClick::CEvent_OnClick(CWebTest1Dlg* pParent)
{
   m_pParent = pParent;
   m_cRef = 0;
}

CEvent_OnClick::~CEvent_OnClick(void)
{
   ASSERT( m_cRef == 0 );
}

STDMETHODIMP CEvent_OnClick::QueryInterface(REFIID riid, void **ppv)
{
   *ppv = NULL;

   if (IID_IDispatch == riid)
      *ppv = this;
	
   if (*ppv != NULL)
   {
      ((LPUNKNOWN)*ppv)->AddRef();
      return NOERROR;
   }

   return E_NOINTERFACE;
}

STDMETHODIMP_(ULONG) CEvent_OnClick::AddRef(void)
{
   return ++m_cRef;
}

STDMETHODIMP_(ULONG) CEvent_OnClick::Release(void)
{
   return --m_cRef;
}

STDMETHODIMP CEvent_OnClick::GetTypeInfoCount(UINT* /*pctinfo*/)
{
   return E_NOTIMPL;
}

STDMETHODIMP CEvent_OnClick::GetTypeInfo(
            /* [in] */ UINT /*iTInfo*/,
            /* [in] */ LCID /*lcid*/,
            /* [out] */ ITypeInfo** /*ppTInfo*/)
{
   return E_NOTIMPL;
}

STDMETHODIMP CEvent_OnClick::GetIDsOfNames(
            /* [in] */ REFIID riid,
            /* [size_is][in] */ OLECHAR** rgszNames,
            /* [in] */ UINT cNames,
            /* [in] */ LCID lcid,
            /* [size_is][out] */ DISPID* rgDispId)
{
   // Assume some degree of success
   return ResultFromScode(DISP_E_UNKNOWNNAME);
}

STDMETHODIMP CEvent_OnClick::Invoke(
            /* [in] */ DISPID dispIdMember,
            /* [in] */ REFIID /*riid*/,
            /* [in] */ LCID /*lcid*/,
            /* [in] */ WORD wFlags,
            /* [out][in] */ DISPPARAMS* pDispParams,
            /* [out] */ VARIANT* pVarResult,
            /* [out] */ EXCEPINFO* /*pExcepInfo*/,
            /* [out] */ UINT* puArgErr)
{
   if (m_pParent) m_pParent->OnHTMLClick();
   return S_OK;
}

CWebTest1Dlg::CWebTest1Dlg(CWnd* pParent /*=NULL*/)
	: CDialog(CWebTest1Dlg::IDD, pParent)
{
   //{{AFX_DATA_INIT(CWebTest1Dlg)
   //}}AFX_DATA_INIT
   m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);

   m_pEvent_OnClick = new CEvent_OnClick(this); // Okay create the Event handler...
}

CWebTest1Dlg::~CWebTest1Dlg(void)
{
   if (m_pEvent_OnClick)
   {
      // release last lock as browser window has gone now
      m_pEvent_OnClick->Release();

      delete m_pEvent_OnClick;
      m_pEvent_OnClick = NULL;
   }
}

void CWebTest1Dlg::OnDocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT FAR* URL) 
{
   MSHTML::IHTMLDocument2Ptr spDoc(m_ctlWeb1.GetDocument());
   if (spDoc)
   {
      VARIANT v;
      v.vt = VT_DISPATCH;
      v.pdispVal = m_pEvent_OnClick;
      // Inject our event handler into the HTML DOM...
      spDoc->put_onclick(v);
   }
}

void CWebTest1Dlg::OnHTMLClick()
{
   MSHTML::IHTMLDocument2Ptr spDoc(m_ctlWeb1.GetDocument());
   if (spDoc)
   {
      MSHTML::IHTMLElementPtr spElem = spDoc->activeElement;
      if (spElem)
      {
         CString strTag = (LPCTSTR)spElem->tagName;
         if (strTag == _T("A"))
         {
            MSHTML::IHTMLAnchorElementPtr pAnchor = spElem;
            if (pAnchor)
            {
               CString strHREF = (LPCTSTR)pAnchor->href;
               AfxMessageBox("You clicked a LINK!!! We are off to " + strHREF);
            }
         }
      }
   }
}