ActiveX Scripting Engines: ������������� �������� ������� � �++

   dim k
   k = 1

struct ENTRY
{
    CString name;
    long*    pval;
};

long val;
ENTRY table[] = 
{
    { "k", &val }
};
UINT nEntryCount = 1;

for (UINT nIndex = 0; nIndex < nEntryCount; nIndex++)  
if ( table[nIndex].name == "k" )
    {
        *table[nIndex].pval = 1;
        break;
    }

#include <afx.h>
#include <afxdisp.h>
class CCodeObject : public CCmdTarget
{
public:
    CCodeObject();
    virtual ~CCodeObject();

private:
    long    m_nValue;

    long GetMax(long, long);
    void PrintValue(long);
    void Message(LPCSTR);

    enum 
    {
        id_Value = 1,
        id_PrintValue,
        id_GetMax,
        id_Message
    };

    DECLARE_DISPATCH_MAP()
};

long    m_nValue;
long GetMax(long, long);
void PrintValue(long);
void Message(LPCSTR);

enum 
{
         id_Value = 1,
    id_PrintValue,
    id_GetMax,
    id_Message
};

BEGIN_DISPATCH_MAP(CCodeObject, CCmdTarget)

DISP_PROPERTY_ID(CCodeObject, "VALUE", id_Value, m_nValue, VT_I4)
DISP_FUNCTION_ID(CCodeObject, "GetMax", id_GetMax, GetMax, VT_I4, VTS_I4 VTS_I4)
DISP_FUNCTION_ID(CCodeObject, "PrintValue", id_PrintValue, PrintValue, VT_EMPTY, VTS_I4)
DISP_FUNCTION_ID(CCodeObject, "Message", id_Message, Message, VT_EMPTY, VTS_BSTR)

END_DISPATCH_MAP()