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@winehq.org Reporter: focht@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