HRESULT hr;
CComPtr<IActiveScript> spActiveScript;
CComPtr<IActiveScriptParse> spScriptParse;
CComPtr<IActiveScriptSite> spSite; // must be implemented by host

if( FAILED( hr = CoCreateInstance( clsidEngine, // set clsid of VB or JS engine, depending on input language
    NULL, CLSCTX_INPROC_SERVER, IID_IActiveScript, (void**)&spActiveScript ) ) )
    return hr;

if( FAILED( hr = spActiveScript->QueryInterface( IID_IActiveScriptParse, (void**)&spScriptParse ) ) )
    return hr;

if( FAILED( hr = spActiveScript->SetScriptSite( spSite ) ) )
    return hr;

if( FAILED( hr = spScriptParse->InitNew() ) )
    return hr;
// use this to add your own objects into script namespace
if( FAILED( hr = spActiveScript->AddNamedItem( g_lpstrController, SCRIPTITEM_GLOBALMEMBERS|SCRIPTITEM_ISVISIBLE ) ) )
    return hr;

CComBSTR bstrScript; // load from text file

EXCEPINFO ei;
if( SUCCEEDED( hr = spScriptParse->ParseScriptText( bstrScript, NULL, NULL, NULL, 0, 0, 0, NULL, &ei ) ) )
{
    SCRIPTSTATE st;
    if( SUCCEEDED( hr = spActiveScript->GetScriptState( &st ) ) )
    {
        if( st != SCRIPTSTATE_CONNECTED )
	{   // run script
             hr = spActiveScript->SetScriptState( SCRIPTSTATE_CONNECTED );
        }
    }
}
return hr;