script.c File Reference

#include <stdarg.h>
#include "windef.h"
#include "winbase.h"
#include "winerror.h"
#include "winuser.h"
#include "msidefs.h"
#include "msipriv.h"
#include "activscp.h"
#include "oleauto.h"
#include "wine/debug.h"
#include "msiserver.h"

Include dependency graph for script.c:

Go to the source code of this file.

Classes
struct	MsiActiveScriptSite

Macros
#define	COBJMACROS
#define	IActiveScriptParse_Release   IActiveScriptParse32_Release
#define	IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew
#define	IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Functions
	WINE_DEFAULT_DEBUG_CHANNEL (msi)
static MsiActiveScriptSite *	impl_from_IActiveScriptSite (IActiveScriptSite *iface)
static HRESULT WINAPI	MsiActiveScriptSite_QueryInterface (IActiveScriptSite *iface, REFIID riid, void **obj)
static ULONG WINAPI	MsiActiveScriptSite_AddRef (IActiveScriptSite *iface)
static ULONG WINAPI	MsiActiveScriptSite_Release (IActiveScriptSite *iface)
static HRESULT WINAPI	MsiActiveScriptSite_GetLCID (IActiveScriptSite *iface, LCID *plcid)
static HRESULT WINAPI	MsiActiveScriptSite_GetItemInfo (IActiveScriptSite *iface, LPCOLESTR pstrName, DWORD dwReturnMask, IUnknown **ppiunkItem, ITypeInfo **ppti)
static HRESULT WINAPI	MsiActiveScriptSite_GetDocVersionString (IActiveScriptSite *iface, BSTR *pbstrVersion)
static HRESULT WINAPI	MsiActiveScriptSite_OnScriptTerminate (IActiveScriptSite *iface, const VARIANT *pvarResult, const EXCEPINFO *pexcepinfo)
static HRESULT WINAPI	MsiActiveScriptSite_OnStateChange (IActiveScriptSite *iface, SCRIPTSTATE ssScriptState)
static HRESULT WINAPI	MsiActiveScriptSite_OnScriptError (IActiveScriptSite *iface, IActiveScriptError *pscripterror)
static HRESULT WINAPI	MsiActiveScriptSite_OnEnterScript (IActiveScriptSite *iface)
static HRESULT WINAPI	MsiActiveScriptSite_OnLeaveScript (IActiveScriptSite *iface)
static HRESULT	create_activescriptsite (MsiActiveScriptSite **obj)
static UINT	map_return_value (LONG val)
DWORD	call_script (MSIHANDLE hPackage, INT type, LPCWSTR script, LPCWSTR function, LPCWSTR action)

Variables
static const struct IActiveScriptSiteVtbl	activescriptsitevtbl

Macro Definition Documentation

COBJMACROS

#define COBJMACROS

Definition at line 21 of file script.c.

IActiveScriptParse_InitNew

#define IActiveScriptParse_InitNew   IActiveScriptParse32_InitNew

Definition at line 47 of file script.c.

IActiveScriptParse_ParseScriptText

#define IActiveScriptParse_ParseScriptText   IActiveScriptParse32_ParseScriptText

Definition at line 48 of file script.c.

IActiveScriptParse_Release

#define IActiveScriptParse_Release   IActiveScriptParse32_Release

Definition at line 46 of file script.c.

Function Documentation

call_script()

DWORD call_script	(	MSIHANDLE	hPackage,
		INT	type,
		LPCWSTR	script,
		LPCWSTR	function,
		LPCWSTR	action
	)

Definition at line 288 of file script.c.

