[Bug 31970] Microstation 8i installer doesn't work (needs VBScript GetObject implementation)

[wine-bugs at winehq.org]

https://bugs.winehq.org/show_bug.cgi?id=31970

Anastasius Focht <focht at gmx.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
      Fixed by SHA1|                            |3a87b4c1c5c642ad3ee7093afaf
                   |                            |ac5f46d294070
             Status|UNCONFIRMED                 |RESOLVED
            Version|unspecified                 |1.5.15
           Keywords|                            |download, Installer
                URL|                            |http://www.bentley.com/en-U
                   |                            |S/Products/MicroStation/
          Component|msi                         |vbscript
                 CC|                            |focht at gmx.net
         Resolution|---                         |FIXED
            Summary|Microstation 8i installer   |Microstation 8i installer
                   |doesn't work                |doesn't work (needs
                   |                            |VBScript GetObject
                   |                            |implementation)

--- Comment #4 from Anastasius Focht <focht at gmx.net> ---
Hello folks,

confirming and resolving.

GetObject was implemented by commit
http://source.winehq.org/git/wine.git/commitdiff/3a87b4c1c5c642ad3ee7093afafac5f46d294070

Thanks Jacek

Prerequisite: 'winetricks -q dotnet35sp1'

--- snip ---
$ WINEDEBUG=+tid,+seh,+relay,+vbscript,+msi,+wbemprox wine ./Setup.exe >>
log.txt 2>&1
...
0024:trace:msi:ACTION_CustomAction Handling custom action
L"TranslateUserGroupUsers" (6 L"TranslateSidTool" L"Main") 
...
0028:Starting thread proc 0x7ed19e4c (arg=0x1f03cdc)
0028:trace:msi:ScriptThread custom action (28) started
...
0028:trace:msi:call_script Calling function L"Main"
0028:trace:vbscript:VBScript_GetScriptDispatch (0x1e8d038)->(0x396e8c0)
0028:trace:vbscript:ScriptDisp_AddRef (0x1adcb8) ref=2
0028:trace:vbscript:ScriptDisp_GetIDsOfNames
(0x1adcb8)->({00000000-0000-0000-0000-000000000000} 0x396e9bc 1 1024 0x396e8ac)
0028:trace:vbscript:ScriptDisp_GetDispID (0x1adcb8)->(L"Main" 0 0x396e8ac)
...
0028:fixme:msi:AutomationObject_GetIDsOfNames Unknown member L"GetObject",
clsid {000c109e-0000-0000-c000-000000000046} 
...
0028:trace:vbscript:DispatchEx_QueryInterface (0x1e2fdb8)->(IID_IDispatchEx
0x396e4d0)
0028:trace:vbscript:DispatchEx_AddRef (0x1e2fdb8) ref=2
0028:trace:vbscript:DispatchEx_InvokeEx (0x1e2fdb8)->(b0 0 3 0x396e58c
0x396e600 0x396e4b0 (nil))
0028:trace:vbscript:Global_GetObject {VT_BSTR: L"winmgmts:\\\\.\\root\\cimv2"}
...
0028:Call wbemdisp.DllGetClassObject(01cf3df4,7ebdfb5c,0396e0c0) ret=7eaf1cd8
0028:fixme:wbemdisp:factory_QueryInterface interface
{0000011a-0000-0000-c000-000000000046} not implemented
0028:Ret  wbemdisp.DllGetClassObject() retval=80004002 ret=7eaf1cd8
0028:err:ole:apartment_getclassobject DllGetClassObject returned error
0x80004002 
...
0028:fixme:wbemdisp:WinMGMTS_ParseDisplayName (0x1cf3da8
L"winmgmts:\\\\.\\root\\cimv2" 0x396e180 0x396e184)
0028:Ret  ole32.MkParseDisplayName() retval=80004001 ret=7d0c4e49 
...
0028:err:ole:create_server class {172bddf8-ceea-11d1-8b05-00600806d9b6} not
registered
0028:fixme:ole:CoGetClassObject CLSCTX_REMOTE_SERVER not supported
0028:err:ole:CoGetClassObject no class object
{172bddf8-ceea-11d1-8b05-00600806d9b6} could be created for context 0x15 
...
0028:trace:msi:ACTION_CallScript script returned 1603
...
0024:err:msi:ITERATE_Actions Execution halted, action
L"TranslateUserGroupUsers" returned 1603 
...
0024:Call user32.CreateWindowExW(00000000,7ed96360 L"Static",01cd0d30
L"MicroStation V8i (SELECTseries 3) 08.11.09.459 Setup Wizard ended prematurely
because of an error. Your system has not been modified. To install this program
at a later time, run Setup Wizard again. Click the Finish button to exit the
Setup
Wizard.",50020000,000000b4,0000005d,00000125,0000006b,000900c0,00000000,00000000,00000000)
ret=7ed226a6 
--- snip ---

The extracted VBScript code:

--- snip ---
TranslateSidTool.vbs,v $
'#    $RCSfile: TranslateSidTool.vbs,v $
'#   $Revision: 1.1 $
'#       $Date: 2008/08/07 13:58:10 $
'#     $Author: Vishal.Sharma $
'#
'#  $Copyright: (c) 2008 Bentley Systems, Incorporated. All rights reserved. $
'#                                                                       |
'#----------------------------------------------------------------------*/
'
Option Explicit
Sub Main
     On Error Resume Next
        Dim     strComputer     : strComputer = "."
        Dim     objWMIService   : Set objWMIService = GetObject("winmgmts:\\" &
strComputer & "\root\cimv2")
        Dim UsersGroupName
        Dim colItems
        Dim objItem

        Set colItems = objWMIService.ExecQuery _
            ("Select * From Win32_Group Where LocalAccount = True And SID =
'S-1-5-32-545'")
        For Each objItem in colItems
            UsersGroupName = objItem.Name
        Next
        Session.Property("USERGROUP_USERS")=UsersGroupName
End Sub
--- snip ---

The current issue is bug 35364 (WinMGMTS_ParseDisplayName is a stub)

$ wine --version
wine-1.7.14

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.