[Bug 39463] Sanitas HealthCoach 1.4 (.NET 4.0 app) installer crashes in VBScript custom action

[WineHQ Bugzilla]

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

Anastasius Focht <focht at gmx.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
          Component|vbscript                    |wmi&wbemprox

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

revisiting, still present. Changing component to WMI (wbemdisp).

--- snip ---
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer
& "\root\default:StdRegProv") 
strKeyPath = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
strValueName = "Identifier"
oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
--- snip ---

Calling 'GetStringValue' method of 'StdRegProv' class:

--- snip ---
...
0030:trace:vbscript:do_icall L"GetObject" 1
0030:trace:vbscript:disp_call using IDispatch
0030:trace:vbscript:Builtin_Invoke (000000000006F6A0)->(41
{00000000-0000-0000-0000-000000000000} 1033 3 000000000032F540 000000000032F6C0
000000000032F470 000000000032F464)
0030:trace:vbscript:Global_GetObject 000000000032F310 {VT_BSTR:
L"winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\default:StdRegProv"} 
0030:fixme:wbemdisp:factory_QueryInterface interface
{0000011a-0000-0000-c000-000000000046} not implemented
0030:err:ole:apartment_getclassobject DllGetClassObject returned error
0x80004002 for dll L"C:\\windows\\system32\\wbem\\wbemdisp.dll"
0030:err:ole:create_server class {172bddf8-ceea-11d1-8b05-00600806d9b6} not
registered
0030:fixme:ole:CoGetClassObject CLSCTX_REMOTE_SERVER not supported
0030:err:ole:CoGetClassObject no class object
{172bddf8-ceea-11d1-8b05-00600806d9b6} could be created for context 0x15
0030:fixme:wbemdisp:WinMGMTS_ParseDisplayName ignoring security settings
0030:fixme:wbemdisp:object_QueryInterface interface
{fc4801a3-2ba9-11cf-a229-00aa003d7352} not implemented
0030:trace:vbscript:interp_set_ident L"oReg" 0
0030:trace:vbscript:assign_ident creating variable L"oReg"
0030:trace:vbscript:interp_string 
0030:trace:vbscript:interp_assign_ident L"strKeyPath"
0030:trace:vbscript:assign_ident creating variable L"strKeyPath"
0030:trace:vbscript:interp_string 
0030:trace:vbscript:interp_assign_ident L"strValueName"
0030:trace:vbscript:assign_ident creating variable L"strValueName"
0030:trace:vbscript:interp_int -2147483646
0030:trace:vbscript:interp_icall 
0030:trace:vbscript:do_icall L"strKeyPath" 0
0030:trace:vbscript:interp_icall 
0030:trace:vbscript:do_icall L"strValueName" 0
0030:trace:vbscript:interp_icall 
0030:trace:vbscript:do_icall L"strValue" 0
0030:trace:vbscript:interp_icall 
0030:trace:vbscript:do_icall L"oReg" 0
0030:trace:vbscript:interp_mcallv 
...
--- snip ---

flags = DISPATCH_METHOD

https://source.winehq.org/git/wine.git/blob/HEAD:/dlls/wbemdisp/locator.c#l745

--- snip ---
 745 static HRESULT WINAPI object_Invoke(
 746     ISWbemObject *iface,
 747     DISPID member,
 748     REFIID riid,
 749     LCID lcid,
 750     WORD flags,
 751     DISPPARAMS *params,
 752     VARIANT *result,
 753     EXCEPINFO *excep_info,
 754     UINT *arg_err )
 755 {
 756     struct object *object = impl_from_ISWbemObject( iface );
 757     BSTR name;
 758     ITypeInfo *typeinfo;
 759     HRESULT hr;
 760 
 761     TRACE( "%p, %x, %s, %u, %x, %p, %p, %p, %p\n", object, member,
debugstr_guid(riid),
 762            lcid, flags, params, result, excep_info, arg_err );
 763 
 764     if (member <= DISPID_BASE_METHOD)
 765     {
 766         hr = get_typeinfo( ISWbemObject_tid, &typeinfo );
 767         if (SUCCEEDED(hr))
 768         {
 769             hr = ITypeInfo_Invoke( typeinfo, &object->ISWbemObject_iface,
member, flags,
 770                                    params, result, excep_info, arg_err );
 771             ITypeInfo_Release( typeinfo );
 772         }
 773         return hr;
 774     }
 775 
 776     if (flags != (DISPATCH_METHOD|DISPATCH_PROPERTYGET))
 777     {
 778         FIXME( "flags %x not supported\n", flags );
 779         return E_NOTIMPL;
 780     }
 781     if (!(name = get_member_name( object, member )))
 782         return DISP_E_MEMBERNOTFOUND;
 783 
 784     memset( params, 0, sizeof(*params) );
 785     return IWbemClassObject_Get( object->object, name, 0, result, NULL,
NULL );
 786 }
--- snip ---

$ wine --version
wine-4.20

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.