[Bug 53542] New: Hog4PC 3.17 installer VBScript custom action needs IWshShell::Run to return signed type.

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=53542

            Bug ID: 53542
           Summary: Hog4PC 3.17 installer VBScript custom action needs
                    IWshShell::Run to return signed type.
           Product: Wine
           Version: 7.11
          Hardware: x86-64
               URL: https://web.archive.org/web/20211128125004/https://cdn
                    .etcconnect.com/Hog_4_PC_3.17.0.3327.msi.zip
                OS: Linux
            Status: NEW
          Keywords: download, Installer, patch
          Severity: normal
          Priority: P2
         Component: wshom.ocx
          Assignee: wine-bugs at winehq.org
          Reporter: sloper42 at yahoo.com
                CC: focht at gmx.net, sloper42 at yahoo.com, temp82 at luukku.com
        Depends on: 52128
      Distribution: ---

+++ This is successor to Bug #52128 +++

After applying scrrun::Movefolder patch, we get script error in msi custom
action

$WINEDEBUG=+vbscript ./wine  msiexec -i C:\Hog_4_PC_3.17.0.3327.msi
...
01c4:trace:vbscript:do_icall L"unpack1" 0
01c4:trace:vbscript:interp_int 0
01c4:trace:vbscript:interp_equal 
01c4:trace:vbscript:var_cmp 0017A75C {VT_UI4: 0} 00176FB8 {VT_I2: 0}
01c4:trace:vbscript:VBScriptError_GetExceptionInfo (0017AE58)->(03D0FB10)
01c4:err:msi:MsiActiveScriptSite_OnScriptError script error: L"Type mismatch"

Excerpt from script file:
...
    Set objShell  = CreateObject("Shell.Application")
...
        firstCmd = """" & TargetDir & "\7za.exe"" x -y " & """" & FixtureLib &
"""" & " -o""" & FixtureLibDir & """"
        unpack1 = shell.Run(firstCmd, 0, True)
        If ( unpack1 = 0 ) Then
...

Return value of shell.Run is of type VT_UI4 which is no integrated type of
vbscript.

Output value of IWshShell::Run  [out, retval] DWORD* out_ExitCode)
seems to be int* in native and not DWORD* as in wine.

-- 
Do not reply to this email, post in Bugzilla using the
above URL to reply.
You are receiving this mail because:
You are watching all bug changes.