在VC下使用过ScriptControl的朋友，进来一下吧！

[houzx]

怎样用AddObject向脚本文件传递对象？我建了一个ATL对象，用下面语句生成一实例
CComObject<CTest>* iObj;
HRESULT hRes = CComObject<CTest>::CreateInstance(&iObj);
用m_SC->AddObject( "Test",iObj,FALSE);传递给脚本（其中m_SC是ScriptControl实例），在脚本中使用时总是提示错误，错误号#-2147319779，错误描述为空，表明对象已传递到脚本（否则应提示对象无效），可属性或方法不能使用。
谁有这方面的经验，帮帮忙吧，谢谢了！

[houzx]

感兴趣的朋友帮忙给推一下吧！

[houzx]

查了一下MSDN，发现微软写了这个例子：
HRESULT CUsemsscriptctlDlg::CreateCOMObject(CString strProgID, LPDISPATCH* ppDisp)
{
USES_CONVERSION;

CLSID clsid;

CLSIDFromProgID(T2COLE(strProgID), &clsid);

return CoCreateInstance(clsid, NULL,
CLSCTX_ALL,
IID_IDispatch,
(void**)ppDisp);
}

void CUsemsscriptctlDlg::OnAddobject()
{
UpdateData(TRUE);

IDispatch* pDisp = 0;

if(SUCCEEDED(CreateCOMObject(m_strProgID, &pDisp)))
{
m_scriptCtl.AddObject(m_strObjectName, pDisp, TRUE);
}
}
我试了一下，发现m_strProgID传入已注册的ProgID能成功执行，在脚本中可直接调用属性和方法，可怎么调用MFC程序中的ATL对象呢？