[Bug 30284] Mathematica 6.0 installer fails, reports error 0x80020006 (missing support for IShellDispatch2::IsServiceRunning)

http://bugs.winehq.org/show_bug.cgi?id=30284

--- Comment #24 from Anastasius Focht  2012-05-07 15:31:41 CDT ---
Hello Nikolay,

the patch is sufficient to let the installer finish successfully ;-)

--- snip ---
0024:trace:ole:dump_Variant 0xa1662f0->{VT_BSTR,L"SharedAccess"}
0024:trace:ole:DispCallFunc (0x2da57e8, 144, 4, 10, 2, 0x2cfeba8, 0x2cfeba0,
0x33cf4c (vt=10)) 
...
0024:Call advapi32.OpenSCManagerW(00000000,00000000,00000001) ret=7e907b59 
...
0024:Ret  advapi32.OpenSCManagerW() retval=02cfee20 ret=7e907b59
0024:Call advapi32.OpenServiceW(02cfee20,02cfeb3c L"SharedAccess",00000004)
ret=7e907bd2 
...
0024:Ret  advapi32.OpenServiceW() retval=00000000 ret=7e907bd2
0024:err:shell:ShellDispatch_IsServiceRunning Failed to open service
L"SharedAccess" (1060)
0024:Call advapi32.CloseServiceHandle(00000000) ret=7e907c58 
...
0024:trace:variant:VariantCopyInd returning 0x00000000, 0x33d280->(VT_BOOL)
...
0024:trace:ole:ITypeInfo_fnInvoke -- 0x00000000 
--- snip ---

Regards