Net中如何操作IIS(转)

.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