自定义应用程序无法安装 - Windows Developer Preview上的错误2147287038和错误1720 [英] Custom Application fails to install - Error 2147287038 and error 1720 on Windows Developer Preview

问题描述

我们的应用程序无法在Windows 8 Developer Preview Build 8102上安装。我们的MSI有一个自定义操作，用于安装服务并启动该服务。启动服务的步骤失败。 MSI正在使用Windows 7 32位/ 64位。它已签署
并要求提升。

 行后续行失败

intRC = objService.StartService

出现以下错误

错误1720.此Windows Installer程序包存在问题。无法运行此安装所需的脚本。请联系您的支持人员或包装供应商。自定义操作_B61DD621_3A02_4E09_AF8C_D8D372CF8DDA脚本错误-2147217404，SWbemObjectEx：提供程序失败第28行，第1列，
 MSI（s）（68:20）[11：14：29：973]：注意：1：2262 2：错误3 ：-2147287038 
 MSI（s）（68:20）[11：14：29：973]：产品：Acme 3.3  - 错误1720.此Windows Installer程序包存在问题。无法运行此安装所需的脚本。请联系您的支持人员或包装供应商。自定义操作_B61DD621_3A02_4E09_AF8C_D8D372CF8DDA脚本错误-2147217404，SWbemObjectEx：提供程序失败第28行，第1列，
 

'服务类型
 Const KERNEL_DRIVER = 1 
 Const FS_DRIVER = 2 
 Const ADAPTER = 4 
 Const RECOGNIZER_DRIVER = 8 
 Const OWN_PROCESS = 16 
 Const SHARE_PROCESS = 32 
 Const INTERACTIVE_PROCESS = 256 
 
'错误控制
 Const NOT_NOTIFIED = 0 
 Const USER_NOTIFIED = 1 
 Const SYSTEM_RESTARTED = 2 
 Const SYSTEM_STARTS = 3 
 
 Const HKEY_LOCAL_MACHINE =& H80000002 
 
 strComputer ="。" 
 strSvcName =" Audio Sync" 
 customPath = Session.Property（" CustomActionData"）& " MawellAudioSync.exe" 
 
 set objWMI = GetObject（" winmgmts：\\"& strComputer&" \root\cimv2"）
 set objService = objWMI.Get（" ; Win32_Service"）
 intRC = objService.Create（strSvcName，strSvcName，customPath，OWN_PROCESS，NOT_NOTIFIED，" Automatic"，false）
设置objService = Nothing 
 
 set objService = objWMI.Get（" Win32_Service.Name ='"& strSvcName&"'"）
 intRC = objService.StartService 
 Set objService = Nothing 
 
 Set objWMI = Nothing 
 
设置objRegistry = GetObject（" winmgmts：\\"& strComputer&" \root \default：StdRegProv"）
 objRegistry.SetStringValue HKEY_LOCAL_MACHINE，"System \ CurrentControlSet \ Services \" &安培; strSvcName，"Description"，"Uploads in the background。" 
 Set objRegistry = Nothing 
 
 Set wsShellObj = CreateObject（" WScript.Shell"）
 wsShellObj.Run" SC failure""" + strSvcName +""" reset = 0 actions = restart / 60000" ，1，false 
 
 
 

原始标题：应用程序无法安装 - 适用于Windows 7

解决方案

MrBean_Stockholm，

尝试在兼容模式下安装应用程序。

< span style ="font-size：small"> 您可以按照以下说明执行此操作：

·  &NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;&NBSP;进入开始屏幕

·        将鼠标移动到屏幕的左下方以展开Charms部分

·        选择
搜索

·        键入
兼容性

·        点击右栏中的
设置

< span style =""> ·        点击
运行为以前版本的Windows制作的程序

·         ;然后按照提示操作，将故障排除程序指向计算机
驱动程序的安装程序。

请回复您的结果。

谢谢，

Our application fails to install on Windows 8 Developer Preview Build 8102. Our MSI has a custom action that installs a service and start the service. The step when to start the services fails. The MSI is working on Windows 7 32-bit/64-bit. It is signed and requires elevation.

 The line following line fails

intRC = objService.StartService

With the following error

Error 1720. There is a problem with this Windows Installer package. A script required for this install to complete could not be run. Contact your support personnel or package vendor.  Custom action _B61DD621_3A02_4E09_AF8C_D8D372CF8DDA script error -2147217404, SWbemObjectEx: Provider failure  Line 28, Column 1,  
MSI (s) (68:20) [11:14:29:973]: Note: 1: 2262 2: Error 3: -2147287038 
MSI (s) (68:20) [11:14:29:973]: Product: Acme 3.3 -- Error 1720. There is a problem with this Windows Installer package. A script required for this install to complete could not be run. Contact your support personnel or package vendor.  Custom action _B61DD621_3A02_4E09_AF8C_D8D372CF8DDA script error -2147217404, SWbemObjectEx: Provider failure  Line 28, Column 1,  

' Service Type
Const KERNEL_DRIVER = 1
Const FS_DRIVER = 2
Const ADAPTER = 4
Const RECOGNIZER_DRIVER = 8
Const OWN_PROCESS = 16
Const SHARE_PROCESS = 32
Const INTERACTIVE_PROCESS = 256

' Error Control
Const NOT_NOTIFIED = 0
Const USER_NOTIFIED = 1
Const SYSTEM_RESTARTED = 2
Const SYSTEM_STARTS = 3

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
strSvcName = "Audio Sync"
customPath = Session.Property("CustomActionData") & "MawellAudioSync.exe"

set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objService = objWMI.Get("Win32_Service")
intRC = objService.Create(strSvcName, strSvcName, customPath, OWN_PROCESS, NOT_NOTIFIED, "Automatic", false)
Set objService = Nothing

set objService = objWMI.Get("Win32_Service.Name='" & strSvcName & "'")
intRC = objService.StartService
Set objService = Nothing

Set objWMI = Nothing

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\" & strSvcName, "Description", "Uploads in the background."
Set objRegistry = Nothing

Set wsShellObj = CreateObject("WScript.Shell")
wsShellObj.Run "SC failure """ + strSvcName + """ reset= 0 actions= restart/60000" , 1, false

Original Title: Application fails to install - works on Windows 7

解决方案

MrBean_Stockholm,

Try installing the application in compatibility mode.

You can do this by following the below instructions:

·         Enter the Start screen

·         Move your mouse to the bottom left of the screen to expand the Charms section

·         Select Search

·         Type Compatibility

·         Click Settings in the right column

·         Click Run programs made for previous versions of Windows

·         Then follow the prompts and direct the troubleshooter to the installer for your computer's driver.

Please post back with your results.

Thanks,

这篇关于自定义应用程序无法安装 - Windows Developer Preview上的错误2147287038和错误1720的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！