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呼び出しのインストーラーログで確認できます）。シェルでExecを使用するかRunを使用するかは関係ありませんが、0が返されます。スクリプトは、返す前に独自の戻りコードを書き出します（Execからのstdoutストリームで確認できます）。実際には0です。エラーをインストーラーに正しく報告するには、その戻りコードが必要です。

アイデア？

ちなみに、これはWindowsXPSP3上のWindowsインストーラ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インストーラ3.1が搭載されています。XPは3.01.4001.5512、2003R2は3.01.4000.3959です。

ですから、私には何がわからないのですが、それはボックス間で異なる動作をするものです。

編集2

Wise for Windowsインストーラツールによって生成されたアクションの正確なテーブル行は、次のとおりです。

"RunMigrationActionCA"、 "1537"、 "Calllaunchchildprocess"、 "RunMigrationAction"、 "0"

即時フラグをテストするために、タイプ列に0x800を追加しましたが、終了動作に変化は見られませんでした。

明確にするために、これは2003R2マシンで正常に機能します。そのマシンはドメインに参加していませんが、XPマシンはドメインに参加しています。この動作を引き起こす可能性のあるグループポリシーに何かありますか？（この時点でストローを握ります。）

4

2 に答える 2

5

WinXPのcmd.exeのバグのようです。解決策は、バッチファイルの代わりに
使用することです。exit 123exit /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 に答える