通过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 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说明。 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|