[Bug 31724] SolidWorks Explorer 2012 fails to install, reporting 'Could not get typeinfo of hreftype 384 for VT_USERDEFINED, hr = 0x80004005'

http://bugs.winehq.org/show_bug.cgi?id=31724

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
      Fixed by SHA1|                            |826980d7f414777b40128bb8501
                   |                            |65a635c90d8b6
             Status|NEW                         |RESOLVED
         Resolution|---                         |FIXED
           Severity|minor                       |normal

--- Comment #20 from Anastasius Focht  ---
Hello folks,

this is fixed by commit
http://source.winehq.org/git/wine.git/commitdiff/826980d7f414777b40128bb8501...

Thanks Nikolay

--- quote ---
As I said 'inACADSupportDir' is not set for me, so even if OpenTextFile() was
implemented it will fail cause requested patch doesn't exist.
--- quote ---

The actual VBScript code run from msi script action:

--- snip ---
...
Function AddAcadRXEntry (ByVal inACADSupportDir, ByVal inEntryToAdd)
    Dim fso, acadRXFileWrite, acadRXFileRead, strFileName, needToWriteLine,
line
    Set fso = CreateObject("Scripting.FileSystemObject")

strFileName = inACADSupportDir & "" & "acad.rx"

' If the file doesn't exist, the FileSystemObject will create
    ' and open an empty file
    Set acadRXFileWrite = fso.OpenTextFile(strFileName, 8, True)
    Set acadRXFileRead = fso.OpenTextFile(strFileName, 1, True)

needToWriteLine = True
    Do While acadRXFileRead.AtEndOfStream <> True
        line = acadRXFileRead.ReadLine
        If line = inEntryToAdd Then
            needToWriteLine = False
            Exit Do
        End If
    Loop

If needToWriteLine Then
        acadRXFileWrite.WriteLine(inEntryToAdd)
    End If

acadRXFileRead.Close
    acadRXFileWrite.Close

AddAcadRXEntry = 0
End Function

...
Function AddAutoCADR161PlugInFile
    On Error Resume Next
    Dim strSupportDir

' AutoCAD version R16.1 (2005)
    strSupportDir = Session.Property("CustomActionData")
    'MsgBox strSupportDir

AddAcadRXEntry strSupportDir, "pdmwAutoCADAddIn2005.arx"

AddAutoCADR161PlugInFile = 0
End Function
...
--- snip ---

inACADSupportDir -> strSupportDir = Session.Property("CustomActionData")

There are some limitations on being able to access the session properties.
MSDN says these are only available to deferred execution custom actions,
immediate ones do not have access to it.
'CustomActionData' property is empty for this script action.

The installer failure is bug 31968 (textstream_get_AtEndOfStream method stub).

$ wine --version
wine-1.7.14-52-g31faed5

Regards