这几天在开发windows服务程序的安装包（*.msi）。windows服务程序的开发环境是vs下vc++项目。

vs下c#和vb开发的应用程序，windows studio installer安装项目的开发都有向导，只用overwirte一些控件的接口，相对简单很多。vc++的安装程序就比较悲催了，我使用了vbs脚本。

我需要实现的【自定义操作】

安装时解压.msi包之后，需要调用脚本，将我的exe可执行文件自动添加到windows服务，启动服务。

卸载时，调用脚本，自动停止服务、从系统删除服务。

http://s8/middle/5f435c13tc7fbc8b4ea67&690installer安装包有问题。解决办法" TITLE="【原创】windows installer安装包有问题。解决办法" />

【遇到的问题】

vsb脚本以前我没用过，百度找的例子改了改,卸载脚本service_uninstall.vbs就是这样子（还在调试，没有设置路径啊）：

dim objshell
Set objShell = CreateObject("Wscript.Shell") 
Msgbox("卸载bada_matrix_server服务1")
objShell.Run "sc stop bada_matrix_control"
objShell.Run "sc delete bada_matrix_control"
Msgbox("卸载bada_matrix_server服务2")
Wscript.quit

安装脚本service_install.vbs如下

dim objshell
Set objShell = CreateObject("Wscript.Shell")
Msgbox("创建bada_matrix_server服务1")
objShell.Run "sc create bada_matrix_control binpath= center_control.exe type= own start= auto"
Msgbox("创建bada_matrix_server服务2")
Wscript.quit

结果每次安装时，执行到安装脚本就出错了(报的错如下图)。我把安装脚本去掉了。只有卸载脚本，安装成功了。

悲剧的是装完了无法卸载，因为卸载时调用到service_uninstall.vbs就报错。自己挖了个坑跳进去了。

http://s10/middle/5f435c13tc7fba67b1259&690installer安装包有问题。解决办法" TITLE="【原创】windows installer安装包有问题。解决办法" />

【在MSDN找到以下链接】

http://support.microsoft.com/kb/223300/zh-cn 如何启用 Windows Installer 日志记录

根据本文找到了安装报错日志信息：

【错误 1720。Windows Installer 程序包有问题。此安装需要的脚本不能运行。请与您的支持人员或程序包开发商联系。自定义操作 _A4FDC379_4708_4139_8373_64B37058925D 的脚本错误 -2146827864, Microsoft VBScript 运行时错误: 缺少对象: 'WScript' 行 7, 列 1, 
=== 记录停止: 2012-8-24  10:32:16 ===】

才发现原来是这一句错了Wscript.quit，换成Set objShell = Nothing

终于妥了。。

继续下一步工作：在脚本中获取安装路径，安装服务时需要指定exe文件的绝对路径。

如何启用 Windows Installer 日志记录