DirectoryEntry deyTemp= new DirectoryEntry("IIS://localhost/w3svc/1/Root");
DirectoryEntry deyNew;
deyNew = deyTemp.Children.Add(strName, "IIsWebVirtualDir");//填加虚拟目录
deyNew.CommitChanges();
deyNew.Properties["Path"][0] = (strPath);//设定虚拟路径
deyNew.Properties["AccessScript"][0] = true;
deyNew.CommitChanges();
//配置虚拟目录
deyNew.Properties["AccessRead"][0] = true;//可读
deyNew.Properties["ContentIndexed"][0] = true;
deyNew.Properties["AppFriendlyName"][0] = strName;
deyNew.Properties["DefaultDoc"][0] = "Index.aspx,Default.aspx";
deyNew.Properties["AccessScript"][0] = true;
deyNew.Properties["DontLog"][0] = true;
deyNew.Properties["AuthFlags"][0] = 1;
deyNew.Properties["AppIsolated"][0] = 2;
deyNew.Invoke("AppCreate", true);
deyNew.CommitChanges();