[Bug 48879] NVIDIA PhysX System Software 9.12.1031 installer fails (VBScript action can't create 'WbemScripting.SWbemNamedValueSet' object)

[WineHQ Bugzilla]

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

Anastasius Focht  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |[e-mail]
          Component|-unknown                    |wmi&wbemprox
     Ever confirmed|0                           |1
                URL|                            |https://web.archive.org/web
                   |                            |/20130226024356/http://us.d
                   |                            |ownload.nvidia.com/Windows/
                   |                            |9.12.1031/PhysX-9.12.1031-S
                   |                            |ystemSoftware.msi
           Keywords|                            |download, Installer
             Status|UNCONFIRMED                 |NEW
            Summary|PhysX-9.12.1031-SystemSoftw |NVIDIA PhysX System
                   |are.msi error at install    |Software 9.12.1031
                   |                            |installer fails (VBScript
                   |                            |action can't create
                   |                            |'WbemScripting.SWbemNamedVa
                   |                            |lueSet' object)

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

refining some fields and confirming.

Mentioned in bug 33668 -> https://bugs.winehq.org/show_bug.cgi?id=33668#c3

--- quote ---
Please attach +vbscript log running builtin vbscript and open a new bug for
wbemdisp part:
--- quote ---

Apparently this was never done.

--- snip ---
$ WINEDEBUG=+seh,+relay,+msi,+vbscript wine msiexec -i
PhysX-9.12.1031-SystemSoftware.msi >>log.txt 2>&1
...
002b:trace:msi:ACTION_CustomAction Handling custom action L"Add64Bit_Reg" (406
L"myScriptVBS" L"Run") 
...
002c:trace:vbscript:VBScriptParse_ParseScriptText (01BB9AC8)->(L"Const
HKEY_LOCAL_MACHINE = &H80000002 \r\n\r\nFunction Run() \r\n    sPath =
WriteRegStr (HKEY_LOCAL_MACHINE, "SOFTWARE\AGEIA Technologies",
"HwSelection", "GPU", 64) \r\n    sPath = WriteRegDWORD
(HKEY_LOCAL_MACHINE, "SOFTWARE\AGEIA Technologies", "PhysX BuildCL",
"1", 64) "... (null) 00000000 (null) 0 0 0 00000000 00000000) 
...
002c:fixme:msi:AutomationObject_GetIDsOfNames Unknown member
L"HKEY_LOCAL_MACHINE", clsid {000c109e-0000-0000-c000-000000000046} 
...
002c:trace:msi:call_script Calling function L"Run"
002c:trace:vbscript:VBScript_GetScriptDispatch (01BB9AC8)->((null) 01F6FEC4)
002c:trace:vbscript:ScriptDisp_AddRef (01A4A7A8) ref=2
002c:trace:vbscript:ScriptDisp_GetIDsOfNames
(01A4A7A8)->({00000000-0000-0000-0000-000000000000} 01F6FF20 1 1024 01F6FECC) 
...
002c:trace:vbscript:exec_script , 01A691A0 {VT_BSTR: L"SOFTWARE\AGEIA
Technologies"} ret=01fa010e 
...
002c:Call oleaut32.SysAllocString(01a91b1c L"WbemScripting.SWbemNamedValueSet")
ret=01fa5a7a 
...
002c:trace:vbscript:do_icall L"CreateObject" 1
...
002c:trace:vbscript:Global_CreateObject (01F6FA70 {VT_BSTR:
L"WbemScripting.SWbemNamedValueSet"})
002c:Call ole32.CLSIDFromProgID(01b4721c
L"WbemScripting.SWbemNamedValueSet",01f6fa14) ret=01f9afe1 
...
002c:Ret  ole32.CLSIDFromProgID() retval=800401f3 ret=01f9afe1 
...
002c:err:msi:MsiActiveScriptSite_OnScriptError script error: L"ActiveX
component can't create object" 
...
002b:err:msi:ITERATE_Actions Execution halted, action L"ExecuteAction" returned
1603 
--- snip ---

Part of VBScript for reproduce:

--- snip ---
Const HKEY_LOCAL_MACHINE = &H80000002

sPath = WriteRegStr (HKEY_LOCAL_MACHINE, "SOFTWARE\AGEIA Technologies",
"HwSelection", "GPU", 64)

Function WriteRegStr (RootKey, Key, Name, Value, RegType) 
    Dim oCtx, oLocator, oReg, oInParams, oOutParams

Set oCtx = CreateObject("WbemScripting.SWbemNamedValueSet") 
    oCtx.Add "__ProviderArchitecture", RegType

Set oLocator = CreateObject("Wbemscripting.SWbemLocator") 
    Set oReg = oLocator.ConnectServer("", "root\default", "", "", , , ,
oCtx).Get("StdRegProv")

Set oInParams = oReg.Methods_("CreateKey").InParameters 
    oInParams.hDefKey = RootKey 
    oInParams.sSubKeyName = Key

Set oOutParams = oReg.ExecMethod_("CreateKey", oInParams, , oCtx)

Set oInParams = oReg.Methods_("SetStringValue").InParameters 
    oInParams.hDefKey = RootKey 
    oInParams.sSubKeyName = Key 
    oInParams.sValueName = Name
    oInParams.sValue = Value

Set oOutParams = oReg.ExecMethod_("SetStringValue", oInParams, , oCtx) 
End Function
--- snip ---

$ sha1sum PhysX-9.12.1031-SystemSoftware.msi 
eedc94c949d9ca41281bf550be8cd450fa028252  PhysX-9.12.1031-SystemSoftware.msi

$ du -sh PhysX-9.12.1031-SystemSoftware.msi 
26M    PhysX-9.12.1031-SystemSoftware.msi

$ wine --version
wine-5.5-242-g7096ab4544

Regards