2

编辑 3

好的，所以这似乎毕竟不是安装程序问题。当我制作一个简单的批处理文件时：

exit /b 12

并将其称为

cmd /c test.cmd
echo %ERRORLEVEL%

我在 Windows Server 2003 R2 上得到“12”，但在 XP 上得到“0”。我以为我之前已经多次测试过这个简单的测试用例，但显然没有。

所以，我已经更改了标签和标题，但我将其他信息留在这里，因为这里实际上有很多有用的东西与这个问题没有直接关系。

想法？

原文如下

我有一个用 VBScript 编写的自定义操作，它反过来调用 Windows 批处理文件（自定义操作本质上是允许用户在安装时执行某些操作，他们也可以稍后通过运行批处理文件来运行 - 这是一种方便）。功能如下：

Function MainFunction
    strCustomActionData = Session.Property("CustomActionData")
    strSplit = Split(strCustomActionData, ";")
    strInstallDir = strSplit(0)
    strPostCopyAction = strSplit(1)

    strScriptLocation = strInstallDir & "\MigrationMasterProcess.cmd"

    strFullCommand = """" & strScriptLocation & """ " & strPostCopyAction

    Set objShell = CreateObject("WScript.Shell")

    Dim objExec
    Set objExec = objShell.Exec(strFullCommand)

    intReturnCode = objExec.ExitCode

    Set objExec = Nothing
    Set objShell = Nothing

    WriteMessage "Return value: " & intReturnCode

    ' cf. http://msdn.microsoft.com/en-us/library/windows/desktop/aa371254(v=vs.85).aspx
    If (intReturnCode = 0) Then
        MainFunction = 1
    Else
        MainFunction = 3
    End If
End Function

当我在自定义操作之外运行相同类型的代码并且批处理文件返回错误代码（通过 EXIT /B）时，返回值在 intReturnCode 中正确捕获。但是，从自定义操作来看，退出代码似乎“丢失”了——我总是得到一个 0（我可以在 WriteMessage 调用的安装程序日志中看到这一点）。无论我在 shell 上使用 Exec 还是 Run 都没有关系，我仍然会返回一个 0。脚本在返回之前会写出自己的返回代码（我可以在 Exec 的 stdout 流中看到这一点）所以我知道它不是实际上是 0。我需要该返回码才能将错误正确报告给安装程序。

想法？

作为记录，这是 Windows XP SP3 上的 Windows Installer 3.0。安装程序在 Wise 中，所以我没有 WiX 片段，或者我会包含它，但这是被调用的函数。

这也有点被剥夺了——我省略了对 WriteMessage 的评论和其他调用以及该函数。是的，伪匈牙利语是邪恶的等等等等。

编辑：这是代码的 C 版本。它给出了同样的问题：

#include <Windows.h>
#include <msi.h>
#include <msiquery.h>
#include <stdio.h>
#include <stdlib.h>
#include "LaunchChildProcess.h"

BOOL APIENTRY DllMain( HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved ) {
    return TRUE;
}

UINT __stdcall RunMigrationAction(MSIHANDLE hModule) {
    UINT  uiStat;
    DWORD dwPropertySize = MAX_PATH * 2;
    TCHAR szValueBuf[MAX_PATH * 2]; // arbitrary but we know the strings won't be near that long
    TCHAR *szInstallDir, *szPostCopyAction;
    TCHAR *szNextToken;
    TCHAR szScriptLocation[MAX_PATH * 2];
    TCHAR szParameters[MAX_PATH * 2];
    INT   iReturnValue;

    LogTaggedString(hModule, TEXT("Action Status"), TEXT("Starting"));

    uiStat = MsiGetProperty(hModule, TEXT("CustomActionData"), szValueBuf, &dwPropertySize);
    if (ERROR_SUCCESS != uiStat) {
        LogTaggedString(hModule, TEXT("Startup"), TEXT("Failed to get custom action data"));
        return ERROR_INSTALL_FAILURE;
    }

    LogTaggedString(hModule, TEXT("Properties given"), szValueBuf);
    LogTaggedInteger(hModule, TEXT("Property length"), dwPropertySize);

    if (0 == dwPropertySize) {
        return ERROR_INSTALL_FAILURE;
    }

    LogTaggedString(hModule, TEXT("Properties given"), szValueBuf);

    szInstallDir     = wcstok_s(szValueBuf, TEXT(";"), &szNextToken);
    szPostCopyAction = wcstok_s(NULL,       TEXT(";"), &szNextToken);

    LogTaggedString(hModule, TEXT("Install dir"), szInstallDir);
    LogTaggedString(hModule, TEXT("Post-copy action"), szPostCopyAction);

    wcscpy_s(szScriptLocation, MAX_PATH * 2, szInstallDir);
    wcscat_s(szScriptLocation, MAX_PATH * 2, TEXT("\\MigrationMasterProcess.cmd"));

    LogTaggedString(hModule, TEXT("Script location"), szScriptLocation);

    wcscpy_s(szParameters, MAX_PATH * 2, TEXT(" /C "));
    wcscat_s(szParameters, MAX_PATH * 2, szScriptLocation);
    wcscat_s(szParameters, MAX_PATH * 2, TEXT(" "));
    wcscat_s(szParameters, MAX_PATH * 2, szPostCopyAction);

    LogTaggedString(hModule, TEXT("Parameters to cmd.exe"), szParameters);

    iReturnValue = ExecuteProcess(TEXT("cmd.exe"), szParameters);
    LogTaggedInteger(hModule, TEXT("Return value from command"), iReturnValue);

    LogTaggedString(hModule, TEXT("Action Status"), TEXT("Finished"));

    return (0 == iReturnValue) ? ERROR_SUCCESS : ERROR_INSTALL_FAILURE;
}

