Plugin для IE

[draiffer]

Доброго времени суток! Столкнулся с проблемой, пишу плагин, который должен сохранять исходный код страницы в файл. Не могу понять что делаю неправильно


STDMETHODIMP IMyIEExtention::Exec(const GUID *pCmdGroup, DWORD nCmdID, DWORD nCmdExecOpt,
VARIANTARG *pvaIn, VARIANTARG *pvaOut)
{
FILE *destFile=NULL;
HRESULT hRes=S_OK;
HWND hBrowser=NULL;
BSTR g;
long lBrowser;
hRes=m_pWebBrowser2->get_HWND(&lBrowser);
CHECK_COM_RESULT(hRes)
hBrowser=(HWND)lBrowser;

IDispatchPtr pTmpDisp;
hRes=m_pWebBrowser2->get_Document(&pTmpDisp);
m_pWebBrowser2->get_LocationURL(&g);

CHECK_COM_RESULT(hRes)
IHTMLDocument2Ptr pHTMLDoc2(pTmpDisp);


IHTMLElementCollectionPtr pHTMLColl;
hRes=pHTMLDoc2->get_all(&pHTMLColl);
CHECK_COM_RESULT(hRes)

hRes=pHTMLColl->tags(variant_t(_T("html")), &pTmpDisp);
CHECK_COM_RESULT(hRes)
IHTMLElementCollectionPtr pHTMLAColl=pTmpDisp;



long numOfItems;
hRes=pHTMLAColl->get_length(&numOfItems);
CHECK_COM_RESULT(hRes)
char *dd=new char;

destFile=_tfopen(_T("page.txt"), _T("wt"));
if (!destFile)
throw _com_error(ERROR_TOO_MANY_OPEN_FILE S);


long currItem=0;
hRes=pHTMLAColl->item(_variant_t(currItem), variant_t(currItem), &pTmpDisp);

IHTMLElementPtr pHTMLElement(pTmpDisp);
pHTMLElement->get_innerHTML(&g);
_fputts(g, destFile);


fclose(destFile);
AfxMessageBox(hBrowser, IDS_SAVE_OK, MB_OK | MB_ICONINFORMATION);
return S_OK;
}



может кто сталкивался с подобным