好山好水好风光

横看成岭侧成峰
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

Net中如何操作IIS(转)

Posted on 2006-05-24 11:58  小河弯弯  阅读(730)  评论(0编辑  收藏  举报

.Net中实际上已经为我们在这方面做得很好了。FCL中提供了不少的类来帮助我们完成这项工作,让我们的开发工作变非常简单和快乐。编程控制IIS实际上很简单,和ASP一样,.Net中需要使用ADSI来操作IIS,但是此时我们不再需要GetObject这个东东了,因为.Net为我们提供了更加强大功能的新东东。

System.DirectoryServices命名空间中包括了些强大的东东--DirectoryEntry,DirectoryEntries,它们为我们提供了访问活动目录的强大功能,在这些类允许我们操作IIS、LDAP、NDS以及WinNT,功能很强大的吧:)

不过我们此处只谈IIS的控制,一般来说,我们操作IIS一般都是对虚拟目录的操作,因此我将此列为主要的内容来讲。

首先我们要搞清楚IIS的层次结构的问题,下面是我从国外找来的一张图,很好的解释了IIS的层次结构:



为了搞清楚IIS的控制语法,我们就必须搞清上图,了解IIS元数据(Metabase)的层次结构。图中的每一个节点称之Key,而每个Key可以包含一个或多个值,这些值就是我们说的属性(properties),IIS元数据中的Key与IIS中的元素是相符的,因此元数据中的属性值的设定是会影响IIS中的设置。这就是我们编程的基本思路和核心。

另外还要了解一下Schema这个概念。它表示IIS中构架的名称,即可以理解IIS元数据中Key的类型,具体点说就是指每个结点的类型。我们知道,IIS中有虚拟目录,普通目录,以及文件这些东东,而这些都属于IIS的元素,区分的他们的标帜就是Schema。比如虚拟目录的Schema就是"IIsVirtualDir",普通目录就是"IIsWebDir"。这样我们添加、删除目录时,IIS就知道我们添加的是虚拟目录还是普通目录。

创建虚拟目录

DirectoryEntry是.Net给我们的一大礼物,他的名字我们就知道他的功能--目录入口。使用过ADSI的人都知道操作IIS,WinNT这些时,我们还需要提供他们的Path,操作IIS时,这个Path的格式为:

IIS://ComputerName/Service/Website/Directory

ComputerName:即操作的服务器的名字,可以是名字也可以是IP,经常用的就是localhost
Service:即操作的服务器,IIS中有Web,也有FTP,还有SMTP这些服务,我们主要是操作IIS的Web功能,因此此处就是"W3SVC",如果是FTP则应是"MSFTPSVC"
WebSite:一个IIS服务中可以包括很多的站点,这个就用于设置操作的站点。他的值是一个数字,默认是1,表示缺省站点,如果有其它,则从1开始依次类推。
Directory:不用说,即操作的目录名称,一个站点一般顶层目录为"ROOT",其它目录则是他的孩子(Child)。
首先我们获取一个站点的顶层目录(根目录):

DirectoryEntry rootfolder = new DirectoryEntry("IIS://localhost/W3SVC/1/ROOT");

如果我们创建这个对象是没有发生异常,则表示这个目录是真实存在的。

下面我们来添加新的虚拟目录,比如我们要加的是"Aspcn":

DirectoryEntry newVirDir = rootfolder.Children.Add("Aspcn","IIsWebVirtualDir");
newVirDir.Invoke("AppCreate",true);
newVirDir.CommitChanges();
rootfolder.CommitChanges();
 

创建目录的思路很简单,即在根目录的子集(rootfolder.Children)中再添加一条记录,这里使用的是DirectoryEntries类中的Add方法,它返回的是一个DirectoryEntry,表示新加入的目录,第一个参数是虚拟目录的名字,第二个则是Schema的类名以表明我们加入的目录类型。然后再使用DirectoryEntry的Invoke方法,调用ADSI中的"AppCreate"方法将目录真正创建(似乎不走这一步也可以创建目录成功,但是为了保险起见,大家还是用吧),最后便是依次调用新、根目录的CommitChanges方法,确认此次操作。

在创建新目录时,我们也可以同时给这个目录的属性赋值,但是我的实战经验告诉我,最好不要这样做,如果创建时就赋值,将有很多属性不能赋值成功,比如重要的表示真实目录的Path属性。因此飞刀建议大家最好是先创建目录,然后再赋值,即更新目录信息。

更新虚拟目录

相信大家对IIS都比较熟悉,了解IIS中一些重要的设置,如可读(AccessRead)、可写(AccessWrite)、可执行(AccessExecute)等。这些都可通过对DirectoryEntry的Properties属性集合的赋值来实现。赋值可以通过两种方式来完成:

第一种是调用Properties集合的Add方法,如:

dir.Properties["AccessRead"].Add(true);

第二种是对第一个索引值赋值:

dir.Properties["AccessRead"][0] = true;

这两种方法都是可行的。具体是要看你的喜好了。

