https://bugs.winehq.org/show_bug.cgi?id=38070 Bug ID: 38070 Summary: GEOVIA Surpac 6.x (geology and mine planning software) wants vbscript:Global_Replace Product: Wine Version: 1.7.36 Hardware: x86-64 OS: Linux Status: NEW Severity: normal Priority: P2 Component: vbscript Assignee: wine-bugs(a)winehq.org Reporter: focht(a)gmx.net Distribution: --- Hello folks, continuation of bug 34913 Not critical (hence 'wants') because the stub failure is caught/confined locally by 'resume next'. Relevant part of trace log: --- snip --- $ WINEDEBUG=+tid,+seh,+relay,+msi,+vbscript wine msiexec -i surpac_63.msi
log.txt 2>&1 ... 0031:trace:vbscript:DispatchEx_QueryInterface (0x57d0b0)->(IID_IDispatchEx 0x88e550) 0031:trace:vbscript:DispatchEx_AddRef (0x57d0b0) ref=2 0031:trace:vbscript:DispatchEx_InvokeEx (0x57d0b0)->(ba 0 3 0x88e60c 0x88e670 0x88e530 (nil)) 0031:fixme:vbscript:Global_Replace 0031:trace:vbscript:DispatchEx_Release (0x57d0b0) ref=1 0031:warn:vbscript:exec_script Failed 800a01bd in resume next mode 0031:trace:vbscript:exec_script unwind jmp 17 stack_off 0 ... --- snip ---
Relevant VBScript code, extracted from MSI custom action: --- snip --- On error resume next Dim curdir, install_dir, share_install_dir, transFile Dim objFSO, objTextFile curdir = Session.Property("INSTALLDIR") share_install_dir = Session.Property("SHAREINSTALLDIR") share_install_dir = Replace(share_install_dir, "\", "/") Set objFSO = CreateObject("Scripting.FileSystemObject") transFile = share_install_dir + "share\etc\translate.mst" if not objFSO.FileExists(transFile) then Set objTextFile = objFSO.CreateTextFile (transFile, true) If Err.Number = 0 Then install_dir = Replace(curdir, "\", "/") ... --- snip --- $ sha1sum Surpac_Viewer.zip 554c7e0d552667747813a19f6a2a8c77bb7d46e6 Surpac_Viewer.zip $ du -sh Surpac_Viewer.zip 137M Surpac_Viewer.zip $ wine --version wine-1.7.36-41-ge4cb3b5 Regards -- 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.