求教如何用VC创建基于IIS的虚拟目录和虚拟web站点？

从网上查到一些关于VC创建基于IIS的虚拟目录代码，主要运用ADSI com组件，但是调试不通，有哪位高手愿意赐教关于此方面的技术。
    请mailto：[email protected]。
    不胜感激。
//下面是一段代码，调试不通。
bool CVitrualDirDlg::CreateVirtualDirection(LPCTSTR lpszVirtualDirName, LPCTSTR lpszDiskPath)
{
    IADsContainer* iContainer;
    IADs* iAds;
    /* 获得WebSever */ 
    if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer)==S_OK){
    //得到默认站点 
    iContainer->GetObject(_bstr_t("IIsWebServer"), _bstr_t("1"),(IDispatch**)&iAds);
    if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK){
//得到默认站点的根目录
iContainer->GetObject(_bstr_t("IIsWebVirtualDir"),_bstr_t("Root"),(IDispatch**)&iAds);
//获得访问虚拟目录
if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK){
//先删除了虚拟目录 
iContainer->Delete(_bstr_t("IIsWebVirtualDir"), _bstr_t(lpszVirtualDirName));
//建立虚拟目录 
if(iContainer->Create(_bstr_t("IIsWebVirtualDir"), _bstr_t(lpszVirtualDirName),(IDispatch**)&iAds)==S_OK){
//设置虚拟目录的属性 
iAds->Put(_bstr_t("AccessRead"),_variant_t("True"));//注意跟VB中的设置属性比较
iAds->Put(_bstr_t("AccessWrite"),_variant_t("True"));
iAds->Put(_bstr_t("Path"),_variant_t(lpszDiskPath));
iAds->SetInfo();
iAds->Release();
iAds->Release();
iContainer->Release();
iContainer->Release();
return TRUE;
}
else{
iAds->Release();
iAds->Release();
iContainer->Release();
iContainer->Release();
return FALSE;
} 
    }
    else{
iAds->Release();
iContainer->Release();
    }
  }
else{
iAds->Release();
}
iContainer->Release();
}
return FALSE;
//使用VC需要初始化COM环境，别忘了APP类的InitInstance中AfxOleInit()函数的调用
}