如何用VC创建IIS德WebApplication?用AppCreate
jenac 2002-10-17 02:38:51 我用下面的程序创建了虚拟目录,但是不能创建App,怎么创建呢?MSDN说IIsWebVirtualDir有一个AppCreate方法可以,可是我怎么在VC里面调用他?
CoInitialize(NULL);
// TODO: Add your control notification handler code here
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(m_lpszVirtualDirName));
if (m_isRemove)
{
iAds->Release();
iContainer->Release();
CoUninitialize();
return TRUE;
}
if(iContainer->Create(_bstr_t("IIsWebVirtualDir"), _bstr_t(m_lpszVirtualDirName),(IDispatch**)&iAds)==S_OK)
{
//ÉèÖÃÐéÄâĿ¼µÄÊôÐÔ
setDirAttributes(iAds);
iAds->Put(_bstr_t("DefaultDoc"),
_variant_t(m_lpszDefaultDoc));//Documents->Enable default documents
iAds->Put(_bstr_t("Path"),_variant_t(m_lpszDiskPath));
iAds->get
iAds->Invoke(,,,,,
iAds->SetInfo();
iAds->Release();
iContainer->Release();
CoUninitialize();
return TRUE;
}
else
{
iAds->Release();
iContainer->Release();
CoUninitialize();
return FALSE;
}
}
else
{
iAds->Release();
iContainer->Release();
}
}
else
{
iAds->Release();
}
iContainer->Release();
}
CoUninitialize();
return FALSE;