DirectoryEntry 对象

在 System.DirectoryServices 中，目录中的每个对象都由 DirectoryEntry 对象表示。DirectoryEntry 在内存中创建一个项对象；在调用 CommitChanges 方法之前，它实际上并没有在目录中创建该对象。这样做的好处在于，您可以从客户端应用程序检索用于访问的目录信息，并且在本地读取或修改这些信息，然后重新连接到服务器，以便将修改后的信息保存到该目录。这会使服务器的执行效率达到最高。 
每个网络资源都表示为目录中的一个对象，并且每个目录对象（如前所述）都表示为客户端应用程序中的 DirectoryEntry。

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();


实例代码示例：

public class IISAdmin 
{ 
    #region  建IIS站点方法1 （缺点 不能启动站点） 
    //    public static int CreateWebsite(string webserver, string serverComment, string serverBindings, string homeDirectory) 
//    { 
//        DirectoryEntry w3svc = new DirectoryEntry("IIS://localhost/w3svc"); 
//        object[] newsite = new object[] { serverComment, new object[] { serverBindings }, homeDirectory }; 
//        object websiteId = (object)w3svc.Invoke("CreateNewSite", newsite); 
//  int c=int(websiteId); 
//        return c; 
    //    } 
    #endregion 
    #region  建IIS站点（OK） 
    public int CreateWebSite2(string webSiteName, string pathToRoot, string bd) //创建网站 
    { 
        DirectoryEntry root = new DirectoryEntry("IIS://localhost/W3SVC"); 
        // Find unused ID value for new web site 
        int siteID = 1; 
        foreach (DirectoryEntry e in root.Children) 
        { 
            if (e.SchemaClassName == "IIsWebServer") 
            { 
                int ID = Convert.ToInt32(e.Name); 
                if (ID >= siteID) 
                { 
                    siteID = ID + 1; 
                } 
            } 
        } 
        // Create web site 
        DirectoryEntry site = (DirectoryEntry)root.Invoke("Create", "IIsWebServer", siteID); 
        site.Invoke("Put", "ServerComment", webSiteName);//网站名称 
        site.Invoke("Put", "ServerBindings", bd);//二级域名绑定 
        site.Invoke("Put", "ServerState", 2);//默认4 
        site.Invoke("Put", "DefaultDoc", "index.htm,index.asp,index.aspx,Default.aspx"); 
        site.Invoke("Put", "ServerAutoStart", 1);//开启站点 
        site.Invoke("SetInfo"); 
        DirectoryEntry siteVDir = site.Children.Add("ROOT", "IISWebVirtualDir"); 
        siteVDir.Invoke("AppCreate", true); //创建应用程序站点 
        siteVDir.CommitChanges(); 
        site.CommitChanges(); 
        siteVDir.Properties["AppIsolated"][0] = 2;//默认2 
        siteVDir.Properties["Path"][0] = pathToRoot;//主目录路径 
        siteVDir.Properties["AccessFlags"][0] = 513; 
        siteVDir.Properties["FrontPageWeb"][0] = 1; 
        siteVDir.Properties["AppRoot"][0] = "/LM/W3SVC/" + siteID + "/Root"; 
        siteVDir.Properties["AppFriendlyName"][0] = "默认应用程序"; 
        siteVDir.Properties["AspEnableParentPaths"][0] = true;  //父路径启用 
        siteVDir.CommitChanges(); 
        site.CommitChanges(); 
        return siteID; 
    } 
    #endregion 
    #region  域名绑定方法 
    public static void AddHostHeader(int siteid, string ip, int port, string domain)//增加主机头（站点编号.ip.端口.域名） 
    { 
        DirectoryEntry site = new DirectoryEntry("IIS://localhost/W3SVC/" + siteid); 
        PropertyValueCollection serverBindings = site.Properties["ServerBindings"]; 
        string headerStr = string.Format("{0}:{1}:{2}", ip, port, domain); 
        if (!serverBindings.Contains(headerStr)) 
        { 
          serverBindings.Add(headerStr); 
        } 
        site.CommitChanges(); 
    } 
    #endregion 
    #region  删除主机头 
    public static void DeleteHostHeader(int siteid, string ip, int port, string domain)//删除主机头（站点编号.ip.端口.域名） 
    { 
        DirectoryEntry site = new DirectoryEntry("IIS://localhost/W3SVC/" + siteid); 
        PropertyValueCollection serverBindings = site.Properties["ServerBindings"]; 
        string headerStr = string.Format("{0}:{1}:{2}", ip, port, domain); 
        if (serverBindings.Contains(headerStr)) 
        { 
            serverBindings.Remove(headerStr); 
        } 
        site.CommitChanges(); 
    } 
    #endregion 
    #region  删除站点 
    public static string DelSite(int siteidon) //没用的 
    { 
            string SiteID =Convert.ToString(siteidon); 
            if (SiteID == null) return "error:该站点不存在!!"; 
            DirectoryEntry deRoot = new DirectoryEntry("IIS://localhost/W3SVC"); 
           
                DirectoryEntry deVDir = new DirectoryEntry(); 
                deRoot.RefreshCache(); 
                deVDir = deRoot.Children.Find(SiteID,"IIsVirtualDir"); 
                deRoot.Children.Remove(deVDir); 
                deRoot.CommitChanges(); 
                deRoot.Close(); 
                return "successful:删除站点成功!"; 
         
    } 
    public void DeleteWebSiteByName(string siteName) 
    { 
        string siteNum = GetWebSiteNum(siteName); 
        string siteEntPath = String.Format("IIS://{0}/w3svc/{1}", "localhost", siteNum); 
        DirectoryEntry siteEntry = new DirectoryEntry(siteEntPath); 
        string rootPath = String.Format("IIS://{0}/w3svc", "localhost"); 
        DirectoryEntry rootEntry = new DirectoryEntry(rootPath); 
        rootEntry.Children.Remove(siteEntry); 
        rootEntry.CommitChanges(); 
    } 
    #endregion 
     
　　 ///<summary> 
　　 ///获取一个网站的编号。根据网站的ServerBindings或者ServerComment来确定网站编号 
　　 ///</summary> 
　　 ///<paramname="siteName"></param> 
   ///<returns>返回网站的编号</returns> 
   
