reactos/dll/win32/msi/script.c

   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 WIN32_NO_STATUS
  22 #define _INC_WINDOWS
  23 #define COM_NO_WINDOWS_H
  24
  25 #define COBJMACROS
  26
  27 #include <stdarg.h>
  28 #include <windef.h>
  29 //#include "winbase.h"
  30 //#include "winerror.h"
  31 //#include "winuser.h"
  32 //#include "msidefs.h"
  33 #include "msipriv.h"
  34 #include <activscp.h>
  35 #include <oleauto.h>
  36 #include <wine/debug.h>
  37 #include <wine/unicode.h>
  38
  39 //#include "msiserver.h"
  40
  41 WINE_DEFAULT_DEBUG_CHANNEL(msi);
  42
  43 #ifdef _WIN64
  44
  45 #define IActiveScriptParse_Release IActiveScriptParse64_Release
  46 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
  47 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
  48
  49 #else
  50
  51 #define IActiveScriptParse_Release IActiveScriptParse32_Release
  52 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
  53 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
  54
  55 #endif
  56
  57 static const WCHAR szJScript[] = { 'J','S','c','r','i','p','t',0};
  58 static const WCHAR szVBScript[] = { 'V','B','S','c','r','i','p','t',0};
  59 static const WCHAR szSession[] = {'S','e','s','s','i','o','n',0};
  60
  61 /*
  62  * MsiActiveScriptSite - Our IActiveScriptSite implementation.
  63  */
  64 typedef struct {
  65     IActiveScriptSite IActiveScriptSite_iface;
  66     IDispatch *installer;
  67     IDispatch *session;
  68     LONG ref;
  69 } MsiActiveScriptSite;
  70
  71 static inline MsiActiveScriptSite *impl_from_IActiveScriptSite( IActiveScriptSite *iface )
  72 {
  73     return CONTAINING_RECORD(iface, MsiActiveScriptSite, IActiveScriptSite_iface);
  74 }
  75
  76 /*
  77  * MsiActiveScriptSite
  78  */
  79 static HRESULT WINAPI MsiActiveScriptSite_QueryInterface(IActiveScriptSite* iface, REFIID riid, void** obj)
  80 {
  81     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
  82
  83     TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), obj);
  84
  85     if (IsEqualGUID(riid, &IID_IUnknown) ||
  86         IsEqualGUID(riid, &IID_IActiveScriptSite))
  87     {
  88         IActiveScriptSite_AddRef(iface);
  89         *obj = iface;
  90         return S_OK;
  91     }
  92
  93     *obj = NULL;
  94
  95     return E_NOINTERFACE;
  96 }
  97
  98 static ULONG WINAPI MsiActiveScriptSite_AddRef(IActiveScriptSite* iface)
  99 {
 100     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 101     ULONG ref = InterlockedIncrement(&This->ref);
 102     TRACE("(%p)->(%d)\n", This, ref);
 103     return ref;
 104 }
 105
 106 static ULONG WINAPI MsiActiveScriptSite_Release(IActiveScriptSite* iface)
 107 {
 108     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 109     ULONG ref = InterlockedDecrement(&This->ref);
 110
 111     TRACE("(%p)->(%d)\n", This, ref);
 112
 113     if (!ref)
 114         msi_free(This);
 115
 116     return ref;
 117 }
 118
 119 static HRESULT WINAPI MsiActiveScriptSite_GetLCID(IActiveScriptSite* iface, LCID* plcid)
 120 {
 121     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 122     TRACE("(%p)->(%p)\n", This, plcid);
 123     return E_NOTIMPL;  /* Script will use system-defined locale */
 124 }
 125
 126 static HRESULT WINAPI MsiActiveScriptSite_GetItemInfo(IActiveScriptSite* iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown** ppiunkItem, ITypeInfo** ppti)
 127 {
 128     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 129
 130     TRACE("(%p)->(%p, %d, %p, %p)\n", This, pstrName, dwReturnMask, ppiunkItem, ppti);
 131
 132     /* Determine the kind of pointer that is requested, and make sure placeholder is valid */
 133     if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
 134         if (!ppti) return E_INVALIDARG;
 135         *ppti = NULL;
 136     }
 137     if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
 138         if (!ppiunkItem) return E_INVALIDARG;
 139         *ppiunkItem = NULL;
 140     }
 141
 142     /* Are we looking for the session object? */
 143     if (!strcmpW(szSession, pstrName)) {
 144         if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
 145             HRESULT hr = get_typeinfo(Session_tid, ppti);
 146             if (SUCCEEDED(hr))
 147                 ITypeInfo_AddRef(*ppti);
 148             return hr;
 149         }
 150         else if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
 151             IDispatch_QueryInterface(This->session, &IID_IUnknown, (void **)ppiunkItem);
 152             return S_OK;
 153         }
 154     }
 155
 156     return TYPE_E_ELEMENTNOTFOUND;
 157 }
 158
 159 static HRESULT WINAPI MsiActiveScriptSite_GetDocVersionString(IActiveScriptSite* iface, BSTR* pbstrVersion)
 160 {
 161     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 162     TRACE("(%p)->(%p)\n", This, pbstrVersion);
 163     return E_NOTIMPL;
 164 }
 165
 166 static HRESULT WINAPI MsiActiveScriptSite_OnScriptTerminate(IActiveScriptSite* iface, const VARIANT* pvarResult, const EXCEPINFO* pexcepinfo)
 167 {
 168     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 169     TRACE("(%p)->(%p, %p)\n", This, pvarResult, pexcepinfo);
 170     return S_OK;
 171 }
 172
 173 static HRESULT WINAPI MsiActiveScriptSite_OnStateChange(IActiveScriptSite* iface, SCRIPTSTATE ssScriptState)
 174 {
 175     switch (ssScriptState) {
 176         case SCRIPTSTATE_UNINITIALIZED:
 177               TRACE("State: Uninitialized.\n");
 178               break;
 179
 180         case SCRIPTSTATE_INITIALIZED:
 181               TRACE("State: Initialized.\n");
 182               break;
 183
 184         case SCRIPTSTATE_STARTED:
 185               TRACE("State: Started.\n");
 186               break;
 187
 188         case SCRIPTSTATE_CONNECTED:
 189               TRACE("State: Connected.\n");
 190               break;
 191
 192         case SCRIPTSTATE_DISCONNECTED:
 193               TRACE("State: Disconnected.\n");
 194               break;
 195
 196         case SCRIPTSTATE_CLOSED:
 197               TRACE("State: Closed.\n");
 198               break;
 199
 200         default:
 201               ERR("Unknown State: %d\n", ssScriptState);
 202               break;
 203     }
 204
 205     return S_OK;
 206 }
 207
 208 static HRESULT WINAPI MsiActiveScriptSite_OnScriptError(IActiveScriptSite* iface, IActiveScriptError* pscripterror)
 209 {
 210     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 211     EXCEPINFO exception;
 212     HRESULT hr;
 213
 214     TRACE("(%p)->(%p)\n", This, pscripterror);
 215
 216     memset(&exception, 0, sizeof(EXCEPINFO));
 217     hr = IActiveScriptError_GetExceptionInfo(pscripterror, &exception);
 218     if (SUCCEEDED(hr))
 219     {
 220         ERR("script error: %s\n", debugstr_w(exception.bstrDescription));
 221         SysFreeString(exception.bstrSource);
 222         SysFreeString(exception.bstrDescription);
 223         SysFreeString(exception.bstrHelpFile);
 224     }
 225
 226     return S_OK;
 227 }
 228
 229 static HRESULT WINAPI MsiActiveScriptSite_OnEnterScript(IActiveScriptSite* iface)
 230 {
 231     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 232     TRACE("(%p)\n", This);
 233     return S_OK;
 234 }
 235
 236 static HRESULT WINAPI MsiActiveScriptSite_OnLeaveScript(IActiveScriptSite* iface)
 237 {
 238     MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
 239     TRACE("(%p)\n", This);
 240     return S_OK;
 241 }
 242
 243 static const struct IActiveScriptSiteVtbl activescriptsitevtbl =
 244 {
 245     MsiActiveScriptSite_QueryInterface,
 246     MsiActiveScriptSite_AddRef,
 247     MsiActiveScriptSite_Release,
 248     MsiActiveScriptSite_GetLCID,
 249     MsiActiveScriptSite_GetItemInfo,
 250     MsiActiveScriptSite_GetDocVersionString,
 251     MsiActiveScriptSite_OnScriptTerminate,
 252     MsiActiveScriptSite_OnStateChange,
 253     MsiActiveScriptSite_OnScriptError,
 254     MsiActiveScriptSite_OnEnterScript,
 255     MsiActiveScriptSite_OnLeaveScript
 256 };
 257
 258 static HRESULT create_activescriptsite(MsiActiveScriptSite **obj)
 259 {
 260     MsiActiveScriptSite* object;
 261
 262     TRACE("(%p)\n", obj);
 263
 264     *obj = NULL;
 265
 266     object = msi_alloc( sizeof(MsiActiveScriptSite) );
 267     if (!object)
 268         return E_OUTOFMEMORY;
 269
 270     object->IActiveScriptSite_iface.lpVtbl = &activescriptsitevtbl;
 271     object->ref = 1;
 272     object->installer = NULL;
 273     object->session = NULL;
 274
 275     *obj = object;
 276
 277     return S_OK;
 278 }
 279
 280 /*
 281  * Call a script.
 282  */
 283 DWORD call_script(MSIHANDLE hPackage, INT type, LPCWSTR script, LPCWSTR function, LPCWSTR action)
 284 {
 285     HRESULT hr;
 286     IActiveScript *pActiveScript = NULL;
 287     IActiveScriptParse *pActiveScriptParse = NULL;
 288     MsiActiveScriptSite *scriptsite;
 289     IDispatch *pDispatch = NULL;
 290     DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
 291     DISPID dispid;
 292     CLSID clsid;
 293     VARIANT var;
 294     DWORD ret = ERROR_INSTALL_FAILURE;
 295
 296     CoInitialize(NULL);
 297
 298     /* Create MsiActiveScriptSite object */
 299     hr = create_activescriptsite(&scriptsite);
 300     if (hr != S_OK) goto done;
 301
 302     /* Create an installer object */
 303     hr = create_msiserver(NULL, (void**)&scriptsite->installer);
 304     if (hr != S_OK) goto done;
 305
 306     /* Create a session object */
 307     hr = create_session(hPackage, scriptsite->installer, &scriptsite->session);
 308     if (hr != S_OK) goto done;
 309
 310     /* Create the scripting engine */
 311     type &= msidbCustomActionTypeJScript|msidbCustomActionTypeVBScript;
 312     if (type == msidbCustomActionTypeJScript)
 313         hr = CLSIDFromProgID(szJScript, &clsid);
 314     else if (type == msidbCustomActionTypeVBScript)
 315         hr = CLSIDFromProgID(szVBScript, &clsid);
 316     else {
 317         ERR("Unknown script type %d\n", type);
 318         goto done;
 319     }
 320     if (FAILED(hr)) {
 321         ERR("Could not find CLSID for Windows Script\n");
 322         goto done;
 323     }
 324     hr = CoCreateInstance(&clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IActiveScript, (void **)&pActiveScript);
 325     if (FAILED(hr)) {
 326         ERR("Could not instantiate class for Windows Script\n");
 327         goto done;
 328     }
 329
 330     hr = IActiveScript_QueryInterface(pActiveScript, &IID_IActiveScriptParse, (void **)&pActiveScriptParse);
 331     if (FAILED(hr)) goto done;
 332
 333     hr = IActiveScript_SetScriptSite(pActiveScript, &scriptsite->IActiveScriptSite_iface);
 334     if (FAILED(hr)) goto done;
 335
 336     hr = IActiveScriptParse_InitNew(pActiveScriptParse);
 337     if (FAILED(hr)) goto done;
 338
 339     hr = IActiveScript_AddNamedItem(pActiveScript, szSession, SCRIPTITEM_GLOBALMEMBERS|SCRIPTITEM_ISVISIBLE);
 340     if (FAILED(hr)) goto done;
 341
 342     hr = IActiveScriptParse_ParseScriptText(pActiveScriptParse, script, NULL, NULL, NULL, 0, 0, 0L, NULL, NULL);
 343     if (FAILED(hr)) goto done;
 344
 345     hr = IActiveScript_SetScriptState(pActiveScript, SCRIPTSTATE_CONNECTED);
 346     if (FAILED(hr)) goto done;
 347
 348     /* Call a function if necessary through the IDispatch interface */
 349     if (function != NULL && strlenW(function) > 0) {
 350         TRACE("Calling function %s\n", debugstr_w(function));
 351
 352         hr = IActiveScript_GetScriptDispatch(pActiveScript, NULL, &pDispatch);
 353         if (FAILED(hr)) goto done;
 354
 355         hr = IDispatch_GetIDsOfNames(pDispatch, &IID_NULL, (WCHAR **)&function, 1,LOCALE_USER_DEFAULT, &dispid);
 356         if (FAILED(hr)) goto done;
 357
 358         hr = IDispatch_Invoke(pDispatch, dispid, &IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispparamsNoArgs, &var, NULL, NULL);
 359         if (FAILED(hr)) goto done;
 360
 361         /* Check return value, if it's not IDOK we failed */
 362         hr = VariantChangeType(&var, &var, 0, VT_I4);
 363         if (FAILED(hr)) goto done;
 364
 365         if (V_I4(&var) == IDOK)
 366             ret = ERROR_SUCCESS;
 367         else ret = ERROR_INSTALL_FAILURE;
 368
 369         VariantClear(&var);
 370     } else {
 371         /* If no function to be called, MSI behavior is to succeed */
 372         ret = ERROR_SUCCESS;
 373     }
 374
 375 done:
 376
 377     if (pDispatch) IDispatch_Release(pDispatch);
 378     if (pActiveScript) IActiveScript_Release(pActiveScript);
 379     if (pActiveScriptParse) IActiveScriptParse_Release(pActiveScriptParse);
 380     if (scriptsite)
 381     {
 382         if (scriptsite->session) IDispatch_Release(scriptsite->session);
 383         if (scriptsite->installer) IDispatch_Release(scriptsite->installer);
 384         IActiveScriptSite_Release(&scriptsite->IActiveScriptSite_iface);
 385     }
 386     CoUninitialize();    /* must call even if CoInitialize failed */
 387     return ret;
 388 }