高手帮忙：MFC实现IIS5.0创建虚拟根目录

Question

各位大虾：
    代码：
         IADsContainer* pCon=NULL;
        if(pCon->IADsContainer->Create(L"IIsWebVirtualDir",L"Root",&pVrDisp)==S_OK)
        {
        //
        }
        在XP和Win2003上测试运行正常，而在WinServer2K下不执行，为什么？    另外：要想创建Internet 信息服务(IIS)5.0虚拟根目录 MFC中用什么函数或方法能实现？(我是新手)    高手有时间帮帮忙，谢谢！功能实现即结帖。

Answer 1

抱歉，匆忙之中写错了！IADsContainer* 在if上边已初始化，并非NULL.

Answer 2

BOOL 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()函数的调用

Answer 3

    谢谢！很有启发。
    已基本设置成功，只是在Windows Server 2K（已安装ASP.NET2.2支持，手动检查也未发现问题）下客户浏览器无法正常显示ASP.NET2.0 动态网页（只显示部分文字），在XP和WINDOWS SERVER 2003 下测试多次都没问题。可能哪个地方还有些小问题，也许是我的Win2K系统有问题，实在不行从新装系统试一下。

Answer 4

确实是系统有问题。从新装的FRAMEWORK和MDAC，行了！
感谢tcxjia，准备结贴。