在进行赋值之前我们还是要确定要要赋值的目标吧:)这里我们使用DirectoryEntries类的Find方法,如:

DirectoryEntry de = rootfolder.Children.Find("Aspcn","IIsVirtualDir");

找到了,我们就可以赋值了。赋值时一定要好好看看啊,虚拟目录的属性值可以超多,一查一大堆。。:(太多了,飞刀我也不重复了,大家去微软的站点上查:)

比较常用的有:AccessRead,AccessWrite,AccessExecute,AccessScript,DefaultDoc,EnableDefaultDoc,Path

删除虚拟目录

删除虚拟目录的方法也很简单,就是找到你要删除的虚拟目录,然后调用AppDelete方法。

DirectoryEntry de = rootfolder.Children.Find("Aspcn","IIsVirtualDir");
de.Invoke("AppDelete",true);
rootfolder.CommitChanges();
 

还有一种方法,就是调用Root目录的Delete方法。

object[] paras = new object[2];
paras[0] = "IIsWebVirtualDir"; //表示操作的是虚拟目录
paras[1] = "Aspcn";
rootfolder.Invoke("Delete",paras);
rootfolder.CommitChanges();

喜欢哪一种就看编程习惯了:))

关于我写的类

我写的那个类库,将这些进一步简化了。只需要调用一下Connect()方法,就可直接操作Create,Delete方法了,程序可以进一步简化,并且支持批量操作。

 

我用asp.net中操作IIS是编写IISVDir.dll操作IIS
使用方法:
Dim test As New IISVDir()
test.CreateVirtualDir("localhost","vdir","e:\","test")
注意:
1、web目录中的test必需存在
2、当此代码用于web中时,出错为不能创建Active组件,
修改“x:\WINNT\Microsoft.NET\Framework\v1.0.3705\CONFIG\machine.config”中的<processModel 键修改为userName="SYSTEM"  password="AutoGenerate"就能解决.
iisvpath.vb代码

Imports System
Imports ActiveDs
Imports Microsoft.VisualBasic
Namespace iisvpath

Public Class IISVPath

   REM 创建FTP目录
    'ComputerName FTP服务器名(可以为localhost)
    'DirName 要建立的虚拟目录名
    'LinkAddr 该虚拟目录的真实路径
    Function CreateFTPDir(ByVal ComputerName As String, _
    ByVal DirName As String, ByVal LinkAddr As String) As Boolean
        try
                CreateFTPDir= True
                Dim WWWServer, WWWServer1 As ActiveDs.IADs
                Dim WWWVirtualDir, WWWIF As ActiveDs.IADs
                Try
                    WWWIF = GetObject("IIS://" & ComputerName & "/MSFTPSVC/1/Root")
                    Try
                        WWWIF.delete("IISFtpVirtualDir", DirName)
                    Catch
                    End Try
                Catch
                End Try
                WWWServer1 = GetObject("IIS://" & ComputerName & "/MSFTPSVC/1")
                WWWServer = WWWServer1.GetObject("IIsFtpVirtualDir", "Root")
                WWWVirtualDir = WWWServer.Create("IISFtpVirtualDir", DirName)
                WWWVirtualDir.Path = LinkAddr
                WWWVirtualDir.AccessRead = True
                WWWVirtualDir.AccessWrite = False
                WWWVirtualDir.SetInfo()
                CreateFTPDir=true
        catch
            CreateFTPDir=false
        end try
    end function

    REM 建立虚拟目录程序
    'ComputerName WEB服务器名(可以为localhost)
    'DirName 要建立的虚拟目录名
    'LinkAddr 该虚拟目录的真实路径
    'WWWSiteName 站点名称
    Function CreateVirtualDir(ByVal ComputerName As String, _
    ByVal DirName As String, ByVal LinkAddr As String, _
    ByVal WWWSiteName As String) As Boolean
        Try
            CreateVirtualDir = True
            Dim WWWServer, WWWServer1 As ActiveDs.IADs
            Dim WWWVirtualDir, WWWIF As ActiveDs.IADs
            Try
                Try
                    WWWIF = GetObject("IIS://" & ComputerName & "/W3SVC/1/Root/" & WWWSiteName)
                    Try
                        WWWIF.delete("IISWebVirtualDir", DirName)
                    Catch
                    End Try
                Catch
                End Try
                WWWServer1 = GetObject("IIS://" & ComputerName & "/W3SVC/1")
                WWWServer = WWWServer1.GetObject("IIsWebVirtualDir", "Root")
                WWWVirtualDir = WWWServer.Create("IISWebVirtualDir", WWWSiteName & "/" & DirName)
                WWWVirtualDir.Path = LinkAddr
                WWWVirtualDir.AccessRead = True
                WWWVirtualDir.AccessScript = True
                WWWVirtualDir.SetInfo()
                CreateVirtualDir = True
            Catch
            End Try
        Catch
            CreateVirtualDir = False
        End Try
    End Function

End Class

end Namespace