{
    HRESULT hr;
    IActiveScript *pActiveScript = NULL;
    IActiveScriptParse *pActiveScriptParse = NULL;
    MsiActiveScriptSite *scriptsite;
    IDispatch *pDispatch = NULL;
    DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
    DISPID dispid;
    CLSID clsid;
    VARIANT var;
    DWORD ret = ERROR_INSTALL_FAILURE;

    CoInitialize(NULL);

    /* Create MsiActiveScriptSite object */
    hr = create_activescriptsite(&scriptsite);
    if (hr != S_OK) goto done;

    /* Create an installer object */
    hr = create_msiserver(NULL, (void**)&scriptsite->installer);
    if (hr != S_OK) goto done;

    /* Create a session object */
    hr = create_session(hPackage, scriptsite->installer, &scriptsite->session);
    if (hr != S_OK) goto done;

    /* Create the scripting engine */
    type &= msidbCustomActionTypeJScript|msidbCustomActionTypeVBScript;
    if (type == msidbCustomActionTypeJScript)
        hr = CLSIDFromProgID(L"JScript", &clsid);
    else if (type == msidbCustomActionTypeVBScript)
        hr = CLSIDFromProgID(L"VBScript", &clsid);
    else {
        ERR("Unknown script type %d\n", type);
        goto done;
    }
    if (FAILED(hr)) {
        ERR("Could not find CLSID for Windows Script\n");
        goto done;
    }
    hr = CoCreateInstance(&clsid, NULL, CLSCTX_INPROC_SERVER, &IID_IActiveScript, (void **)&pActiveScript);
    if (FAILED(hr)) {
        ERR("Could not instantiate class for Windows Script\n");
        goto done;
    }

    hr = IActiveScript_QueryInterface(pActiveScript, &IID_IActiveScriptParse, (void **)&pActiveScriptParse);
    if (FAILED(hr)) goto done;

    hr = IActiveScript_SetScriptSite(pActiveScript, &scriptsite->IActiveScriptSite_iface);
    if (FAILED(hr)) goto done;

    hr = IActiveScriptParse_InitNew(pActiveScriptParse);
    if (FAILED(hr)) goto done;

    hr = IActiveScript_AddNamedItem(pActiveScript, L"Session", SCRIPTITEM_GLOBALMEMBERS|SCRIPTITEM_ISVISIBLE);
    if (FAILED(hr)) goto done;

    hr = IActiveScriptParse_ParseScriptText(pActiveScriptParse, script, NULL, NULL, NULL, 0, 0, 0L, NULL, NULL);
    if (FAILED(hr)) goto done;

    hr = IActiveScript_SetScriptState(pActiveScript, SCRIPTSTATE_CONNECTED);
    if (FAILED(hr)) goto done;

    /* Call a function if necessary through the IDispatch interface */
    if (function && function[0]) {
        TRACE("Calling function %s\n", debugstr_w(function));

        hr = IActiveScript_GetScriptDispatch(pActiveScript, NULL, &pDispatch);
        if (FAILED(hr)) goto done;

        hr = IDispatch_GetIDsOfNames(pDispatch, &IID_NULL, (WCHAR **)&function, 1,LOCALE_USER_DEFAULT, &dispid);
        if (FAILED(hr)) goto done;

        hr = IDispatch_Invoke(pDispatch, dispid, &IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispparamsNoArgs, &var, NULL, NULL);
        if (FAILED(hr)) goto done;

        hr = VariantChangeType(&var, &var, 0, VT_I4);
        if (FAILED(hr)) goto done;

        ret = map_return_value(V_I4(&var));

        VariantClear(&var);
    } else {
        /* If no function to be called, MSI behavior is to succeed */
        ret = ERROR_SUCCESS;
    }

done:

    if (pDispatch) IDispatch_Release(pDispatch);
    if (pActiveScript) IActiveScript_Release(pActiveScript);
    if (pActiveScriptParse) IActiveScriptParse_Release(pActiveScriptParse);
    if (scriptsite)
    {
        if (scriptsite->session) IDispatch_Release(scriptsite->session);
        if (scriptsite->installer) IDispatch_Release(scriptsite->installer);
        IActiveScriptSite_Release(&scriptsite->IActiveScriptSite_iface);
    }
    CoUninitialize();    /* must call even if CoInitialize failed */
    return ret;
}

Referenced by ACTION_CallScript().

create_activescriptsite()

static HRESULT create_activescriptsite ( MsiActiveScriptSite **  obj )

static

Definition at line 249 of file script.c.

{
    MsiActiveScriptSite* object;

    TRACE("(%p)\n", obj);

    *obj = NULL;

    object = msi_alloc( sizeof(MsiActiveScriptSite) );
    if (!object)
        return E_OUTOFMEMORY;

    object->IActiveScriptSite_iface.lpVtbl = &activescriptsitevtbl;
    object->ref = 1;
    object->installer = NULL;
    object->session = NULL;

    *obj = object;

    return S_OK;
}

Referenced by call_script().

impl_from_IActiveScriptSite()

