InstallShield用于配置 IIS 的 InstallScrip

zoukankan html css js c++ java

InstallShield用于配置 IIS 的 InstallScrip
前言：

用程序配置 IIS 所用到的“技术”无非是 ADSI 或者 WMI 提供的组件服务程序。可以通过 Windows Host Script 来执行 JScript 或者 VBScript 脚本，也可以在 VB/Delphi 这类快速开发工具开发程序来调用，甚至可以通过浏览器中运行的 JavaScript/JScript/VBScript 以及 IIS 运行的 ASP 来调用。因为支持 IDispatch 接口，所以可以后期绑定地通过 CreateObject 或者 GetObject 方式来获取 ADSI/WMI 的特定接口。

详细的有关 ADSI/WMI 的内容，可以查阅 MSDN，不仅仅可以用来配置 IIS，只要有足够的权限可以用来管理你的 Windows 的一切（Windows2000以后版本）。因为，WMI 本来就是：
```
Windows Management Instrumentation (WMI) 是可伸缩的系统管理结构，它采用一个统一的、
基于标准的、可扩展的面向对象接口。WMI 为您提供与系统管理信息和基础 WMI API 交互的标准方法。
WMI 主要由系统管理应用程序开发人员和管理员用来访问和操作系统管理信息。 WMI 可用于生成组织和管
理系统信息的工具，使管理员或系统管理人员能够更密切地监视系统活动。例如，可以使用 WMI 开发一个
应用程序，用于在 Web 服务器崩溃时呼叫管理员。 
```
InstallShield X 版本不是已经可以配置 IIS 了么？
If a Web site already exists, Virtual Directories tied to that Web site in the project will be installed under that Web site. However, none of the properties set for that Web site in the InstallShield interface will be applied to the Web site in that case.
来自 InstallShield X 的文档中的这段话已经说明：如果要创建的站点已经存在，那么它的虚拟目录或许被创建到已有的站点下，而已有的站点的属性并不会改变，也不会创建新的站点。

本来，与数据库安装一样，我的观点是：单独做一个配置工具来完成对数据库和 IIS 的设置。那么，可以在安装过程中、安装结束后，以及用户使用的过程中的任何时候运行这个配置工具来进行初始化以及修改配置参数。

因此，多年来我从来没在 IS 中进行过类似的操作。但曾经多次也给朋友写过 VBS 脚本和 IS 脚本来达到同样的目的。今天又一次，有位朋友十万火急的找到我的 MSN Messenger，呵呵

好吧，那就把手边的代码整理了一下，形成下面的 InstallScript 脚本。明后天更新一下，把整理好的有关虚拟目录那一部分也加入进来。还有，就是数据库的基本操作。

这里不妨一次性说明一下：从 Windows2000 Server、Windows 2003 Server 的 IIS 虚拟目录的管理工具里可以找到一些微软提供的 VBS 脚本，用于管理 IIS 等，功能非常强大，代码也很健壮。也可以把它打包到你的安装程序里，然后用 LanuchAndWait 的方式来执行，同样能满足要求。

而对于 SQL Server 的脚本，要不可以用 IS 调用打包好的 exe、VBS，通过它们借助 ODBC（MDAC带了 OLEDB 驱动，Windows2000以上版本中默认就有MDAC2.5，而SQLServer SP3a 中带 MDAC2.7a），通过 ADO 数据库访问模型来操作 SQLServer 达到你的目的;或者，直接使用 OSQL.exe 这个 SQLServer 提供的命令行工具来执行脚本文件。

而上面说的这一切，其实都与 InstallShield 无关。ADSI 和 WMI 是 Windows 平台的东西，而 OSQL.exe 是 SQLServer 提供的东西。有了MSDN，有了这些知识，无非是用 InstallScript 来实现罢了。不必大惊小怪，我也不是什么高手，只不过比较善于把知识点关联起来而已。其实不用依靠别人，甚至不用去互联网搜索，你自己也很容易解决的。

有了下面的 IIS Config 脚本，结合 xzSQLDeploy Tools，用在你的 InstallScript MSI Project 中，很容易就能制作一个 Web 应用的安装程序。

