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