void LogTaggedInteger(MSIHANDLE hInstall, TCHAR* szTag, INT iValue) {
    TCHAR szValue[15];
    _itow_s(iValue, szValue, 15, 10);
    LogTaggedString(hInstall, szTag, szValue);
}

void LogTaggedString(MSIHANDLE hInstall, TCHAR* szTag, TCHAR* szMessage) {
    MSIHANDLE hRecord;
    UINT uiStat;
    //TCHAR szFullMessage[4096];
    //wcscpy_s(szFullMessage, 4096, TEXT("--------------- "));
    //wcscat_s(szFullMessage, 4096, szTag);
    //wcscat_s(szFullMessage, 4096, TEXT(": "));
    //wcscat_s(szFullMessage, 4096, szMessage);
    hRecord = MsiCreateRecord(3);
    uiStat = MsiRecordSetString(hRecord, 0, TEXT("--------- [1]: [2]"));
    uiStat = MsiRecordSetString(hRecord, 1, szTag);
    uiStat = MsiRecordSetString(hRecord, 2, szMessage);
    uiStat = MsiProcessMessage(hInstall, INSTALLMESSAGE(INSTALLMESSAGE_INFO), hRecord);
    MsiCloseHandle(hRecord);
    return;
}


int MsiMessageBox(MSIHANDLE hInstall, TCHAR* szString, DWORD dwDlgFlags) {
    PMSIHANDLE newHandle = ::MsiCreateRecord(2);
    MsiRecordSetString(newHandle, 0, szString);
    return (MsiProcessMessage(hInstall, INSTALLMESSAGE(INSTALLMESSAGE_USER + dwDlgFlags), newHandle));
}


DWORD ExecuteProcess(TCHAR *szProcess, TCHAR *szParams) { 
    INT iMyCounter = 0, iPos = 0;
    DWORD dwReturnVal = 0;
    TCHAR *sTempStr = L""; 

    /* CreateProcessW can modify Parameters thus we allocate needed memory */
    wchar_t * pwszParam = new wchar_t[wcslen(szParams) + 1]; 
    if (NULL == pwszParam) { 
        return 1; 
    } 

    wcscpy_s(pwszParam, wcslen(szParams) + 1, szParams); 

    /* CreateProcess API initialization */
    STARTUPINFOW siStartupInfo; 
    PROCESS_INFORMATION piProcessInfo; 
    memset(&siStartupInfo, 0, sizeof(siStartupInfo)); 
    memset(&piProcessInfo, 0, sizeof(piProcessInfo)); 
    siStartupInfo.cb = sizeof(siStartupInfo); 

    if (CreateProcessW(const_cast<LPCWSTR>(szProcess), 
                            pwszParam, 0, 0, false, 
                            CREATE_DEFAULT_ERROR_MODE, 0, 0, 
                            &siStartupInfo, &piProcessInfo) != false) { 
        /* Watch the process. */
        WaitForSingleObject(piProcessInfo.hProcess, INFINITE);
        if (!GetExitCodeProcess(piProcessInfo.hProcess, &dwReturnVal)) {
            dwReturnVal = GetLastError();
        }
    } else { 
        /* CreateProcess failed */
        dwReturnVal = GetLastError(); 
    } 

    /* Free memory */
    free(pwszParam);
    pwszParam = NULL;

    /* Release handles */
    CloseHandle(piProcessInfo.hProcess); 
    CloseHandle(piProcessInfo.hThread); 

    return dwReturnVal; 
}

在我的 Windows Server 2003 R2 Visual Studio 2008 机器上运行时，我得到了预期的错误代码：

--------- Return value from command: 5023

在我的 Windows XP 测试盒上运行时，我得到一个 0，即使它应该是一个错误：

--------- Return value from command: 0

两台机器都有 Windows Installer 3.1。XP 是 3.01.4001.5512，2003 R2 是 3.01.4000.3959。

因此，尽管我不知道是什么，但盒子之间的表现有所不同。

编辑 2

由 Wise for Windows Installer 工具生成的操作的确切表行是：

"RunMigrationActionCA","1537","Calllaunchchildprocess","RunMigrationAction","0"

为了测试立即标志，我在类型列中添加了 0x800，并且在最终行为中没有看到任何变化。

需要明确的是 - 这在 2003 R2 机器上运行良好。那台机器没有加入域，但 XP 机器是。组策略中是否有任何可能导致此行为的内容？（此时抓住稻草。）

4

2 回答 2

5

这似乎是WinXP的cmd.exe中的一个错误。解决方案是在批处理文件中
使用exit 123而不是。exit /b 123

如果您不想更改现有的批处理文件，只需添加一个 wrapper.bat：

@echo off
call %*
exit %errorlevel%

并调用它：

system("wrapper.bat your.bat all your args")
于 2013-06-15T14:11:24.240 回答
0

WScript 对象在自定义操作中不起作用请在此处阅读更多内容。您可以使用 DLL 自定义操作。这是一个分步教程。

于 2012-03-07T06:37:51.563 回答