呵呵，明天要去医院检查身体，很可能就没有空了。所以，如果你的动手能力还有点生疏，那就等我一两天，放一个 Project 的例子上来吧。

使用方法：

Step1

在 InstallScript 中 Behavior and Logic -> InstallScript 节点：

方法 A：InstallScript -> Files 右键单击并选择“New Script File”菜单项（或直接按“Insert”键）创建新的脚本，并命名：xzIISConfig.Rul

方法 B：保存下面的代码为 xzIISConfig.Rul 文件，并在选择“Insert Script Files...”菜单项，在文件浏览器中选中刚才保存的文件。

Step2

在需要调用的脚本文件，例如默认的 Setup.Rul 文件开头部分添加对刚才加入的文件的引用，如：

#include "xzIISConfig.rul"

///////////////////////////////////////////////////////////////////////
// InstallScript 设置 IIS 脚本
// 主要功能：通过 ADSI 查找、创建、更改、删除站点，查找、创建、更改、删除虚拟目录
// Description:    XiaoZhu.com InstallScript File for IIS Configuration
// FileName:    xzIISConfig.Rul
// Author:        piggybank
// Contact:        play@xiaozhu.com  
//
// Version:        1.01.15
// Created:        2002.03.14.     VBS 的初始版本
// Modified:    2004.10.19.     1.01.13
// Modified:    2004.10.21        1.01.14 调整了.
// Modified:    2004.10.22.        1.01.15 增加了两个函数用于设置站点和获取站点设置
// 授权说明：    你可以不受任何限制地使用本脚本。
//        你可以对它进行转载、修改、再发布，但必须保留注释说明完整性和来源。
//
//                 欢迎访问 http://www.XiaoZhu.com 获取最新版本。
///////////////////////////////////////////////////////////////////////

//**************************
//** 常量定义
//**************************
#define xzIISConfig_WebSiteCount_MaxValue    30
#define xzIISConfig_LocalComputerName        "LocalHost"
#define xzIISConfig_DefaultPort             80
/*
    The ServerSize property specifies the general size of the server, 
    in terms of the number of client requests processed per day. A value 
    of 0 (zero) indicates a small Web site that expects to receive fewer 
    than 10,000 requests per day; a value of 1 indicates a medium site 
    handling between 10,000 and 100,000 requests per day; and a value of 
    2 designates a large site, processing more than 100,000 requests a day.
    The value of this property is used in calculating the value for the 
    ServerListenBacklog property.
*/
#define xzIISConfig_ServerSize                1

#define xzIISConfig_DefaultDoc                "index.asp,index.htm"
#define xzIISConfig_AppFriendlyName            "默认站点"   

#define xzIISConfig_AccessRead                TRUE
#define xzIISConfig_AccessScript            TRUE
#define xzIISConfig_AccessWrite                FALSE
#define xzIISConfig_AspEnableParentPaths    TRUE
#define xzIISConfig_EnableDefaultDoc        TRUE
#define xzIISConfig_EnableDirBrowsing        FALSE 

#define xzIISConfig_AspScriptTimeout        90
#define xzIISConfig_AspSessionTimeout        20

/*
InProcFlag 
    Binary value that specifies whether the application being created 
    is to run in-process (0), out-of-process (1), or in a pooled 
    process (2). If the application already exists and is running, 
    changing the value of this flag will cause the application 
    definition to be deleted and a new application created to run in 
    the specified process space. 
*/
#define xzIISConfig_WebSite_INPROC            0
#define xzIISConfig_WebSite_OUTPROC            1
#define xzIISConfig_WebSite_POOLED            2
#define xzIISConfig_WebSite_InProcFlag        xzIISConfig_WebSite_POOLED

//**************************
//** 需要用到的 IIS 常量定义
//**************************
////ServerState 
#define MD_SERVER_STATE_STARTING     = 1; 
#define MD_SERVER_STATE_STARTED     = 2; 
#define MD_SERVER_STATE_STOPPING     = 3; 
#define MD_SERVER_STATE_STOPPED     = 4; 
#define MD_SERVER_STATE_PAUSING     = 5; 
#define MD_SERVER_STATE_PAUSED         = 6; 
#define MD_SERVER_STATE_CONTINUING     = 7;

