[Bug 54221] vbscript: missing support for GetRef

[WineHQ Bugzilla]

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

--- Comment #1 from Jason Millard  ---
static HRESULT Global_GetRef(BuiltinDisp *This, VARIANT *arg, unsigned
args_cnt, VARIANT *res)
{
    BSTR str;
    HRESULT hres;

hres = to_string(arg, &str);

function_t **funcs = This->ctx->script_obj->global_funcs;
    size_t i, cnt = This->ctx->script_obj->global_funcs_cnt;

for(i = 0; i < cnt; i++) {
        if(!wcsicmp(funcs[i]->name, str)) {
            // ?

return S_OK;
        }
    }

return E_FAIL;
}