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();
实例代码示例:
</>code
- 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 属性。
</>code
- 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
如对本文有疑问,请提交到交流论坛,广大热心网友会为你解答!! 点击进入论坛