[Bug 54221] vbscript: missing support for GetRef

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=54221

--- Comment #7 from Jason Millard  ---
Sorry, it took me a while to understand what you were telling me.

In windows, I did this:

m_pScript->SetScriptState(SCRIPTSTATE_CONNECTED);

EXCEPINFO exception = {};

VARIANT var;

WCHAR* wzText = new WCHAR[1024];
  swprintf_s(wzText, 1024, L"GetRef("Table1_KeyDown")");

m_pScriptParse->ParseScriptText(wzText, 0, 0, 0, CONTEXTCOOKIE_NORMAL, 0, 
    SCRIPTTEXT_ISEXPRESSION, &var, &exception);

Looking at var it's definitely a dispatch into vbscript.dll

I tried to look at the typeinfo with:

IDispatch* disp = V_DISPATCH(&var);

ITypeInfo* ti;
  HRESULT hr = disp->GetTypeInfo(0, LOCALE_USER_DEFAULT, &ti);

but HR comes back with DISP_E_BADINDEX