[Bug 35364] Multiple applications/installers fail due to WinMGMTS_ParseDisplayName stub (PaintRibbon 1.x, MicroStation V8i)

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

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|PaintRibbon 1.x (.NET 3.5   |Multiple
                   |SP1 app) complains on       |applications/installers
                   |startup with "Cannot create |fail due to
                   |ActiveX component."         |WinMGMTS_ParseDisplayName
                   |(WinMGMTS_ParseDisplayName  |stub (PaintRibbon 1.x,
                   |is a stub)                  |MicroStation V8i)

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

revisiting, 'MicroStation V8i' installer also needs this.
Refining summary.

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 ---

$ wine --version
wine-1.7.14

Regards