用InstallShield9 进行ASP软件的打包和数据库自动安装

    复制代码 代码如下:

    #define BITMAP_ID 1

    #include “ifx.h” //不能移动

    prototype CreateWebSite(STRING,STRING); // 创建 IIS 站点
    prototype CreateVirtualDir(STRING); // 创建虚拟目录
    prototype CreateDataBase(STRING,STRING,STRING);//创建SQL数据库
    prototype CheckIIS(); // 示例:检查系统是否安装IIS

    STRING TMP_PRODUCT_NAME,TMP_PRODUCT_VERSION,TMP_COMPANY_NAME,TMP_PRODUCT_KEY,TMP_TITLE_CAPTIONBAR;
    STRING globalstr,destdir,destsvr,destsa,destpw;
    NUMBER nvFileHandle,nvFileHandlebak,asaline;
    BOOL iscreatedb;
    STRING nSetupType,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault;
    STRING szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault;
    STRING szADDomain,szADOU,szADDomainDefault,szADOUDefault,ADDC1;
    STRING svName, svCompany, svSerial;

    function OnFirstUIBefore()

    NUMBER nResult,nOpt,svEdit1,svEdit2;
    STRING szTitle, szMsg,szBmpPath;
    STRING szLicenseFile, szQuestion;
    STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;

    STRING szFile,szTargetPath,szDir,szfolder;
    STRING szComponents, szTargetdir;
    STRING szField1,szField2;
    STRING szDefault,svResult;
    OBJECT piisObj;
    LIST list,listStartCopy;
    NUMBER nLevel,nvSize;

    begin

    TMP_PRODUCT_NAME=”XXX电子政务平台”;
    TMP_PRODUCT_VERSION=”V2.0″;
    TMP_COMPANY_NAME=”XXX公司”;
    TMP_PRODUCT_KEY=”88888888″;
    TMP_TITLE_CAPTIONBAR=”0″;

    szBmpPath=SUPPORTDIR^”left.bmp”;
    DialogSetInfo(DLG_INFO_ALTIMAGE, szBmpPath, FALSE); // 设置左边的图片
    //To Do: if you want to enable background, window title, and caption bar title
    SetTitle( @TITLE_MAIN, 24, WHITE );
    SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );
    Enable( FULLWINDOWMODE );
    Enable( BACKGROUND );
    SetColor(BACKGROUND,RGB (0, 128, 128));
    PlaceBitmap (szBmpPath, BITMAP_ID, 0, 0, FULLSCREEN);

    //默认值设定
    TARGETDIR = “C:”^”inetpub”^@FOLDER_NAME;
    szDir = TARGETDIR;
    SHELL_OBJECT_FOLDER = @FOLDER_NAME;
    svName = “”;
    svCompany = “”;
    svSerial = “88888888”;

    if (CheckIIS()==1) then // 示例:检查系统是否安装IIS
    //MessageBox (“已经安装了IIS,安装继续!”,SEVERE);
    goto Dlg_Start;
    else
    MessageBox (“该系统没有安装IIS,请先安装IIS!”,WARNING);
    goto end_all_install;//结束安装
    endif;


    Dlg_Start:// 开始对话框

    Dlg_SdWelcome: //欢迎 对话框
    szTitle = “欢迎安装使用 “+TMP_PRODUCT_NAME+” “+TMP_PRODUCT_VERSION;
    szMsg = “”;
    nResult = SdWelcome( szTitle, szMsg );
    if (nResult = BACK) goto Dlg_Start;

    Dlg_SdLicense://软件许可协议 对话框
    szLicenseFile = SUPPORTDIR ^ “license.txt”;
    szTitle = “最终用户许可协议”;
    szMsg = “”;
    szQuestion = “”;
    nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );
    if (nResult = BACK) goto Dlg_SdWelcome;

    Dlg_SdShowInfoList://readme文件 对话框
    szFile = SUPPORTDIR ^ “infolist.txt”;
    list = ListCreate( STRINGLIST );
    ListReadFromFile( list, szFile );
    szTitle = “系统信息概述”;
    szMsg = “系统概述”;
    nResult = SdShowInfoList( szTitle, szMsg, list );
    ListDestroy( list );
    if (nResult = BACK) goto Dlg_SdLicense;

    Dlg_SdRegisterUserEx://用户信息 对话框
    szMsg = “”;
    szTitle = “用户信息注册”;
    svCompany = “XXX省”;
    svSerial = “XXX单位”;
    nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );
    if (nResult = BACK) goto Dlg_SdShowInfoList;
    //检查序列号
    //if (CHK_serial(svCompany, svSerial)<0) then
    //goto Dlg_SdRegisterUserEx;
    //endif;
    //检查序列号完毕

    Dlg_InputADAdmin://设置AD目录服务器的IP和用户名

    szTitle = “设置目录(AD)服务器”;
    szMsg = “现在开始设置目录(AD)服务器的IP、管理员帐号和密码”;
    szQuestion=” 请输入目录(AD)服务器的管理员帐号和密码,安装程序将按照您提供的IP地址、帐号和密码进行配置。如果您提供的帐号或密码错误的话,该系统将不能正常使用!”;
    szADsvr=”IP地址:”;
    szADusr=”帐 号:”;
    szADpwd=”密 码:”;
    szADsvrDefault=”192.168.8.8″;
    szADusrDefault=”Administrator”;
    szADpwdDefault=””;
    SetDialogTitle(DLG_ASK_TEXT,szTitle);
    nResult=SdShowDlgEdit3 (szTitle, szQuestion,szADsvr,szADusr,szADpwd,szADsvrDefault,szADusrDefault,szADpwdDefault);
    if (nResult = BACK) goto Dlg_SdRegisterUserEx;

    Dlg_InputADDomain://设置AD目录服务器的域和组织

    szTitle = “设置目录(AD)服务器”;
    szMsg = “现在开始设置目录(AD)服务器的域名和组织单元”;
    szQuestion=” 请输入目录(AD)服务器的完整域名和组织单元,安装程序将按照您提供的信息进行配置。如果您提供的信息错误的话,该系统将不能正常使用!”;
    szADDomain=”完整域名:”;
    szADOU=”组织单元:”;

    szADDomainDefault=”xx.xx.com”;
    szADOUDefault=”XXX域名”;

    SetDialogTitle(DLG_ASK_TEXT,szTitle);
    nResult=SdShowDlgEdit2 (szTitle, szQuestion,szADDomain,szADOU,szADDomainDefault,szADOUDefault);
    //域名转换为3个DC
    if ((StrSub ( ADDC1, szADDomain, 0, StrFindEx ( szADDomain, “.”, 0 )+1))<0) then
    //只取第一个,后面的固定
    MessageBox(“你输入的域名有错误,请重新输入!”,WARNING);
    goto Dlg_InputADDomain;
    endif;
    if (nResult = BACK) goto Dlg_SdRegisterUserEx;

    Dlg_SetupType: //安装类型 对话框
    nSetupType = “完全安装”;
    szTitle = “安装类型”;
    szMsg = “请选择您需要按哪种方式安装”;
    nResult = SdSetupTypeEx ( szTitle , szMsg , “” , nSetupType , 0 );
    if (nResult = BACK) then
    goto Dlg_SdRegisterUserEx;
    endif;

    if (nSetupType = “仅主程序”) then
    goto Dlg_SdAskDestPath;
    endif;

    Dlg_AskSQL://设置数据库服务器 对话框
    szTitle = “设置SQL数据库”;
    szMsg = “现在开始设置Microsoft SQL Server数据库系统”;
    szQuestion=” 请输入SQL SERVER数据库服务器的用户名和密码,安装程序将按照您提供的IP地址和下面的用户名和密码创建和优化数据库系统。如果您提供的用户名和密码是错误的,安装程序将自动跳过数据的设置!”;
    szSQLsvr=”主机名:”;
    szSQLusr=”用户名:”;
    szSQLpwd=”密 码:”;
    szSQLsvrDefault=”192.168.8.8″;
    szSQLusrDefault=”sa”;
    szSQLpwdDefault=””;
    SetDialogTitle(DLG_ASK_TEXT,szTitle);
    nResult=SdShowDlgEdit3 (szTitle, szQuestion,szSQLsvr,szSQLusr,szSQLpwd,szSQLsvrDefault,szSQLusrDefault,szSQLpwdDefault);
    if (nResult = BACK) goto Dlg_SetupType;

    Dlg_SdStartCopy://开始复制文件 对话框
    szTitle = “确认数据库信息”;
    szMsg = “点击下一步继续”;
    listStartCopy = ListCreate( STRINGLIST );
    ListAddString(listStartCopy,”用户名:”+svName,AFTER);
    ListAddString(listStartCopy,”公司名称:”+svCompany,AFTER);
    ListAddString(listStartCopy,”主机名:”+szSQLsvrDefault,AFTER);
    ListAddString(listStartCopy,”用户名:”+szSQLusrDefault,AFTER);
    ListAddString(listStartCopy,”密 码:”+szSQLpwdDefault,AFTER);
    ListAddString(listStartCopy,””,AFTER);
    ListAddString(listStartCopy,”请确认您填写的信息,按下一步继续”,AFTER);

    iscreatedb=TRUE;//安装数据库标志为真
    destsvr=szSQLsvrDefault;
    destsa=szSQLusrDefault;
    destpw=szSQLpwdDefault;
    nResult = SdStartCopy( szTitle, szMsg, listStartCopy );

    ListDestroy(listStartCopy);
    if (nResult = BACK) goto Dlg_AskSQL;
    SetStatusWindow(0, “”);
    Enable(STATUSEX);
    StatusUpdate(ON, 100);

    if (nSetupType = “仅数据库”) then
    goto end_all_install;
    endif;

    //开始主程序安装
    Dlg_SdAskDestPath://安装位置 对话框
    szTitle = “主程序安装位置”;
    szMsg = “”;
    nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
    TARGETDIR = szDir;
    destdir=szDir;
    if (nResult = BACK) goto Dlg_SetupType;

    Dlg_SelMode1://设置IIS服务器 对话框
    szTitle = “设置”+TMP_PRODUCT_NAME+”的运行模式”;
    szMsg = “请选择软件运行的方式,极力推荐使用独立站点方式运行”;
    szField1=”独立站点方式运行(自动创建新站点)”;
    szField2=”虚拟目录方式运行(自动创建虚拟目录)”;
    svEdit1=TRUE;
    svEdit2=FALSE;
    SetDialogTitle(DLG_ASK_TEXT,szTitle);
    //DialogSetInfo ( DLG_INFO_CHECKSELECTION, “”, 1);
    nOpt = EXCLUSIVE ;
    nResult = AskOptions (nOpt,szMsg,szField1,svEdit1,szField2,svEdit2);
    if (nResult = BACK) goto Dlg_AskSQL;
    if (svEdit1=FALSE) goto Dlg_AskText1;//选择创建虚拟目录

    Dlg_AskText ://设置IIS服务器,建立站点 对话框
    szTitle = “设置IIS信息服务器”;
    szMsg = “现在开始设置IIS系统”;
    szQuestion=” 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写,安装程序将自动跳过站点的创建!”;
    szServerIP=”地址:”;
    szServerPort=”端口:”;
    szServerIPDefault=”192.168.8.8″;
    szServerPortDefault=”80″;
    SetDialogTitle(DLG_ASK_TEXT,szTitle);
    nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
    if (nResult = BACK) goto Dlg_SelMode1;
    if (nResult = NEXT) goto Dlg_SdStartCopy1;

    Dlg_AskText1 ://设置IIS服务器,建立虚拟目录 对话框
    szTitle = “设置IIS信息服务器”;
    szMsg = “现在开始设置IIS系统”;
    szQuestion=” 请输入本服务器的主机名或IP地址,安装程序将按照您提供的资料设置IIS信息服务。如果您没有填写,安装程序将自动跳过站点的创建!”;
    szServerIP=”别名:”;
    szServerPort=”目录:”;
    szServerIPDefault=”oa”;
    szServerPortDefault=szDir;
    SetDialogTitle(DLG_ASK_TEXT,szTitle);
    nResult=SdShowDlgEdit2 (szTitle, szQuestion,szServerIP,szServerPort,szServerIPDefault,szServerPortDefault);
    if (nResult = BACK) goto Dlg_AskText;

    Dlg_SdStartCopy1://开始复制文件 对话框
    szTitle = “确认IIS服务器信息”;
    szMsg = “点击下一步继续”;
    listStartCopy = ListCreate( STRINGLIST );
    ListAddString(listStartCopy,”用户名:”+svName,AFTER);
    ListAddString(listStartCopy,”公司名称:”+svCompany,AFTER);
    ListAddString(listStartCopy,”目标目录:”+szDir,AFTER);
    if (svEdit1=TRUE) then
    ListAddString(listStartCopy,”IP地址:”+szServerIPDefault,AFTER);
    ListAddString(listStartCopy,”端口号:”+szServerPortDefault,AFTER);
    endif;
    if (svEdit2=TRUE) then
    ListAddString(listStartCopy,”别名:”+szServerIPDefault,AFTER);
    ListAddString(listStartCopy,”目录:”+szServerPortDefault,AFTER);
    endif;
    ListAddString(listStartCopy,””,AFTER);
    ListAddString(listStartCopy,”请确认您填写的信息,按下一步继续”,AFTER);
    nResult = SdStartCopy( szTitle, szMsg, listStartCopy );
    ListDestroy(listStartCopy);
    if (nResult = BACK) goto Dlg_AskText1;
    SetStatusWindow(0, “”);
    Enable(STATUSEX);
    Enable(INDVFILESTATUS);
    StatusUpdate(ON, 100);
    if (svEdit1=TRUE) then
    CreateWebSite(szServerIPDefault,szServerPortDefault); // 开始创建 IIS 站点
    endif;
    if (svEdit2=TRUE) then
    CreateVirtualDir(szServerIPDefault); // 开始创建 IIS 站点
    endif;

    end_all_install://结束全部安装
    return 0;
    end;

    function OnFirstUIAfter()
    STRING szTitle,szMsg1, szMsg2, szOption1, szOption2,szCmdLine;
    NUMBER bOpt1, bOpt2;
    STRING szMsg;
    begin
    if ((nSetupType = “完全安装”) || (nSetupType = “仅数据库”))then
    //开始创建数据库
    CreateDataBase(destsvr,destsa,destpw); // 创建和优化数据库

    if (nSetupType = “完全安装”)then
    //开始设置global.asa
    OpenFileMode (FILE_MODE_NORMAL);//打开文件方式只读
    if (OpenFile (nvFileHandlebak, destdir, “global.bak”) < 0) then
    MessageBox (“打开配置文件失败,请手动配置”, SEVERE);
    goto end_all_install1;
    endif;

    OpenFileMode (FILE_MODE_APPEND);//打开文件方式可写
    if (CreateFile (nvFileHandle, destdir, “global.asa”) < 0) then
    MessageBox (“创建global.asa文件失败,请手动配置”, SEVERE);
    goto end_all_install1;
    else//开始写文件
    asaline=1;

    while (GetLine (nvFileHandlebak, globalstr) = 0)
    if (asaline=15) then//此行需修改,否则原样写入文件:使用单位所在区域
    globalstr=”\”uninname=” + svCompany + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=17) then//此行需修改,否则原样写入文件:单位名称
    globalstr=”Application(\”thissoftuser\”)=uninname & \”” + svSerial + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=18) then//此行需修改,否则原样写入文件:单位名称
    globalstr=”Application(\”UnitName\”)=uninname & \”” + svSerial + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=30) then//此行需修改,否则原样写入文件:SQL连接
    globalstr=”Application(\”SqlLink\”)=\”Provider=SQLOLEDB.1;Password=” + destpw + “;Persist Security Info=True;User ID=” + destsa + “;Initial Catalog=oa;Data Source=” + destsvr + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=32) then//此行需修改,否则原样写入文件:SQL连接
    globalstr=”Application(\”ConnectSql\”)=\”Driver=SQL Server;Server=” + destsvr + “;Database=oa;UID=” + destsa + “;Initial Catalog=oa;PWD=” + destpw + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=37) then//此行需修改,否则原样写入文件:AD管理员帐号
    globalstr=”Application(\”User_SDJSWOAVERSION\”)=\”” + szADusrDefault + “@” + szADDomainDefault + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=38) then//此行需修改,否则原样写入文件:AD管理员密码
    globalstr=”Application(\”Password_SDJSWOAVERSION\”)=\”” + szADpwdDefault + “\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=61) then//此行需修改,否则原样写入文件:ADIP地址和组织单元
    globalstr=”Application(\”AdsPath_SDJSWOAVERSION\”)=\”LDAP://” + szADsvrDefault + “:389/OU=” + szADOUDefault + “,DC=” + ADDC1 + “,DC=xxx,DC=com\””;

    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    if (asaline=62) then//此行需修改,否则原样写入文件:连接AD
    globalstr=”Application(\”ExchangeServer_SDJSWOAVERSION\”)=\”” + szADsvrDefault + “:3268/\””;
    if (WriteLine(nvFileHandle, globalstr) < 0) then
    MessageBox (“写global.asa文件失败,请手动修改”, WARNING);
    goto end_all_install1;
    endif;
    endif;

    asaline=asaline+1;//下一行
    endwhile;
    endif;
    // 关闭文件
    CloseFile (nvFileHandle);
    CloseFile (nvFileHandlebak);
    szTitle = “创建配置文件”;
    szMsg = “恭喜,自动修改配置文件成功!”;
    SprintfBox (INFORMATION, szTitle, szMsg, “global.asa”);
    endif;
    endif;

    end_all_install1:

    Disable(STATUSEX);
    bOpt1 = FALSE;
    bOpt2 = FALSE;
    szMsg1 = SdLoadString(IFX_SDFINISH_MSG1);
    szMsg2 = “”;
    szOption1 = “”;
    szOption2 = “”;
    szTitle = TMP_PRODUCT_NAME+”安装完成”;
    SdFinishEx(szTitle,szMsg1,szMsg2,szOption1,szOption2,bOpt1,bOpt2);

    //szCmdLine = “http://LocalHost”;
    //if (LaunchApp(PROGRAMFILES ^”Internet Explorer”^”IEXPLORE.EXE”, szCmdLine) < 0) then
    //MessageBox (“不能打开浏览器.”,SEVERE);
    //endif;

    Dlg_RebootDialog:
    szTitle = “欢迎安装使用 “+TMP_PRODUCT_NAME+” “+TMP_PRODUCT_VERSION;
    szMsg = ” 安装向导已经成功安装该系统。在使用该系统之前,必须重新启动计算机。”;
    SdFinishReboot(szTitle, szMsg, SYS_BOOTMACHINE,””,0);
    return 0;
    end;

    //////////////////////////
    // 创建和优化数据库
    //////////////////////////
    function CreateDataBase(svSQLsvrf,svSQLusrf,svSQLpwdf)
    STRING szCmdLine,szWaitTxt,tmpstr;
    begin
    szWaitTxt=” 正在创建 “+TMP_PRODUCT_NAME+” 所需数据库….”;
    SdShowMsg (szWaitTxt, TRUE);
    Delay(3);
    szCmdLine = “/U “+svSQLusrf+” /P “+svSQLpwdf+” /S “+svSQLsvrf+” /Q \”restore database sdjswoa from disk='” + TARGETDIR + “\\db\\oa’\””;
    if (LaunchAppAndWait(“osql.exe”, szCmdLine,WAIT) < 0) then
    tmpstr=”数据库创建失败!请确您的系统中已安装 Microsoft SQL Server 2000和SP1!”;
    SprintfBox (INFORMATION, “安装提示信息”, tmpstr, “”);
    endif;
    SdShowMsg (szWaitTxt, FALSE);
    szWaitTxt=” 正在优化 “+TMP_PRODUCT_NAME+” 系统数据库….”;
    SdShowMsg (szWaitTxt, TRUE);
    Delay(3);
    szCmdLine = “/U “+svSQLusrf+” /P “+svSQLpwdf+” /S “+svSQLsvrf+” /Q \”use sdjswoa ; exec sp_updatestats\””;
    if (LaunchAppAndWait(“osql.exe”, szCmdLine,WAIT) < 0) then
    tmpstr=”数据库优化失败!请联系相关人员或者手动安装!”;
    SprintfBox (INFORMATION, “安装提示信息”, tmpstr, “”);
    endif;
    SdShowMsg (szWaitTxt, FALSE);
    return 0;
    end;

    //////////////////////////
    // 创建IIS站点
    //////////////////////////
    function CreateWebSite(szServerIPDefault,szServerPortDefault)
    STRING szCmdLine,szWaitTxt;
    begin
    if ((szServerIPDefault = “”) || (szServerPortDefault = “”)) then
    MessageBox (“您没有设定”+TMP_PRODUCT_NAME+”运行的服务器IP地址或端口!!IIS信息服务设置失败!\n请自行创建IIS站点,并将主目录设为:”+TARGETDIR,SEVERE);
    else
    szWaitTxt=” 正在创建IIS和设置站点….”;
    SdShowMsg (szWaitTxt, TRUE);
    Delay(3);
    szCmdLine = SUPPORTDIR ^”mkw3site.vbs”+” -r “+TARGETDIR+” -i “+szServerIPDefault+” -o “+szServerPortDefault+” -t “+TMP_PRODUCT_NAME;
    if (LaunchAppAndWait(“WScript.exe”, szCmdLine,WAIT) < 0) then
    MessageBox (“不能建立WEB 虚拟目录,没有找到 WScript.exe 或执行脚本错误.”,SEVERE);
    endif;
    SdShowMsg (szWaitTxt, FALSE);
    endif;
    return 0;
    end;

    //////////////////////////
    // 创建虚拟目录
    //////////////////////////
    function CreateVirtualDir(VirtualFolder)
    STRING szCmdLine,szWaitTxt;
    begin
    if (VirtualFolder = “”) then
    MessageBox (“没能读取到虚拟目录的名称!请联系系统供应商!”+TARGETDIR,SEVERE);
    else
    szWaitTxt=” 正在创建”+TMP_PRODUCT_NAME+”的虚拟目录….”;
    SdShowMsg (szWaitTxt, TRUE);
    Delay(3);
    szCmdLine = SUPPORTDIR ^”mkwebdir.vbs “+” -w 1 -v \””+VirtualFolder+”\”,\””+ TARGETDIR+”\”” ;
    if (LaunchAppAndWait(“WScript.exe”, szCmdLine,WAIT) < 0) then
    MessageBox (“不能建立WEB 虚拟目录,没有找到 WScript.exe 或执行脚本错误.”,SEVERE);
    endif;
    SdShowMsg (szWaitTxt, FALSE);
    endif;
    return 0;
    end;

    function CheckIIS() // 示例:检查系统是否安装IIS
    NUMBER nvType, nvSize;
    STRING svvalue;
    begin
    RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
    if (RegDBKeyExist (“System\\CurrentControlSet\\Services\\IISADMIN” ) = 1) then
    return (1);
    else
    return (0);
    endif;
    end;

发表评论

发表评论