using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Configuration.Install;

namespace MyProjectInstall
...{
    [RunInstaller(true)]
    public partial class InstallerMySample : Installer
    ...{
        public InstallerMySample()
        ...{
            InitializeComponent();
        }

        public override void Install(System.Collections.IDictionary stateSaver)
        ...{

        }
    }
}

     数据库操作#region 数据库操作

        protected void AddDBTable()
        ...{
            try
            ...{
                //创建数据库
                ExcuteSQL("master", string.Format("CREATE DATABASE {0}", this._dataBaseName));

                //调用osql执行脚本
                ExcuteScript();

                //添加原始数据
                ExcuteSQL(_dataBaseName, "INSERT INTO GV_SystemAdmin(SystemAdminUser,SystemAdminPass,SystemAdminName,SystemAdminMemo) VALUES ('admin', 'admin', 'Administrator' ,'系统默认超级用户')");
            }
            catch (Exception ex)
            ...{
                throw new ApplicationException(ex.Message);
            }
        }

        //此方法在本例中未用到，因为最后只要追加一条记录，
        //但如果有多条可以写成一个脚本,以资源的形式嵌入到这个项目
        //然后用如下的方法读取，然后调用SQL命令执行
        private string GetSQLScript(string fileName)
        ...{
            try
            ...{
                //得到当前程序集
                Assembly asm = Assembly.GetExecutingAssembly();
                //资源文件
                Stream strm =
                    asm.GetManifestResourceStream(asm.GetName().Name + "." + fileName);
                //读取嵌入文件内容,文本文件内容必须为Unicode
                StreamReader reader = new StreamReader(strm);

                return reader.ReadToEnd();
            }
            catch
            ...{
                return String.Empty;
            }
        }

        private void ExcuteSQL(string dataBaseName, string SQL)
        ...{
            SqlConnection con =
                new SqlConnection(string.Format("user id={0};password={1};Initial Catalog={2};Data Source={3};", _username, _saPassword, dataBaseName, _servername));
            SqlCommand cmd = new SqlCommand(SQL, con);
            cmd.Connection.Open();
            cmd.Connection.ChangeDatabase(dataBaseName);

            try
            ...{
                cmd.ExecuteNonQuery();
            }
            finally
            ...{
                //最后总要关闭数据库
                cmd.Connection.Close();
            }
        }     

        private void ExcuteScript()
        ...{
            try
            ...{
                Process sqlProcess = new Process();
                //调用osql必须在目标机，也就是安装的机子上要有安装SQLServer服务器
                //不然找不到这个命令
                sqlProcess.StartInfo.FileName = "osql.exe";
                //如下所指的SQL脚本文件是打包打安装项目的文件名，
                //targetPath就是在安装界面用户指定的安装目录
                sqlProcess.StartInfo.Arguments = string.Format("-U {0} -P{1} -d {2} -S {3} -i {4}VideoMeetingCreateSQL2000.sql",
                    _username, _saPassword, _dataBaseName, _servername, _targetPath);
                sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
                sqlProcess.Start();
                sqlProcess.WaitForExit();
                sqlProcess.Close();
            }
            catch (Exception ex)
            ...{
                throw ex;
            }
        }
        #endregion

 WriteWebConfig 修改web.config的连接数据库的字符串#region WriteWebConfig 修改web.config的连接数据库的字符串
        private bool WriteWebConfig()
        ...{
            System.IO.FileInfo FileInfo = new System.IO.FileInfo(this.Context.Parameters["targetdir"] + "/web.config");
            if (!FileInfo.Exists)
            ...{
                throw new InstallException("Missing config file :" + this.Context.Parameters["targetdir"] + "/web.config");
            }
            System.Xml.XmlDocument xmlDocument = new System.Xml.XmlDocument();
            xmlDocument.Load(FileInfo.FullName);
            bool FoundIt = false;
            foreach (System.Xml.XmlNode Node in xmlDocument["configuration"]["connectionStrings"])
            ...{
                if (Node.Name == "add")
                ...{
                    if (Node.Attributes.GetNamedItem("name").Value == "MonitorConnectionString")
                    ...{
                        Node.Attributes.GetNamedItem("connectionString").Value = String.Format("Data Source={0};database={1};User ID={2};Password={3}", _servername, _dataBaseName, _username, _saPassword);
                        FoundIt = true;
                    }
                }
            }
            if (!FoundIt)
            ...{
                throw new InstallException("Error when writing the config file: web.config");
            }
            xmlDocument.Save(FileInfo.FullName);
            return FoundIt;
        }
        #endregion

