通过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。分别说明如下:
| 属性 | 说明 |
| ADsPath | 包含唯一标识这个对象的路径，在GetObject中用来取还这个对象 |
| Class | 标识对象计划类的名字 |
| GUID | 包含这个计划类的对象的可选的唯一标识符 |
| Name | 在底层名字空间中的对象的名字 |
| Parent | 包含父容器对象的AdsPath |
| Schema | 描述这个类的对象的AdsPath |
下面以利用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 BooleanCreateWebSit = TrueDim TCPPort() As Variant'建立活动桌面'（IADS）对象。首先要在 VB 中的 'prject'菜单中的'references'中引'用 Active DS 'Type 'library 组件Dim WWWServer As IADs, WWWService As IADs, WWWVdir, WWWVdirRes As IADsDim I As IntegerDim HandleSameCase As Boolean'取得W3SVC服务Set WWWService = GetObject("IIS://" & ComputerName & "/W3SVC")I = 1HandleSameCase = TrueOn Error GoTo ErrWouldDo'在IIS中查找每一个WEB站点For Each WWWServer In WWWServiceSet WWWServer = NothingSet WWWServer = GetObject("IIS://" & ComputerName & "/W3SVC/" & I)Debug.Print WWWServer.ServerComment'如果在安装时系统中已经有了要加的站点，则要先删除干净If UCase(WWWServer.ServerComment) = UCase(WWWSiteName) ThenWWWService.Delete "IISWebServer", I '再删除Exit ForEnd IfReDim TCPPort(1)TCPPort(0) = ""TCPPort = WWWServer.Serverbindings'如果端口已经有了则也要先删除If TCPPort(0) = ":" & WWWTCPPort & ":" ThenWWWService.Delete "IISWebServer", I '删除ElseI = I + 1End IfNextHandleSameCase = FalseCreateSite:'MsgBox ISet 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 = TrueWWWServer.SetInfo'创建设置主目录Set WWWServer = GetObject("IIS://" & ComputerName & "/W3SVC/" & I)Set WWWVdir = WWWServer.Create("IISWebVirtualDir", "root")WWWVdir.Path = WWWFilesPath '主目录的实际磁盘路径WWWVdir.SetInfoWWWVdir.AppCreate TrueWWWServer.Start '启动新站点Set WWWVdirRes = WWWVdir.Create("IISWebVirtualDir", "Resource") '创建虚拟目录WWWVdirRes.Path = WWWFilesPath + "/Resource"WWWVdirRes.AccessRead = TrueWWWVdirRes.AccessWrite = TrueWWWVdirRes.SetInfo'下面为自定义IIS Web Server的错误信息，等发生404错误时候指定调用网站主目录下的404.htm页面显示WWWServer.HttpErrors = "404,0,FILE," + WWWFilesPath + "/404.htm"WWWServer.SetInfoCreateWebSit = TrueExit FunctionErrWouldDo:'MsgBox Err.DescriptionIf (HandleSameCase = True) ThenGoTo CreateSiteElseMsgBox Err.DescriptionCreateWebSit = FalseExit FunctionEnd IfEnd 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说明。
更多文章请看http://seesi.51.net
