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
24 #include "wine/debug.h"
26 WINE_DEFAULT_DEBUG_CHANNEL(jscript
);
28 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
29 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY
=
30 {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
32 static IInternetHostSecurityManager
*get_sec_mgr(script_ctx_t
*ctx
)
34 IInternetHostSecurityManager
*secmgr
;
44 hres
= IActiveScriptSite_QueryInterface(ctx
->site
, &IID_IServiceProvider
, (void**)&sp
);
48 hres
= IServiceProvider_QueryService(sp
, &SID_SInternetHostSecurityManager
, &IID_IInternetHostSecurityManager
,
50 IServiceProvider_Release(sp
);
54 return ctx
->secmgr
= secmgr
;
57 static IUnknown
*create_activex_object(script_ctx_t
*ctx
, const WCHAR
*progid
)
59 IInternetHostSecurityManager
*secmgr
= NULL
;
60 IObjectWithSite
*obj_site
;
61 struct CONFIRMSAFETY cs
;
62 IClassFactoryEx
*cfex
;
71 TRACE("%s\n", debugstr_w(progid
));
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 IUnknown_Release(obj
);
141 static HRESULT
ActiveXObject_value(script_ctx_t
*ctx
, vdisp_t
*jsthis
, WORD flags
, unsigned argc
, jsval_t
*argv
,
144 jsstr_t
* progid_str
;
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
);
164 FIXME("unsupported argc %d\n", argc
);
168 hres
= to_flat_string(ctx
, argv
[0], &progid_str
, &progid
);
172 obj
= create_activex_object(ctx
, progid
);
173 jsstr_release(progid_str
);
175 return JS_E_CANNOT_CREATE_OBJ
;
177 hres
= IUnknown_QueryInterface(obj
, &IID_IDispatch
, (void**)&disp
);
178 IUnknown_Release(obj
);
180 FIXME("Object does not support IDispatch\n");
184 *r
= jsval_disp(disp
);
188 HRESULT
create_activex_constr(script_ctx_t
*ctx
, jsdisp_t
**ret
)
193 static const WCHAR ActiveXObjectW
[] = {'A','c','t','i','v','e','X','O','b','j','e','c','t',0};
195 hres
= create_object(ctx
, NULL
, &prototype
);
199 hres
= create_builtin_function(ctx
, ActiveXObject_value
, ActiveXObjectW
, NULL
,
200 PROPF_CONSTR
|1, prototype
, ret
);
202 jsdisp_release(prototype
);