[Bug 38070] New: GEOVIA Surpac 6.x (geology and mine planning software) wants vbscript:Global_Replace

[wine-bugs at winehq.org]

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