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