static MsiActiveScriptSite* impl_from_IActiveScriptSite ( IActiveScriptSite *  iface )

inlinestatic

Definition at line 62 of file script.c.

{
    return CONTAINING_RECORD(iface, MsiActiveScriptSite, IActiveScriptSite_iface);
}

Referenced by MsiActiveScriptSite_AddRef(), MsiActiveScriptSite_GetDocVersionString(), MsiActiveScriptSite_GetItemInfo(), MsiActiveScriptSite_GetLCID(), MsiActiveScriptSite_OnEnterScript(), MsiActiveScriptSite_OnLeaveScript(), MsiActiveScriptSite_OnScriptError(), MsiActiveScriptSite_OnScriptTerminate(), MsiActiveScriptSite_QueryInterface(), and MsiActiveScriptSite_Release().

map_return_value()

static UINT map_return_value ( LONG  val )

static

Definition at line 271 of file script.c.

{
    switch (val)
    {
    case 0:
    case IDOK:
    case IDIGNORE:  return ERROR_SUCCESS;
    case IDCANCEL:  return ERROR_INSTALL_USEREXIT;
    case IDRETRY:   return ERROR_INSTALL_SUSPEND;
    case IDABORT:
    default:        return ERROR_INSTALL_FAILURE;
    }
}

Referenced by call_script().

MsiActiveScriptSite_AddRef()

static ULONG WINAPI MsiActiveScriptSite_AddRef ( IActiveScriptSite *  iface )

static

Definition at line 89 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    ULONG ref = InterlockedIncrement(&This->ref);
    TRACE( "(%p)->(%lu)\n", This, ref );
    return ref;
}

MsiActiveScriptSite_GetDocVersionString()

static HRESULT WINAPI MsiActiveScriptSite_GetDocVersionString ( IActiveScriptSite *  iface, BSTR *  pbstrVersion  )

static

Definition at line 150 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    TRACE("(%p)->(%p)\n", This, pbstrVersion);
    return E_NOTIMPL;
}

MsiActiveScriptSite_GetItemInfo()

static HRESULT WINAPI MsiActiveScriptSite_GetItemInfo ( IActiveScriptSite *  iface, LPCOLESTR  pstrName, DWORD  dwReturnMask, IUnknown **  ppiunkItem, ITypeInfo **  ppti  )

static

Definition at line 117 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);

    TRACE( "(%p)->(%p, %lu, %p, %p)\n", This, pstrName, dwReturnMask, ppiunkItem, ppti );

    /* Determine the kind of pointer that is requested, and make sure placeholder is valid */
    if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
        if (!ppti) return E_INVALIDARG;
        *ppti = NULL;
    }
    if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
        if (!ppiunkItem) return E_INVALIDARG;
        *ppiunkItem = NULL;
    }

    /* Are we looking for the session object? */
    if (!wcscmp(L"Session", pstrName)) {
        if (dwReturnMask & SCRIPTINFO_ITYPEINFO) {
            HRESULT hr = get_typeinfo(Session_tid, ppti);
            if (SUCCEEDED(hr))
                ITypeInfo_AddRef(*ppti);
            return hr;
        }
        else if (dwReturnMask & SCRIPTINFO_IUNKNOWN) {
            IDispatch_QueryInterface(This->session, &IID_IUnknown, (void **)ppiunkItem);
            return S_OK;
        }
    }

    return TYPE_E_ELEMENTNOTFOUND;
}

MsiActiveScriptSite_GetLCID()

static HRESULT WINAPI MsiActiveScriptSite_GetLCID ( IActiveScriptSite *  iface, LCID *  plcid  )

static

Definition at line 110 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    TRACE("(%p)->(%p)\n", This, plcid);
    return E_NOTIMPL;  /* Script will use system-defined locale */
}

MsiActiveScriptSite_OnEnterScript()

static HRESULT WINAPI MsiActiveScriptSite_OnEnterScript ( IActiveScriptSite *  iface )

static

Definition at line 220 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    TRACE("(%p)\n", This);
    return S_OK;
}

MsiActiveScriptSite_OnLeaveScript()

static HRESULT WINAPI MsiActiveScriptSite_OnLeaveScript ( IActiveScriptSite *  iface )

static

Definition at line 227 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    TRACE("(%p)\n", This);
    return S_OK;
}