prototype xzFindWebSite(STRING, STRING, NUMBER);   
prototype xzCreateWebSite(STRING, STRING, STRING, NUMBER, STRING, BOOL);       
prototype xzDeleteWebSite(NUMBER);    
prototype xzChangeWebSite(NUMBER, STRING, STRING, STRING, NUMBER, STRING, BOOL);       
prototype xzGetWebSiteState(NUMBER);    
prototype xzSetWebSiteState(NUMBER, NUMBER);    

//*********************************************************
//** xzCreateWebSite    更改指定序号的站点的属性
//** @param szSitePath        要修改的站点的根目录路径
//** @param szSiteComment    要修改的站点的描述及显示名称
//** @param szIPBind        要修改的站点的 IP 地址
//** @param nzPort            要修改的站点的端口
//** @param szHost            要修改的站点的主机头
//** @param bStart            修改完毕后是否启动该站点
//** @return > 0 找到了指定的站点;
//**            -1 没能找到指定站点;
//**            -2 获取指定站点根目录失败;
//**            -3 获取 W3SVC 失败;
//**            -4 尝试访问本机 W3SVC 失败
//*********************************************************
function xzCreateWebSite(szSitePath, szSiteComment, szIPBind, nzPort, szHost, bStart)
    OBJECT objW3SVC, objNewSite, objRootDir;
    NUMBER nvSiteIndex; 
    STRING szPort, szInfo;
    VARIANT oServerBindings;

    begin
        szInfo = "正在创建 " + IFX_PRODUCT_NAME + " 站点，请稍等 ..."; 
        SdShowMsg(szInfo, TRUE);
    
        try 
            set objW3SVC = CoGetObject("IIS://" + xzIISConfig_LocalComputerName + "/W3SVC", "");

            if (IsObject(objW3SVC)) then
                nvSiteIndex = 1; 
    
                try
                    while(IsObject(objW3SVC.GetObject("IIsWebServer",nvSiteIndex)))
                    //while(IsObject(objW3SVC.GetObject("IIsWebDirectory",nvSiteIndex)))
                        nvSiteIndex = nvSiteIndex + 1;
                    endwhile;
                catch       
                endcatch;
            
                set objNewSite = objW3SVC.Create("IIsWebServer", nvSiteIndex); 
    
                if (IsObject(objNewSite)) then
                    NumToStr(szPort,nzPort);
                    oServerBindings = szIPBind + ":" + szPort + ":" + szHost;
                    objNewSite.DefaultDoc         = xzIISConfig_DefaultDoc;
                    objNewSite.EnableDefaultDoc = xzIISConfig_EnableDefaultDoc; 
                    objNewSite.ServerBindings     = oServerBindings;
                    objNewSite.ServerComment     = szSiteComment; 
                    objNewSite.ServerSize         = xzIISConfig_ServerSize;
                    objNewSite.SetInfo();
                    
                    set objRootDir = objNewSite.Create("IIsWebVirtualDir", "ROOT"                        
                    if (IsObject(objRootDir)) then 
                        objRootDir.Path                 = szSitePath;
                        objRootDir.AccessRead            = xzIISConfig_AccessRead;
                        objRootDir.AccessScript            = xzIISConfig_AccessScript;
                        objRootDir.AccessWrite            = xzIISConfig_AccessWrite; 
                        objRootDir.EnableDirBrowsing     = xzIISConfig_EnableDirBrowsing;
                        objRootDir.EnableDefaultDoc        = xzIISConfig_EnableDefaultDoc; 
                        objRootDir.AppFriendlyName        = szSiteComment;
    
                        objRootDir.AppCreate2(xzIISConfig_WebSite_InProcFlag);
                        objRootDir.SetInfo();
                        set objRootDir = NOTHING;  
                        
                        if ( bStart ) then
                            try
                                objNewSite.Start();
                            catch          
                                szInfo = "启动新创建的站点失败。";
                                MessageBox(szInfo, INFORMATION);
                            endcatch;
                        endif;
                    else
                        nvSiteIndex = -2;
                        szInfo = IFX_PRODUCT_NAME + " 安装程序无法为新建的 IIS 站点创建根目录，请检查设置。";
                    endif;
        
                    set objNewSite = NOTHING;
                else
                    nvSiteIndex = -1;
                    szInfo = IFX_PRODUCT_NAME + " 安装程序无法创建新的 IIS 站点，请检查设置。";
                endif;
    
                set objW3SVC = NOTHING;
            else
                nvSiteIndex = -3;
                szInfo = IFX_PRODUCT_NAME + " 安装程序无法获得 IIS 设置。";
            endif;

        catch
            szInfo = IFX_PRODUCT_NAME + " 安装程序创建 IIS 站点时出现错误。";
            nvSiteIndex = -4;
        endcatch; 

        if (nvSiteIndex < 0) then
            SdShowMsg(szInfo,TRUE);
            //MessageBox(szInfo, SEVERE);
        endif;

        SdShowMsg("", FALSE);
        return nvSiteIndex;
end;    

//*********************************************************
//** xzDeleteWebSite    删除指定序号的站点
//** @param nvSiteIndex    要删除的站点在 IIS 服务中的序号
//** @return 1 删除了指定的站点;
//**        -1 没有删除指定的站点;
//*********************************************************
function xzDeleteWebSite(nvSiteIndex)
    OBJECT objW3SVC, objDeleteSite;
    NUMBER nvReturn; 
    STRING szPort, szInfo, szMsg;

    begin 
        nvReturn = -1;
        szMsg = IFX_PRODUCT_NAME + " 安装程序正在删除站点，请稍等..."; 
        SdShowMsg(szMsg,TRUE);
        
        try 
            set objW3SVC = CoGetObject("IIS://" + xzIISConfig_LocalComputerName + "/W3SVC", "");
    
            if (IsObject(objW3SVC)) then
                set objDeleteSite = objW3SVC.GetObject("IIsWebServer",nvSiteIndex);

                if (IsObject(objDeleteSite)) then
                    try
                        // Delete Root of Web Site
                        objDeleteSite.Delete("IIsWebVirtualDir","ROOT");
                    catch
                    endcatch;
                    try
                        // Stop Web Site
                        objDeleteSite.Stop();
                    catch
                    endcatch;
                    set objDeleteSite = NOTHING;
                    nvReturn = 1; 
                endif;
                objW3SVC.Delete("IIsWebServer",nvSiteIndex);
            endif;
        catch 
            nvReturn = -1;
        endcatch;                 
        
        if ( nvReturn > 0 ) then
            szMsg = IFX_PRODUCT_NAME + " 安装程序已经删除站点。";
        else
            szMsg = IFX_PRODUCT_NAME + " 安装程序删除站点失败。";
        endif;

        SdShowMsg(szMsg, TRUE);
        SdShowMsg(szMsg, FALSE);
        return nvReturn;
end;

//*********************************************************
//** xzChangeWebSite    更改指定序号的站点的属性
//** @param nvSiteIndex        要修改的站点的序号
//** @param szSitePath        要修改的站点的根目录路径
//** @param szSiteComment    要修改的站点的描述及显示名称
//** @param szIPBind        要修改的站点的 IP 地址
//** @param nzPort            要修改的站点的端口
//** @param szHost            要修改的站点的主机头
//** @param bStart            修改完毕后是否启动该站点
//** @return > 0 找到了指定的站点;
//**            -1 没能找到指定站点;
//**            -2 获取指定站点根目录失败;
//**            -3 获取 W3SVC 失败;
//**            -4 尝试访问本机 W3SVC 失败
//*********************************************************
function xzChangeWebSite(nvSiteIndex, szSitePath, szSiteComment, szIPBind, nzPort, szHost, bStart)
    OBJECT objW3SVC, objWebSite, objWebSiteRoot;
    STRING szPort, szInfo;
    variant vServerBindings;

    begin
        szInfo = IFX_PRODUCT_NAME + " 安装程序正在更改 IIS 站点设置，请稍等 ..."; 
        SdShowMsg(szInfo, TRUE);
    
        try 
            set objW3SVC = CoGetObject("IIS://" + xzIISConfig_LocalComputerName + "/W3SVC", "");

            if (IsObject(objW3SVC)) then
                try
                    if (IsObject(objW3SVC.GetObject("IIsWebServer",nvSiteIndex))) then
                        set objWebSite = objW3SVC.GetObject("IIsWebServer",nvSiteIndex);
                        NumToStr(szPort,nzPort);
                        vServerBindings = szIPBind + ":" + szPort + ":" + szHost;
                        objWebSite.DefaultDoc         = xzIISConfig_DefaultDoc;
                        objWebSite.EnableDefaultDoc = xzIISConfig_EnableDefaultDoc; 
                        objWebSite.ServerBindings     = vServerBindings;
                        objWebSite.ServerComment     = szSiteComment; 
                        objWebSite.ServerSize         = xzIISConfig_ServerSize;
                        objWebSite.SetInfo();
                            
                        set objWebSiteRoot = objWebSite.GetObject("IIsWebVirtualDir", "ROOT");
                        
                        if (IsObject(objWebSiteRoot)) then 
                            objWebSiteRoot.Path                 = szSitePath;
                            objWebSiteRoot.AccessRead            = xzIISConfig_AccessRead;
                            objWebSiteRoot.AccessScript            = xzIISConfig_AccessScript;
                            objWebSiteRoot.AccessWrite            = xzIISConfig_AccessWrite; 
                            objWebSiteRoot.EnableDirBrowsing     = xzIISConfig_EnableDirBrowsing;
                            objWebSiteRoot.EnableDefaultDoc        = xzIISConfig_EnableDefaultDoc; 
                            objWebSiteRoot.AppFriendlyName        = szSiteComment;
        
                            objWebSiteRoot.AppCreate2(xzIISConfig_WebSite_InProcFlag);
                            objWebSiteRoot.SetInfo();
                            set objWebSiteRoot = NOTHING;  
                            
                            if ( bStart ) then
                                try
                                    objWebSiteRoot.Start();
                                catch
                                endcatch;
                            endif;
                        else
                            nvSiteIndex = -2;
                            szInfo = IFX_PRODUCT_NAME + " 安装程序无法获取指定 IIS 站点的根目录，请检查设置。";
                        endif;
            
                        set objWebSite = NOTHING; 
                    else
                        nvSiteIndex = -1;
                        szInfo = IFX_PRODUCT_NAME + " 安装程序无法获取指定 IIS 站点，请检查设置。";
                    endif;
                catch
                
                endcatch;

                set objW3SVC = NOTHING;
            else
                nvSiteIndex = -3;
                szInfo = IFX_PRODUCT_NAME + " 安装程序无法获得 IIS 设置。";
            endif;

        catch
            szInfo = IFX_PRODUCT_NAME + " 安装程序更改 IIS 站点设置时出现错误。";
            nvSiteIndex = -4;
        endcatch; 

        if (nvSiteIndex < 0) then
            SdShowMsg(szInfo,TRUE);
            //MessageBox(szInfo, SEVERE);
        endif;
        
        SdShowMsg("", FALSE);
        return nvSiteIndex;
end;    
      
//*********************************************************
//** xzFindWebSite    指定三个条件至少一个，查询符合条件的站点，并返回序号
//** @param szIPBind    要查询站点的 IP 地址，可以不指定
//** @param szHost        要查询站点的主机头，可以不指定
//** @param nzPort        要查询站点的端口，可以不指定，但至少必须指定一项    
//** @return > 0 找到了指定的站点;
//**            -1 没能找到站点;
//**            -2 获取 W3SVC 失败;
//**            -3 尝试访问本机 W3SVC 失败
//*********************************************************
function xzFindWebSite(szIPBind, szHost, nzPort)
    OBJECT objW3SVC, objWebSite;
    NUMBER nvSiteIndex; 
    STRING szPort, szInfo;
    STRING szServerBindings; 
    STRING oServerBindings();

    begin
        szInfo = IFX_PRODUCT_NAME + " 安装程序正在查询 IIS 站点，请稍等 ..."; 
        SdShowMsg(szInfo, TRUE);
    
        try 
            NumToStr(szPort,nzPort);
            szServerBindings = szIPBind + ":" + szPort + ":" + szHost;
            set objW3SVC = CoGetObject("IIS://" + xzIISConfig_LocalComputerName + "/W3SVC", "");

            if (IsObject(objW3SVC)) then
                for nvSiteIndex = 1 to xzIISConfig_WebSiteCount_MaxValue
                    try
                        set objWebSite = objW3SVC.GetObject("IIsWebServer", nvSiteIndex); 
                        
                        if (IsObject(objWebSite)) then
                            oServerBindings = objWebSite.ServerBindings;
                            if ( StrCompare(oServerBindings(0), szServerBindings) = 0 ) then
                                set objWebSite = NOTHING;
                                
                                szInfo = IFX_PRODUCT_NAME + " 安装程序已经找到符合条件（ " + szServerBindings + "）的 IIS 站点。"; 
                                SdShowMsg("", FALSE);

                                return nvSiteIndex; 
                            endif;
                        endif;

                        nvSiteIndex = nvSiteIndex + 1;   
                    catch    
                    endcatch;
                endfor;
    
                set objW3SVC = NOTHING;
                                       
                szInfo = IFX_PRODUCT_NAME + " 安装程序没有找到符合条件（ " + szServerBindings + "）的 IIS 站点。"; 
                nvSiteIndex = -1;
            else
                nvSiteIndex = -2;
                szInfo = IFX_PRODUCT_NAME + " 安装程序无法获得 IIS 设置。";
            endif;

        catch
            szInfo = IFX_PRODUCT_NAME + " 安装程序查询 IIS 站点时出现错误。";
            nvSiteIndex = -3;
        endcatch; 

        if (nvSiteIndex < 0) then
            SdShowMsg(szInfo, TRUE);
            //MessageBox(szInfo, SEVERE);
        endif;
        
        SdShowMsg("", FALSE);
        return nvSiteIndex;
end;    

//*********************************************************
//** xzGetWebSiteState    获取指定站点的状态
//** @param nvSiteIndex    制定站点的序号
//** @return > 0 指定的站点状态值;
//**            -1 没有找到指定的站点;
//**            -2 没有找到指定的站点（异常）;
//**            -3 获取 W3SVC 失败;
//**            -4 获取 W3SVC 失败（异常）;
//**            -5 获取指定站点状态失败（异常）;
//*********************************************************
function xzGetWebSiteState(nvSiteIndex)
    OBJECT objW3SVC, objWebSite;
    NUMBER nvResult; 
    STRING szInfo;
begin
    szInfo = IFX_PRODUCT_NAME + " 安装程序正在尝试获取指定 IIS 站点状态，请稍等 ..."; 
    SdShowMsg(szInfo, TRUE);    
    try 
        set objW3SVC = CoGetObject("IIS://" + xzIISConfig_LocalComputerName + "/W3SVC", "");
        if (IsObject(objW3SVC)) then
            try
                set objWebSite = objW3SVC.GetObject("IIsWebServer", nvSiteIndex); 
                if (IsObject(objWebSite)) then
                    try
                        nvResult = objWebSite.ServerState;
                        szInfo = IFX_PRODUCT_NAME + " 安装程序获取 IIS 站点状态成功。"; 
                        SdShowMsg(szInfo, TRUE);    
                    catch    
                        //获取指定站点状态失败（异常）    
                        nvResult =yle="Cstyle="COLOR: #000000"> -5;
                        szInfo = IFX_PRODUCT_NAME + " 安装程序获取 IIS 站点状态失败：异常"; 
                        SdShowMsg(szInfo, TRUE);    
                    endcatch;
                else
                    //没有找到指定的站点    
                    nvResult = -1;
                    szInfo = IFX_PRODUCT_NAME + " 安装程序获取 IIS 站点状态失败：没有找到指定的站点"; 
                    SdShowMsg(szInfo, TRUE);    
                endif;
            catch
                //没有找到指定的站点（异常）    
                nvResult = -2;
                szInfo = IFX_PRODUCT_NAME + " 安装程序获取 IIS 站点状态失败：没有找到指定的站点（异常）"; 
                SdShowMsg(szInfo, TRUE);    
            endcatch;
        else
            //获取 W3SVC 失败
            nvResult = -3;
            szInfo = IFX_PRODUCT_NAME + " 安装程序获取 IIS 站点状态失败：获取 W3SVC 失败"; 
            SdShowMsg(szInfo, TRUE);    
        endif;
    catch              
        //获取 W3SVC 失败（异常）
        nvResult = -4;
        szInfo = IFX_PRODUCT_NAME + " 安装程序获取 IIS 站点状态失败：获取 W3SVC 失败（异常）"; 
        SdShowMsg(szInfo, TRUE);    
    endcatch;
    SdShowMsg("", FALSE);   
    return nvResult;    
end;  

//*********************************************************
//** xzSetWebSiteState    设置指定站点的状态
//** @param nvSiteIndex    指定站点的序号
//** @param nvState        要设置的状态：2，启动;4，停止;6，暂停
//** @return > 0 指定的站点状态值;
//**            -1 没有找到指定的站点;
//**            -2 没有找到指定的站点（异常）;
//**            -3 获取 W3SVC 失败;
//**            -4 获取 W3SVC 失败（异常）;
//**            -5 设置指定站点状态失败（异常）;
//**            -6 参数 nvState 不正确;
//** @Description        注意，对于已经停止的站点（4），不能转为暂停，否则会返回 -5
//*********************************************************
function xzSetWebSiteState(nvSiteIndex, nvState)
    OBJECT objW3SVC, objWebSite;
    NUMBER nvResult;
    STRING szInfo;
begin      
    szInfo = IFX_PRODUCT_NAME + " 安装程序正在尝试设置指定 IIS 站点状态，请稍等 ..."; 
    SdShowMsg(szInfo, TRUE);    
    if ( nvState = 2 || nvState = 4 || nvState = 6 ) then
        try 
            set objW3SVC = CoGetObject("IIS://" + xzIISConfig_LocalComputerName + "/W3SVC", "");
            if (IsObject(objW3SVC)) then
                try
                    set objWebSite = objW3SVC.GetObject("IIsWebServer", nvSiteIndex); 
                    if (IsObject(objWebSite)) then
                        try      
                            if ( nvState = 2 ) then
                                objWebSite.Start();
                            else
                                if ( nvState = 4 ) then
                                    objWebSite.Stop();
                                else
                                    if ( nvState = 6 ) then
                                        objWebSite.Pause();                                    
                                    endif;                                    
                                endif;
                            endif; 
                            nvResult = 1;   
                            try
                                nvResult = objWebSite.ServerState;
                            catch
                            endcatch;
                            szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态成功。"; 
                            SdShowMsg(szInfo, TRUE);    
                        catch    
                            //设置指定站点状态失败（异常）    
                            nvResult = -5;
                            szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态失败：异常"; 
                            SdShowMsg(szInfo, TRUE);    
                        endcatch;
                    else
                        //没有找到指定的站点    
                        nvResult = -1;
                        szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态失败：没有找到指定的站点"; 
                        SdShowMsg(szInfo, TRUE);    
                    endif;
                catch
                    //没有找到指定的站点（异常）    
                    nvResult = -2;
                    szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态失败：没有找到指定的站点（异常）"; 
                    SdShowMsg(szInfo, TRUE);    
                endcatch;
            else
                //获取 W3SVC 失败
                nvResult = -3;
                szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态失败：获取 W3SVC 失败"; 
                SdShowMsg(szInfo, TRUE);    
            endif;
        catch              
            //获取 W3SVC 失败（异常）
            nvResult = -4;
            szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态失败：获取 W3SVC 失败（异常）"; 
            SdShowMsg(szInfo, TRUE);    
        endcatch;
    else           
        //参数 nvState 不正确;
        nvResult = -6;
        szInfo = IFX_PRODUCT_NAME + " 安装程序设置 IIS 站点状态失败：参数 nvState 不正确"; 
        SdShowMsg(szInfo, TRUE);    
    endif;
    SdShowMsg("", FALSE);
    return nvResult;    
end;

调用范例一：

//---------------------------------------------------------------------------
// OnFirstUIAfter
//
// The OnFirstUIAfter event called by the framework after the file transfer
// of the setup when the setup is running in first install mode. By default
// this event displays UI that informs the end user that the setup has been
// completed successfully.
//---------------------------------------------------------------------------
function OnFirstUIAfter()
    STRING szTitle, szMsg1, szMsg2, szOption1, szOption2;
    NUMBER bOpt1, bOpt2;  
    STRING szWebSiteRootPath, szWebSiteComment, szIPBands, szHost, svValue;
    NUMBER nzPort, nzResult;
    STRING szCommandLine, szIconPath, szWorkingDir, szShortCutKey;
    NUMBER nIcon, nFlag;
begin
    Disable(STATUSEX);

    szWebSiteRootPath = INSTALLDIR ^ "Help";
    szWebSiteComment = "XiaoZhu.com";
    szIPBands = "";   
    nzPort = 80;
    szHost = "";  
    nzResult = xzFindWebSite("", "", 80);
     if ( nzResult > 0 ) then
        nzResult = xzChangeWebSite(nzResult, szWebSiteRootPath, szWebSiteComment, szIPBands, nzPort, szHost, TRUE);
        if000000"> (nzResult < 0) then
            NumToStr(svValue, nzResult);
            MessageBox("更改站点设置失败，请联系系统管理员。(" + svValue + ")", WARNING);
        endif;
    else
        nzResult = xzCreateWebSite(szWebSiteRootPath, szWebSiteComment, szIPBands, nzPort, szHost, TRUE);
        if (nzResult < 0) then
            NumToStr(svValue, nzResult);
            MessageBox("创建新站点失败，请联系系统管理员。(" + svValue + ")", WARNING);
        endif;
     endif;       

    bOpt1  = FALSE;
    bOpt2  = FALSE;
    szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
    SdFinishEx(szTitle, szMsg1, szMsg2, szOption1, szOption2, bOpt1, bOpt2);
    
    ////////////////////////////////////////////
    //打开浏览器浏览制定的网页    
    szCommandLine = ProgramFilesFolder ^ "Internet Explorer\\iexplore.exe";
    LaunchAppAndWait(szCommandLine, "http://127.0.0.1/Readme.htm", NOWAIT);   
    //LaunchAppAndWait(szCommandLine, INSTALLDIR ^ "help\\Readme.htm", NOWAIT);   

    ////////////////////////////////////////////
    //运行数据库设置程序
    LaunchAppAndWait(INSTALLDIR ^ "xzSQLDeploy.exe", "", NOWAIT);

    ////////////////////////////////////////////
    //在程序组中添加快捷方式    
    szWorkingDir  = INSTALLDIR;
    nIcon         = 0;
    szShortCutKey = "";
    nFlag         = REPLACE|RUN_MINIMIZED;

/*
    //方法二 A:
    szIconPath = "%SystemDrive%\\Program Files\\Internet Explorer\\iexplore.exe";
    szCommandLine = szIconPath;
    LongPathToQuote(szCommandLine, TRUE);
    szCommandLine = szCommandLine + " " + "http://www.XiaoZhu.com";
    AddFolderIcon(FOLDER_PROGRAMS ^ @PRODUCT_NAME, "Readme1", szCommandLine, szWorkingDir, szIconPath, 0, szShortCutKey, nFlag);

*/          
    ////方法二 B:
    szIconPath    = ProgramFilesFolder ^ "Internet Explorer\\iexplore.exe";
    szCommandLine = szIconPath;
    LongPathToQuote(szCommandLine, TRUE);
    szCommandLine = szCommandLine + " " + "http://www.XiaoZhu.com";
    AddFolderIcon(FOLDER_PROGRAMS ^ @PRODUCT_NAME, "Readme2", szCommandLine, szWorkingDir, szIconPath, 0, szShortCutKey, nFlag);
end;

查看全文

相关阅读:
sync.Once.Do(f func())
协程
Qt 线程基础(QThread、QtConcurrent、QThreadPool等)
linux下valgrind的使用概述
QT--QSocketNotifier类介绍
QThreadPool类和QtConcurrent命名空间
联想电池维修
asm
tapset::iosched(3)
systemtap --diskio

原文地址：https://www.cnblogs.com/HeroBeast/p/1404791.html