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