vc 代码创建IIS（WeB）站点

来源：互联网发布：国家统计局人口数据图编辑：程序博客网时间：2024/04/30 11:25

// CreateVirtualDirection参数说明

// lpszVirtualDirName需要建立的虚拟目录的目录名字

// lpszDiskPath 需要建立虚拟目录的本地磁盘目录

//////////////////////////////////////////////

BOOL CreateVirtualDirection(LPCTSTR lpszVirtualDirName,LPCTSTR lpszDiskPath)

{

IADsContainer* iContainer;

IADs* iAds;

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();

iContainer->Release();

return TRUE;

}

else

{

iAds->Release();

iContainer->Release();

return FALSE;

}

else

{

iAds->Release();

iContainer->Release();

}

else

{

iAds->Release();

}

iContainer->Release();

}

return FALSE;

}

//使用VC需要初始化COM环境，别忘了APP类的InitInstance中AfxOleInit()函数的调用哦。

文章出处：飞诺网(www.firnow.com):http://dev.firnow.com/course/3_program/vc/vc_js/2008826/137574_2.html