using System;
using System.DirectoryServices;
using System.Collections;
using System.Text.RegularExpressions;
using System.Text;
using System.Runtime;
using System.Diagnostics;
/**//**
 * @author 吴海燕
 * @email  wuhy80-usual@yahoo.com
 * 2004-6-25 第一版
 */

namespace Wuhy.ToolBox
...{
    /**//// <summary>
    ///  这个类是静态类。用来实现管理IIS的基本操作。
    ///  管理IIS有两种方式，一是ADSI，一是WMI。由于系统限制的原因，只好选择使用ADSI实现功能。
    ///  这是一个遗憾。只有等到只有使用IIS 6的时候，才有可能使用WMI来管理系统
    ///  不过有一个问题就是，我现在也觉得这样的一个方法在本地执行会比较的好。最好不要远程执行。
    ///  因为那样需要占用相当数量的带宽，即使要远程执行，也是推荐在同一个网段里面执行
    /// </summary>
    public class IISAdminLib
    ...{
        UserName,Password,HostName的定义#region UserName,Password,HostName的定义
        public static string HostName
        ...{
            get
            ...{
                return hostName;
            }
            set
            ...{
                hostName = value;
            }
        }

        public static string UserName
        ...{
            get
            ...{
                return userName;
            }
            set
            ...{
                userName = value;
            }
        }
        public static string Password
        ...{
            get
            ...{
                return password;
            }
            set
            ...{
                if (UserName.Length <= 1)
                ...{
                    throw new ArgumentException("还没有指定好用户名。请先指定用户名");
                }
                password = value;
            }
        }

        public static void RemoteConfig(string hostName, string userName, string password)
        ...{
            HostName = hostName;
            UserName = userName;
            Password = password;
        }
        private static string hostName = "localhost";
        private static string userName;
        private static string password;
        #endregion

        根据路径构造Entry的方法#region 根据路径构造Entry的方法
        /**//// <summary>
        ///  根据是否有用户名来判断是否是远程服务器。
        ///  然后再构造出不同的DirectoryEntry出来
        /// </summary>
        /// <param name="entPath">DirectoryEntry的路径</param>
        /// <returns>返回的是DirectoryEntry实例</returns>
        public static DirectoryEntry GetDirectoryEntry(string entPath)
        ...{
            DirectoryEntry ent;
            if (UserName == null)
            ...{
                ent = new DirectoryEntry(entPath);
            }
            else
            ...{
                //    ent = new DirectoryEntry(entPath, HostName+"/"+UserName, Password, AuthenticationTypes.Secure);
                ent = new DirectoryEntry(entPath, UserName, Password, AuthenticationTypes.Secure);
            }
            return ent;
        }
        #endregion

        添加，删除网站的方法#region 添加，删除网站的方法
        /**//// <summary>
        ///  创建一个新的网站。根据传过来的信息进行配置
        /// </summary>
        /// <param name="siteInfo">存储的是新网站的信息</param>
        public static void CreateNewWebSite(NewWebSiteInfo siteInfo)
        ...{
            if (!EnsureNewSiteEnavaible(siteInfo.BindString))
            ...{
                throw new Exception("已经有了这样的网站了。" + Environment.NewLine + siteInfo.BindString);
            }
            string entPath = String.Format("IIS://{0}/w3svc", HostName);
            DirectoryEntry rootEntry = GetDirectoryEntry(entPath);

            string newSiteNum = GetNewWebSiteID();
            DirectoryEntry newSiteEntry = rootEntry.Children.Add(newSiteNum, "IIsWebServer");
            newSiteEntry.CommitChanges();

            //Hashtable ahs1 = new Hashtable();
            //foreach (string a1 in newSiteEntry.Properties.PropertyNames)
            //{
            //    ahs1.Add(a1, newSiteEntry.Properties[a1].Value);
            //}

            newSiteEntry.Properties["ServerBindings"].Value = siteInfo.BindString;
            newSiteEntry.Properties["ServerComment"].Value = siteInfo.CommentOfWebSite;
            newSiteEntry.CommitChanges();
            DirectoryEntry vdEntry = newSiteEntry.Children.Add("root", "IIsWebVirtualDir");
            vdEntry.CommitChanges();
            vdEntry.Properties["Path"].Value = siteInfo.WebPath;

            vdEntry.Invoke("AppCreate", true);//创建应用程序

            vdEntry.Properties["AccessRead"][0] = true; //设置读取权限
            vdEntry.Properties["DefaultDoc"][0] = "default.htm";//设置默认文档
            vdEntry.Properties["AppFriendlyName"][0] = "VideoMeeting"; //应用程序名称
            vdEntry.Properties["AccessScript"][0] = true;//执行权限
            vdEntry.Properties["AuthFlags"][0] = 1;//0表示不允许匿名访问,1表示就可以3为基本身份验证，7为windows继承身份验证

            //Hashtable ahs = new Hashtable();
            //ArrayList list = new ArrayList();

            //foreach (string a in vdEntry.Properties.PropertyNames)
            //{
            //    list.Add(a);
            //    ahs.Add(a, vdEntry.Properties[a].Value);
            //}

            vdEntry.CommitChanges();

           

            //启动ASPnet_iis.exe程序 
            string fileName = Environment.GetEnvironmentVariable("windir") + @"Microsoft.NETFrameworkv2.0.50727ASPnet_regiis.exe";
            ProcessStartInfo startInfo = new ProcessStartInfo(fileName);
            //处理目录路径 
            string path = vdEntry.Path.ToUpper();
            int index = path.IndexOf("W3SVC");
            path = path.Remove(0, index);
            //启动ASPnet_iis.exe程序,刷新教本映射 
            startInfo.Arguments = "-s " + path;
            startInfo.WindowStyle = ProcessWindowStyle.Hidden;
            startInfo.UseShellExecute = false;
            startInfo.CreateNoWindow = true;
            startInfo.RedirectStandardOutput = true;
            startInfo.RedirectStandardError = true;
            Process process = new Process();
            process.StartInfo = startInfo;
            process.Start();
            process.WaitForExit();
            string errors = process.StandardError.ReadToEnd();
            if (errors != string.Empty)
            ...{
                throw new Exception(errors);
            }

        }

        /**//// <summary>
        ///  删除一个网站。根据网站名称删除。
        /// </summary>
        /// <param name="siteName">网站名称</param>
        public static void DeleteWebSiteByName(string siteName)
        ...{
            string siteNum = GetWebSiteNum(siteName);
            string siteEntPath = String.Format("IIS://{0}/w3svc/{1}", HostName, siteNum);
            DirectoryEntry siteEntry = GetDirectoryEntry(siteEntPath);

            string rootPath = String.Format("IIS://{0}/w3svc", HostName);
            DirectoryEntry rootEntry = GetDirectoryEntry(rootPath);
            rootEntry.Children.Remove(siteEntry);
            rootEntry.CommitChanges();
        }
        #endregion



        Start和Stop网站的方法#region Start和Stop网站的方法
        public static void StartWebSite(string siteName)
        ...{
            string siteNum = GetWebSiteNum(siteName);
            string siteEntPath = String.Format("IIS://{0}/w3svc/{1}", HostName, siteNum);
            DirectoryEntry siteEntry = GetDirectoryEntry(siteEntPath);
            siteEntry.Invoke("Start", new object[] ...{ });
        }
        
        public static void StopWebSite(string siteName)
        ...{
            string siteNum = GetWebSiteNum(siteName);
            string siteEntPath = String.Format("IIS://{0}/w3svc/{1}", HostName, siteNum);
            DirectoryEntry siteEntry = GetDirectoryEntry(siteEntPath);
            siteEntry.Invoke("Stop", new object[] ...{ });
        }
        #endregion
        
        确认网站是否相同#region 确认网站是否相同
        /**//// <summary>
        ///  确定一个新的网站与现有的网站没有相同的。
        ///  这样防止将非法的数据存放到IIS里面去
        /// </summary>
        /// <param name="bindStr">网站邦定信息</param>
        /// <returns>真为可以创建，假为不可以创建</returns>
        public static bool EnsureNewSiteEnavaible(string bindStr)
        ...{
            string entPath = String.Format("IIS://{0}/w3svc", HostName);
            DirectoryEntry ent = GetDirectoryEntry(entPath);

            foreach (DirectoryEntry child in ent.Children)
            ...{
                if (child.SchemaClassName == "IIsWebServer")
                ...{
                    if (child.Properties["ServerBindings"].Value != null)
                    ...{
                        if (child.Properties["ServerBindings"].Value.ToString() == bindStr)
                        ...{
                            return false;
                        }
                    }
                }
            }
            return true;
        }
        #endregion

        获取一个网站编号的方法#region 获取一个网站编号的方法
        /**//// <summary>
        ///  获取一个网站的编号。根据网站的ServerBindings或者ServerComment来确定网站编号
        /// </summary>
        /// <param name="siteName"></param>
        /// <returns>返回网站的编号</returns>
        /// <exception cref="NotFoundWebSiteException">表示没有找到网站</exception>
        public static string GetWebSiteNum(string siteName)
        ...{
            Regex regex = new Regex(siteName);
            string tmpStr;

            string entPath = String.Format("IIS://{0}/w3svc", HostName);
            DirectoryEntry ent = GetDirectoryEntry(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;
                        }
                    }
                }
            }

            throw new Exception("没有找到我们想要的站点" + siteName);
        }
        #endregion        

        获取新网站id的方法#region 获取新网站id的方法

        /**//// <summary>
        ///  获取网站系统里面可以使用的最小的ID。
        ///  这是因为每个网站都需要有一个唯一的编号，而且这个编号越小越好。
        ///  这里面的算法经过了测试是没有问题的。
        /// </summary>
        /// <returns>最小的id</returns>
        public static string GetNewWebSiteID()
        ...{
            ArrayList list = new ArrayList();
            string tmpStr;
            string entPath = String.Format("IIS://{0}/w3svc", HostName);
            DirectoryEntry ent = GetDirectoryEntry(entPath);

            foreach (DirectoryEntry child in ent.Children)
            ...{
                if (child.SchemaClassName == "IIsWebServer")
                ...{
                    tmpStr = child.Name.ToString();
                    list.Add(Convert.ToInt32(tmpStr));
                }
            }
            list.Sort();
            int i = 1;
            foreach (int j in list)
            ...{
                if (i == j)
                ...{
                    i++;
                }
            }
            return i.ToString();
        }
        #endregion
    }
    
    新网站信息结构体#region 新网站信息结构体

    public struct NewWebSiteInfo
    ...{
        private string hostIP;   // The Hosts IP Address
        private string portNum;   // The New Web Sites Port.generally is "80"
        private string descOfWebSite; // 网站表示。一般为网站的网站名。例如"www.dns.com.cn"
        private string commentOfWebSite;// 网站注释。一般也为网站的网站名。
        private string webPath;   // 网站的主目录。例如"e: mp"

        public NewWebSiteInfo(string hostIP, string portNum, string descOfWebSite, string commentOfWebSite, string webPath)
        ...{
            this.hostIP = hostIP;
            this.portNum = portNum;
            this.descOfWebSite = descOfWebSite;
            this.commentOfWebSite = commentOfWebSite;
            this.webPath = webPath;
        }

        public string BindString
        ...{
            get
            ...{
                return String.Format("{0}:{1}:{2}", hostIP, portNum, descOfWebSite);
            }
        }

        public string CommentOfWebSite
        ...{
            get
            ...{
                return commentOfWebSite;
            }
        }

        public string WebPath
        ...{
            get
            ...{
                return webPath;
            }
        }
    }
    #endregion
}

    public override void Install(IDictionary stateSaver)
        ...{
            //数据库安装程序入口
            _saPassword = this.Context.Parameters["pwd"];
            _dataBaseName = this.Context.Parameters["dbname"];
            _targetPath = this.Context.Parameters["targetdir"];
            _servername = this.Context.Parameters["server"];
            _username = this.Context.Parameters["user"];

            iis = this.Context.Parameters["iis"];
            port = this.Context.Parameters["port"];
            //添加数据库
            AddDBTable();

            //注册新站点            
            Wuhy.ToolBox.NewWebSiteInfo siteInfo = new Wuhy.ToolBox.NewWebSiteInfo(string.Empty, port, "", "VideoMeeting", _targetPath);
            Wuhy.ToolBox.IISAdminLib.HostName = iis;
            Wuhy.ToolBox.IISAdminLib.UserName = null;       

            Wuhy.ToolBox.IISAdminLib.CreateNewWebSite(siteInfo);

            Wuhy.ToolBox.IISAdminLib.StartWebSite(siteInfo.BindString);
            
            //修改Web.Config文件
            if (!WriteWebConfig())
            ...{
                throw new ApplicationException("设置数据库连接字符串时出现错误");
            }
        }