ReactOS  0.4.14-dev-323-g6fe6a88
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 #include "wine/unicode.h"
34 
35 #include "msiserver.h"
36 
38 
39 #ifdef _WIN64
40 
41 #define IActiveScriptParse_Release IActiveScriptParse64_Release
42 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
43 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
44 
45 #else
46 
47 #define IActiveScriptParse_Release IActiveScriptParse32_Release
48 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
49 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
50 
51 #endif
52 
53 static const WCHAR szJScript[] = { 'J','S','c','r','i','p','t',0};
54 static const WCHAR szVBScript[] = { 'V','B','S','c','r','i','p','t',0};
55 static const WCHAR szSession[] = {'S','e','s','s','i','o','n',0};
56 
57 /*
58  * MsiActiveScriptSite - Our IActiveScriptSite implementation.
59  */
60 typedef struct {
66 
68 {
69  return CONTAINING_RECORD(iface, MsiActiveScriptSite, IActiveScriptSite_iface);
70 }
71 
72 /*
73  * MsiActiveScriptSite
74  */
76 {
78 
79  TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), obj);
80 
81  if (IsEqualGUID(riid, &IID_IUnknown) ||
82  IsEqualGUID(riid, &IID_IActiveScriptSite))
83  {
84  IActiveScriptSite_AddRef(iface);
85  *obj = iface;
86  return S_OK;
87  }
88 
89  *obj = NULL;
90 
91  return E_NOINTERFACE;
92 }
93 
95 {
98  TRACE("(%p)->(%d)\n", This, ref);
99  return ref;
100 }
101 
103 {
106 
107  TRACE("(%p)->(%d)\n", This, ref);
108 
109  if (!ref)
110  msi_free(This);
111 
112  return ref;
113 }
114 
116 {
118  TRACE("(%p)->(%p)\n", This, plcid);
119  return E_NOTIMPL; /* Script will use system-defined locale */
120 }
121 
122 static HRESULT WINAPI MsiActiveScriptSite_GetItemInfo(IActiveScriptSite* iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown** ppiunkItem, ITypeInfo** ppti)
123 {
125 
126  TRACE("(%p)->(%p, %d, %p, %p)\n", This, pstrName, dwReturnMask, ppiunkItem, ppti);
127 
128  /* Determine the kind of pointer that is requested, and make sure placeholder is valid */
129  if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
130  if (!ppti) return E_INVALIDARG;
131  *ppti = NULL;
132  }
133  if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
134  if (!ppiunkItem) return E_INVALIDARG;
135  *ppiunkItem = NULL;
136  }
137 
138  /* Are we looking for the session object? */
139  if (!strcmpW(szSession, pstrName)) {
140  if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
142  if (SUCCEEDED(hr))
143  ITypeInfo_AddRef(*ppti);
144  return hr;
145  }
146  else if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
147  IDispatch_QueryInterface(This->session, &IID_IUnknown, (void **)ppiunkItem);
148  return S_OK;
149  }
150  }
151 
152  return TYPE_E_ELEMENTNOTFOUND;
153 }
154 
156 {
158  TRACE("(%p)->(%p)\n", This, pbstrVersion);
159  return E_NOTIMPL;
160 }
161 
162 static HRESULT WINAPI MsiActiveScriptSite_OnScriptTerminate(IActiveScriptSite* iface, const VARIANT* pvarResult, const EXCEPINFO* pexcepinfo)
163 {
165  TRACE("(%p)->(%p, %p)\n", This, pvarResult, pexcepinfo);
166  return S_OK;
167 }
168 
170 {
171  switch (ssScriptState) {
173  TRACE("State: Uninitialized.\n");
174  break;
175 
177  TRACE("State: Initialized.\n");
178  break;
179 
180  case SCRIPTSTATE_STARTED:
181  TRACE("State: Started.\n");
182  break;
183 
185  TRACE("State: Connected.\n");
186  break;
187 
189  TRACE("State: Disconnected.\n");
190  break;
191 
192  case SCRIPTSTATE_CLOSED:
193  TRACE("State: Closed.\n");
194  break;
195 
196  default:
197  ERR("Unknown State: %d\n", ssScriptState);
198  break;
199  }
200 
201  return S_OK;
202 }
203 
205 {
208  HRESULT hr;
209 
210  TRACE("(%p)->(%p)\n", This, pscripterror);
211 
212  memset(&exception, 0, sizeof(EXCEPINFO));
213  hr = IActiveScriptError_GetExceptionInfo(pscripterror, &exception);
214  if (SUCCEEDED(hr))
215  {
216  ERR("script error: %s\n", debugstr_w(exception.bstrDescription));
217  SysFreeString(exception.bstrSource);
218  SysFreeString(exception.bstrDescription);
219  SysFreeString(exception.bstrHelpFile);
220  }
221 
222  return S_OK;
223 }
224 
226 {
228  TRACE("(%p)\n", This);
229  return S_OK;
230 }
231 
233 {
235  TRACE("(%p)\n", This);
236  return S_OK;
237 }
238 
239 static const struct IActiveScriptSiteVtbl activescriptsitevtbl =
240 {
252 };
253 
255 {
257 
258  TRACE("(%p)\n", obj);
259 
260  *obj = NULL;
261 
262  object = msi_alloc( sizeof(MsiActiveScriptSite) );
263  if (!object)
264  return E_OUTOFMEMORY;
265 
266  object->IActiveScriptSite_iface.lpVtbl = &activescriptsitevtbl;
267  object->ref = 1;
268  object->installer = NULL;
269  object->session = NULL;
270 
271  *obj = object;
272 
273  return S_OK;
274 }
275 
277 {
278  switch (val)
279  {
280  case 0:
281  case IDOK:
282  case IDIGNORE: return ERROR_SUCCESS;
283  case IDCANCEL: return ERROR_INSTALL_USEREXIT;
284  case IDRETRY: return ERROR_INSTALL_SUSPEND;
285  case IDABORT:
286  default: return ERROR_INSTALL_FAILURE;
287  }
288 }
289 
290 /*
291  * Call a script.
292  */
294 {
295  HRESULT hr;
296  IActiveScript *pActiveScript = NULL;
297  IActiveScriptParse *pActiveScriptParse = NULL;
298  MsiActiveScriptSite *scriptsite;
299  IDispatch *pDispatch = NULL;
300  DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
301  DISPID dispid;
302  CLSID clsid;
303  VARIANT var;
305 
307 
308  /* Create MsiActiveScriptSite object */
309  hr = create_activescriptsite(&scriptsite);
310  if (hr != S_OK) goto done;
311 
312  /* Create an installer object */
313  hr = create_msiserver(NULL, (void**)&scriptsite->installer);
314  if (hr != S_OK) goto done;
315 
316  /* Create a session object */
317  hr = create_session(hPackage, scriptsite->installer, &scriptsite->session);
318  if (hr != S_OK) goto done;
319 
320  /* Create the scripting engine */
326  else {
327  ERR("Unknown script type %d\n", type);
328  goto done;
329  }
330  if (FAILED(hr)) {
331  ERR("Could not find CLSID for Windows Script\n");
332  goto done;
333  }
334  hr = CoCreateInstance(&clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IActiveScript, (void **)&pActiveScript);
335  if (FAILED(hr)) {
336  ERR("Could not instantiate class for Windows Script\n");
337  goto done;
338  }
339 
340  hr = IActiveScript_QueryInterface(pActiveScript, &IID_IActiveScriptParse, (void **)&pActiveScriptParse);
341  if (FAILED(hr)) goto done;
342 
343  hr = IActiveScript_SetScriptSite(pActiveScript, &scriptsite->IActiveScriptSite_iface);
344  if (FAILED(hr)) goto done;
345 
346  hr = IActiveScriptParse_InitNew(pActiveScriptParse);
347  if (FAILED(hr)) goto done;
348 
349  hr = IActiveScript_AddNamedItem(pActiveScript, szSession, SCRIPTITEM_GLOBALMEMBERS|SCRIPTITEM_ISVISIBLE);
350  if (FAILED(hr)) goto done;
351 
352  hr = IActiveScriptParse_ParseScriptText(pActiveScriptParse, script, NULL, NULL, NULL, 0, 0, 0L, NULL, NULL);
353  if (FAILED(hr)) goto done;
354 
355  hr = IActiveScript_SetScriptState(pActiveScript, SCRIPTSTATE_CONNECTED);
356  if (FAILED(hr)) goto done;
357 
358  /* Call a function if necessary through the IDispatch interface */
359  if (function && function[0]) {
360  TRACE("Calling function %s\n", debugstr_w(function));
361 
362  hr = IActiveScript_GetScriptDispatch(pActiveScript, NULL, &pDispatch);
363  if (FAILED(hr)) goto done;
364 
365  hr = IDispatch_GetIDsOfNames(pDispatch, &IID_NULL, (WCHAR **)&function, 1,LOCALE_USER_DEFAULT, &dispid);
366  if (FAILED(hr)) goto done;
367 
368  hr = IDispatch_Invoke(pDispatch, dispid, &IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispparamsNoArgs, &var, NULL, NULL);
369  if (FAILED(hr)) goto done;
370 
371  hr = VariantChangeType(&var, &var, 0, VT_I4);
372  if (FAILED(hr)) goto done;
373 
374  ret = map_return_value(V_I4(&var));
375 
376  VariantClear(&var);
377  } else {
378  /* If no function to be called, MSI behavior is to succeed */
379  ret = ERROR_SUCCESS;
380  }
381 
382 done:
383 
384  if (pDispatch) IDispatch_Release(pDispatch);
385  if (pActiveScript) IActiveScript_Release(pActiveScript);
386  if (pActiveScriptParse) IActiveScriptParse_Release(pActiveScriptParse);
387  if (scriptsite)
388  {
389  if (scriptsite->session) IDispatch_Release(scriptsite->session);
390  if (scriptsite->installer) IDispatch_Release(scriptsite->installer);
391  IActiveScriptSite_Release(&scriptsite->IActiveScriptSite_iface);
392  }
393  CoUninitialize(); /* must call even if CoInitialize failed */
394  return ret;
395 }
static const WCHAR szJScript[]
Definition: script.c:53
HRESULT WINAPI DECLSPEC_HOTPATCH VariantChangeType(VARIANTARG *pvargDest, VARIANTARG *pvargSrc, USHORT wFlags, VARTYPE vt)
Definition: variant.c:965
#define REFIID
Definition: guiddef.h:118
static HRESULT WINAPI MsiActiveScriptSite_OnLeaveScript(IActiveScriptSite *iface)
Definition: script.c:232
#define IDOK
Definition: winuser.h:824
#define E_NOINTERFACE
Definition: winerror.h:2364
Definition: compat.h:1939
static HRESULT WINAPI MsiActiveScriptSite_OnScriptError(IActiveScriptSite *iface, IActiveScriptError *pscripterror)
Definition: script.c:204
#define IDABORT
Definition: winuser.h:826
#define ERROR_SUCCESS
Definition: deptool.c:10
HRESULT hr
Definition: shlfolder.c:183
static ULONG WINAPI MsiActiveScriptSite_AddRef(IActiveScriptSite *iface)
Definition: script.c:94
const WCHAR * LPCWSTR
Definition: xmlstorage.h:185
#define IActiveScriptParse_Release
Definition: script.c:47
static ULONG WINAPI MsiActiveScriptSite_Release(IActiveScriptSite *iface)
Definition: script.c:102
REFIID riid
Definition: precomp.h:44
static const WCHAR szVBScript[]
Definition: script.c:54
#define exception
Definition: math.h:26
#define LOCALE_USER_DEFAULT
WINE_DEFAULT_DEBUG_CHANNEL(msi)
GLuint GLuint GLsizei GLenum type
Definition: gl.h:1545
static HRESULT WINAPI MsiActiveScriptSite_OnStateChange(IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
Definition: script.c:169
DWORD LCID
Definition: nls.h:13
OLECHAR * BSTR
Definition: compat.h:1934
HRESULT WINAPI DECLSPEC_HOTPATCH CLSIDFromProgID(LPCOLESTR progid, LPCLSID clsid)
Definition: compobj.c:2602
int32_t INT
Definition: typedefs.h:56
Definition: send.c:47
unsigned long MSIHANDLE
Definition: msiserver.idl:25
static HRESULT WINAPI MsiActiveScriptSite_OnScriptTerminate(IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
Definition: script.c:162
#define V_I4(A)
Definition: oleauto.h:247
#define DISPATCH_METHOD
Definition: oleauto.h:1006
HRESULT create_session(MSIHANDLE msiHandle, IDispatch *installer, IDispatch **disp)
Definition: automation.c:2468
HRESULT create_msiserver(IUnknown *outer, void **ppObj)
Definition: automation.c:2443
#define E_OUTOFMEMORY
Definition: ddrawi.h:100
long LONG
Definition: pedump.c:60
#define debugstr_w
Definition: kernel32.h:32
GLenum GLint ref
Definition: glext.h:6028
static HRESULT WINAPI MsiActiveScriptSite_GetDocVersionString(IActiveScriptSite *iface, BSTR *pbstrVersion)
Definition: script.c:155
#define E_INVALIDARG
Definition: ddrawi.h:101
static HRESULT create_activescriptsite(MsiActiveScriptSite **obj)
Definition: script.c:254
smooth NULL
Definition: ftsmooth.c:416
script
Definition: msipriv.h:374
static UINT map_return_value(LONG val)
Definition: script.c:276
HRESULT get_typeinfo(enum type_id tid, ITypeInfo **ret)
Definition: apps.c:124
static HRESULT WINAPI MsiActiveScriptSite_GetLCID(IActiveScriptSite *iface, LCID *plcid)
Definition: script.c:115
#define debugstr_guid
Definition: kernel32.h:35
PFLT_MESSAGE_WAITER_QUEUE CONTAINING_RECORD(Csq, DEVICE_EXTENSION, IrpQueue)) -> WaiterQ.mLock) _IRQL_raises_(DISPATCH_LEVEL) VOID NTAPI FltpAcquireMessageWaiterLock(_In_ PIO_CSQ Csq, _Out_ PKIRQL Irql)
Definition: Messaging.c:560
DWORD call_script(MSIHANDLE hPackage, INT type, LPCWSTR script, LPCWSTR function, LPCWSTR action)
Definition: script.c:293
#define ERROR_INSTALL_USEREXIT
Definition: winerror.h:960
GLuint GLfloat * val
Definition: glext.h:7180
static HRESULT WINAPI MsiActiveScriptSite_OnEnterScript(IActiveScriptSite *iface)
Definition: script.c:225
#define TRACE(s)
Definition: solgame.cpp:4
__wchar_t WCHAR
Definition: xmlstorage.h:180
LONG HRESULT
Definition: typedefs.h:77
const GUID IID_IUnknown
#define ERROR_INSTALL_FAILURE
Definition: winerror.h:961
#define WINAPI
Definition: msvc.h:8
#define IActiveScriptParse_ParseScriptText
Definition: script.c:49
#define IActiveScriptParse_InitNew
Definition: script.c:48
unsigned long DWORD
Definition: ntddk_ex.h:95
IDispatch * session
Definition: script.c:63
#define IDRETRY
Definition: winuser.h:827
int ret
REFCLSID clsid
Definition: msctf.c:82
HRESULT WINAPI DECLSPEC_HOTPATCH VariantClear(VARIANTARG *pVarg)
Definition: variant.c:651
static const WCHAR L[]
Definition: oid.c:1250
#define IID_NULL
Definition: guiddef.h:98
#define InterlockedDecrement
Definition: armddk.h:52
IActiveScriptSite IActiveScriptSite_iface
Definition: script.c:61
IDispatch * installer
Definition: script.c:62
HRESULT WINAPI DECLSPEC_HOTPATCH CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID iid, LPVOID *ppv)
Definition: compobj.c:3325
static const struct IActiveScriptSiteVtbl activescriptsitevtbl
Definition: script.c:239
static HRESULT WINAPI MsiActiveScriptSite_QueryInterface(IActiveScriptSite *iface, REFIID riid, void **obj)
Definition: script.c:75
#define ERR(fmt,...)
Definition: debug.h:109
#define ERROR_INSTALL_SUSPEND
Definition: winerror.h:962
struct stdole::EXCEPINFO EXCEPINFO
static VARIANTARG static DISPID
Definition: ordinal.c:49
#define S_OK
Definition: intsafe.h:59
const WCHAR * action
Definition: action.c:7783
#define InterlockedIncrement
Definition: armddk.h:53
void WINAPI DECLSPEC_HOTPATCH CoUninitialize(void)
Definition: compobj.c:2067
static const WCHAR szSession[]
Definition: script.c:55
#define E_NOTIMPL
Definition: ddrawi.h:99
SCRIPTPROP_ABBREVIATE_GLOBALNAME_RESOLUTION enum tagSCRIPTSTATE SCRIPTSTATE
static HRESULT WINAPI MsiActiveScriptSite_GetItemInfo(IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
Definition: script.c:122
void WINAPI DECLSPEC_HOTPATCH SysFreeString(BSTR str)
Definition: oleaut.c:274
unsigned int UINT
Definition: ndis.h:50
BOOL WINAPI IsEqualGUID(REFGUID rguid1, REFGUID rguid2)
Definition: compobj.c:4112
HRESULT WINAPI CoInitialize(LPVOID lpReserved)
Definition: compobj.c:1964
static BOOL msi_free(void *mem)
Definition: msipriv.h:1227
WINE_UNICODE_INLINE int strcmpW(const WCHAR *str1, const WCHAR *str2)
Definition: unicode.h:229
struct stdole::DISPPARAMS DISPPARAMS
static MsiActiveScriptSite * impl_from_IActiveScriptSite(IActiveScriptSite *iface)
Definition: script.c:67
#define TYPE_E_ELEMENTNOTFOUND
Definition: winerror.h:2539
static void * msi_alloc(size_t len) __WINE_ALLOC_SIZE(1)
Definition: msipriv.h:1204
unsigned int ULONG
Definition: retypes.h:1
#define IDCANCEL
Definition: winuser.h:825
#define memset(x, y, z)
Definition: compat.h:39
void * object
Definition: jmemsys.h:48
#define IDIGNORE
Definition: winuser.h:828
#define SUCCEEDED(hr)
Definition: intsafe.h:57