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
23 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
24 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
=
25 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
27 static IInternetHostSecurityManager
*get_sec_mgr(script_ctx_t
*ctx
)
29 IInternetHostSecurityManager
*secmgr
;
39 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
43 hres
= IServiceProvider_QueryService(sp
, &SID_SInternetHostSecurityManager
, &IID_IInternetHostSecurityManager
,
45 IServiceProvider_Release(sp
);
49 return ctx
->secmgr
= secmgr
;
52 static IUnknown
*create_activex_object(script_ctx_t
*ctx
, const WCHAR
*progid
)
54 IInternetHostSecurityManager
*secmgr
= NULL
;
55 IObjectWithSite
*obj_site
;
56 struct CONFIRMSAFETY cs
;
57 IClassFactoryEx
*cfex
;
66 TRACE("%s\n", debugstr_w(progid
));
68 hres
= CLSIDFromProgID(progid
, &guid
);
72 TRACE("GUID %s\n", debugstr_guid(&guid
));
74 if(ctx
->safeopt
& INTERFACE_USES_SECURITY_MANAGER
) {
75 secmgr
= get_sec_mgr(ctx
);
80 hres
= IInternetHostSecurityManager_ProcessUrlAction(secmgr
, URLACTION_ACTIVEX_RUN
,
81 (BYTE
*)&policy
, sizeof(policy
), (BYTE
*)&guid
, sizeof(GUID
), 0, 0);
82 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
)
86 hres
= CoGetClassObject(&guid
, CLSCTX_INPROC_SERVER
|CLSCTX_LOCAL_SERVER
, NULL
, &IID_IClassFactory
, (void**)&cf
);
90 hres
= IClassFactory_QueryInterface(cf
, &IID_IClassFactoryEx
, (void**)&cfex
);
92 FIXME("Use IClassFactoryEx\n");
93 IClassFactoryEx_Release(cfex
);
96 hres
= IClassFactory_CreateInstance(cf
, NULL
, &IID_IUnknown
, (void**)&obj
);
104 hres
= IInternetHostSecurityManager_QueryCustomPolicy(secmgr
, &GUID_CUSTOM_CONFIRMOBJECTSAFETY
,
105 &bpolicy
, &policy_size
, (BYTE
*)&cs
, sizeof(cs
), 0);
106 if(SUCCEEDED(hres
)) {
107 policy
= policy_size
>= sizeof(DWORD
) ? *(DWORD
*)bpolicy
: URLPOLICY_DISALLOW
;
108 CoTaskMemFree(bpolicy
);
111 if(FAILED(hres
) || policy
!= URLPOLICY_ALLOW
) {
112 IUnknown_Release(obj
);
117 hres
= IUnknown_QueryInterface(obj
, &IID_IObjectWithSite
, (void**)&obj_site
);
118 if(SUCCEEDED(hres
)) {
121 ax_site
= create_ax_site(ctx
);
123 hres
= IObjectWithSite_SetSite(obj_site
, ax_site
);
124 IUnknown_Release(ax_site
);
126 IObjectWithSite_Release(obj_site
);
127 if(!ax_site
|| FAILED(hres
)) {
128 IUnknown_Release(obj
);
136 static HRESULT
ActiveXObject_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
139 jsstr_t
* progid_str
;
147 if(flags
!= DISPATCH_CONSTRUCT
) {
148 FIXME("unsupported flags %x\n", flags
);
152 if(ctx
->safeopt
!= (INTERFACESAFE_FOR_UNTRUSTED_DATA
|INTERFACE_USES_DISPEX
|INTERFACE_USES_SECURITY_MANAGER
)
153 && ctx
->safeopt
!= INTERFACE_USES_DISPEX
) {
154 FIXME("Unsupported safeopt %x\n", ctx
->safeopt
);
159 FIXME("unsupported argc %d\n", argc
);
163 hres
= to_flat_string(ctx
, argv
[0], &progid_str
, &progid
);
167 obj
= create_activex_object(ctx
, progid
);
168 jsstr_release(progid_str
);
170 return throw_generic_error(ctx
, JS_E_CANNOT_CREATE_OBJ
, NULL
);
172 hres
= IUnknown_QueryInterface(obj
, &IID_IDispatch
, (void**)&disp
);
173 IUnknown_Release(obj
);
175 FIXME("Object does not support IDispatch\n");
179 *r
= jsval_disp(disp
);
183 HRESULT
create_activex_constr(script_ctx_t
*ctx
, jsdisp_t
**ret
)
188 static const WCHAR ActiveXObjectW
[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
190 hres
= create_object(ctx
, NULL
, &prototype
);
194 hres
= create_builtin_function(ctx
, ActiveXObject_value
, ActiveXObjectW
, NULL
,
195 PROPF_CONSTR
|1, prototype
, ret
);
197 jsdisp_release(prototype
);