BOOL FO_CreateVirtualSite(LPCTSTR lpszVirtualDirName,LPCTSTR lpszDiskPath,LPCTSTR lpszSitePath)
{
IADsContainer* iContainer;
IADs* iAds;
/* 获得WebSever */
if(ADsGetObject(L"IIS://localhost/",IID_IADsContainer,(void**)&iContainer)==S_OK)
{
// LONG g=0;
// iContainer->get__NewEnum
// iContainer->get_Count(&g);
//此处是可以通过枚举的方式获得。此处没有具体实现所以本例只能建立一个站点。
LONG i =20;
char c[10];
ZeroMemory((PVOID)c,10);
itoa(i,c,10);
//建立虚拟站点
if(iContainer->Create(L"IIsWebServer", _bstr_t(c),(IDispatch**)&iAds)==S_OK)
{
//设置虚拟站点的属性
VARIANT var;
VariantInit(&var);
V_BSTR(&var) = SysAllocString(_bstr_t(lpszDiskPath));
V_VT(&var) = VT_BSTR;
iAds->Put(L"ServerComment", var); //设置站点名
VariantClear(&var);
V_BSTR(&var) = SysAllocString(L":9999:");
V_VT(&var) = VT_BSTR;
iAds->Put(L"Serverbindings", var); // //设置站点端口号
VariantClear(&var);
V_BSTR(&var) = SysAllocString(L"default.asp,index.asp,default.htm,index.htm");
V_VT(&var) = VT_BSTR;
iAds->Put(L"DefaultDoc", var);//设置默认启动文件
VariantClear(&var);
V_BSTR(&var) = SysAllocString(L"True");
V_VT(&var) = VT_BOOL;
iAds->Put(L"AccessScript", var); // 设置读取权限
iAds->Put(L"AccessRead",var);
iAds->Put(L"AccessWrite",var);
VariantClear(&var);
V_UI4(&var) = 1; //DWORD类型
V_VT(&var) = VT_UI4;
iAds->Put(L"ServerAutoStart", var);//
VariantClear(&var);
iAds->SetInfo();
if(ADsGetObject(L"IIS://localhost/w3svc",IID_IADsContainer,(void**)&iContainer)==S_OK)
{
if (iContainer->GetObject(L"IIsWebServer", _bstr_t(c),(IDispatch**)&iAds)==S_OK)
{
if(iAds->QueryInterface(IID_IADsContainer,(void**)&iContainer)==S_OK)
{
////创建新站点root目录
if(iContainer->Create(L"IIsWebVirtualDir", L"Root",(IDispatch**)&iAds) == S_OK)
{
//设置新站点的根目录
V_BSTR(&var) = SysAllocString(_bstr_t(lpszSitePath));
V_VT(&var) = VT_BSTR;
iAds->Put(L"AppCreate", var);
iAds->Put(L"Path",var);
}
}
}
}
iAds->SetInfo();
//打扫卫生
iAds->Release();
iContainer->Release();
iContainer->Release();
return TRUE;
}
else
{
//同上，不过没利索
iContainer->Release();
return FALSE;
}
//同同上
iContainer->Release();
}
return FALSE;
}