2 * Copyright 2009 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 #include "wine/port.h"
26 #include "wine/debug.h"
28 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
30 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
31 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
=
32 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
34 static IInternetHostSecurityManager
*get_sec_mgr(script_ctx_t
*ctx
)
36 IInternetHostSecurityManager
*secmgr
;
46 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
50 hres
= IServiceProvider_QueryService(sp
, &SID_SInternetHostSecurityManager
, &IID_IInternetHostSecurityManager
,
52 IServiceProvider_Release(sp
);
56 return ctx
->secmgr
= secmgr
;
59 static IUnknown
*create_activex_object(script_ctx_t
*ctx
, const WCHAR
*progid
)
61 IInternetHostSecurityManager
*secmgr
= NULL
;
62 IObjectWithSite
*obj_site
;
63 struct CONFIRMSAFETY cs
;
64 IClassFactoryEx
*cfex
;
73 hres
= CLSIDFromProgID(progid
, &guid
);
77 TRACE("GUID %s\n", debugstr_guid(&guid
));
79 if(ctx
->safeopt
& INTERFACE_USES_SECURITY_MANAGER
) {
80 secmgr
= get_sec_mgr(ctx
);
85 hres
= IInternetHostSecurityManager_ProcessUrlAction(secmgr
, URLACTION_ACTIVEX_RUN
,
86 (BYTE
*)&policy
, sizeof(policy
), (BYTE
*)&guid
, sizeof(GUID
), 0, 0);
87 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
)
91 hres
= CoGetClassObject(&guid
, CLSCTX_INPROC_SERVER
|CLSCTX_LOCAL_SERVER
, NULL
, &IID_IClassFactory
, (void**)&cf
);
95 hres
= IClassFactory_QueryInterface(cf
, &IID_IClassFactoryEx
, (void**)&cfex
);
97 FIXME("Use IClassFactoryEx\n");
98 IClassFactoryEx_Release(cfex
);
101 hres
= IClassFactory_CreateInstance(cf
, NULL
, &IID_IUnknown
, (void**)&obj
);
109 hres
= IInternetHostSecurityManager_QueryCustomPolicy(secmgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
110 &bpolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
111 if(SUCCEEDED(hres
)) {
112 policy
= policy_size
>= sizeof(DWORD
) ? *(DWORD
*)bpolicy
: URLPOLICY_DISALLOW
;
113 CoTaskMemFree(bpolicy
);
116 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
) {
117 IUnknown_Release(obj
);
122 hres
= IUnknown_QueryInterface(obj
, &IID_IObjectWithSite
, (void**)&obj_site
);
123 if(SUCCEEDED(hres
)) {
126 ax_site
= create_ax_site(ctx
);
128 hres
= IObjectWithSite_SetSite(obj_site
, ax_site
);
129 IUnknown_Release(ax_site
);
131 IObjectWithSite_Release(obj_site
);
132 if(!ax_site
|| FAILED(hres
)) {
133 IObjectWithSite_Release(obj_site
);
134 IUnknown_Release(obj
);
142 static HRESULT
ActiveXObject_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, DISPPARAMS
*dp
,
143 VARIANT
*retv
, jsexcept_t
*ei
, IServiceProvider
*caller
)
152 if(flags
!= DISPATCH_CONSTRUCT
) {
153 FIXME("unsupported flags %x\n", flags
);
157 if(ctx
->safeopt
!= (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
)
158 && ctx
->safeopt
!= INTERFACE_USES_DISPEX
) {
159 FIXME("Unsupported safeopt %x\n", ctx
->safeopt
);
163 if(arg_cnt(dp
) != 1) {
164 FIXME("unsupported arg_cnt %d\n", arg_cnt(dp
));
168 hres
= to_string(ctx
, get_arg(dp
,0), ei
, &progid
);
172 obj
= create_activex_object(ctx
, progid
);
173 SysFreeString(progid
);
175 return throw_generic_error(ctx
, ei
, JS_E_CANNOT_CREATE_OBJ
, NULL
);
177 hres
= IUnknown_QueryInterface(obj
, &IID_IDispatch
, (void**)&disp
);
178 IUnknown_Release(obj
);
180 FIXME("Object does not support IDispatch\n");
184 V_VT(retv
) = VT_DISPATCH
;
185 V_DISPATCH(retv
) = disp
;
189 HRESULT
create_activex_constr(script_ctx_t
*ctx
, jsdisp_t
**ret
)
194 static const WCHAR ActiveXObjectW
[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
196 hres
= create_object(ctx
, NULL
, &prototype
);
200 hres
= create_builtin_function(ctx
, ActiveXObject_value
, ActiveXObjectW
, NULL
,
201 PROPF_CONSTR
|1, prototype
, ret
);
203 jsdisp_release(prototype
);