MsiActiveScriptSite_OnScriptError()

static HRESULT WINAPI MsiActiveScriptSite_OnScriptError ( IActiveScriptSite *  iface, IActiveScriptError *  pscripterror  )

static

Definition at line 199 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    EXCEPINFO exception;
    HRESULT hr;

    TRACE("(%p)->(%p)\n", This, pscripterror);

    memset(&exception, 0, sizeof(EXCEPINFO));
    hr = IActiveScriptError_GetExceptionInfo(pscripterror, &exception);
    if (SUCCEEDED(hr))
    {
        ERR("script error: %s\n", debugstr_w(exception.bstrDescription));
        SysFreeString(exception.bstrSource);
        SysFreeString(exception.bstrDescription);
        SysFreeString(exception.bstrHelpFile);
    }

    return S_OK;
}

MsiActiveScriptSite_OnScriptTerminate()

static HRESULT WINAPI MsiActiveScriptSite_OnScriptTerminate ( IActiveScriptSite *  iface, const VARIANT *  pvarResult, const EXCEPINFO *  pexcepinfo  )

static

Definition at line 157 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    TRACE("(%p)->(%p, %p)\n", This, pvarResult, pexcepinfo);
    return S_OK;
}

MsiActiveScriptSite_OnStateChange()

static HRESULT WINAPI MsiActiveScriptSite_OnStateChange ( IActiveScriptSite *  iface, SCRIPTSTATE  ssScriptState  )

static

Definition at line 164 of file script.c.

{
    switch (ssScriptState) {
        case SCRIPTSTATE_UNINITIALIZED:
              TRACE("State: Uninitialized.\n");
              break;

        case SCRIPTSTATE_INITIALIZED:
              TRACE("State: Initialized.\n");
              break;

        case SCRIPTSTATE_STARTED:
              TRACE("State: Started.\n");
              break;

        case SCRIPTSTATE_CONNECTED:
              TRACE("State: Connected.\n");
              break;

        case SCRIPTSTATE_DISCONNECTED:
              TRACE("State: Disconnected.\n");
              break;

        case SCRIPTSTATE_CLOSED:
              TRACE("State: Closed.\n");
              break;

        default:
              ERR("Unknown State: %d\n", ssScriptState);
              break;
    }

    return S_OK;
}

MsiActiveScriptSite_QueryInterface()

static HRESULT WINAPI MsiActiveScriptSite_QueryInterface ( IActiveScriptSite *  iface, REFIID  riid, void **  obj  )

static

Definition at line 70 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);

    TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), obj);

    if (IsEqualGUID(riid, &IID_IUnknown) ||
        IsEqualGUID(riid, &IID_IActiveScriptSite))
    {
        IActiveScriptSite_AddRef(iface);
        *obj = iface;
        return S_OK;
    }

    *obj = NULL;

    return E_NOINTERFACE;
}

MsiActiveScriptSite_Release()

static ULONG WINAPI MsiActiveScriptSite_Release ( IActiveScriptSite *  iface )

static

Definition at line 97 of file script.c.

{
    MsiActiveScriptSite *This = impl_from_IActiveScriptSite(iface);
    ULONG ref = InterlockedDecrement(&This->ref);

    TRACE( "(%p)->(%lu)\n", This, ref );

    if (!ref)
        msi_free(This);

    return ref;
}

WINE_DEFAULT_DEBUG_CHANNEL()

WINE_DEFAULT_DEBUG_CHANNEL

(

msi

)

Variable Documentation

activescriptsitevtbl

const struct IActiveScriptSiteVtbl activescriptsitevtbl

static

Initial value:

=
{
    MsiActiveScriptSite_QueryInterface,
    MsiActiveScriptSite_AddRef,
    MsiActiveScriptSite_Release,
    MsiActiveScriptSite_GetLCID,
    MsiActiveScriptSite_GetItemInfo,
    MsiActiveScriptSite_GetDocVersionString,
    MsiActiveScriptSite_OnScriptTerminate,
    MsiActiveScriptSite_OnStateChange,
    MsiActiveScriptSite_OnScriptError,
    MsiActiveScriptSite_OnEnterScript,
    MsiActiveScriptSite_OnLeaveScript
}

Definition at line 234 of file script.c.

Referenced by create_activescriptsite().