C / C++ / MFC

CContext cxt;
if ( FAILED( cxt.Init( CContext::get_All ) ) )
{
    return E_FAIL;
}

cxt.Response()->Write(_variant_t("This is a test of the veracity of my system <br/>"));

IVariantDictionary* pVD;

cxt.Session()->get_Contents(&pVD);

if (pVD)
{
    int nCount = 0;

    pVD->get_Count(&nCount);

    for (int i = 0; i < nCount; ++i)
    {
        _variant_t vItem;
        _variant_t vIndex(i);
        _variant_t vKey;
        pVD->get_Key(vIndex, &vKey);
        pVD->get_Item(vKey, &vItem);

        cxt.Response()->Write(vKey);
        cxt.Response()->Write(_variant_t(" = "));
        cxt.Response()->Write(vItem);
        cxt.Response()->Write(_variant_t("<br/>"));
    }
}

IRequestDictionary * pDic;

_variant_t v;
cxt.Session()->get_Value( L"Juju", &v);
cxt.Response()->Write(v);


cxt.Request()->get_ServerVariables(&pDic);

if (pDic)
{
    int nCount = 0;

    pDic->get_Count(&nCount);

    for (int i = 0; i < nCount; ++i)
    {
        _variant_t vItem;
        _variant_t vIndex("Juju");
        _variant_t vKey;
        pDic->get_Key(vIndex, &vKey);
        pDic->get_Item(vIndex, &vItem);

        cxt.Response()->Write(vKey);
        cxt.Response()->Write(_variant_t(" = "));
        cxt.Response()->Write(vItem);
        cxt.Response()->Write(_variant_t("<br/>"));
    }
}

USES_CONVERSION;

CComBSTR bstrTag;

VERIFY(pElement->get_tagName(&bstrTag) == S_OK);

if (_tcscmp(_tcsupr(OLE2CT(bstrTag)), _T("WALLPOINT")) != 0)
{
    ....
}

USES_CONVERSION;

CComBStr bstrName;
foo->get_Name(&bstrName);
LPCTSTR szName = OLE2T(bstrName);

HWND hWnd;
hWnd = ::FindWindow("XLMain",  // Check if Excel is open and get the hWnd to it
	NULL                   
	);

if (hWnd!=NULL)
{
	::BringWindowToTop(hWnd);		
	::ShowWindow(hWnd,SW_SHOW);
}
else ... 

LPOLECLIENTSITE lpSite = GetClientSite();<br />
LPOLECONTAINER lpContainer; <br />
if(lpSite == NULL) AfxMessageBox("Click OK to crash..."); <br />
lpSite->GetContainer(&lpContainer);