ReactOS 0.4.15-dev-7934-g1dc8d80
script.c
Go to the documentation of this file.
1/*
2 * Implementation of scripting for Microsoft Installer (msi.dll)
3 *
4 * Copyright 2007 Misha Koshelev
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21#define COBJMACROS
22
23#include <stdarg.h>
24#include "windef.h"
25#include "winbase.h"
26#include "winerror.h"
27#include "winuser.h"
28#include "msidefs.h"
29#include "msipriv.h"
30#include "activscp.h"
31#include "oleauto.h"
32#include "wine/debug.h"
33
34#include "msiserver.h"
35
37
38#ifdef _WIN64
39
40#define IActiveScriptParse_Release IActiveScriptParse64_Release
41#define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
42#define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
43
44#else
45
46#define IActiveScriptParse_Release IActiveScriptParse32_Release
47#define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
48#define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
49
50#endif
51
52/*
53 * MsiActiveScriptSite - Our IActiveScriptSite implementation.
54 */
55typedef struct {
61
63{
64 return CONTAINING_RECORD(iface, MsiActiveScriptSite, IActiveScriptSite_iface);
65}
66
67/*
68 * MsiActiveScriptSite
69 */
71{
73
74 TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), obj);
75
77 IsEqualGUID(riid, &IID_IActiveScriptSite))
78 {
79 IActiveScriptSite_AddRef(iface);
80 *obj = iface;
81 return S_OK;
82 }
83
84 *obj = NULL;
85
86 return E_NOINTERFACE;
87}
88
90{
93 TRACE( "(%p)->(%lu)\n", This, ref );
94 return ref;
95}
96
98{
101
102 TRACE( "(%p)->(%lu)\n", This, ref );
103
104 if (!ref)
105 msi_free(This);
106
107 return ref;
108}
109
111{
113 TRACE("(%p)->(%p)\n", This, plcid);
114 return E_NOTIMPL; /* Script will use system-defined locale */
115}
116
117static HRESULT WINAPI MsiActiveScriptSite_GetItemInfo(IActiveScriptSite* iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown** ppiunkItem, ITypeInfo** ppti)
118{
120
121 TRACE( "(%p)->(%p, %lu, %p, %p)\n", This, pstrName, dwReturnMask, ppiunkItem, ppti );
122
123 /* Determine the kind of pointer that is requested, and make sure placeholder is valid */
124 if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
125 if (!ppti) return E_INVALIDARG;
126 *ppti = NULL;
127 }
128 if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
129 if (!ppiunkItem) return E_INVALIDARG;
130 *ppiunkItem = NULL;
131 }
132
133 /* Are we looking for the session object? */
134 if (!wcscmp(L"Session", pstrName)) {
135 if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
137 if (SUCCEEDED(hr))
138 ITypeInfo_AddRef(*ppti);
139 return hr;
140 }
141 else if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
142 IDispatch_QueryInterface(This->session, &IID_IUnknown, (void **)ppiunkItem);
143 return S_OK;
144 }
145 }
146
148}
149
151{
153 TRACE("(%p)->(%p)\n", This, pbstrVersion);
154 return E_NOTIMPL;
155}
156
157static HRESULT WINAPI MsiActiveScriptSite_OnScriptTerminate(IActiveScriptSite* iface, const VARIANT* pvarResult, const EXCEPINFO* pexcepinfo)
158{
160 TRACE("(%p)->(%p, %p)\n", This, pvarResult, pexcepinfo);
161 return S_OK;
162}
163
165{
166 switch (ssScriptState) {
168 TRACE("State: Uninitialized.\n");
169 break;
170
172 TRACE("State: Initialized.\n");
173 break;
174
176 TRACE("State: Started.\n");
177 break;
178
180 TRACE("State: Connected.\n");
181 break;
182
184 TRACE("State: Disconnected.\n");
185 break;
186
188 TRACE("State: Closed.\n");
189 break;
190
191 default:
192 ERR("Unknown State: %d\n", ssScriptState);
193 break;
194 }
195
196 return S_OK;
197}
198
200{
202 EXCEPINFO exception;
203 HRESULT hr;
204
205 TRACE("(%p)->(%p)\n", This, pscripterror);
206
207 memset(&exception, 0, sizeof(EXCEPINFO));
208 hr = IActiveScriptError_GetExceptionInfo(pscripterror, &exception);
209 if (SUCCEEDED(hr))
210 {
211 ERR("script error: %s\n", debugstr_w(exception.bstrDescription));
212 SysFreeString(exception.bstrSource);
213 SysFreeString(exception.bstrDescription);
214 SysFreeString(exception.bstrHelpFile);
215 }
216
217 return S_OK;
218}
219
221{
223 TRACE("(%p)\n", This);
224 return S_OK;
225}
226
228{
230 TRACE("(%p)\n", This);
231 return S_OK;
232}
233
234static const struct IActiveScriptSiteVtbl activescriptsitevtbl =
235{
247};
248
250{
252
253 TRACE("(%p)\n", obj);
254
255 *obj = NULL;
256
257 object = msi_alloc( sizeof(MsiActiveScriptSite) );
258 if (!object)
259 return E_OUTOFMEMORY;
260
261 object->IActiveScriptSite_iface.lpVtbl = &activescriptsitevtbl;
262 object->ref = 1;
263 object->installer = NULL;
264 object->session = NULL;
265
266 *obj = object;
267
268 return S_OK;
269}
270
272{
273 switch (val)
274 {
275 case 0:
276 case IDOK:
277 case IDIGNORE: return ERROR_SUCCESS;
278 case IDCANCEL: return ERROR_INSTALL_USEREXIT;
279 case IDRETRY: return ERROR_INSTALL_SUSPEND;
280 case IDABORT:
281 default: return ERROR_INSTALL_FAILURE;
282 }
283}
284
285/*
286 * Call a script.
287 */
289{
290 HRESULT hr;
291 IActiveScript *pActiveScript = NULL;
292 IActiveScriptParse *pActiveScriptParse = NULL;
293 MsiActiveScriptSite *scriptsite;
294 IDispatch *pDispatch = NULL;
295 DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
296 DISPID dispid;
297 CLSID clsid;
298 VARIANT var;
300
302
303 /* Create MsiActiveScriptSite object */
304 hr = create_activescriptsite(&scriptsite);
305 if (hr != S_OK) goto done;
306
307 /* Create an installer object */
308 hr = create_msiserver(NULL, (void**)&scriptsite->installer);
309 if (hr != S_OK) goto done;
310
311 /* Create a session object */
312 hr = create_session(hPackage, scriptsite->installer, &scriptsite->session);
313 if (hr != S_OK) goto done;
314
315 /* Create the scripting engine */
318 hr = CLSIDFromProgID(L"JScript", &clsid);
320 hr = CLSIDFromProgID(L"VBScript", &clsid);
321 else {
322 ERR("Unknown script type %d\n", type);
323 goto done;
324 }
325 if (FAILED(hr)) {
326 ERR("Could not find CLSID for Windows Script\n");
327 goto done;
328 }
329 hr = CoCreateInstance(&clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IActiveScript, (void **)&pActiveScript);
330 if (FAILED(hr)) {
331 ERR("Could not instantiate class for Windows Script\n");
332 goto done;
333 }
334
335 hr = IActiveScript_QueryInterface(pActiveScript, &IID_IActiveScriptParse, (void **)&pActiveScriptParse);
336 if (FAILED(hr)) goto done;
337
338 hr = IActiveScript_SetScriptSite(pActiveScript, &scriptsite->IActiveScriptSite_iface);
339 if (FAILED(hr)) goto done;
340
341 hr = IActiveScriptParse_InitNew(pActiveScriptParse);
342 if (FAILED(hr)) goto done;
343
344 hr = IActiveScript_AddNamedItem(pActiveScript, L"Session", SCRIPTITEM_GLOBALMEMBERS|SCRIPTITEM_ISVISIBLE);
345 if (FAILED(hr)) goto done;
346
347 hr = IActiveScriptParse_ParseScriptText(pActiveScriptParse, script, NULL, NULL, NULL, 0, 0, 0L, NULL, NULL);
348 if (FAILED(hr)) goto done;
349
350 hr = IActiveScript_SetScriptState(pActiveScript, SCRIPTSTATE_CONNECTED);
351 if (FAILED(hr)) goto done;
352
353 /* Call a function if necessary through the IDispatch interface */
354 if (function && function[0]) {
355 TRACE("Calling function %s\n", debugstr_w(function));
356
357 hr = IActiveScript_GetScriptDispatch(pActiveScript, NULL, &pDispatch);
358 if (FAILED(hr)) goto done;
359
360 hr = IDispatch_GetIDsOfNames(pDispatch, &IID_NULL, (WCHAR **)&function, 1,LOCALE_USER_DEFAULT, &dispid);
361 if (FAILED(hr)) goto done;
362
363 hr = IDispatch_Invoke(pDispatch, dispid, &IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispparamsNoArgs, &var, NULL, NULL);
364 if (FAILED(hr)) goto done;
365
366 hr = VariantChangeType(&var, &var, 0, VT_I4);
367 if (FAILED(hr)) goto done;
368
370
372 } else {
373 /* If no function to be called, MSI behavior is to succeed */
375 }
376
377done:
378
379 if (pDispatch) IDispatch_Release(pDispatch);
380 if (pActiveScript) IActiveScript_Release(pActiveScript);
381 if (pActiveScriptParse) IActiveScriptParse_Release(pActiveScriptParse);
382 if (scriptsite)
383 {
384 if (scriptsite->session) IDispatch_Release(scriptsite->session);
385 if (scriptsite->installer) IDispatch_Release(scriptsite->installer);
386 IActiveScriptSite_Release(&scriptsite->IActiveScriptSite_iface);
387 }
388 CoUninitialize(); /* must call even if CoInitialize failed */
389 return ret;
390}
@ SCRIPTSTATE_INITIALIZED
Definition: activscp.idl:62
@ SCRIPTSTATE_DISCONNECTED
Definition: activscp.idl:60
@ SCRIPTSTATE_STARTED
Definition: activscp.idl:58
@ SCRIPTSTATE_UNINITIALIZED
Definition: activscp.idl:57
@ SCRIPTSTATE_CLOSED
Definition: activscp.idl:61
@ SCRIPTSTATE_CONNECTED
Definition: activscp.idl:59
enum tagSCRIPTSTATE SCRIPTSTATE
HRESULT get_typeinfo(enum type_id tid, ITypeInfo **ret)
Definition: apps.c:124
#define InterlockedIncrement
Definition: armddk.h:53
#define InterlockedDecrement
Definition: armddk.h:52
#define WINE_DEFAULT_DEBUG_CHANNEL(t)
Definition: precomp.h:23
const GUID IID_IUnknown
#define ERR(fmt,...)
Definition: debug.h:110
#define E_OUTOFMEMORY
Definition: ddrawi.h:100
#define E_INVALIDARG
Definition: ddrawi.h:101
#define E_NOTIMPL
Definition: ddrawi.h:99
#define ERROR_SUCCESS
Definition: deptool.c:10
#define NULL
Definition: types.h:112
OLECHAR * BSTR
Definition: compat.h:2293
@ VT_I4
Definition: compat.h:2298
#define IActiveScriptParse_InitNew
Definition: script.c:40
#define IActiveScriptParse_ParseScriptText
Definition: script.c:41
#define IActiveScriptParse_Release
Definition: script.c:39
static ScriptHost * impl_from_IActiveScriptSite(IActiveScriptSite *iface)
Definition: script.c:223
const WCHAR * action
Definition: action.c:7479
HRESULT create_session(MSIHANDLE msiHandle, IDispatch *installer, IDispatch **disp)
Definition: automation.c:2440
HRESULT create_msiserver(IUnknown *outer, void **ppObj)
Definition: automation.c:2421
DWORD call_script(MSIHANDLE hPackage, INT type, LPCWSTR script, LPCWSTR function, LPCWSTR action)
Definition: script.c:288
static ULONG WINAPI MsiActiveScriptSite_AddRef(IActiveScriptSite *iface)
Definition: script.c:89
static ULONG WINAPI MsiActiveScriptSite_Release(IActiveScriptSite *iface)
Definition: script.c:97
static HRESULT WINAPI MsiActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
Definition: script.c:110
static HRESULT WINAPI MsiActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
Definition: script.c:117
static HRESULT WINAPI MsiActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
Definition: script.c:227
static HRESULT WINAPI MsiActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **obj)
Definition: script.c:70
static HRESULT WINAPI MsiActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
Definition: script.c:220
static HRESULT WINAPI MsiActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
Definition: script.c:199
static HRESULT WINAPI MsiActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
Definition: script.c:157
static HRESULT WINAPI MsiActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
Definition: script.c:150
static HRESULT WINAPI MsiActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
Definition: script.c:164
static UINT map_return_value(LONG val)
Definition: script.c:271
static const struct IActiveScriptSiteVtbl activescriptsitevtbl
Definition: script.c:234
static HRESULT create_activescriptsite(MsiActiveScriptSite **obj)
Definition: script.c:249
HRESULT WINAPI DECLSPEC_HOTPATCH CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID iid, LPVOID *ppv)
Definition: compobj.c:3325
HRESULT WINAPI DECLSPEC_HOTPATCH CLSIDFromProgID(LPCOLESTR progid, LPCLSID clsid)
Definition: compobj.c:2602
HRESULT WINAPI CoInitialize(LPVOID lpReserved)
Definition: compobj.c:1964
void WINAPI DECLSPEC_HOTPATCH CoUninitialize(void)
Definition: compobj.c:2067
unsigned long DWORD
Definition: ntddk_ex.h:95
GLuint GLuint GLsizei GLenum type
Definition: gl.h:1545
GLuint GLfloat * val
Definition: glext.h:7180
#define exception
Definition: math.h:26
REFIID riid
Definition: atlbase.h:39
#define S_OK
Definition: intsafe.h:52
#define SUCCEEDED(hr)
Definition: intsafe.h:50
#define FAILED(hr)
Definition: intsafe.h:51
#define debugstr_guid
Definition: kernel32.h:35
#define debugstr_w
Definition: kernel32.h:32
const char * var
Definition: shader.c:5666
static VARIANTARG static DISPID
Definition: ordinal.c:52
REFCLSID clsid
Definition: msctf.c:82
@ msidbCustomActionTypeJScript
Definition: msidefs.h:119
@ msidbCustomActionTypeVBScript
Definition: msidefs.h:120
static void msi_free(void *mem)
Definition: msipriv.h:1159
@ Session_tid
Definition: msipriv.h:1122
script
Definition: msipriv.h:383
static void * msi_alloc(size_t len) __WINE_ALLOC_SIZE(1)
Definition: msipriv.h:1142
unsigned int UINT
Definition: ndis.h:50
#define LOCALE_USER_DEFAULT
#define L(x)
Definition: ntvdm.h:50
void WINAPI DECLSPEC_HOTPATCH SysFreeString(BSTR str)
Definition: oleaut.c:271
#define DISPATCH_METHOD
Definition: oleauto.h:1006
#define V_I4(A)
Definition: oleauto.h:247
long LONG
Definition: pedump.c:60
#define IsEqualGUID(rguid1, rguid2)
Definition: guiddef.h:147
#define REFIID
Definition: guiddef.h:118
#define IID_NULL
Definition: guiddef.h:98
_Check_return_ _CRTIMP int __cdecl wcscmp(_In_z_ const wchar_t *_Str1, _In_z_ const wchar_t *_Str2)
DWORD LCID
Definition: nls.h:13
#define memset(x, y, z)
Definition: compat.h:39
HRESULT hr
Definition: shlfolder.c:183
#define TRACE(s)
Definition: solgame.cpp:4
IDispatch * installer
Definition: script.c:57
IDispatch * session
Definition: script.c:58
IActiveScriptSite IActiveScriptSite_iface
Definition: script.c:56
Definition: send.c:48
int32_t INT
Definition: typedefs.h:58
#define CONTAINING_RECORD(address, type, field)
Definition: typedefs.h:260
uint32_t ULONG
Definition: typedefs.h:59
HRESULT WINAPI DECLSPEC_HOTPATCH VariantChangeType(VARIANTARG *pvargDest, VARIANTARG *pvargSrc, USHORT wFlags, VARTYPE vt)
Definition: variant.c:962
HRESULT WINAPI DECLSPEC_HOTPATCH VariantClear(VARIANTARG *pVarg)
Definition: variant.c:648
int ret
#define WINAPI
Definition: msvc.h:6
unsigned long MSIHANDLE
Definition: winemsi.idl:27
#define ERROR_INSTALL_FAILURE
Definition: winerror.h:961
#define ERROR_INSTALL_USEREXIT
Definition: winerror.h:960
#define TYPE_E_ELEMENTNOTFOUND
Definition: winerror.h:2539
#define E_NOINTERFACE
Definition: winerror.h:2364
#define ERROR_INSTALL_SUSPEND
Definition: winerror.h:962
#define IDCANCEL
Definition: winuser.h:831
#define IDOK
Definition: winuser.h:830
#define IDIGNORE
Definition: winuser.h:834
#define IDABORT
Definition: winuser.h:832
#define IDRETRY
Definition: winuser.h:833
__wchar_t WCHAR
Definition: xmlstorage.h:180
const WCHAR * LPCWSTR
Definition: xmlstorage.h:185