    #region 获取一个网站编号的方法 
   public string GetWebSiteNum(string siteName) 
    { 
        Regex regex = new Regex(siteName); 
        string tmpStr; 
        string entPath = String.Format("IIS://{0}/w3svc", "localhost"); 
        DirectoryEntry ent = new DirectoryEntry(entPath); 
        foreach (DirectoryEntry child in ent.Children) 
        { 
            if (child.SchemaClassName == "IIsWebServer") 
            { 
                if (child.Properties["ServerBindings"].Value != null) 
                { 
                    tmpStr = child.Properties["ServerBindings"].Value.ToString(); 
                    if (regex.Match(tmpStr).Success) 
                    { 
                        return child.Name; 
                    } 
                } 
                if (child.Properties["ServerComment"].Value != null) 
                { 
                    tmpStr = child.Properties["ServerComment"].Value.ToString(); 
                    if (regex.Match(tmpStr).Success) 
                    { 
                        return child.Name; 
                    } 
                } 
            } 
        } 
        return "没有找到要删除的站点"; 
    } 
　　 
　　 #endregion 
　　 
　　 
　　 #region Start和Stop网站的方法 
　　 
　　 public void StartWebSite(string siteName) 
　　 { 
　　 string siteNum=GetWebSiteNum(siteName); 
　　 string siteEntPath=String.Format("IIS://{0}/w3svc/{1}","localhost",siteNum); 
　　 DirectoryEntry siteEntry=new DirectoryEntry(siteEntPath); 
　　 siteEntry.Invoke("Start",new object[]{}); 
　　 } 
　　 
　　 public void StopWebSite(string siteName) 
　　 { 
　　 string siteNum=GetWebSiteNum(siteName); 
　　 string siteEntPath=String.Format("IIS://{0}/w3svc/{1}","localhost",siteNum); 
　　 DirectoryEntry siteEntry=new DirectoryEntry(siteEntPath); 
　　 siteEntry.Invoke("Stop",new object[]{}); 
　　 } 
　　 
　　 #endregion 
}

DirectoryEntry 构造函数 (String)的VB.NET实例

下面的示例将 DirectoryEntry 对象绑定到位于指定路径的目录项，并显示由该节点 Children 属性指定的每一子项 Path 属性。

Public Class PrintChildren
    
    'Entry point which delegates to C-style main Private Function.
    Public Overloads Shared Sub Main()
        Main(System.Environment.GetCommandLineArgs())
    End Sub
    
    Overloads Public Shared Sub Main(args() As String)
        Dim objDE As DirectoryEntry
        Dim strPath As String = "LDAP://DC=onecity,DC=corp,DC=fabrikam,DC=com"
        If args.Length > 0 Then
            strPath = args(1)
        End If 
        ' Create a new DirectoryEntry with the given path.
        objDE = New DirectoryEntry(strPath)
        
        Dim objChildDE As DirectoryEntry
        For Each objChildDE In  objDE.Children
            Console.WriteLine(objChildDE.Path)
        Next objChildDE
    End Sub 'Main
End Class 'PrintChildren

• IIS
• DirectoryEntry