https://bugs.winehq.org/show_bug.cgi?id=31724
Anastasius Focht focht@gmx.net changed:
What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW CC| |focht@gmx.net Summary|SolidWorks Explorer 2012: |SolidWorks Explorer 2012 |Rollback at the end of |fails to install, reporting |installation |'Could not get typeinfo of | |hreftype 384 for | |VT_USERDEFINED, hr = | |0x80004005' Ever confirmed|0 |1
--- Comment #10 from Anastasius Focht focht@gmx.net --- Hello folks,
confirming, still present.
--- snip --- $ WINEDEBUG=+tid,+seh,+relay,+msi,+vbscript,+ole,+variant,+scrrun wine ./setup.exe >>log.txt 2>&1 ... 0026:trace:msi:ACTION_CustomAction Handling custom action L"CreateAutoCADR161AddInEntries" (406 L"NewBinary22" L"AddAutoCADR161PlugInFile") ... 0043:Starting thread proc 0x7ece4e4c (arg=0x12df024) 0043:trace:msi:ScriptThread custom action (43) started 0043:trace:msi:ACTION_CallScript function L"AddAutoCADR161PlugInFile", script L"' Copyright (C) 1999-2003 Solidworks Corporation\r\n' All rights reserved.\r\n\r\nFunction AddAcadRXEntry (ByVal inACADSupportDir, ByVal inEntryToAdd)\r\n\tDim fso, acadRXFileWrite, acadRXFileRead, strFileName, needToWriteLine, line\r\n\tSet fso = CreateObject("Scripting.FileSystemObject")\r\n\r\n\t"... ... 0043:trace:vbscript:interp_icall 0043:trace:vbscript:interp_short 8 0043:trace:vbscript:interp_bool true 0043:trace:vbscript:interp_icall 0043:trace:vbscript:interp_mcall 0043:trace:vbscript:disp_get_id using IDispatch 0043:Call oleaut32.LoadRegTypeLib(f6781c8c,00000001,00000000,00000800,0579e210) ret=f677fac6 ... 0043:Call KERNEL32.LoadLibraryExW(0579de6e L"C:\windows\system32\scrrun.dll",00000000,0000000b) ret=7e5c81fa 0043:Ret KERNEL32.LoadLibraryExW() retval=f6770000 ret=7e5c81fa ... 0043:Ret oleaut32.LoadRegTypeLib() retval=00000000 ret=f677fac6 ... 0043:Call KERNEL32.lstrcmpiW(012f31ec L"OpenTextFile",013022d4 L"OpenTextFile") ret=7e5d1bff 0043:Ret KERNEL32.lstrcmpiW() retval=00000000 ret=7e5d1bff ... 0043:trace:scrrun:filesys_QueryInterface 0xf673aa8c {a6ef9860-c720-11d0-9337-00a0c90dcaa9} 0x9b9e360 0043:trace:scrrun:filesys_QueryInterface Interface IDispatchEx not supported - returning NULL 0043:trace:vbscript:disp_call using IDispatch 0043:trace:scrrun:filesys_Invoke (0xf673aa8c)->(1100 {00000000-0000-0000-0000-000000000000} 0 3 0x9b9e3f4 0x9b9e440 0x9b9e340 0x9b9e33c) 0043:trace:ole:ITypeInfo_fnInvoke (0x12f1e88)(0xf673aa8c,id=1100,flags=0x00000003,0x9b9e3f4,0x9b9e440,0x9b9e340,0x9b9e33c) 0043:trace:ole:dump_DispParms args=3 named args=0 0043:trace:ole:dump_DispParms args: 0043:trace:ole:dump_Variant 0x12e7c38->{VT_BOOL,TRUE} 0043:trace:ole:dump_Variant 0x12e7c48->{VT_I2,8} 0043:trace:ole:dump_Variant 0x12e7c58->{VT_VARIANT|VT_BYREF,0x12e7c00} 0043:trace:ole:ITypeInfo2_fnGetVarIndexOfMemId 0x12f1e88 1100 0x9b9dff8 0043:trace:ole:ITypeInfo2_fnGetTypeKind (0x12f1e88) type 0x4 0043:trace:ole:ITypeInfo_fnAddRef (0x12f06e8)->ref is 1 0043:trace:ole:ITypeLib2_fnAddRef (0x12e7fa0) ref=2 0043:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x12f1e88) hreftype 0x0514 loaded SUCCESS (0x12f06e8) 0043:trace:ole:ITypeInfo_fnInvoke (0x12f06e8)(0xf673aa8c,id=1100,flags=0x00000003,0x9b9e3f4,0x9b9e440,0x9b9e340,0x9b9e33c) 0043:trace:ole:dump_DispParms args=3 named args=0 0043:trace:ole:dump_DispParms args: 0043:trace:ole:dump_Variant 0x12e7c38->{VT_BOOL,TRUE} 0043:trace:ole:dump_Variant 0x12e7c48->{VT_I2,8} 0043:trace:ole:dump_Variant 0x12e7c58->{VT_VARIANT|VT_BYREF,0x12e7c00} 0043:trace:ole:ITypeInfo_fnInvoke invoking: L"OpenTextFile"(5) parm0: L"FileName" parm1: L"IOMode" parm2: L"Create" parm3: L"Format" parm4: L"ppts" memid is 0000044c Param 0: tdesc.vartype 8 (VT_BSTR) u.paramdesc.wParamFlags PARAMFLAG_FIN u.paramdesc.lpex (nil) Param 1: tdesc.vartype 29 (VT_USERDEFINED ref = 384) u.paramdesc.wParamFlags PARAMFLAG_FIN PARAMFLAG_FOPT PARAMFLAG_FHASDEFAULT u.paramdesc.lpex 0x12f1c18 Param 2: tdesc.vartype 11 (VT_BOOL) u.paramdesc.wParamFlags PARAMFLAG_FIN PARAMFLAG_FOPT PARAMFLAG_FHASDEFAULT u.paramdesc.lpex 0x12f1c30 Param 3: tdesc.vartype 29 (VT_USERDEFINED ref = 3e8) u.paramdesc.wParamFlags PARAMFLAG_FIN PARAMFLAG_FOPT PARAMFLAG_FHASDEFAULT u.paramdesc.lpex 0x12f1c48 Param 4: tdesc.vartype 26 (ptr to ptr to VT_USERDEFINED ref = 44c) u.paramdesc.wParamFlags PARAMFLAG_FOUT PARAMFLAG_FRETVAL u.paramdesc.lpex (nil) funckind: 1 (pure virtual) invkind: 1 (func) callconv: 4 (stdcall) oVft: 124 cParamsOpt: 3 wFlags: 0 elemdescFunc (return value type): tdesc.vartype 25 (VT_HRESULT) u.paramdesc.wParamFlags PARAMFLAGS_NONE u.paramdesc.lpex (nil) helpstring: (null) entry: invalid 0043:fixme:ole:ITypeInfo_fnGetRefTypeInfo Can't find pRefType for ref 384 0043:trace:ole:ITypeInfo_fnGetRefTypeInfo (0x12f06e8) hreftype 0x0384 loaded FAILURE ((nil)) 0043:err:ole:userdefined_to_variantvt Could not get typeinfo of hreftype 384 for VT_USERDEFINED, hr = 0x80004005 0043:trace:ole:ITypeInfo_fnInvoke -- 0x80004005 0043:trace:ole:ITypeInfo_fnRelease (0x12f06e8)->(0) 0043:trace:ole:ITypeLib2_fnRelease (0x12e7fa0) ref=1 0043:trace:ole:ITypeInfo_fnRelease (0x12f1e88)->(4294967295) 0043:trace:scrrun:filesys_Release 0xf673aa8c 0043:warn:vbscript:exec_script Failed 80004005 ... 0043:trace:msi:ACTION_CallScript script returned 1603 0043:trace:msi:ScriptThread custom action (43) returned 1603 ... --- snip ---
The extracted VBScript code in question ('append' iomode passed to fso.OpenTextFile()):
--- 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 --- snip ---
$ wine --version wine-1.7.14
Regards