请问如何创建IIS的虚拟目录啊？

[yongyue2000i]

请问如何创建IIS的虚拟目录啊？
我知道用ASP代码如何创建。
<%
'不过只使用于NT4.0(安装ADSI)和Win2k的机器：
'创建物理目录
Set FS = Server.CreateObject( "Scripting.FileSystemObject" )
'FS.CreateFolder "c:\testdir"
'创建虚拟目录
myServer = Request.ServerVariables( "SERVER_NAME" )
ADSIPath = "IIS://" & myServer & "/W3SVC/1/ROOT"
'Response.Write "ADSIPath = " & ADSIPath

Set defaultSite = getObject( ADSIPath )
Set vDir = defaultSite.Create( "IISWebVirtualDir", "AAA" )
'Set vDir = getObject(ADSIpath & "/AAA" )
vDir.Path = "c:\testdir"
'设置虚拟目录属性
vDir.AccessRead = TRUE
vDir.AccessScript = TRUE
vDir.AccessExecute = TRUE
vDir.DefaultDoc = "default.asp"
vDir.SetInfo
Response.Write "Virtual Directory Created!"
%>
但在VC里如何做到呢？
请高手指点。

[junguo]

借花献佛了！
在Visual C++中使用ADSI，需要#include activeds.h，连接activeds.lib和adsiid.lib库文件，并要使用Unicode字符串。
这个例子是使用VC在默认Web站点建立的虚拟目录。

///////////////////////////////////////////////
// CreateVirtualDirection参数说明
// lpszVirtualDirName需要建立的虚拟目录的目录名字
// lpszDiskPath 需要建立虚拟目录的本地磁盘目录
//////////////////////////////////////////////

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

[masterz]

http://211.157.102.21/expert/topic/739/739987.xml?temp=.8775598