通过ADSI管理 Internet Information Server

邓振波

活动目录是集成在Windows2000的目录服务。活动目录类似数据库。用户可以向活动目录添加或者清除项目，并且在大多数情况下面，活动目录中的项目是持久的。虽然活动目录类似数据库，但是，活动目录并不使用存储大量的随意信息，也不使用于定期更新经常变化的数据。
ADSI为管理网络资源提供了单一的一组目录服务接口。通过ADSI可以方便的使用客户端的代码来执行在IIS上的管理任务。用于这些任务的主要对象是ISAO (IIS Administration Objects，IIS管理对象)，这些对象是拥有一个适应ADSI 的接口的COM对象。这些对象协助自定义应用程序的开发，这些应用程序拥有创建并配置虚拟目录，网站，和FTP站点的能力。你可以利用多种开发工具和开发语言来实现管理，无论是ASP，C++,Visual Basic，以及其他许多支持COM的开发环境。本文试图使用VB和VC两种语言描述一个管理WEB站点的例子，通过这个例子，可以了解关于ADSI程序的一些基本的框架和步骤。
每个ADSI具有基本的属性性就是ADsPath、Class、GUID、Name、Parent、Schema。分别说明如下:

下面以利用ADSI管理IIS Web 服务器为例子，说明活动目录的使用。
在Visual Basic中使用ADSI,必须添加对Active DS Type Library（activeds.tlb）的引用。
在Visual C++中使用ADSI，需要#include activeds.h，连接activeds.lib和adsiid.lib库文件，并要使用Unicode字符串。

下面一个例子是使用VB创建一个Web站点的示例。多站点只能在NT Server上面创建，NT工作站或者Win2k Profession不支持创建多站点。

'============================
' CreateWebSit 参数说明
' WWWSiteName 要建立的新站点的描述（也可以教名字）
' WWWTCPPort 要新站点的TCP端口
' WWWFilesPath 新站点的主目录路径
' ComputerName 需要在那台机器上建立虚拟站点，本机可以使用localhost
'===========================

Function CreateWebSit(ByVal WWWSiteName As String,_
ByVal WWWTCPPort As String,_
ByVal WWWFilesPath As String,_
ByVal ComputerName As String) As Boolean

CreateWebSit = True
Dim TCPPort() As Variant
'建立活动桌面'（IADS）对象。首先要在 VB 中的 'prject'菜单中的'references'中引'用 Active DS 'Type 'library 组件
Dim WWWServer As IADs,WWWService As IADs,WWWVdir,WWWVdirRes As IADs
Dim I As Integer
Dim HandleSameCase As Boolean
'取得W3SVC服务
Set WWWService = GetObject("IIS://" & ComputerName & "/W3SVC")
I = 1
HandleSameCase = True
On Error GoTo ErrWouldDo
'在IIS中查找每一个WEB站点
For Each WWWServer In WWWService
Set WWWServer = Nothing
Set WWWServer = GetObject("IIS://" & ComputerName & "/W3SVC/" & I)
Debug.Print WWWServer.ServerComment
'如果在安装时系统中已经有了要加的站点，则要先删除干净
If UCase(WWWServer.ServerComment) = UCase(WWWSiteName) Then
WWWService.Delete "IISWebServer",I '再删除
Exit For
End If
ReDim TCPPort(1)
TCPPort(0) = ""
TCPPort = WWWServer.Serverbindings
'如果端口已经有了则也要先删除
If TCPPort(0) = ":" & WWWTCPPort & ":" Then
WWWService.Delete "IISWebServer",I '删除
Else
I = I + 1
End If
Next
HandleSameCase = False
CreateSite:
'MsgBox I
Set WWWServer = WWWService.Create("IISWebServer",I) '创建新站点
WWWServer.ServerComment = WWWSiteName '设置站点名
WWWServer.Serverbindings = ":" & WWWTCPPort & ":" '设置端口号
WWWServer.DefaultDoc = "default.asp,index.asp,default.htm,index.htm" '设置默认启动文件
WWWServer.AccessScript = True '设置权限
WWWServer.AccessRead = True
WWWServer.SetInfo

'创建设置主目录
Set WWWServer = GetObject("IIS://" & ComputerName & "/W3SVC/" & I)
Set WWWVdir = WWWServer.Create("IISWebVirtualDir","root")
WWWVdir.Path = WWWFilesPath '主目录的实际磁盘路径
WWWVdir.SetInfo
WWWVdir.AppCreate True
WWWServer.Start '启动新站点

Set WWWVdirRes = WWWVdir.Create("IISWebVirtualDir","Resource") '创建虚拟目录
WWWVdirRes.Path = WWWFilesPath + "/Resource"
WWWVdirRes.AccessRead = True
WWWVdirRes.AccessWrite = True
WWWVdirRes.SetInfo

'下面为自定义IIS Web Server的错误信息，等发生404错误时候指定调用网站主目录下的404.htm页面显示

WWWServer.HttpErrors = "404,FILE," + WWWFilesPath + "/404.htm"
WWWServer.SetInfo

CreateWebSit = True

Exit Function
ErrWouldDo:
'MsgBox Err.Description
If (HandleSameCase = True) Then
GoTo CreateSite
Else
MsgBox Err.Description
CreateWebSit = False
Exit Function
End If
End Function

例如要在本机上使用9000端口创建一个名字（描述）为MySite的站点,并且把C:/C:/MyWebRoot设定为网站的主目录，可以这样调用：
CreateWebSit "MySite","9000","C:/MyWebRoot","localhost"

上面这个VB的例子，说明了在VB中使用ADSI的基本步骤与属性（属性的数据类型包括了String，List,Boolean的设置）。关于更多的IIS的属性，请参考MSDN ADSI专题（建议使用新版本的MSDN，其实我的也不新--2000 oct版）

下面的一个VC中使用ADSI的例子，其步骤与VB相差不远，这个例子是使用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()函数的调用哦。

上面的两个VB、VC的例子在于说明ADSI的基本使用方法。更多的内容请参照MSDN说明。