InstallShield安装打包编译自动化（1） - 通过命令行进行源代码控制操作

版权声明: 可以任意转载,转载时请务必以超链接形式标明文章原始出处和作者信息。

近期正在研究InstallShield中的自动化过程，今天先与大家分享一下InstallShield自带帮助中一节内容：

前提：

1. 使用Microsoft Visual SourceSafe进行应用程序源码管理，

2. 实现使用VBScript。 

获取最新版本的InstallShield工程并编译安装包

 1  Const  VSSFLAG_USERRONO    =   1
 2  Const  VSSFLAG_TIMEMOD =   8
 3  Const  VSSFLAG_REPREPLACE  =   128
 4  Const  PROJECT_SCC_INI_LOC  =   " \\Server\srcsafe.ini "
 5  Const  PROJECT_SCC_FOLDER  =   " $/MyFiles/ "
 6  Const  PROJECT_SCC_BASE_NAME  =   " MyProject "
 7  Const  PROJECT_SCC_LOCAL_FOLDER  =   " C:\Project "
 8  '  Create a ref to Microsoft Visual SourceSafe
 9  Set  VSS  =   CreateObject ( " SourceSafe " )
10  '  Point to the VSS database
11  VSS.open PROJECT_SCC_INI_LOC
12  '  Get the project file
13  Set  VSSISVFile  =  VSS.VSSItem (PROJECT_SCC_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism " )
14  VSSISVFile.Get PROJECT_SCC_LOCAL_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism " , SSFLAG_TIMEMOD  +  VSSFLAG_USERRONO  +  VSSFLAG_REPREPLACE
15  ' Get all remaining files
16  Set  VSSIDTFolder  =  VSS.VSSItem (PROJECT_SCC_FOLDER  +  PROJECT_SCC_BASE_NAME)
17  VSSIDTFolder.LocalSpec  =  PROJECT_SCC_LOCAL_FOLDER  +  PROJECT_SCC_BASE_NAME
18  For   Each  VSSObj In VSSIDTFolder.Items( False )
19  VSSObj.Get , VSSFLAG_TIMEMOD  +  VSSFLAG_USERRONO  +  VSSFLAG_REPREPLACE
20  Next
21  strFileBasePath  =  PROJECT_SCC_LOCAL_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism "
22  strCmdLine  =   " ISCmdBld.exe -p "" "   +  strFileBasePath  +   " .ism"" "
23  '  Build your installation
24  Set  wshshell  =   CreateObject ( " Wscript.Shell " )
25  RunCmdLine  =  wshshell.Run(strCmdLine,  1 ,  True )

安装包工程代码Check Out，修改，Check In

 1  Const  VSSFLAG_USERRONO  =   1
 2  Const  VSSITEM_FILE      =   1
 3  Const  PROJECT_SCC_INI_LOC  =   " \\Server\srcsafe.ini "
 4  Const  PROJECT_SCC_FOLDER  =   " $/MyFiles/ "
 5  Const  PROJECT_SCC_BASE_NAME  =   " MyProject "
 6  Const  PROJECT_SCC_LOCAL_FOLDER  =   " C:\Project "
 7  '  Create a ref to Microsoft Visual SourceSafe
 8  Set  VSS  =   CreateObject ( " SourceSafe " )
 9  '  Point to the VSS database
10  VSS.open PROJECT_SCC_INI_LOC
11  '  Check out the project file
12  Set  VSSISVFile  =  VSS.VSSItem (PROJECT_SCC_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism " )
13  VSSISVFile.CheckOut , PROJECT_SCC_LOCAL_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism " , VSSFLAG_USERRONO
14  ' Check out all remaining files
15  Set  VSSIDTFolder  =  VSS.VSSItem (PROJECT_SCC_FOLDER  +  PROJECT_SCC_BASE_NAME)
16  VSSIDTFolder.LocalSpec  =  PROJECT_SCC_LOCAL_FOLDER  +  PROJECT_SCC_BASE_NAME
17  For   Each  VSSObj In VSSIDTFolder.Items( False )
18       If  VSSObj.Type  =  VSSITEM_FILE  Then
19          VSSObj.CheckOut , , VSSFLAG_USERRONO
20       End   If
21  Next
22  '  Create a reference to the InstallShield Automation Interface
23  Set  m_ISWiProject  =   CreateObject ( " IswiAuto16.ISWiProject " )
24  strFileBasePath  =  PROJECT_SCC_LOCAL_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism "
25  '  Open your project
26  m_ISWiProject.OpenProject strFileBasePath
27  '  Add a feature
28  m_ISWiProject.AddFeature  " Robofeature1 "
29  '  Save the project
30  m_ISWiProject.SaveProject
31  '  Close the project
32  m_ISWiProject.CloseProject
33  '  Check in the project file
34  Set  VSSISVFile  =  VSS.VSSItem (PROJECT_SCC_FOLDER  +  PROJECT_SCC_BASE_NAME  +   " .ism " )
35  VSSISVFile.CheckIn
36  ' Check in all remaining files
37  Set  VSSIDTFolder  =  VSS.VSSItem (PROJECT_SCC_FOLDER  +  PROJECT_SCC_BASE_NAME)
38  For   Each  VSSObj In VSSIDTFolder.Items( False )
39       If  VSSObj.Type  =  VSSITEM_FILE  Then
40          VSSObj.CheckIn  " Check In Comment "
41       End   If
42  Next