git.oblomov.eu Git - wine/blob - dlls/vbscript/global.c

   1 /*
   2  * Copyright 2011 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <assert.h>
  20 #include <math.h>
  21
  22 #include "vbscript.h"
  23 #include "vbscript_defs.h"
  24
  25 #include "mshtmhst.h"
  26 #include "objsafe.h"
  27
  28 #include "wine/debug.h"
  29
  30 WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
  31
  32 #define VB_E_CANNOT_CREATE_OBJ 0x800a01ad
  33
  34 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
  35 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY =
  36     {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
  37
  38 static const WCHAR emptyW[] = {0};
  39 static const WCHAR vbscriptW[] = {'V','B','S','c','r','i','p','t',0};
  40
  41 static IInternetHostSecurityManager *get_sec_mgr(script_ctx_t *ctx)
  42 {
  43     IInternetHostSecurityManager *secmgr;
  44     IServiceProvider *sp;
  45     HRESULT hres;
  46
  47     if(!ctx->site)
  48         return NULL;
  49
  50     if(ctx->secmgr)
  51         return ctx->secmgr;
  52
  53     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
  54     if(FAILED(hres))
  55         return NULL;
  56
  57     hres = IServiceProvider_QueryService(sp, &SID_SInternetHostSecurityManager, &IID_IInternetHostSecurityManager,
  58             (void**)&secmgr);
  59     IServiceProvider_Release(sp);
  60     if(FAILED(hres))
  61         return NULL;
  62
  63     return ctx->secmgr = secmgr;
  64 }
  65
  66 static HRESULT return_string(VARIANT *res, const WCHAR *str)
  67 {
  68     BSTR ret;
  69
  70     if(!res)
  71         return S_OK;
  72
  73     ret = SysAllocString(str);
  74     if(!ret)
  75         return E_OUTOFMEMORY;
  76
  77     V_VT(res) = VT_BSTR;
  78     V_BSTR(res) = ret;
  79     return S_OK;
  80 }
  81
  82 static HRESULT return_bstr(VARIANT *res, BSTR str)
  83 {
  84     if(res) {
  85         V_VT(res) = VT_BSTR;
  86         V_BSTR(res) = str;
  87     }else {
  88         SysFreeString(str);
  89     }
  90     return S_OK;
  91 }
  92
  93 static HRESULT return_short(VARIANT *res, short val)
  94 {
  95     if(res) {
  96         V_VT(res) = VT_I2;
  97         V_I2(res) = val;
  98     }
  99
 100     return S_OK;
 101 }
 102
 103 static HRESULT return_int(VARIANT *res, int val)
 104 {
 105     if((short)val == val)
 106         return return_short(res, val);
 107
 108     if(res) {
 109         V_VT(res) = VT_I4;
 110         V_I4(res) = val;
 111     }
 112
 113     return S_OK;
 114 }
 115
 116 static inline HRESULT return_double(VARIANT *res, double val)
 117 {
 118     if(res) {
 119         V_VT(res) = VT_R8;
 120         V_R8(res) = val;
 121     }
 122
 123     return S_OK;
 124 }
 125
 126 static inline HRESULT return_null(VARIANT *res)
 127 {
 128     if(res)
 129         V_VT(res) = VT_NULL;
 130     return S_OK;
 131 }
 132
 133 static HRESULT to_int(VARIANT *v, int *ret)
 134 {
 135     switch(V_VT(v)) {
 136     case VT_I2:
 137         *ret = V_I2(v);
 138         break;
 139     case VT_I4:
 140         *ret = V_I4(v);
 141         break;
 142     case VT_R8: {
 143         double n = round(V_R8(v));
 144         if(!is_int32(n)) {
 145             FIXME("%lf is out of int range\n", n);
 146             return E_FAIL;
 147         }
 148         *ret = n;
 149         break;
 150     }
 151     case VT_BOOL:
 152         *ret = V_BOOL(v) ? -1 : 0;
 153         break;
 154     default:
 155         FIXME("not supported %s\n", debugstr_variant(v));
 156         return E_NOTIMPL;
 157     }
 158
 159     return S_OK;
 160 }
 161
 162 static HRESULT to_double(VARIANT *v, double *ret)
 163 {
 164     switch(V_VT(v)) {
 165     case VT_I2:
 166         *ret = V_I2(v);
 167         break;
 168     case VT_I4:
 169         *ret = V_I4(v);
 170         break;
 171     case VT_R4:
 172         *ret = V_R4(v);
 173         break;
 174     case VT_R8:
 175         *ret = V_R8(v);
 176         break;
 177     case VT_BSTR: {
 178         VARIANT dst;
 179         HRESULT hres;
 180
 181         V_VT(&dst) = VT_EMPTY;
 182         hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_R8);
 183         if(FAILED(hres))
 184             return hres;
 185         *ret = V_R8(&dst);
 186         break;
 187     }
 188     default:
 189         FIXME("arg %s not supported\n", debugstr_variant(v));
 190         return E_NOTIMPL;
 191     }
 192
 193     return S_OK;
 194 }
 195
 196 static HRESULT to_string(VARIANT *v, BSTR *ret)
 197 {
 198     VARIANT dst;
 199     HRESULT hres;
 200
 201     V_VT(&dst) = VT_EMPTY;
 202     hres = VariantChangeType(&dst, v, VARIANT_LOCALBOOL, VT_BSTR);
 203     if(FAILED(hres))
 204         return hres;
 205
 206     *ret = V_BSTR(&dst);
 207     return S_OK;
 208 }
 209
 210 static IUnknown *create_object(script_ctx_t *ctx, const WCHAR *progid)
 211 {
 212     IInternetHostSecurityManager *secmgr = NULL;
 213     IObjectWithSite *obj_site;
 214     struct CONFIRMSAFETY cs;
 215     IClassFactoryEx *cfex;
 216     IClassFactory *cf;
 217     DWORD policy_size;
 218     BYTE *bpolicy;
 219     IUnknown *obj;
 220     DWORD policy;
 221     GUID guid;
 222     HRESULT hres;
 223
 224     hres = CLSIDFromProgID(progid, &guid);
 225     if(FAILED(hres))
 226         return NULL;
 227
 228     TRACE("GUID %s\n", debugstr_guid(&guid));
 229
 230     if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
 231         secmgr = get_sec_mgr(ctx);
 232         if(!secmgr)
 233             return NULL;
 234
 235         policy = 0;
 236         hres = IInternetHostSecurityManager_ProcessUrlAction(secmgr, URLACTION_ACTIVEX_RUN,
 237                 (BYTE*)&policy, sizeof(policy), (BYTE*)&guid, sizeof(GUID), 0, 0);
 238         if(FAILED(hres) || policy != URLPOLICY_ALLOW)
 239             return NULL;
 240     }
 241
 242     hres = CoGetClassObject(&guid, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, NULL, &IID_IClassFactory, (void**)&cf);
 243     if(FAILED(hres))
 244         return NULL;
 245
 246     hres = IClassFactory_QueryInterface(cf, &IID_IClassFactoryEx, (void**)&cfex);
 247     if(SUCCEEDED(hres)) {
 248         FIXME("Use IClassFactoryEx\n");
 249         IClassFactoryEx_Release(cfex);
 250     }
 251
 252     hres = IClassFactory_CreateInstance(cf, NULL, &IID_IUnknown, (void**)&obj);
 253     if(FAILED(hres))
 254         return NULL;
 255
 256     if(secmgr) {
 257         cs.clsid = guid;
 258         cs.pUnk = obj;
 259         cs.dwFlags = 0;
 260         hres = IInternetHostSecurityManager_QueryCustomPolicy(secmgr, &GUID_CUSTOM_CONFIRMOBJECTSAFETY,
 261                 &bpolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
 262         if(SUCCEEDED(hres)) {
 263             policy = policy_size >= sizeof(DWORD) ? *(DWORD*)bpolicy : URLPOLICY_DISALLOW;
 264             CoTaskMemFree(bpolicy);
 265         }
 266
 267         if(FAILED(hres) || policy != URLPOLICY_ALLOW) {
 268             IUnknown_Release(obj);
 269             return NULL;
 270         }
 271     }
 272
 273     hres = IUnknown_QueryInterface(obj, &IID_IObjectWithSite, (void**)&obj_site);
 274     if(SUCCEEDED(hres)) {
 275         IUnknown *ax_site;
 276
 277         ax_site = create_ax_site(ctx);
 278         if(ax_site) {
 279             hres = IObjectWithSite_SetSite(obj_site, ax_site);
 280             IUnknown_Release(ax_site);
 281         }
 282         IObjectWithSite_Release(obj_site);
 283         if(!ax_site || FAILED(hres)) {
 284             IUnknown_Release(obj);
 285             return NULL;
 286         }
 287     }
 288
 289     return obj;
 290 }
 291
 292 static HRESULT show_msgbox(script_ctx_t *ctx, BSTR prompt, VARIANT *res)
 293 {
 294     SCRIPTUICHANDLING uic_handling = SCRIPTUICHANDLING_ALLOW;
 295     IActiveScriptSiteUIControl *ui_control;
 296     IActiveScriptSiteWindow *acts_window;
 297     const WCHAR *title;
 298     HWND hwnd = NULL;
 299     int ret;
 300     HRESULT hres;
 301
 302     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteUIControl, (void**)&ui_control);
 303     if(SUCCEEDED(hres)) {
 304         hres = IActiveScriptSiteUIControl_GetUIBehavior(ui_control, SCRIPTUICITEM_MSGBOX, &uic_handling);
 305         IActiveScriptSiteUIControl_Release(ui_control);
 306         if(FAILED(hres))
 307             uic_handling = SCRIPTUICHANDLING_ALLOW;
 308     }
 309
 310     switch(uic_handling) {
 311     case SCRIPTUICHANDLING_ALLOW:
 312         break;
 313     case SCRIPTUICHANDLING_NOUIDEFAULT:
 314         return return_short(res, 0);
 315     default:
 316         FIXME("blocked\n");
 317         return E_FAIL;
 318     }
 319
 320     title = (ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) ? vbscriptW : emptyW;
 321
 322     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IActiveScriptSiteWindow, (void**)&acts_window);
 323     if(FAILED(hres)) {
 324         FIXME("No IActiveScriptSiteWindow\n");
 325         return hres;
 326     }
 327
 328     hres = IActiveScriptSiteWindow_GetWindow(acts_window, &hwnd);
 329     if(SUCCEEDED(hres)) {
 330         hres = IActiveScriptSiteWindow_EnableModeless(acts_window, FALSE);
 331         if(SUCCEEDED(hres)) {
 332             ret = MessageBoxW(hwnd, prompt, title, MB_OK);
 333             hres = IActiveScriptSiteWindow_EnableModeless(acts_window, TRUE);
 334         }
 335     }
 336
 337     IActiveScriptSiteWindow_Release(acts_window);
 338     if(FAILED(hres)) {
 339         FIXME("failed: %08x\n", hres);
 340         return hres;
 341     }
 342
 343     return return_short(res, ret);
 344 }
 345
 346 static HRESULT Global_CCur(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 347 {
 348     FIXME("\n");
 349     return E_NOTIMPL;
 350 }
 351
 352 static HRESULT Global_CInt(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 353 {
 354     FIXME("\n");
 355     return E_NOTIMPL;
 356 }
 357
 358 static HRESULT Global_CLng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 359 {
 360     FIXME("\n");
 361     return E_NOTIMPL;
 362 }
 363
 364 static HRESULT Global_CBool(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 365 {
 366     FIXME("\n");
 367     return E_NOTIMPL;
 368 }
 369
 370 static HRESULT Global_CByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 371 {
 372     FIXME("\n");
 373     return E_NOTIMPL;
 374 }
 375
 376 static HRESULT Global_CDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 377 {
 378     FIXME("\n");
 379     return E_NOTIMPL;
 380 }
 381
 382 static HRESULT Global_CDbl(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 383 {
 384     FIXME("\n");
 385     return E_NOTIMPL;
 386 }
 387
 388 static HRESULT Global_CSng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 389 {
 390     FIXME("\n");
 391     return E_NOTIMPL;
 392 }
 393
 394 static HRESULT Global_CStr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 395 {
 396     FIXME("\n");
 397     return E_NOTIMPL;
 398 }
 399
 400 static inline WCHAR hex_char(unsigned n)
 401 {
 402     return n < 10 ? '0'+n : 'A'+n-10;
 403 }
 404
 405 static HRESULT Global_Hex(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 406 {
 407     WCHAR buf[17], *ptr;
 408     DWORD n;
 409
 410     TRACE("%s\n", debugstr_variant(arg));
 411
 412     switch(V_VT(arg)) {
 413     case VT_I2:
 414         n = (WORD)V_I2(arg);
 415         break;
 416     case VT_I4:
 417         n = V_I4(arg);
 418         break;
 419     case VT_EMPTY:
 420         n = 0;
 421         break;
 422     case VT_NULL:
 423         if(res)
 424             V_VT(res) = VT_NULL;
 425         return S_OK;
 426     default:
 427         FIXME("unsupported type %s\n", debugstr_variant(arg));
 428         return E_NOTIMPL;
 429     }
 430
 431     buf[16] = 0;
 432     ptr = buf+15;
 433
 434     if(n) {
 435         do {
 436             *ptr-- = hex_char(n & 0xf);
 437             n >>= 4;
 438         }while(n);
 439         ptr++;
 440     }else {
 441         *ptr = '0';
 442     }
 443
 444     return return_string(res, ptr);
 445 }
 446
 447 static HRESULT Global_Oct(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 448 {
 449     FIXME("\n");
 450     return E_NOTIMPL;
 451 }
 452
 453 static HRESULT Global_VarType(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 454 {
 455     FIXME("\n");
 456     return E_NOTIMPL;
 457 }
 458
 459 static HRESULT Global_IsDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 460 {
 461     FIXME("\n");
 462     return E_NOTIMPL;
 463 }
 464
 465 static HRESULT Global_IsEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 466 {
 467     TRACE("(%s)\n", debugstr_variant(arg));
 468
 469     assert(args_cnt == 1);
 470
 471     if(res) {
 472         V_VT(res) = VT_BOOL;
 473         V_BOOL(res) = V_VT(arg) == VT_EMPTY ? VARIANT_TRUE : VARIANT_FALSE;
 474     }
 475     return S_OK;
 476 }
 477
 478 static HRESULT Global_IsNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 479 {
 480     TRACE("(%s)\n", debugstr_variant(arg));
 481
 482     assert(args_cnt == 1);
 483
 484     if(res) {
 485         V_VT(res) = VT_BOOL;
 486         V_BOOL(res) = V_VT(arg) == VT_NULL ? VARIANT_TRUE : VARIANT_FALSE;
 487     }
 488     return S_OK;
 489 }
 490
 491 static HRESULT Global_IsNumeric(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 492 {
 493     FIXME("\n");
 494     return E_NOTIMPL;
 495 }
 496
 497 static HRESULT Global_IsArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 498 {
 499     FIXME("\n");
 500     return E_NOTIMPL;
 501 }
 502
 503 static HRESULT Global_IsObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 504 {
 505     TRACE("(%s)\n", debugstr_variant(arg));
 506
 507     assert(args_cnt == 1);
 508
 509     if(res) {
 510         V_VT(res) = VT_BOOL;
 511         V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE;
 512     }
 513     return S_OK;
 514 }
 515
 516 static HRESULT Global_Ant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 517 {
 518     FIXME("\n");
 519     return E_NOTIMPL;
 520 }
 521
 522 static HRESULT Global_Cos(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 523 {
 524     FIXME("\n");
 525     return E_NOTIMPL;
 526 }
 527
 528 static HRESULT Global_Sin(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 529 {
 530     FIXME("\n");
 531     return E_NOTIMPL;
 532 }
 533
 534 static HRESULT Global_Tan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 535 {
 536     FIXME("\n");
 537     return E_NOTIMPL;
 538 }
 539
 540 static HRESULT Global_Exp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 541 {
 542     FIXME("\n");
 543     return E_NOTIMPL;
 544 }
 545
 546 static HRESULT Global_Log(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 547 {
 548     FIXME("\n");
 549     return E_NOTIMPL;
 550 }
 551
 552 static HRESULT Global_Sqr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 553 {
 554     FIXME("\n");
 555     return E_NOTIMPL;
 556 }
 557
 558 static HRESULT Global_Randomize(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 559 {
 560     FIXME("\n");
 561     return E_NOTIMPL;
 562 }
 563
 564 static HRESULT Global_Rnd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 565 {
 566     FIXME("\n");
 567     return E_NOTIMPL;
 568 }
 569
 570 static HRESULT Global_Timer(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 571 {
 572     FIXME("\n");
 573     return E_NOTIMPL;
 574 }
 575
 576 static HRESULT Global_LBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 577 {
 578     FIXME("\n");
 579     return E_NOTIMPL;
 580 }
 581
 582 static HRESULT Global_UBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 583 {
 584     FIXME("\n");
 585     return E_NOTIMPL;
 586 }
 587
 588 static HRESULT Global_RGB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 589 {
 590     FIXME("\n");
 591     return E_NOTIMPL;
 592 }
 593
 594 static HRESULT Global_Len(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 595 {
 596     DWORD len;
 597     HRESULT hres;
 598
 599     TRACE("%s\n", debugstr_variant(arg));
 600
 601     if(V_VT(arg) == VT_NULL)
 602         return return_null(res);
 603
 604     if(V_VT(arg) != VT_BSTR) {
 605         BSTR str;
 606
 607         hres = to_string(arg, &str);
 608         if(FAILED(hres))
 609             return hres;
 610
 611         len = SysStringLen(str);
 612         SysFreeString(str);
 613     }else {
 614         len = SysStringLen(V_BSTR(arg));
 615     }
 616
 617     return return_int(res, len);
 618 }
 619
 620 static HRESULT Global_LenB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 621 {
 622     FIXME("\n");
 623     return E_NOTIMPL;
 624 }
 625
 626 static HRESULT Global_Left(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 627 {
 628     FIXME("\n");
 629     return E_NOTIMPL;
 630 }
 631
 632 static HRESULT Global_LeftB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 633 {
 634     FIXME("\n");
 635     return E_NOTIMPL;
 636 }
 637
 638 static HRESULT Global_Right(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 639 {
 640     FIXME("\n");
 641     return E_NOTIMPL;
 642 }
 643
 644 static HRESULT Global_RightB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 645 {
 646     FIXME("\n");
 647     return E_NOTIMPL;
 648 }
 649
 650 static HRESULT Global_Mid(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 651 {
 652     int len = -1, start, str_len;
 653     BSTR str;
 654     HRESULT hres;
 655
 656     TRACE("\n");
 657
 658     switch(args_cnt) {
 659     case 3:
 660         hres = to_int(args, &len);
 661         if(FAILED(hres))
 662             return hres;
 663
 664         if(len < 0) {
 665             FIXME("len = %d\n", len);
 666             return E_FAIL;
 667         }
 668         /* fallthrough */
 669     case 2:
 670         hres = to_int(args+args_cnt-2, &start);
 671         if(FAILED(hres))
 672             return hres;
 673
 674         if(V_VT(args+args_cnt-1) != VT_BSTR) {
 675             FIXME("args[0] = %s\n", debugstr_variant(args+args_cnt-1));
 676             return E_NOTIMPL;
 677         }
 678
 679         str = V_BSTR(args+args_cnt-1);
 680         break;
 681     default:
 682         assert(0);
 683     }
 684
 685
 686     str_len = SysStringLen(str);
 687     start--;
 688     if(start > str_len)
 689         start = str_len;
 690
 691     if(len == -1)
 692         len = str_len-start;
 693     else if(len > str_len-start)
 694         len = str_len-start;
 695
 696     if(res) {
 697         V_VT(res) = VT_BSTR;
 698         V_BSTR(res) = SysAllocStringLen(str+start, len);
 699         if(!V_BSTR(res))
 700             return E_OUTOFMEMORY;
 701     }
 702
 703     return S_OK;
 704 }
 705
 706 static HRESULT Global_MidB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 707 {
 708     FIXME("\n");
 709     return E_NOTIMPL;
 710 }
 711
 712 static HRESULT Global_StrComp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 713 {
 714     FIXME("\n");
 715     return E_NOTIMPL;
 716 }
 717
 718 static HRESULT Global_LCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 719 {
 720     BSTR str;
 721     HRESULT hres;
 722
 723     TRACE("%s\n", debugstr_variant(arg));
 724
 725     if(V_VT(arg) == VT_NULL) {
 726         if(res)
 727             V_VT(res) = VT_NULL;
 728         return S_OK;
 729     }
 730
 731     hres = to_string(arg, &str);
 732     if(FAILED(hres))
 733         return hres;
 734
 735     if(res) {
 736         WCHAR *ptr;
 737
 738         for(ptr = str; *ptr; ptr++)
 739             *ptr = tolowerW(*ptr);
 740
 741         V_VT(res) = VT_BSTR;
 742         V_BSTR(res) = str;
 743     }else {
 744         SysFreeString(str);
 745     }
 746     return S_OK;
 747 }
 748
 749 static HRESULT Global_UCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 750 {
 751     BSTR str;
 752     HRESULT hres;
 753
 754     TRACE("%s\n", debugstr_variant(arg));
 755
 756     if(V_VT(arg) == VT_NULL) {
 757         if(res)
 758             V_VT(res) = VT_NULL;
 759         return S_OK;
 760     }
 761
 762     hres = to_string(arg, &str);
 763     if(FAILED(hres))
 764         return hres;
 765
 766     if(res) {
 767         WCHAR *ptr;
 768
 769         for(ptr = str; *ptr; ptr++)
 770             *ptr = toupperW(*ptr);
 771
 772         V_VT(res) = VT_BSTR;
 773         V_BSTR(res) = str;
 774     }else {
 775         SysFreeString(str);
 776     }
 777     return S_OK;
 778 }
 779
 780 static HRESULT Global_LTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 781 {
 782     FIXME("\n");
 783     return E_NOTIMPL;
 784 }
 785
 786 static HRESULT Global_RTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 787 {
 788     FIXME("\n");
 789     return E_NOTIMPL;
 790 }
 791
 792 static HRESULT Global_Trim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 793 {
 794     FIXME("\n");
 795     return E_NOTIMPL;
 796 }
 797
 798 static HRESULT Global_Space(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 799 {
 800     BSTR str;
 801     int n, i;
 802     HRESULT hres;
 803
 804     TRACE("%s\n", debugstr_variant(arg));
 805
 806     hres = to_int(arg, &n);
 807     if(FAILED(hres))
 808         return hres;
 809
 810     if(n < 0) {
 811         FIXME("n = %d\n", n);
 812         return E_NOTIMPL;
 813     }
 814
 815     if(!res)
 816         return S_OK;
 817
 818     str = SysAllocStringLen(NULL, n);
 819     if(!str)
 820         return E_OUTOFMEMORY;
 821
 822     for(i=0; i<n; i++)
 823         str[i] = ' ';
 824
 825     V_VT(res) = VT_BSTR;
 826     V_BSTR(res) = str;
 827     return S_OK;
 828 }
 829
 830 static HRESULT Global_String(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 831 {
 832     FIXME("\n");
 833     return E_NOTIMPL;
 834 }
 835
 836 static HRESULT Global_InStr(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 837 {
 838     VARIANT *startv, *str1v, *str2v;
 839     BSTR str1, str2;
 840     int start, ret;
 841     HRESULT hres;
 842
 843     TRACE("\n");
 844
 845     switch(args_cnt) {
 846     case 2:
 847         startv = NULL;
 848         str1v = args+1;
 849         str2v = args;
 850         break;
 851     case 3:
 852         startv = args+2;
 853         str1v = args+1;
 854         str2v = args;
 855         break;
 856     case 4:
 857         FIXME("unsupported compare argument %s\n", debugstr_variant(args));
 858         return E_NOTIMPL;
 859     default:
 860         assert(0);
 861     }
 862
 863     if(startv) {
 864         hres = to_int(startv, &start);
 865         if(FAILED(hres))
 866             return hres;
 867         if(--start < 0) {
 868             FIXME("start %d\n", start);
 869             return E_FAIL;
 870         }
 871     }else {
 872         start = 0;
 873     }
 874
 875     if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
 876         return return_null(res);
 877
 878     if(V_VT(str1v) != VT_BSTR) {
 879         FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v));
 880         return E_NOTIMPL;
 881     }
 882     str1 = V_BSTR(str1v);
 883
 884     if(V_VT(str2v) != VT_BSTR) {
 885         FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v));
 886         return E_NOTIMPL;
 887     }
 888     str2 = V_BSTR(str2v);
 889
 890     if(start < SysStringLen(str1)) {
 891         WCHAR *ptr;
 892
 893         ptr = strstrW(str1+start, str2);
 894         ret = ptr ? ptr-str1+1 : 0;
 895     }else {
 896         ret = 0;
 897     }
 898
 899     return return_int(res, ret);
 900 }
 901
 902 static HRESULT Global_InStrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 903 {
 904     FIXME("\n");
 905     return E_NOTIMPL;
 906 }
 907
 908 static HRESULT Global_AscB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 909 {
 910     FIXME("\n");
 911     return E_NOTIMPL;
 912 }
 913
 914 static HRESULT Global_ChrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 915 {
 916     FIXME("\n");
 917     return E_NOTIMPL;
 918 }
 919
 920 static HRESULT Global_Asc(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 921 {
 922     FIXME("\n");
 923     return E_NOTIMPL;
 924 }
 925
 926 static HRESULT Global_Chr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 927 {
 928     FIXME("\n");
 929     return E_NOTIMPL;
 930 }
 931
 932 static HRESULT Global_AscW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 933 {
 934     FIXME("\n");
 935     return E_NOTIMPL;
 936 }
 937
 938 static HRESULT Global_ChrW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 939 {
 940     FIXME("\n");
 941     return E_NOTIMPL;
 942 }
 943
 944 static HRESULT Global_Abs(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 945 {
 946     FIXME("\n");
 947     return E_NOTIMPL;
 948 }
 949
 950 static HRESULT Global_Fix(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 951 {
 952     FIXME("\n");
 953     return E_NOTIMPL;
 954 }
 955
 956 static HRESULT Global_Int(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 957 {
 958     FIXME("\n");
 959     return E_NOTIMPL;
 960 }
 961
 962 static HRESULT Global_Sgn(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 963 {
 964     FIXME("\n");
 965     return E_NOTIMPL;
 966 }
 967
 968 static HRESULT Global_Now(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 969 {
 970     FIXME("\n");
 971     return E_NOTIMPL;
 972 }
 973
 974 static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 975 {
 976     FIXME("\n");
 977     return E_NOTIMPL;
 978 }
 979
 980 static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 981 {
 982     FIXME("\n");
 983     return E_NOTIMPL;
 984 }
 985
 986 static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 987 {
 988     FIXME("\n");
 989     return E_NOTIMPL;
 990 }
 991
 992 static HRESULT Global_Month(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 993 {
 994     FIXME("\n");
 995     return E_NOTIMPL;
 996 }
 997
 998 static HRESULT Global_Weekday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 999 {
1000     FIXME("\n");
1001     return E_NOTIMPL;
1002 }
1003
1004 static HRESULT Global_Year(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1005 {
1006     FIXME("\n");
1007     return E_NOTIMPL;
1008 }
1009
1010 static HRESULT Global_Hour(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1011 {
1012     FIXME("\n");
1013     return E_NOTIMPL;
1014 }
1015
1016 static HRESULT Global_Minute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1017 {
1018     FIXME("\n");
1019     return E_NOTIMPL;
1020 }
1021
1022 static HRESULT Global_Second(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1023 {
1024     FIXME("\n");
1025     return E_NOTIMPL;
1026 }
1027
1028 static HRESULT Global_DateValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1029 {
1030     FIXME("\n");
1031     return E_NOTIMPL;
1032 }
1033
1034 static HRESULT Global_TimeValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1035 {
1036     FIXME("\n");
1037     return E_NOTIMPL;
1038 }
1039
1040 static HRESULT Global_DateSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1041 {
1042     FIXME("\n");
1043     return E_NOTIMPL;
1044 }
1045
1046 static HRESULT Global_TimeSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1047 {
1048     FIXME("\n");
1049     return E_NOTIMPL;
1050 }
1051
1052 static HRESULT Global_InputBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1053 {
1054     FIXME("\n");
1055     return E_NOTIMPL;
1056 }
1057
1058 static HRESULT Global_MsgBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1059 {
1060     BSTR prompt;
1061     HRESULT hres;
1062
1063     TRACE("\n");
1064
1065     if(args_cnt != 1) {
1066         FIXME("unsupported arg_cnt %d\n", args_cnt);
1067         return E_NOTIMPL;
1068     }
1069
1070     hres = to_string(arg, &prompt);
1071     if(FAILED(hres))
1072         return hres;
1073
1074     hres = show_msgbox(This->desc->ctx, prompt, res);
1075     SysFreeString(prompt);
1076     return hres;
1077 }
1078
1079 static HRESULT Global_CreateObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1080 {
1081     IUnknown *obj;
1082     HRESULT hres;
1083
1084     TRACE("(%s)\n", debugstr_variant(arg));
1085
1086     if(V_VT(arg) != VT_BSTR) {
1087         FIXME("non-bstr arg\n");
1088         return E_INVALIDARG;
1089     }
1090
1091     obj = create_object(This->desc->ctx, V_BSTR(arg));
1092     if(!obj)
1093         return VB_E_CANNOT_CREATE_OBJ;
1094
1095     if(res) {
1096         hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&V_DISPATCH(res));
1097         if(FAILED(hres))
1098             return hres;
1099
1100         V_VT(res) = VT_DISPATCH;
1101     }
1102
1103     IUnknown_Release(obj);
1104     return S_OK;
1105 }
1106
1107 static HRESULT Global_GetObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1108 {
1109     FIXME("\n");
1110     return E_NOTIMPL;
1111 }
1112
1113 static HRESULT Global_DateAdd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1114 {
1115     FIXME("\n");
1116     return E_NOTIMPL;
1117 }
1118
1119 static HRESULT Global_DateDiff(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1120 {
1121     FIXME("\n");
1122     return E_NOTIMPL;
1123 }
1124
1125 static HRESULT Global_DatePart(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1126 {
1127     FIXME("\n");
1128     return E_NOTIMPL;
1129 }
1130
1131 static HRESULT Global_TypeName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1132 {
1133     FIXME("\n");
1134     return E_NOTIMPL;
1135 }
1136
1137 static HRESULT Global_Array(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1138 {
1139     FIXME("\n");
1140     return E_NOTIMPL;
1141 }
1142
1143 static HRESULT Global_Erase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1144 {
1145     FIXME("\n");
1146     return E_NOTIMPL;
1147 }
1148
1149 static HRESULT Global_Filter(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1150 {
1151     FIXME("\n");
1152     return E_NOTIMPL;
1153 }
1154
1155 static HRESULT Global_Join(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1156 {
1157     FIXME("\n");
1158     return E_NOTIMPL;
1159 }
1160
1161 static HRESULT Global_Split(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1162 {
1163     FIXME("\n");
1164     return E_NOTIMPL;
1165 }
1166
1167 static HRESULT Global_Replace(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1168 {
1169     FIXME("\n");
1170     return E_NOTIMPL;
1171 }
1172
1173 static HRESULT Global_StrReverse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1174 {
1175     FIXME("\n");
1176     return E_NOTIMPL;
1177 }
1178
1179 static HRESULT Global_InStrRev(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1180 {
1181     FIXME("\n");
1182     return E_NOTIMPL;
1183 }
1184
1185 static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1186 {
1187     FIXME("\n");
1188     return E_NOTIMPL;
1189 }
1190
1191 static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1192 {
1193     FIXME("\n");
1194     return E_NOTIMPL;
1195 }
1196
1197 static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1198 {
1199     FIXME("\n");
1200     return E_NOTIMPL;
1201 }
1202
1203 static HRESULT Global_ScriptEngineMinorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1204 {
1205     FIXME("\n");
1206     return E_NOTIMPL;
1207 }
1208
1209 static HRESULT Global_ScriptEngineBuildVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1210 {
1211     FIXME("\n");
1212     return E_NOTIMPL;
1213 }
1214
1215 static HRESULT Global_FormatNumber(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1216 {
1217     FIXME("\n");
1218     return E_NOTIMPL;
1219 }
1220
1221 static HRESULT Global_FormatCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1222 {
1223     FIXME("\n");
1224     return E_NOTIMPL;
1225 }
1226
1227 static HRESULT Global_FormatPercent(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1228 {
1229     FIXME("\n");
1230     return E_NOTIMPL;
1231 }
1232
1233 static HRESULT Global_FormatDateTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1234 {
1235     FIXME("\n");
1236     return E_NOTIMPL;
1237 }
1238
1239 static HRESULT Global_WeekdayName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1240 {
1241     int weekday, first_day = 0, abbrev = 0;
1242     BSTR ret;
1243     HRESULT hres;
1244
1245     TRACE("\n");
1246
1247     assert(1 <= args_cnt && args_cnt <= 3);
1248
1249     hres = to_int(arg+args_cnt-1, &weekday);
1250     if(FAILED(hres))
1251         return hres;
1252
1253     if(args_cnt > 1) {
1254         hres = to_int(arg+args_cnt-2, &abbrev);
1255         if(FAILED(hres))
1256             return hres;
1257
1258         if(args_cnt == 3) {
1259             hres = to_int(arg, &first_day);
1260             if(FAILED(hres))
1261                 return hres;
1262         }
1263     }
1264
1265     hres = VarWeekdayName(weekday, abbrev, first_day, 0, &ret);
1266     if(FAILED(hres))
1267         return hres;
1268
1269     return return_bstr(res, ret);
1270 }
1271
1272 static HRESULT Global_MonthName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1273 {
1274     int month, abbrev = 0;
1275     BSTR ret;
1276     HRESULT hres;
1277
1278     TRACE("\n");
1279
1280     assert(args_cnt == 1 || args_cnt == 2);
1281
1282     hres = to_int(arg+args_cnt-1, &month);
1283     if(FAILED(hres))
1284         return hres;
1285
1286     if(args_cnt == 2) {
1287         hres = to_int(arg, &abbrev);
1288         if(FAILED(hres))
1289             return hres;
1290     }
1291
1292     hres = VarMonthName(month, abbrev, 0, &ret);
1293     if(FAILED(hres))
1294         return hres;
1295
1296     return return_bstr(res, ret);
1297 }
1298
1299 static HRESULT Global_Round(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1300 {
1301     double n;
1302     HRESULT hres;
1303
1304     TRACE("%s\n", debugstr_variant(arg));
1305
1306     if(!res)
1307         return S_OK;
1308
1309     switch(V_VT(arg)) {
1310     case VT_I2:
1311     case VT_I4:
1312     case VT_BOOL:
1313         *res = *arg;
1314         return S_OK;
1315     case VT_R8:
1316         n = V_R8(arg);
1317         break;
1318     default:
1319         hres = to_double(arg, &n);
1320         if(FAILED(hres))
1321             return hres;
1322     }
1323
1324     return return_double(res, round(n));
1325 }
1326
1327 static HRESULT Global_Escape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1328 {
1329     FIXME("\n");
1330     return E_NOTIMPL;
1331 }
1332
1333 static HRESULT Global_Unescape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1334 {
1335     FIXME("\n");
1336     return E_NOTIMPL;
1337 }
1338
1339 static HRESULT Global_Eval(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1340 {
1341     FIXME("\n");
1342     return E_NOTIMPL;
1343 }
1344
1345 static HRESULT Global_Execute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1346 {
1347     FIXME("\n");
1348     return E_NOTIMPL;
1349 }
1350
1351 static HRESULT Global_ExecuteGlobal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1352 {
1353     FIXME("\n");
1354     return E_NOTIMPL;
1355 }
1356
1357 static HRESULT Global_GetRef(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1358 {
1359     FIXME("\n");
1360     return E_NOTIMPL;
1361 }
1362
1363 static HRESULT Global_vbUseSystem(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1364 {
1365     FIXME("\n");
1366     return E_NOTIMPL;
1367 }
1368
1369 static HRESULT Global_vbUseSystemDayOfWeek(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1370 {
1371     FIXME("\n");
1372     return E_NOTIMPL;
1373 }
1374
1375 static HRESULT Global_vbSunday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1376 {
1377     TRACE("\n");
1378     return return_short(res, 1);
1379 }
1380
1381 static HRESULT Global_vbMonday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1382 {
1383     TRACE("\n");
1384     return return_short(res, 2);
1385 }
1386
1387 static HRESULT Global_vbTuesday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1388 {
1389     TRACE("\n");
1390     return return_short(res, 3);
1391 }
1392
1393 static HRESULT Global_vbWednesday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1394 {
1395     TRACE("\n");
1396     return return_short(res, 4);
1397 }
1398
1399 static HRESULT Global_vbThursday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1400 {
1401     TRACE("\n");
1402     return return_short(res, 5);
1403 }
1404
1405 static HRESULT Global_vbFriday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1406 {
1407     TRACE("\n");
1408     return return_short(res, 6);
1409 }
1410
1411 static HRESULT Global_vbSaturday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1412 {
1413     TRACE("\n");
1414     return return_short(res, 7);
1415 }
1416
1417 static HRESULT Global_vbFirstJan1(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1418 {
1419     FIXME("\n");
1420     return E_NOTIMPL;
1421 }
1422
1423 static HRESULT Global_vbFirstFourDays(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1424 {
1425     FIXME("\n");
1426     return E_NOTIMPL;
1427 }
1428
1429 static HRESULT Global_vbFirstFullWeek(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1430 {
1431     FIXME("\n");
1432     return E_NOTIMPL;
1433 }
1434
1435 static HRESULT Global_vbOKOnly(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1436 {
1437     FIXME("\n");
1438     return E_NOTIMPL;
1439 }
1440
1441 static HRESULT Global_vbOKCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1442 {
1443     FIXME("\n");
1444     return E_NOTIMPL;
1445 }
1446
1447 static HRESULT Global_vbAbortRetryIgnore(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1448 {
1449     FIXME("\n");
1450     return E_NOTIMPL;
1451 }
1452
1453 static HRESULT Global_vbYesNoCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1454 {
1455     FIXME("\n");
1456     return E_NOTIMPL;
1457 }
1458
1459 static HRESULT Global_vbYesNo(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1460 {
1461     FIXME("\n");
1462     return E_NOTIMPL;
1463 }
1464
1465 static HRESULT Global_vbRetryCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1466 {
1467     FIXME("\n");
1468     return E_NOTIMPL;
1469 }
1470
1471 static HRESULT Global_vbCritical(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1472 {
1473     FIXME("\n");
1474     return E_NOTIMPL;
1475 }
1476
1477 static HRESULT Global_vbQuestion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1478 {
1479     FIXME("\n");
1480     return E_NOTIMPL;
1481 }
1482
1483 static HRESULT Global_vbExclamation(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1484 {
1485     FIXME("\n");
1486     return E_NOTIMPL;
1487 }
1488
1489 static HRESULT Global_vbInformation(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1490 {
1491     FIXME("\n");
1492     return E_NOTIMPL;
1493 }
1494
1495 static HRESULT Global_vbDefaultButton1(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1496 {
1497     FIXME("\n");
1498     return E_NOTIMPL;
1499 }
1500
1501 static HRESULT Global_vbDefaultButton2(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1502 {
1503     FIXME("\n");
1504     return E_NOTIMPL;
1505 }
1506
1507 static HRESULT Global_vbDefaultButton3(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1508 {
1509     FIXME("\n");
1510     return E_NOTIMPL;
1511 }
1512
1513 static HRESULT Global_vbDefaultButton4(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1514 {
1515     FIXME("\n");
1516     return E_NOTIMPL;
1517 }
1518
1519 static HRESULT Global_vbApplicationModal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1520 {
1521     FIXME("\n");
1522     return E_NOTIMPL;
1523 }
1524
1525 static HRESULT Global_vbSystemModal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1526 {
1527     FIXME("\n");
1528     return E_NOTIMPL;
1529 }
1530
1531 static HRESULT Global_vbOK(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1532 {
1533     FIXME("\n");
1534     return E_NOTIMPL;
1535 }
1536
1537 static HRESULT Global_vbCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1538 {
1539     FIXME("\n");
1540     return E_NOTIMPL;
1541 }
1542
1543 static HRESULT Global_vbAbort(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1544 {
1545     FIXME("\n");
1546     return E_NOTIMPL;
1547 }
1548
1549 static HRESULT Global_vbRetry(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1550 {
1551     FIXME("\n");
1552     return E_NOTIMPL;
1553 }
1554
1555 static HRESULT Global_vbIgnore(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1556 {
1557     FIXME("\n");
1558     return E_NOTIMPL;
1559 }
1560
1561 static HRESULT Global_vbYes(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1562 {
1563     FIXME("\n");
1564     return E_NOTIMPL;
1565 }
1566
1567 static HRESULT Global_vbNo(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1568 {
1569     FIXME("\n");
1570     return E_NOTIMPL;
1571 }
1572
1573 static HRESULT Global_vbEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1574 {
1575     FIXME("\n");
1576     return E_NOTIMPL;
1577 }
1578
1579 static HRESULT Global_vbNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1580 {
1581     FIXME("\n");
1582     return E_NOTIMPL;
1583 }
1584
1585 static HRESULT Global_vbInteger(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1586 {
1587     FIXME("\n");
1588     return E_NOTIMPL;
1589 }
1590
1591 static HRESULT Global_vbLong(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1592 {
1593     FIXME("\n");
1594     return E_NOTIMPL;
1595 }
1596
1597 static HRESULT Global_vbSingle(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1598 {
1599     FIXME("\n");
1600     return E_NOTIMPL;
1601 }
1602
1603 static HRESULT Global_vbDouble(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1604 {
1605     FIXME("\n");
1606     return E_NOTIMPL;
1607 }
1608
1609 static HRESULT Global_vbCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1610 {
1611     FIXME("\n");
1612     return E_NOTIMPL;
1613 }
1614
1615 static HRESULT Global_vbDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1616 {
1617     FIXME("\n");
1618     return E_NOTIMPL;
1619 }
1620
1621 static HRESULT Global_vbString(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1622 {
1623     FIXME("\n");
1624     return E_NOTIMPL;
1625 }
1626
1627 static HRESULT Global_vbObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1628 {
1629     FIXME("\n");
1630     return E_NOTIMPL;
1631 }
1632
1633 static HRESULT Global_vbError(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1634 {
1635     FIXME("\n");
1636     return E_NOTIMPL;
1637 }
1638
1639 static HRESULT Global_vbBoolean(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1640 {
1641     FIXME("\n");
1642     return E_NOTIMPL;
1643 }
1644
1645 static HRESULT Global_vbVariant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1646 {
1647     FIXME("\n");
1648     return E_NOTIMPL;
1649 }
1650
1651 static HRESULT Global_vbDataObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1652 {
1653     FIXME("\n");
1654     return E_NOTIMPL;
1655 }
1656
1657 static HRESULT Global_vbDecimal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1658 {
1659     FIXME("\n");
1660     return E_NOTIMPL;
1661 }
1662
1663 static HRESULT Global_vbByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1664 {
1665     FIXME("\n");
1666     return E_NOTIMPL;
1667 }
1668
1669 static HRESULT Global_vbArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1670 {
1671     FIXME("\n");
1672     return E_NOTIMPL;
1673 }
1674
1675 static HRESULT Global_vbTrue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1676 {
1677     FIXME("\n");
1678     return E_NOTIMPL;
1679 }
1680
1681 static HRESULT Global_vbFalse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1682 {
1683     FIXME("\n");
1684     return E_NOTIMPL;
1685 }
1686
1687 static HRESULT Global_vbUseDefault(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1688 {
1689     FIXME("\n");
1690     return E_NOTIMPL;
1691 }
1692
1693 static HRESULT Global_vbBinaryCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1694 {
1695     FIXME("\n");
1696     return E_NOTIMPL;
1697 }
1698
1699 static HRESULT Global_vbTextCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1700 {
1701     FIXME("\n");
1702     return E_NOTIMPL;
1703 }
1704
1705 static HRESULT Global_vbDatabaseCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1706 {
1707     FIXME("\n");
1708     return E_NOTIMPL;
1709 }
1710
1711 static HRESULT Global_vbGeneralDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1712 {
1713     FIXME("\n");
1714     return E_NOTIMPL;
1715 }
1716
1717 static HRESULT Global_vbLongDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1718 {
1719     FIXME("\n");
1720     return E_NOTIMPL;
1721 }
1722
1723 static HRESULT Global_vbShortDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1724 {
1725     FIXME("\n");
1726     return E_NOTIMPL;
1727 }
1728
1729 static HRESULT Global_vbLongTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1730 {
1731     FIXME("\n");
1732     return E_NOTIMPL;
1733 }
1734
1735 static HRESULT Global_vbShortTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1736 {
1737     FIXME("\n");
1738     return E_NOTIMPL;
1739 }
1740
1741 static HRESULT Global_vbObjectError(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1742 {
1743     FIXME("\n");
1744     return E_NOTIMPL;
1745 }
1746
1747 static HRESULT Global_vbBlack(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1748 {
1749     FIXME("\n");
1750     return E_NOTIMPL;
1751 }
1752
1753 static HRESULT Global_vbBlue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1754 {
1755     FIXME("\n");
1756     return E_NOTIMPL;
1757 }
1758
1759 static HRESULT Global_vbCyan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1760 {
1761     FIXME("\n");
1762     return E_NOTIMPL;
1763 }
1764
1765 static HRESULT Global_vbGreen(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1766 {
1767     FIXME("\n");
1768     return E_NOTIMPL;
1769 }
1770
1771 static HRESULT Global_vbMagenta(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1772 {
1773     FIXME("\n");
1774     return E_NOTIMPL;
1775 }
1776
1777 static HRESULT Global_vbRed(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1778 {
1779     FIXME("\n");
1780     return E_NOTIMPL;
1781 }
1782
1783 static HRESULT Global_vbWhite(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1784 {
1785     FIXME("\n");
1786     return E_NOTIMPL;
1787 }
1788
1789 static HRESULT Global_vbYellow(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1790 {
1791     FIXME("\n");
1792     return E_NOTIMPL;
1793 }
1794
1795 static HRESULT Global_vbCr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1796 {
1797     FIXME("\n");
1798     return E_NOTIMPL;
1799 }
1800
1801 static HRESULT Global_vbCrLf(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1802 {
1803     FIXME("\n");
1804     return E_NOTIMPL;
1805 }
1806
1807 static HRESULT Global_vbNewLine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1808 {
1809     FIXME("\n");
1810     return E_NOTIMPL;
1811 }
1812
1813 static HRESULT Global_vbFormFeed(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1814 {
1815     FIXME("\n");
1816     return E_NOTIMPL;
1817 }
1818
1819 static HRESULT Global_vbLf(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1820 {
1821     FIXME("\n");
1822     return E_NOTIMPL;
1823 }
1824
1825 static HRESULT Global_vbNullChar(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1826 {
1827     FIXME("\n");
1828     return E_NOTIMPL;
1829 }
1830
1831 static HRESULT Global_vbNullString(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1832 {
1833     FIXME("\n");
1834     return E_NOTIMPL;
1835 }
1836
1837 static HRESULT Global_vbTab(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1838 {
1839     FIXME("\n");
1840     return E_NOTIMPL;
1841 }
1842
1843 static HRESULT Global_vbVerticalTab(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1844 {
1845     FIXME("\n");
1846     return E_NOTIMPL;
1847 }
1848
1849 static HRESULT Global_vbMsgBoxHelpButton(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1850 {
1851     FIXME("\n");
1852     return E_NOTIMPL;
1853 }
1854
1855 static HRESULT Global_vbMsgBoxSetForeground(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1856 {
1857     FIXME("\n");
1858     return E_NOTIMPL;
1859 }
1860
1861 static HRESULT Global_vbMsgBoxRight(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1862 {
1863     FIXME("\n");
1864     return E_NOTIMPL;
1865 }
1866
1867 static HRESULT Global_vbMsgBoxRtlReading(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1868 {
1869     FIXME("\n");
1870     return E_NOTIMPL;
1871 }
1872
1873 static const builtin_prop_t global_props[] = {
1874     {DISPID_GLOBAL_VBUSESYSTEM,        Global_vbUseSystem, BP_GET},
1875     {DISPID_GLOBAL_USESYSTEMDAYOFWEEK, Global_vbUseSystemDayOfWeek, BP_GET},
1876     {DISPID_GLOBAL_VBSUNDAY,           Global_vbSunday, BP_GET},
1877     {DISPID_GLOBAL_VBMONDAY,           Global_vbMonday, BP_GET},
1878     {DISPID_GLOBAL_VBTUESDAY,          Global_vbTuesday, BP_GET},
1879     {DISPID_GLOBAL_VBWEDNESDAY,        Global_vbWednesday, BP_GET},
1880     {DISPID_GLOBAL_VBTHURSDAY,         Global_vbThursday, BP_GET},
1881     {DISPID_GLOBAL_VBFRIDAY,           Global_vbFriday, BP_GET},
1882     {DISPID_GLOBAL_VBSATURDAY,         Global_vbSaturday, BP_GET},
1883     {DISPID_GLOBAL_VBFIRSTJAN1,        Global_vbFirstJan1, BP_GET},
1884     {DISPID_GLOBAL_VBFIRSTFOURDAYS,    Global_vbFirstFourDays, BP_GET},
1885     {DISPID_GLOBAL_VBFIRSTFULLWEEK,    Global_vbFirstFullWeek, BP_GET},
1886     {DISPID_GLOBAL_VBOKONLY,           Global_vbOKOnly, BP_GET},
1887     {DISPID_GLOBAL_VBOKCANCEL,         Global_vbOKCancel, BP_GET},
1888     {DISPID_GLOBAL_VBABORTRETRYIGNORE, Global_vbAbortRetryIgnore, BP_GET},
1889     {DISPID_GLOBAL_VBYESNOCANCEL,      Global_vbYesNoCancel, BP_GET},
1890     {DISPID_GLOBAL_VBYESNO,            Global_vbYesNo, BP_GET},
1891     {DISPID_GLOBAL_VBRETRYCANCEL,      Global_vbRetryCancel, BP_GET},
1892     {DISPID_GLOBAL_VBCRITICAL,         Global_vbCritical, BP_GET},
1893     {DISPID_GLOBAL_VBQUESTION,         Global_vbQuestion, BP_GET},
1894     {DISPID_GLOBAL_VBEXCLAMATION,      Global_vbExclamation, BP_GET},
1895     {DISPID_GLOBAL_VBINFORMATION,      Global_vbInformation, BP_GET},
1896     {DISPID_GLOBAL_VBDEFAULTBUTTON1,   Global_vbDefaultButton1, BP_GET},
1897     {DISPID_GLOBAL_VBDEFAULTBUTTON2,   Global_vbDefaultButton2, BP_GET},
1898     {DISPID_GLOBAL_VBDEFAULTBUTTON3,   Global_vbDefaultButton3, BP_GET},
1899     {DISPID_GLOBAL_VBDEFAULTBUTTON4,   Global_vbDefaultButton4, BP_GET},
1900     {DISPID_GLOBAL_VBAPPLICATIONMODAL, Global_vbApplicationModal, BP_GET},
1901     {DISPID_GLOBAL_VBSYSTEMMODAL,      Global_vbSystemModal, BP_GET},
1902     {DISPID_GLOBAL_VBOK,               Global_vbOK, BP_GET},
1903     {DISPID_GLOBAL_VBCANCEL,           Global_vbCancel, BP_GET},
1904     {DISPID_GLOBAL_VBABORT,            Global_vbAbort, BP_GET},
1905     {DISPID_GLOBAL_VBRETRY,            Global_vbRetry, BP_GET},
1906     {DISPID_GLOBAL_VBIGNORE,           Global_vbIgnore, BP_GET},
1907     {DISPID_GLOBAL_VBYES,              Global_vbYes, BP_GET},
1908     {DISPID_GLOBAL_VBNO,               Global_vbNo, BP_GET},
1909     {DISPID_GLOBAL_VBEMPTY,            Global_vbEmpty, BP_GET},
1910     {DISPID_GLOBAL_VBNULL,             Global_vbNull, BP_GET},
1911     {DISPID_GLOBAL_VBINTEGER,          Global_vbInteger, BP_GET},
1912     {DISPID_GLOBAL_VBLONG,             Global_vbLong, BP_GET},
1913     {DISPID_GLOBAL_VBSINGLE,           Global_vbSingle, BP_GET},
1914     {DISPID_GLOBAL_VBDOUBLE,           Global_vbDouble, BP_GET},
1915     {DISPID_GLOBAL_VBCURRENCY,         Global_vbCurrency, BP_GET},
1916     {DISPID_GLOBAL_VBDATE,             Global_vbDate, BP_GET},
1917     {DISPID_GLOBAL_VBSTRING,           Global_vbString, BP_GET},
1918     {DISPID_GLOBAL_VBOBJECT,           Global_vbObject, BP_GET},
1919     {DISPID_GLOBAL_VBERROR,            Global_vbError, BP_GET},
1920     {DISPID_GLOBAL_VBBOOLEAN,          Global_vbBoolean, BP_GET},
1921     {DISPID_GLOBAL_VBVARIANT,          Global_vbVariant, BP_GET},
1922     {DISPID_GLOBAL_VBDATAOBJECT,       Global_vbDataObject, BP_GET},
1923     {DISPID_GLOBAL_VBDECIMAL,          Global_vbDecimal, BP_GET},
1924     {DISPID_GLOBAL_VBBYTE,             Global_vbByte, BP_GET},
1925     {DISPID_GLOBAL_VBARRAY,            Global_vbArray, BP_GET},
1926     {DISPID_GLOBAL_VBTRUE,             Global_vbTrue, BP_GET},
1927     {DISPID_GLOBAL_VBFALSE,            Global_vbFalse, BP_GET},
1928     {DISPID_GLOBAL_VBUSEDEFAULT,       Global_vbUseDefault, BP_GET},
1929     {DISPID_GLOBAL_VBBINARYCOMPARE,    Global_vbBinaryCompare, BP_GET},
1930     {DISPID_GLOBAL_VBTEXTCOMPARE,      Global_vbTextCompare, BP_GET},
1931     {DISPID_GLOBAL_VBDATABASECOMPARE,  Global_vbDatabaseCompare, BP_GET},
1932     {DISPID_GLOBAL_VBGENERALDATE,      Global_vbGeneralDate, BP_GET},
1933     {DISPID_GLOBAL_VBLONGDATE,         Global_vbLongDate, BP_GET},
1934     {DISPID_GLOBAL_VBSHORTDATE,        Global_vbShortDate, BP_GET},
1935     {DISPID_GLOBAL_VBLONGTIME,         Global_vbLongTime, BP_GET},
1936     {DISPID_GLOBAL_VBSHORTTIME,        Global_vbShortTime, BP_GET},
1937     {DISPID_GLOBAL_VBOBJECTERROR,      Global_vbObjectError, BP_GET},
1938     {DISPID_GLOBAL_VBBLACK,            Global_vbBlack, BP_GET},
1939     {DISPID_GLOBAL_VBBLUE,             Global_vbBlue, BP_GET},
1940     {DISPID_GLOBAL_VBCYAN,             Global_vbCyan, BP_GET},
1941     {DISPID_GLOBAL_VBGREEN,            Global_vbGreen, BP_GET},
1942     {DISPID_GLOBAL_VBMAGENTA,          Global_vbMagenta, BP_GET},
1943     {DISPID_GLOBAL_VBRED,              Global_vbRed, BP_GET},
1944     {DISPID_GLOBAL_VBWHITE,            Global_vbWhite, BP_GET},
1945     {DISPID_GLOBAL_VBYELLOW,           Global_vbYellow, BP_GET},
1946     {DISPID_GLOBAL_VBCR,               Global_vbCr, BP_GET},
1947     {DISPID_GLOBAL_VBCRLF,             Global_vbCrLf, BP_GET},
1948     {DISPID_GLOBAL_VBNEWLINE,          Global_vbNewLine, BP_GET},
1949     {DISPID_GLOBAL_VBFORMFEED,         Global_vbFormFeed, BP_GET},
1950     {DISPID_GLOBAL_VBLF,               Global_vbLf, BP_GET},
1951     {DISPID_GLOBAL_VBNULLCHAR,         Global_vbNullChar, BP_GET},
1952     {DISPID_GLOBAL_VBNULLSTRING,       Global_vbNullString, BP_GET},
1953     {DISPID_GLOBAL_VBTAB,              Global_vbTab, BP_GET},
1954     {DISPID_GLOBAL_VBVERTICALTAB,      Global_vbVerticalTab, BP_GET},
1955     {DISPID_GLOBAL_CCUR,                      Global_CCur, 0, 1},
1956     {DISPID_GLOBAL_CINT,                      Global_CInt, 0, 1},
1957     {DISPID_GLOBAL_CLNG,                      Global_CLng, 0, 1},
1958     {DISPID_GLOBAL_CBOOL,                     Global_CBool, 0, 1},
1959     {DISPID_GLOBAL_CBYTE,                     Global_CByte, 0, 1},
1960     {DISPID_GLOBAL_CDATE,                     Global_CDate, 0, 1},
1961     {DISPID_GLOBAL_CDBL,                      Global_CDbl, 0, 1},
1962     {DISPID_GLOBAL_CSNG,                      Global_CSng, 0, 1},
1963     {DISPID_GLOBAL_CSTR,                      Global_CStr, 0, 1},
1964     {DISPID_GLOBAL_HEX,                       Global_Hex, 0, 1},
1965     {DISPID_GLOBAL_OCT,                       Global_Oct, 0, 1},
1966     {DISPID_GLOBAL_VARTYPE,                   Global_VarType, 0, 1},
1967     {DISPID_GLOBAL_ISDATE,                    Global_IsDate, 0, 1},
1968     {DISPID_GLOBAL_ISEMPTY,                   Global_IsEmpty, 0, 1},
1969     {DISPID_GLOBAL_ISNULL,                    Global_IsNull, 0, 1},
1970     {DISPID_GLOBAL_ISNUMERIC,                 Global_IsNumeric, 0, 1},
1971     {DISPID_GLOBAL_ISARRAY,                   Global_IsArray, 0, 1},
1972     {DISPID_GLOBAL_ISOBJECT,                  Global_IsObject, 0, 1},
1973     {DISPID_GLOBAL_ATN,                       Global_Ant, 0, 1},
1974     {DISPID_GLOBAL_COS,                       Global_Cos, 0, 1},
1975     {DISPID_GLOBAL_SIN,                       Global_Sin, 0, 1},
1976     {DISPID_GLOBAL_TAN,                       Global_Tan, 0, 1},
1977     {DISPID_GLOBAL_EXP,                       Global_Exp, 0, 1},
1978     {DISPID_GLOBAL_LOG,                       Global_Log, 0, 1},
1979     {DISPID_GLOBAL_SQR,                       Global_Sqr, 0, 1},
1980     {DISPID_GLOBAL_RANDOMIZE,                 Global_Randomize, 0, 1},
1981     {DISPID_GLOBAL_RND,                       Global_Rnd, 0, 1},
1982     {DISPID_GLOBAL_TIMER,                     Global_Timer, 0, 0},
1983     {DISPID_GLOBAL_LBOUND,                    Global_LBound, 0, 1},
1984     {DISPID_GLOBAL_UBOUND,                    Global_UBound, 0, 1},
1985     {DISPID_GLOBAL_RGB,                       Global_RGB, 0, 3},
1986     {DISPID_GLOBAL_LEN,                       Global_Len, 0, 1},
1987     {DISPID_GLOBAL_LENB,                      Global_LenB, 0, 1},
1988     {DISPID_GLOBAL_LEFT,                      Global_Left, 0, 2},
1989     {DISPID_GLOBAL_LEFTB,                     Global_LeftB, 0, 2},
1990     {DISPID_GLOBAL_RIGHT,                     Global_Right, 0, 2},
1991     {DISPID_GLOBAL_RIGHTB,                    Global_RightB, 0, 2},
1992     {DISPID_GLOBAL_MID,                       Global_Mid, 0, 2, 3},
1993     {DISPID_GLOBAL_MIDB,                      Global_MidB, 0, 2, 3},
1994     {DISPID_GLOBAL_STRCOMP,                   Global_StrComp, 0, 2, 3},
1995     {DISPID_GLOBAL_LCASE,                     Global_LCase, 0, 1},
1996     {DISPID_GLOBAL_UCASE,                     Global_UCase, 0, 1},
1997     {DISPID_GLOBAL_LTRIM,                     Global_LTrim, 0, 1},
1998     {DISPID_GLOBAL_RTRIM,                     Global_RTrim, 0, 1},
1999     {DISPID_GLOBAL_TRIM,                      Global_Trim, 0, 1},
2000     {DISPID_GLOBAL_SPACE,                     Global_Space, 0, 1},
2001     {DISPID_GLOBAL_STRING,                    Global_String, 0, 0, 2},
2002     {DISPID_GLOBAL_INSTR,                     Global_InStr, 0, 2, 4},
2003     {DISPID_GLOBAL_INSTRB,                    Global_InStrB, 0, 3, 4},
2004     {DISPID_GLOBAL_ASCB,                      Global_AscB, 0, 1},
2005     {DISPID_GLOBAL_CHRB,                      Global_ChrB, 0, 1},
2006     {DISPID_GLOBAL_ASC,                       Global_Asc, 0, 1},
2007     {DISPID_GLOBAL_CHR,                       Global_Chr, 0, 1},
2008     {DISPID_GLOBAL_ASCW,                      Global_AscW, 0, 1},
2009     {DISPID_GLOBAL_CHRW,                      Global_ChrW, 0, 1},
2010     {DISPID_GLOBAL_ABS,                       Global_Abs, 0, 1},
2011     {DISPID_GLOBAL_FIX,                       Global_Fix, 0, 1},
2012     {DISPID_GLOBAL_INT,                       Global_Int, 0, 1},
2013     {DISPID_GLOBAL_SGN,                       Global_Sgn, 0, 1},
2014     {DISPID_GLOBAL_NOW,                       Global_Now, 0, 0},
2015     {DISPID_GLOBAL_DATE,                      Global_Date, 0, 0},
2016     {DISPID_GLOBAL_TIME,                      Global_Time, 0, 0},
2017     {DISPID_GLOBAL_DAY,                       Global_Day, 0, 1},
2018     {DISPID_GLOBAL_MONTH,                     Global_Month, 0, 1},
2019     {DISPID_GLOBAL_WEEKDAY,                   Global_Weekday, 0, 1, 2},
2020     {DISPID_GLOBAL_YEAR,                      Global_Year, 0, 1},
2021     {DISPID_GLOBAL_HOUR,                      Global_Hour, 0, 1},
2022     {DISPID_GLOBAL_MINUTE,                    Global_Minute, 0, 1},
2023     {DISPID_GLOBAL_SECOND,                    Global_Second, 0, 1},
2024     {DISPID_GLOBAL_DATEVALUE,                 Global_DateValue, 0, 1},
2025     {DISPID_GLOBAL_TIMEVALUE,                 Global_TimeValue, 0, 1},
2026     {DISPID_GLOBAL_DATESERIAL,                Global_DateSerial, 0, 3},
2027     {DISPID_GLOBAL_TIMESERIAL,                Global_TimeSerial, 0, 3},
2028     {DISPID_GLOBAL_INPUTBOX,                  Global_InputBox, 0, 1, 7},
2029     {DISPID_GLOBAL_MSGBOX,                    Global_MsgBox, 0, 1, 5},
2030     {DISPID_GLOBAL_CREATEOBJECT,              Global_CreateObject, 0, 1},
2031     {DISPID_GLOBAL_GETOBJECT,                 Global_GetObject, 0, 0, 2},
2032     {DISPID_GLOBAL_DATEADD,                   Global_DateAdd, 0, 3},
2033     {DISPID_GLOBAL_DATEDIFF,                  Global_DateDiff, 0, 3, 5},
2034     {DISPID_GLOBAL_DATEPART,                  Global_DatePart, 0, 2, 4},
2035     {DISPID_GLOBAL_TYPENAME,                  Global_TypeName, 0, 1},
2036     {DISPID_GLOBAL_ARRAY,                     Global_Array, 0, 1},
2037     {DISPID_GLOBAL_ERASE,                     Global_Erase, 0, 1},
2038     {DISPID_GLOBAL_FILTER,                    Global_Filter, 0, 2, 4},
2039     {DISPID_GLOBAL_JOIN,                      Global_Join, 0, 1, 2},
2040     {DISPID_GLOBAL_SPLIT,                     Global_Split, 0, 1, 4},
2041     {DISPID_GLOBAL_REPLACE,                   Global_Replace, 0, 3, 6},
2042     {DISPID_GLOBAL_STRREVERSE,                Global_StrReverse, 0, 1},
2043     {DISPID_GLOBAL_INSTRREV,                  Global_InStrRev, 0, 2, 4},
2044     {DISPID_GLOBAL_LOADPICTURE,               Global_LoadPicture, 0, 1},
2045     {DISPID_GLOBAL_SCRIPTENGINE,              Global_ScriptEngine, 0, 0},
2046     {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION,  Global_ScriptEngineMajorVersion, 0, 0},
2047     {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION,  Global_ScriptEngineMinorVersion, 0, 0},
2048     {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION,  Global_ScriptEngineBuildVersion, 0, 0},
2049     {DISPID_GLOBAL_FORMATNUMBER,              Global_FormatNumber, 0, 1, 5},
2050     {DISPID_GLOBAL_FORMATCURRENCY,            Global_FormatCurrency, 0, 1, 5},
2051     {DISPID_GLOBAL_FORMATPERCENT,             Global_FormatPercent, 0, 1, 5},
2052     {DISPID_GLOBAL_FORMATDATETIME,            Global_FormatDateTime, 0, 1, 2},
2053     {DISPID_GLOBAL_WEEKDAYNAME,               Global_WeekdayName, 0, 1, 3},
2054     {DISPID_GLOBAL_MONTHNAME,                 Global_MonthName, 0, 1, 2},
2055     {DISPID_GLOBAL_ROUND,                     Global_Round, 0, 1, 2},
2056     {DISPID_GLOBAL_ESCAPE,                    Global_Escape, 0, 1},
2057     {DISPID_GLOBAL_UNESCAPE,                  Global_Unescape, 0, 1},
2058     {DISPID_GLOBAL_EVAL,                      Global_Eval, 0, 1},
2059     {DISPID_GLOBAL_EXECUTE,                   Global_Execute, 0, 1},
2060     {DISPID_GLOBAL_EXECUTEGLOBAL,             Global_ExecuteGlobal, 0, 1},
2061     {DISPID_GLOBAL_GETREF,                    Global_GetRef, 0, 1},
2062     {DISPID_GLOBAL_VBMSGBOXHELPBUTTON,     Global_vbMsgBoxHelpButton, BP_GET},
2063     {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND,  Global_vbMsgBoxSetForeground, BP_GET},
2064     {DISPID_GLOBAL_VBMSGBOXRIGHT,          Global_vbMsgBoxRight, BP_GET},
2065     {DISPID_GLOBAL_VBMSGBOXRTLREADING,     Global_vbMsgBoxRtlReading, BP_GET}
2066 };
2067
2068 HRESULT init_global(script_ctx_t *ctx)
2069 {
2070     HRESULT hres;
2071
2072     ctx->global_desc.ctx = ctx;
2073     ctx->global_desc.builtin_prop_cnt = sizeof(global_props)/sizeof(*global_props);
2074     ctx->global_desc.builtin_props = global_props;
2075
2076     hres = get_typeinfo(GlobalObj_tid, &ctx->global_desc.typeinfo);
2077     if(FAILED(hres))
2078         return hres;
2079
2080     hres = create_vbdisp(&ctx->global_desc, &ctx->global_obj);
2081     if(FAILED(hres))
2082         return hres;
2083
2084     hres = create_script_disp(ctx, &ctx->script_obj);
2085     if(FAILED(hres))
2086         return hres;
2087
2088     return init_err(ctx);
2089 }