292 IActiveScriptParse *pActiveScriptParse =
NULL;
305 if (
hr !=
S_OK)
goto done;
309 if (
hr !=
S_OK)
goto done;
313 if (
hr !=
S_OK)
goto done;
322 ERR(
"Unknown script type %d\n",
type);
326 ERR(
"Could not find CLSID for Windows Script\n");
331 ERR(
"Could not instantiate class for Windows Script\n");
335 hr = IActiveScript_QueryInterface(pActiveScript, &IID_IActiveScriptParse, (
void **)&pActiveScriptParse);
344 hr = IActiveScript_AddNamedItem(pActiveScript,
L"Session", SCRIPTITEM_GLOBALMEMBERS|SCRIPTITEM_ISVISIBLE);
354 if (
function &&
function[0]) {
357 hr = IActiveScript_GetScriptDispatch(pActiveScript,
NULL, &pDispatch);
379 if (pDispatch) IDispatch_Release(pDispatch);
380 if (pActiveScript) IActiveScript_Release(pActiveScript);
HRESULT WINAPI DECLSPEC_HOTPATCH VariantChangeType(VARIANTARG *pvargDest, VARIANTARG *pvargSrc, USHORT wFlags, VARTYPE vt)
#define IActiveScriptParse_Release
#define LOCALE_USER_DEFAULT
HRESULT WINAPI DECLSPEC_HOTPATCH CLSIDFromProgID(LPCOLESTR progid, LPCLSID clsid)
HRESULT create_session(MSIHANDLE msiHandle, IDispatch *installer, IDispatch **disp)
HRESULT create_msiserver(IUnknown *outer, void **ppObj)
static HRESULT create_activescriptsite(MsiActiveScriptSite **obj)
static UINT map_return_value(LONG val)
#define ERROR_INSTALL_FAILURE
#define IActiveScriptParse_ParseScriptText
#define IActiveScriptParse_InitNew
HRESULT WINAPI DECLSPEC_HOTPATCH VariantClear(VARIANTARG *pVarg)
IActiveScriptSite IActiveScriptSite_iface
HRESULT WINAPI DECLSPEC_HOTPATCH CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID iid, LPVOID *ppv)
static VARIANTARG static DISPID
void WINAPI DECLSPEC_HOTPATCH CoUninitialize(void)
HRESULT WINAPI CoInitialize(LPVOID lpReserved)
struct stdole::DISPPARAMS DISPPARAMS
GLuint GLuint GLsizei GLenum type