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 *args, unsigned args_cnt, VARIANT *res)
 636 {
 637     BSTR str, ret, conv_str = NULL;
 638     int len, str_len;
 639     HRESULT hres;
 640
 641     TRACE("(%s %s)\n", debugstr_variant(args+1), debugstr_variant(args));
 642
 643     if(V_VT(args+1) == VT_BSTR) {
 644         str = V_BSTR(args+1);
 645     }else {
 646         hres = to_string(args+1, &conv_str);
 647         if(FAILED(hres))
 648             return hres;
 649         str = conv_str;
 650     }
 651
 652     hres = to_int(args, &len);
 653     if(FAILED(hres))
 654         return hres;
 655
 656     if(len < 0) {
 657         FIXME("len = %d\n", len);
 658         return E_FAIL;
 659     }
 660
 661     str_len = SysStringLen(str);
 662     if(len > str_len)
 663         len = str_len;
 664
 665     ret = SysAllocStringLen(str, len);
 666     SysFreeString(conv_str);
 667     if(!ret)
 668         return E_OUTOFMEMORY;
 669
 670     return return_bstr(res, ret);
 671 }
 672
 673 static HRESULT Global_LeftB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 674 {
 675     FIXME("\n");
 676     return E_NOTIMPL;
 677 }
 678
 679 static HRESULT Global_Right(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 680 {
 681     BSTR str, ret, conv_str = NULL;
 682     int len, str_len;
 683     HRESULT hres;
 684
 685     TRACE("(%s %s)\n", debugstr_variant(args+1), debugstr_variant(args));
 686
 687     if(V_VT(args+1) == VT_BSTR) {
 688         str = V_BSTR(args+1);
 689     }else {
 690         hres = to_string(args+1, &conv_str);
 691         if(FAILED(hres))
 692             return hres;
 693         str = conv_str;
 694     }
 695
 696     hres = to_int(args, &len);
 697     if(FAILED(hres))
 698         return hres;
 699
 700     if(len < 0) {
 701         FIXME("len = %d\n", len);
 702         return E_FAIL;
 703     }
 704
 705     str_len = SysStringLen(str);
 706     if(len > str_len)
 707         len = str_len;
 708
 709     ret = SysAllocStringLen(str+str_len-len, len);
 710     SysFreeString(conv_str);
 711     if(!ret)
 712         return E_OUTOFMEMORY;
 713
 714     return return_bstr(res, ret);
 715 }
 716
 717 static HRESULT Global_RightB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 718 {
 719     FIXME("\n");
 720     return E_NOTIMPL;
 721 }
 722
 723 static HRESULT Global_Mid(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 724 {
 725     int len = -1, start, str_len;
 726     BSTR str;
 727     HRESULT hres;
 728
 729     TRACE("\n");
 730
 731     switch(args_cnt) {
 732     case 3:
 733         hres = to_int(args, &len);
 734         if(FAILED(hres))
 735             return hres;
 736
 737         if(len < 0) {
 738             FIXME("len = %d\n", len);
 739             return E_FAIL;
 740         }
 741         /* fallthrough */
 742     case 2:
 743         hres = to_int(args+args_cnt-2, &start);
 744         if(FAILED(hres))
 745             return hres;
 746
 747         if(V_VT(args+args_cnt-1) != VT_BSTR) {
 748             FIXME("args[0] = %s\n", debugstr_variant(args+args_cnt-1));
 749             return E_NOTIMPL;
 750         }
 751
 752         str = V_BSTR(args+args_cnt-1);
 753         break;
 754     default:
 755         assert(0);
 756     }
 757
 758
 759     str_len = SysStringLen(str);
 760     start--;
 761     if(start > str_len)
 762         start = str_len;
 763
 764     if(len == -1)
 765         len = str_len-start;
 766     else if(len > str_len-start)
 767         len = str_len-start;
 768
 769     if(res) {
 770         V_VT(res) = VT_BSTR;
 771         V_BSTR(res) = SysAllocStringLen(str+start, len);
 772         if(!V_BSTR(res))
 773             return E_OUTOFMEMORY;
 774     }
 775
 776     return S_OK;
 777 }
 778
 779 static HRESULT Global_MidB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 780 {
 781     FIXME("\n");
 782     return E_NOTIMPL;
 783 }
 784
 785 static HRESULT Global_StrComp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 786 {
 787     FIXME("\n");
 788     return E_NOTIMPL;
 789 }
 790
 791 static HRESULT Global_LCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 792 {
 793     BSTR str;
 794     HRESULT hres;
 795
 796     TRACE("%s\n", debugstr_variant(arg));
 797
 798     if(V_VT(arg) == VT_NULL) {
 799         if(res)
 800             V_VT(res) = VT_NULL;
 801         return S_OK;
 802     }
 803
 804     hres = to_string(arg, &str);
 805     if(FAILED(hres))
 806         return hres;
 807
 808     if(res) {
 809         WCHAR *ptr;
 810
 811         for(ptr = str; *ptr; ptr++)
 812             *ptr = tolowerW(*ptr);
 813
 814         V_VT(res) = VT_BSTR;
 815         V_BSTR(res) = str;
 816     }else {
 817         SysFreeString(str);
 818     }
 819     return S_OK;
 820 }
 821
 822 static HRESULT Global_UCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 823 {
 824     BSTR str;
 825     HRESULT hres;
 826
 827     TRACE("%s\n", debugstr_variant(arg));
 828
 829     if(V_VT(arg) == VT_NULL) {
 830         if(res)
 831             V_VT(res) = VT_NULL;
 832         return S_OK;
 833     }
 834
 835     hres = to_string(arg, &str);
 836     if(FAILED(hres))
 837         return hres;
 838
 839     if(res) {
 840         WCHAR *ptr;
 841
 842         for(ptr = str; *ptr; ptr++)
 843             *ptr = toupperW(*ptr);
 844
 845         V_VT(res) = VT_BSTR;
 846         V_BSTR(res) = str;
 847     }else {
 848         SysFreeString(str);
 849     }
 850     return S_OK;
 851 }
 852
 853 static HRESULT Global_LTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 854 {
 855     BSTR str, conv_str = NULL;
 856     WCHAR *ptr;
 857     HRESULT hres;
 858
 859     TRACE("%s\n", debugstr_variant(arg));
 860
 861     if(V_VT(arg) == VT_BSTR) {
 862         str = V_BSTR(arg);
 863     }else {
 864         hres = to_string(arg, &conv_str);
 865         if(FAILED(hres))
 866             return hres;
 867         str = conv_str;
 868     }
 869
 870     for(ptr = str; *ptr && isspaceW(*ptr); ptr++);
 871
 872     str = SysAllocString(ptr);
 873     SysFreeString(conv_str);
 874     if(!str)
 875         return E_OUTOFMEMORY;
 876
 877     return return_bstr(res, str);
 878 }
 879
 880 static HRESULT Global_RTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 881 {
 882     BSTR str, conv_str = NULL;
 883     WCHAR *ptr;
 884     HRESULT hres;
 885
 886     TRACE("%s\n", debugstr_variant(arg));
 887
 888     if(V_VT(arg) == VT_BSTR) {
 889         str = V_BSTR(arg);
 890     }else {
 891         hres = to_string(arg, &conv_str);
 892         if(FAILED(hres))
 893             return hres;
 894         str = conv_str;
 895     }
 896
 897     for(ptr = str+SysStringLen(str); ptr-1 > str && isspaceW(*(ptr-1)); ptr--);
 898
 899     str = SysAllocStringLen(str, ptr-str);
 900     SysFreeString(conv_str);
 901     if(!str)
 902         return E_OUTOFMEMORY;
 903
 904     return return_bstr(res, str);
 905 }
 906
 907 static HRESULT Global_Trim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 908 {
 909     BSTR str, conv_str = NULL;
 910     WCHAR *begin_ptr, *end_ptr;
 911     HRESULT hres;
 912
 913     TRACE("%s\n", debugstr_variant(arg));
 914
 915     if(V_VT(arg) == VT_BSTR) {
 916         str = V_BSTR(arg);
 917     }else {
 918         hres = to_string(arg, &conv_str);
 919         if(FAILED(hres))
 920             return hres;
 921         str = conv_str;
 922     }
 923
 924     for(begin_ptr = str; *begin_ptr && isspaceW(*begin_ptr); begin_ptr++);
 925     for(end_ptr = str+SysStringLen(str); end_ptr-1 > begin_ptr && isspaceW(*(end_ptr-1)); end_ptr--);
 926
 927     str = SysAllocStringLen(begin_ptr, end_ptr-begin_ptr);
 928     SysFreeString(conv_str);
 929     if(!str)
 930         return E_OUTOFMEMORY;
 931
 932     return return_bstr(res, str);
 933 }
 934
 935 static HRESULT Global_Space(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 936 {
 937     BSTR str;
 938     int n, i;
 939     HRESULT hres;
 940
 941     TRACE("%s\n", debugstr_variant(arg));
 942
 943     hres = to_int(arg, &n);
 944     if(FAILED(hres))
 945         return hres;
 946
 947     if(n < 0) {
 948         FIXME("n = %d\n", n);
 949         return E_NOTIMPL;
 950     }
 951
 952     if(!res)
 953         return S_OK;
 954
 955     str = SysAllocStringLen(NULL, n);
 956     if(!str)
 957         return E_OUTOFMEMORY;
 958
 959     for(i=0; i<n; i++)
 960         str[i] = ' ';
 961
 962     V_VT(res) = VT_BSTR;
 963     V_BSTR(res) = str;
 964     return S_OK;
 965 }
 966
 967 static HRESULT Global_String(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 968 {
 969     FIXME("\n");
 970     return E_NOTIMPL;
 971 }
 972
 973 static HRESULT Global_InStr(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 974 {
 975     VARIANT *startv, *str1v, *str2v;
 976     BSTR str1, str2;
 977     int start, ret;
 978     HRESULT hres;
 979
 980     TRACE("\n");
 981
 982     switch(args_cnt) {
 983     case 2:
 984         startv = NULL;
 985         str1v = args+1;
 986         str2v = args;
 987         break;
 988     case 3:
 989         startv = args+2;
 990         str1v = args+1;
 991         str2v = args;
 992         break;
 993     case 4:
 994         FIXME("unsupported compare argument %s\n", debugstr_variant(args));
 995         return E_NOTIMPL;
 996     default:
 997         assert(0);
 998     }
 999
1000     if(startv) {
1001         hres = to_int(startv, &start);
1002         if(FAILED(hres))
1003             return hres;
1004         if(--start < 0) {
1005             FIXME("start %d\n", start);
1006             return E_FAIL;
1007         }
1008     }else {
1009         start = 0;
1010     }
1011
1012     if(V_VT(str1v) == VT_NULL || V_VT(str2v) == VT_NULL)
1013         return return_null(res);
1014
1015     if(V_VT(str1v) != VT_BSTR) {
1016         FIXME("Unsupported str1 type %s\n", debugstr_variant(str1v));
1017         return E_NOTIMPL;
1018     }
1019     str1 = V_BSTR(str1v);
1020
1021     if(V_VT(str2v) != VT_BSTR) {
1022         FIXME("Unsupported str2 type %s\n", debugstr_variant(str2v));
1023         return E_NOTIMPL;
1024     }
1025     str2 = V_BSTR(str2v);
1026
1027     if(start < SysStringLen(str1)) {
1028         WCHAR *ptr;
1029
1030         ptr = strstrW(str1+start, str2);
1031         ret = ptr ? ptr-str1+1 : 0;
1032     }else {
1033         ret = 0;
1034     }
1035
1036     return return_int(res, ret);
1037 }
1038
1039 static HRESULT Global_InStrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1040 {
1041     FIXME("\n");
1042     return E_NOTIMPL;
1043 }
1044
1045 static HRESULT Global_AscB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1046 {
1047     FIXME("\n");
1048     return E_NOTIMPL;
1049 }
1050
1051 static HRESULT Global_ChrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1052 {
1053     FIXME("\n");
1054     return E_NOTIMPL;
1055 }
1056
1057 static HRESULT Global_Asc(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1058 {
1059     FIXME("\n");
1060     return E_NOTIMPL;
1061 }
1062
1063 static HRESULT Global_Chr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1064 {
1065     FIXME("\n");
1066     return E_NOTIMPL;
1067 }
1068
1069 static HRESULT Global_AscW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1070 {
1071     FIXME("\n");
1072     return E_NOTIMPL;
1073 }
1074
1075 static HRESULT Global_ChrW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1076 {
1077     FIXME("\n");
1078     return E_NOTIMPL;
1079 }
1080
1081 static HRESULT Global_Abs(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1082 {
1083     FIXME("\n");
1084     return E_NOTIMPL;
1085 }
1086
1087 static HRESULT Global_Fix(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1088 {
1089     FIXME("\n");
1090     return E_NOTIMPL;
1091 }
1092
1093 static HRESULT Global_Int(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1094 {
1095     FIXME("\n");
1096     return E_NOTIMPL;
1097 }
1098
1099 static HRESULT Global_Sgn(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1100 {
1101     FIXME("\n");
1102     return E_NOTIMPL;
1103 }
1104
1105 static HRESULT Global_Now(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1106 {
1107     SYSTEMTIME lt;
1108     double date;
1109
1110     TRACE("\n");
1111
1112     GetLocalTime(&lt);
1113     SystemTimeToVariantTime(&lt, &date);
1114     return return_date(res, date);
1115 }
1116
1117 static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1118 {
1119     FIXME("\n");
1120     return E_NOTIMPL;
1121 }
1122
1123 static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1124 {
1125     FIXME("\n");
1126     return E_NOTIMPL;
1127 }
1128
1129 static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1130 {
1131     FIXME("\n");
1132     return E_NOTIMPL;
1133 }
1134
1135 static HRESULT Global_Month(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1136 {
1137     FIXME("\n");
1138     return E_NOTIMPL;
1139 }
1140
1141 static HRESULT Global_Weekday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1142 {
1143     FIXME("\n");
1144     return E_NOTIMPL;
1145 }
1146
1147 static HRESULT Global_Year(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1148 {
1149     FIXME("\n");
1150     return E_NOTIMPL;
1151 }
1152
1153 static HRESULT Global_Hour(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1154 {
1155     FIXME("\n");
1156     return E_NOTIMPL;
1157 }
1158
1159 static HRESULT Global_Minute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1160 {
1161     FIXME("\n");
1162     return E_NOTIMPL;
1163 }
1164
1165 static HRESULT Global_Second(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1166 {
1167     FIXME("\n");
1168     return E_NOTIMPL;
1169 }
1170
1171 static HRESULT Global_DateValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1172 {
1173     FIXME("\n");
1174     return E_NOTIMPL;
1175 }
1176
1177 static HRESULT Global_TimeValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1178 {
1179     FIXME("\n");
1180     return E_NOTIMPL;
1181 }
1182
1183 static HRESULT Global_DateSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1184 {
1185     FIXME("\n");
1186     return E_NOTIMPL;
1187 }
1188
1189 static HRESULT Global_TimeSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1190 {
1191     FIXME("\n");
1192     return E_NOTIMPL;
1193 }
1194
1195 static HRESULT Global_InputBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1196 {
1197     FIXME("\n");
1198     return E_NOTIMPL;
1199 }
1200
1201 static HRESULT Global_MsgBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1202 {
1203     BSTR prompt;
1204     HRESULT hres;
1205
1206     TRACE("\n");
1207
1208     if(args_cnt != 1) {
1209         FIXME("unsupported arg_cnt %d\n", args_cnt);
1210         return E_NOTIMPL;
1211     }
1212
1213     hres = to_string(arg, &prompt);
1214     if(FAILED(hres))
1215         return hres;
1216
1217     hres = show_msgbox(This->desc->ctx, prompt, res);
1218     SysFreeString(prompt);
1219     return hres;
1220 }
1221
1222 static HRESULT Global_CreateObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1223 {
1224     IUnknown *obj;
1225     HRESULT hres;
1226
1227     TRACE("(%s)\n", debugstr_variant(arg));
1228
1229     if(V_VT(arg) != VT_BSTR) {
1230         FIXME("non-bstr arg\n");
1231         return E_INVALIDARG;
1232     }
1233
1234     obj = create_object(This->desc->ctx, V_BSTR(arg));
1235     if(!obj)
1236         return VB_E_CANNOT_CREATE_OBJ;
1237
1238     if(res) {
1239         hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&V_DISPATCH(res));
1240         if(FAILED(hres))
1241             return hres;
1242
1243         V_VT(res) = VT_DISPATCH;
1244     }
1245
1246     IUnknown_Release(obj);
1247     return S_OK;
1248 }
1249
1250 static HRESULT Global_GetObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1251 {
1252     FIXME("\n");
1253     return E_NOTIMPL;
1254 }
1255
1256 static HRESULT Global_DateAdd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1257 {
1258     FIXME("\n");
1259     return E_NOTIMPL;
1260 }
1261
1262 static HRESULT Global_DateDiff(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1263 {
1264     FIXME("\n");
1265     return E_NOTIMPL;
1266 }
1267
1268 static HRESULT Global_DatePart(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1269 {
1270     FIXME("\n");
1271     return E_NOTIMPL;
1272 }
1273
1274 static HRESULT Global_TypeName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1275 {
1276     FIXME("\n");
1277     return E_NOTIMPL;
1278 }
1279
1280 static HRESULT Global_Array(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1281 {
1282     FIXME("\n");
1283     return E_NOTIMPL;
1284 }
1285
1286 static HRESULT Global_Erase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1287 {
1288     FIXME("\n");
1289     return E_NOTIMPL;
1290 }
1291
1292 static HRESULT Global_Filter(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1293 {
1294     FIXME("\n");
1295     return E_NOTIMPL;
1296 }
1297
1298 static HRESULT Global_Join(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1299 {
1300     FIXME("\n");
1301     return E_NOTIMPL;
1302 }
1303
1304 static HRESULT Global_Split(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1305 {
1306     FIXME("\n");
1307     return E_NOTIMPL;
1308 }
1309
1310 static HRESULT Global_Replace(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1311 {
1312     FIXME("\n");
1313     return E_NOTIMPL;
1314 }
1315
1316 static HRESULT Global_StrReverse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1317 {
1318     WCHAR *ptr1, *ptr2, ch;
1319     BSTR ret;
1320     HRESULT hres;
1321
1322     TRACE("%s\n", debugstr_variant(arg));
1323
1324     hres = to_string(arg, &ret);
1325     if(FAILED(hres))
1326         return hres;
1327
1328     ptr1 = ret;
1329     ptr2 = ret + SysStringLen(ret)-1;
1330     while(ptr1 < ptr2) {
1331         ch = *ptr1;
1332         *ptr1++ = *ptr2;
1333         *ptr2-- = ch;
1334     }
1335
1336     return return_bstr(res, ret);
1337 }
1338
1339 static HRESULT Global_InStrRev(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1340 {
1341     FIXME("\n");
1342     return E_NOTIMPL;
1343 }
1344
1345 static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1346 {
1347     FIXME("\n");
1348     return E_NOTIMPL;
1349 }
1350
1351 static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1352 {
1353     FIXME("\n");
1354     return E_NOTIMPL;
1355 }
1356
1357 static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1358 {
1359     FIXME("\n");
1360     return E_NOTIMPL;
1361 }
1362
1363 static HRESULT Global_ScriptEngineMinorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1364 {
1365     FIXME("\n");
1366     return E_NOTIMPL;
1367 }
1368
1369 static HRESULT Global_ScriptEngineBuildVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1370 {
1371     FIXME("\n");
1372     return E_NOTIMPL;
1373 }
1374
1375 static HRESULT Global_FormatNumber(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1376 {
1377     FIXME("\n");
1378     return E_NOTIMPL;
1379 }
1380
1381 static HRESULT Global_FormatCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1382 {
1383     FIXME("\n");
1384     return E_NOTIMPL;
1385 }
1386
1387 static HRESULT Global_FormatPercent(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1388 {
1389     FIXME("\n");
1390     return E_NOTIMPL;
1391 }
1392
1393 static HRESULT Global_FormatDateTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1394 {
1395     FIXME("\n");
1396     return E_NOTIMPL;
1397 }
1398
1399 static HRESULT Global_WeekdayName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1400 {
1401     int weekday, first_day = 0, abbrev = 0;
1402     BSTR ret;
1403     HRESULT hres;
1404
1405     TRACE("\n");
1406
1407     assert(1 <= args_cnt && args_cnt <= 3);
1408
1409     hres = to_int(arg+args_cnt-1, &weekday);
1410     if(FAILED(hres))
1411         return hres;
1412
1413     if(args_cnt > 1) {
1414         hres = to_int(arg+args_cnt-2, &abbrev);
1415         if(FAILED(hres))
1416             return hres;
1417
1418         if(args_cnt == 3) {
1419             hres = to_int(arg, &first_day);
1420             if(FAILED(hres))
1421                 return hres;
1422         }
1423     }
1424
1425     hres = VarWeekdayName(weekday, abbrev, first_day, 0, &ret);
1426     if(FAILED(hres))
1427         return hres;
1428
1429     return return_bstr(res, ret);
1430 }
1431
1432 static HRESULT Global_MonthName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1433 {
1434     int month, abbrev = 0;
1435     BSTR ret;
1436     HRESULT hres;
1437
1438     TRACE("\n");
1439
1440     assert(args_cnt == 1 || args_cnt == 2);
1441
1442     hres = to_int(arg+args_cnt-1, &month);
1443     if(FAILED(hres))
1444         return hres;
1445
1446     if(args_cnt == 2) {
1447         hres = to_int(arg, &abbrev);
1448         if(FAILED(hres))
1449             return hres;
1450     }
1451
1452     hres = VarMonthName(month, abbrev, 0, &ret);
1453     if(FAILED(hres))
1454         return hres;
1455
1456     return return_bstr(res, ret);
1457 }
1458
1459 static HRESULT Global_Round(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1460 {
1461     double n;
1462     HRESULT hres;
1463
1464     TRACE("%s\n", debugstr_variant(arg));
1465
1466     if(!res)
1467         return S_OK;
1468
1469     switch(V_VT(arg)) {
1470     case VT_I2:
1471     case VT_I4:
1472     case VT_BOOL:
1473         *res = *arg;
1474         return S_OK;
1475     case VT_R8:
1476         n = V_R8(arg);
1477         break;
1478     default:
1479         hres = to_double(arg, &n);
1480         if(FAILED(hres))
1481             return hres;
1482     }
1483
1484     return return_double(res, round(n));
1485 }
1486
1487 static HRESULT Global_Escape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1488 {
1489     FIXME("\n");
1490     return E_NOTIMPL;
1491 }
1492
1493 static HRESULT Global_Unescape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1494 {
1495     FIXME("\n");
1496     return E_NOTIMPL;
1497 }
1498
1499 static HRESULT Global_Eval(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1500 {
1501     FIXME("\n");
1502     return E_NOTIMPL;
1503 }
1504
1505 static HRESULT Global_Execute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1506 {
1507     FIXME("\n");
1508     return E_NOTIMPL;
1509 }
1510
1511 static HRESULT Global_ExecuteGlobal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1512 {
1513     FIXME("\n");
1514     return E_NOTIMPL;
1515 }
1516
1517 static HRESULT Global_GetRef(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1518 {
1519     FIXME("\n");
1520     return E_NOTIMPL;
1521 }
1522
1523 static HRESULT Global_vbUseSystem(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1524 {
1525     FIXME("\n");
1526     return E_NOTIMPL;
1527 }
1528
1529 static HRESULT Global_vbUseSystemDayOfWeek(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1530 {
1531     FIXME("\n");
1532     return E_NOTIMPL;
1533 }
1534
1535 static HRESULT Global_vbSunday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1536 {
1537     TRACE("\n");
1538     return return_short(res, 1);
1539 }
1540
1541 static HRESULT Global_vbMonday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1542 {
1543     TRACE("\n");
1544     return return_short(res, 2);
1545 }
1546
1547 static HRESULT Global_vbTuesday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1548 {
1549     TRACE("\n");
1550     return return_short(res, 3);
1551 }
1552
1553 static HRESULT Global_vbWednesday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1554 {
1555     TRACE("\n");
1556     return return_short(res, 4);
1557 }
1558
1559 static HRESULT Global_vbThursday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1560 {
1561     TRACE("\n");
1562     return return_short(res, 5);
1563 }
1564
1565 static HRESULT Global_vbFriday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1566 {
1567     TRACE("\n");
1568     return return_short(res, 6);
1569 }
1570
1571 static HRESULT Global_vbSaturday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1572 {
1573     TRACE("\n");
1574     return return_short(res, 7);
1575 }
1576
1577 static HRESULT Global_vbFirstJan1(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1578 {
1579     FIXME("\n");
1580     return E_NOTIMPL;
1581 }
1582
1583 static HRESULT Global_vbFirstFourDays(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1584 {
1585     FIXME("\n");
1586     return E_NOTIMPL;
1587 }
1588
1589 static HRESULT Global_vbFirstFullWeek(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1590 {
1591     FIXME("\n");
1592     return E_NOTIMPL;
1593 }
1594
1595 static HRESULT Global_vbOKOnly(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1596 {
1597     TRACE("\n");
1598     return return_short(res, MB_OK);
1599 }
1600
1601 static HRESULT Global_vbOKCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1602 {
1603     TRACE("\n");
1604     return return_short(res, MB_OKCANCEL);
1605 }
1606
1607 static HRESULT Global_vbAbortRetryIgnore(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1608 {
1609     TRACE("\n");
1610     return return_short(res, MB_ABORTRETRYIGNORE);
1611 }
1612
1613 static HRESULT Global_vbYesNoCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1614 {
1615     TRACE("\n");
1616     return return_short(res, MB_YESNOCANCEL);
1617 }
1618
1619 static HRESULT Global_vbYesNo(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1620 {
1621     TRACE("\n");
1622     return return_short(res, MB_YESNO);
1623 }
1624
1625 static HRESULT Global_vbRetryCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1626 {
1627     TRACE("\n");
1628     return return_short(res, MB_RETRYCANCEL);
1629 }
1630
1631 static HRESULT Global_vbCritical(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1632 {
1633     FIXME("\n");
1634     return E_NOTIMPL;
1635 }
1636
1637 static HRESULT Global_vbQuestion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1638 {
1639     FIXME("\n");
1640     return E_NOTIMPL;
1641 }
1642
1643 static HRESULT Global_vbExclamation(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1644 {
1645     FIXME("\n");
1646     return E_NOTIMPL;
1647 }
1648
1649 static HRESULT Global_vbInformation(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1650 {
1651     FIXME("\n");
1652     return E_NOTIMPL;
1653 }
1654
1655 static HRESULT Global_vbDefaultButton1(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1656 {
1657     FIXME("\n");
1658     return E_NOTIMPL;
1659 }
1660
1661 static HRESULT Global_vbDefaultButton2(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1662 {
1663     FIXME("\n");
1664     return E_NOTIMPL;
1665 }
1666
1667 static HRESULT Global_vbDefaultButton3(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1668 {
1669     FIXME("\n");
1670     return E_NOTIMPL;
1671 }
1672
1673 static HRESULT Global_vbDefaultButton4(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1674 {
1675     FIXME("\n");
1676     return E_NOTIMPL;
1677 }
1678
1679 static HRESULT Global_vbApplicationModal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1680 {
1681     FIXME("\n");
1682     return E_NOTIMPL;
1683 }
1684
1685 static HRESULT Global_vbSystemModal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1686 {
1687     FIXME("\n");
1688     return E_NOTIMPL;
1689 }
1690
1691 static HRESULT Global_vbOK(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1692 {
1693     TRACE("\n");
1694     return return_short(res, IDOK);
1695 }
1696
1697 static HRESULT Global_vbCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1698 {
1699     TRACE("\n");
1700     return return_short(res, IDCANCEL);
1701 }
1702
1703 static HRESULT Global_vbAbort(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1704 {
1705     TRACE("\n");
1706     return return_short(res, IDABORT);
1707 }
1708
1709 static HRESULT Global_vbRetry(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1710 {
1711     TRACE("\n");
1712     return return_short(res, IDRETRY);
1713 }
1714
1715 static HRESULT Global_vbIgnore(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1716 {
1717     TRACE("\n");
1718     return return_short(res, IDIGNORE);
1719 }
1720
1721 static HRESULT Global_vbYes(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1722 {
1723     TRACE("\n");
1724     return return_short(res, IDYES);
1725 }
1726
1727 static HRESULT Global_vbNo(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1728 {
1729     TRACE("\n");
1730     return return_short(res, IDNO);
1731 }
1732
1733 static HRESULT Global_vbEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1734 {
1735     FIXME("\n");
1736     return E_NOTIMPL;
1737 }
1738
1739 static HRESULT Global_vbNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1740 {
1741     FIXME("\n");
1742     return E_NOTIMPL;
1743 }
1744
1745 static HRESULT Global_vbInteger(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1746 {
1747     FIXME("\n");
1748     return E_NOTIMPL;
1749 }
1750
1751 static HRESULT Global_vbLong(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1752 {
1753     FIXME("\n");
1754     return E_NOTIMPL;
1755 }
1756
1757 static HRESULT Global_vbSingle(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1758 {
1759     FIXME("\n");
1760     return E_NOTIMPL;
1761 }
1762
1763 static HRESULT Global_vbDouble(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1764 {
1765     FIXME("\n");
1766     return E_NOTIMPL;
1767 }
1768
1769 static HRESULT Global_vbCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1770 {
1771     FIXME("\n");
1772     return E_NOTIMPL;
1773 }
1774
1775 static HRESULT Global_vbDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1776 {
1777     FIXME("\n");
1778     return E_NOTIMPL;
1779 }
1780
1781 static HRESULT Global_vbString(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1782 {
1783     FIXME("\n");
1784     return E_NOTIMPL;
1785 }
1786
1787 static HRESULT Global_vbObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1788 {
1789     FIXME("\n");
1790     return E_NOTIMPL;
1791 }
1792
1793 static HRESULT Global_vbError(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1794 {
1795     FIXME("\n");
1796     return E_NOTIMPL;
1797 }
1798
1799 static HRESULT Global_vbBoolean(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1800 {
1801     FIXME("\n");
1802     return E_NOTIMPL;
1803 }
1804
1805 static HRESULT Global_vbVariant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1806 {
1807     FIXME("\n");
1808     return E_NOTIMPL;
1809 }
1810
1811 static HRESULT Global_vbDataObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1812 {
1813     FIXME("\n");
1814     return E_NOTIMPL;
1815 }
1816
1817 static HRESULT Global_vbDecimal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1818 {
1819     FIXME("\n");
1820     return E_NOTIMPL;
1821 }
1822
1823 static HRESULT Global_vbByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1824 {
1825     FIXME("\n");
1826     return E_NOTIMPL;
1827 }
1828
1829 static HRESULT Global_vbArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1830 {
1831     FIXME("\n");
1832     return E_NOTIMPL;
1833 }
1834
1835 static HRESULT Global_vbTrue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1836 {
1837     FIXME("\n");
1838     return E_NOTIMPL;
1839 }
1840
1841 static HRESULT Global_vbFalse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1842 {
1843     FIXME("\n");
1844     return E_NOTIMPL;
1845 }
1846
1847 static HRESULT Global_vbUseDefault(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1848 {
1849     FIXME("\n");
1850     return E_NOTIMPL;
1851 }
1852
1853 static HRESULT Global_vbBinaryCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1854 {
1855     FIXME("\n");
1856     return E_NOTIMPL;
1857 }
1858
1859 static HRESULT Global_vbTextCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1860 {
1861     FIXME("\n");
1862     return E_NOTIMPL;
1863 }
1864
1865 static HRESULT Global_vbDatabaseCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1866 {
1867     FIXME("\n");
1868     return E_NOTIMPL;
1869 }
1870
1871 static HRESULT Global_vbGeneralDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1872 {
1873     FIXME("\n");
1874     return E_NOTIMPL;
1875 }
1876
1877 static HRESULT Global_vbLongDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1878 {
1879     FIXME("\n");
1880     return E_NOTIMPL;
1881 }
1882
1883 static HRESULT Global_vbShortDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1884 {
1885     FIXME("\n");
1886     return E_NOTIMPL;
1887 }
1888
1889 static HRESULT Global_vbLongTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1890 {
1891     FIXME("\n");
1892     return E_NOTIMPL;
1893 }
1894
1895 static HRESULT Global_vbShortTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1896 {
1897     FIXME("\n");
1898     return E_NOTIMPL;
1899 }
1900
1901 static HRESULT Global_vbObjectError(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1902 {
1903     FIXME("\n");
1904     return E_NOTIMPL;
1905 }
1906
1907 static HRESULT Global_vbBlack(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1908 {
1909     FIXME("\n");
1910     return E_NOTIMPL;
1911 }
1912
1913 static HRESULT Global_vbBlue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1914 {
1915     FIXME("\n");
1916     return E_NOTIMPL;
1917 }
1918
1919 static HRESULT Global_vbCyan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1920 {
1921     FIXME("\n");
1922     return E_NOTIMPL;
1923 }
1924
1925 static HRESULT Global_vbGreen(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1926 {
1927     FIXME("\n");
1928     return E_NOTIMPL;
1929 }
1930
1931 static HRESULT Global_vbMagenta(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1932 {
1933     FIXME("\n");
1934     return E_NOTIMPL;
1935 }
1936
1937 static HRESULT Global_vbRed(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1938 {
1939     FIXME("\n");
1940     return E_NOTIMPL;
1941 }
1942
1943 static HRESULT Global_vbWhite(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1944 {
1945     FIXME("\n");
1946     return E_NOTIMPL;
1947 }
1948
1949 static HRESULT Global_vbYellow(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1950 {
1951     FIXME("\n");
1952     return E_NOTIMPL;
1953 }
1954
1955 static HRESULT Global_vbCr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1956 {
1957     FIXME("\n");
1958     return E_NOTIMPL;
1959 }
1960
1961 static HRESULT Global_vbCrLf(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1962 {
1963     FIXME("\n");
1964     return E_NOTIMPL;
1965 }
1966
1967 static HRESULT Global_vbNewLine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1968 {
1969     FIXME("\n");
1970     return E_NOTIMPL;
1971 }
1972
1973 static HRESULT Global_vbFormFeed(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1974 {
1975     FIXME("\n");
1976     return E_NOTIMPL;
1977 }
1978
1979 static HRESULT Global_vbLf(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1980 {
1981     FIXME("\n");
1982     return E_NOTIMPL;
1983 }
1984
1985 static HRESULT Global_vbNullChar(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1986 {
1987     FIXME("\n");
1988     return E_NOTIMPL;
1989 }
1990
1991 static HRESULT Global_vbNullString(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1992 {
1993     FIXME("\n");
1994     return E_NOTIMPL;
1995 }
1996
1997 static HRESULT Global_vbTab(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1998 {
1999     FIXME("\n");
2000     return E_NOTIMPL;
2001 }
2002
2003 static HRESULT Global_vbVerticalTab(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
2004 {
2005     FIXME("\n");
2006     return E_NOTIMPL;
2007 }
2008
2009 static HRESULT Global_vbMsgBoxHelpButton(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
2010 {
2011     FIXME("\n");
2012     return E_NOTIMPL;
2013 }
2014
2015 static HRESULT Global_vbMsgBoxSetForeground(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
2016 {
2017     FIXME("\n");
2018     return E_NOTIMPL;
2019 }
2020
2021 static HRESULT Global_vbMsgBoxRight(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
2022 {
2023     FIXME("\n");
2024     return E_NOTIMPL;
2025 }
2026
2027 static HRESULT Global_vbMsgBoxRtlReading(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
2028 {
2029     FIXME("\n");
2030     return E_NOTIMPL;
2031 }
2032
2033 static const builtin_prop_t global_props[] = {
2034     {DISPID_GLOBAL_VBUSESYSTEM,        Global_vbUseSystem, BP_GET},
2035     {DISPID_GLOBAL_USESYSTEMDAYOFWEEK, Global_vbUseSystemDayOfWeek, BP_GET},
2036     {DISPID_GLOBAL_VBSUNDAY,           Global_vbSunday, BP_GET},
2037     {DISPID_GLOBAL_VBMONDAY,           Global_vbMonday, BP_GET},
2038     {DISPID_GLOBAL_VBTUESDAY,          Global_vbTuesday, BP_GET},
2039     {DISPID_GLOBAL_VBWEDNESDAY,        Global_vbWednesday, BP_GET},
2040     {DISPID_GLOBAL_VBTHURSDAY,         Global_vbThursday, BP_GET},
2041     {DISPID_GLOBAL_VBFRIDAY,           Global_vbFriday, BP_GET},
2042     {DISPID_GLOBAL_VBSATURDAY,         Global_vbSaturday, BP_GET},
2043     {DISPID_GLOBAL_VBFIRSTJAN1,        Global_vbFirstJan1, BP_GET},
2044     {DISPID_GLOBAL_VBFIRSTFOURDAYS,    Global_vbFirstFourDays, BP_GET},
2045     {DISPID_GLOBAL_VBFIRSTFULLWEEK,    Global_vbFirstFullWeek, BP_GET},
2046     {DISPID_GLOBAL_VBOKONLY,           Global_vbOKOnly, BP_GET},
2047     {DISPID_GLOBAL_VBOKCANCEL,         Global_vbOKCancel, BP_GET},
2048     {DISPID_GLOBAL_VBABORTRETRYIGNORE, Global_vbAbortRetryIgnore, BP_GET},
2049     {DISPID_GLOBAL_VBYESNOCANCEL,      Global_vbYesNoCancel, BP_GET},
2050     {DISPID_GLOBAL_VBYESNO,            Global_vbYesNo, BP_GET},
2051     {DISPID_GLOBAL_VBRETRYCANCEL,      Global_vbRetryCancel, BP_GET},
2052     {DISPID_GLOBAL_VBCRITICAL,         Global_vbCritical, BP_GET},
2053     {DISPID_GLOBAL_VBQUESTION,         Global_vbQuestion, BP_GET},
2054     {DISPID_GLOBAL_VBEXCLAMATION,      Global_vbExclamation, BP_GET},
2055     {DISPID_GLOBAL_VBINFORMATION,      Global_vbInformation, BP_GET},
2056     {DISPID_GLOBAL_VBDEFAULTBUTTON1,   Global_vbDefaultButton1, BP_GET},
2057     {DISPID_GLOBAL_VBDEFAULTBUTTON2,   Global_vbDefaultButton2, BP_GET},
2058     {DISPID_GLOBAL_VBDEFAULTBUTTON3,   Global_vbDefaultButton3, BP_GET},
2059     {DISPID_GLOBAL_VBDEFAULTBUTTON4,   Global_vbDefaultButton4, BP_GET},
2060     {DISPID_GLOBAL_VBAPPLICATIONMODAL, Global_vbApplicationModal, BP_GET},
2061     {DISPID_GLOBAL_VBSYSTEMMODAL,      Global_vbSystemModal, BP_GET},
2062     {DISPID_GLOBAL_VBOK,               Global_vbOK, BP_GET},
2063     {DISPID_GLOBAL_VBCANCEL,           Global_vbCancel, BP_GET},
2064     {DISPID_GLOBAL_VBABORT,            Global_vbAbort, BP_GET},
2065     {DISPID_GLOBAL_VBRETRY,            Global_vbRetry, BP_GET},
2066     {DISPID_GLOBAL_VBIGNORE,           Global_vbIgnore, BP_GET},
2067     {DISPID_GLOBAL_VBYES,              Global_vbYes, BP_GET},
2068     {DISPID_GLOBAL_VBNO,               Global_vbNo, BP_GET},
2069     {DISPID_GLOBAL_VBEMPTY,            Global_vbEmpty, BP_GET},
2070     {DISPID_GLOBAL_VBNULL,             Global_vbNull, BP_GET},
2071     {DISPID_GLOBAL_VBINTEGER,          Global_vbInteger, BP_GET},
2072     {DISPID_GLOBAL_VBLONG,             Global_vbLong, BP_GET},
2073     {DISPID_GLOBAL_VBSINGLE,           Global_vbSingle, BP_GET},
2074     {DISPID_GLOBAL_VBDOUBLE,           Global_vbDouble, BP_GET},
2075     {DISPID_GLOBAL_VBCURRENCY,         Global_vbCurrency, BP_GET},
2076     {DISPID_GLOBAL_VBDATE,             Global_vbDate, BP_GET},
2077     {DISPID_GLOBAL_VBSTRING,           Global_vbString, BP_GET},
2078     {DISPID_GLOBAL_VBOBJECT,           Global_vbObject, BP_GET},
2079     {DISPID_GLOBAL_VBERROR,            Global_vbError, BP_GET},
2080     {DISPID_GLOBAL_VBBOOLEAN,          Global_vbBoolean, BP_GET},
2081     {DISPID_GLOBAL_VBVARIANT,          Global_vbVariant, BP_GET},
2082     {DISPID_GLOBAL_VBDATAOBJECT,       Global_vbDataObject, BP_GET},
2083     {DISPID_GLOBAL_VBDECIMAL,          Global_vbDecimal, BP_GET},
2084     {DISPID_GLOBAL_VBBYTE,             Global_vbByte, BP_GET},
2085     {DISPID_GLOBAL_VBARRAY,            Global_vbArray, BP_GET},
2086     {DISPID_GLOBAL_VBTRUE,             Global_vbTrue, BP_GET},
2087     {DISPID_GLOBAL_VBFALSE,            Global_vbFalse, BP_GET},
2088     {DISPID_GLOBAL_VBUSEDEFAULT,       Global_vbUseDefault, BP_GET},
2089     {DISPID_GLOBAL_VBBINARYCOMPARE,    Global_vbBinaryCompare, BP_GET},
2090     {DISPID_GLOBAL_VBTEXTCOMPARE,      Global_vbTextCompare, BP_GET},
2091     {DISPID_GLOBAL_VBDATABASECOMPARE,  Global_vbDatabaseCompare, BP_GET},
2092     {DISPID_GLOBAL_VBGENERALDATE,      Global_vbGeneralDate, BP_GET},
2093     {DISPID_GLOBAL_VBLONGDATE,         Global_vbLongDate, BP_GET},
2094     {DISPID_GLOBAL_VBSHORTDATE,        Global_vbShortDate, BP_GET},
2095     {DISPID_GLOBAL_VBLONGTIME,         Global_vbLongTime, BP_GET},
2096     {DISPID_GLOBAL_VBSHORTTIME,        Global_vbShortTime, BP_GET},
2097     {DISPID_GLOBAL_VBOBJECTERROR,      Global_vbObjectError, BP_GET},
2098     {DISPID_GLOBAL_VBBLACK,            Global_vbBlack, BP_GET},
2099     {DISPID_GLOBAL_VBBLUE,             Global_vbBlue, BP_GET},
2100     {DISPID_GLOBAL_VBCYAN,             Global_vbCyan, BP_GET},
2101     {DISPID_GLOBAL_VBGREEN,            Global_vbGreen, BP_GET},
2102     {DISPID_GLOBAL_VBMAGENTA,          Global_vbMagenta, BP_GET},
2103     {DISPID_GLOBAL_VBRED,              Global_vbRed, BP_GET},
2104     {DISPID_GLOBAL_VBWHITE,            Global_vbWhite, BP_GET},
2105     {DISPID_GLOBAL_VBYELLOW,           Global_vbYellow, BP_GET},
2106     {DISPID_GLOBAL_VBCR,               Global_vbCr, BP_GET},
2107     {DISPID_GLOBAL_VBCRLF,             Global_vbCrLf, BP_GET},
2108     {DISPID_GLOBAL_VBNEWLINE,          Global_vbNewLine, BP_GET},
2109     {DISPID_GLOBAL_VBFORMFEED,         Global_vbFormFeed, BP_GET},
2110     {DISPID_GLOBAL_VBLF,               Global_vbLf, BP_GET},
2111     {DISPID_GLOBAL_VBNULLCHAR,         Global_vbNullChar, BP_GET},
2112     {DISPID_GLOBAL_VBNULLSTRING,       Global_vbNullString, BP_GET},
2113     {DISPID_GLOBAL_VBTAB,              Global_vbTab, BP_GET},
2114     {DISPID_GLOBAL_VBVERTICALTAB,      Global_vbVerticalTab, BP_GET},
2115     {DISPID_GLOBAL_CCUR,                      Global_CCur, 0, 1},
2116     {DISPID_GLOBAL_CINT,                      Global_CInt, 0, 1},
2117     {DISPID_GLOBAL_CLNG,                      Global_CLng, 0, 1},
2118     {DISPID_GLOBAL_CBOOL,                     Global_CBool, 0, 1},
2119     {DISPID_GLOBAL_CBYTE,                     Global_CByte, 0, 1},
2120     {DISPID_GLOBAL_CDATE,                     Global_CDate, 0, 1},
2121     {DISPID_GLOBAL_CDBL,                      Global_CDbl, 0, 1},
2122     {DISPID_GLOBAL_CSNG,                      Global_CSng, 0, 1},
2123     {DISPID_GLOBAL_CSTR,                      Global_CStr, 0, 1},
2124     {DISPID_GLOBAL_HEX,                       Global_Hex, 0, 1},
2125     {DISPID_GLOBAL_OCT,                       Global_Oct, 0, 1},
2126     {DISPID_GLOBAL_VARTYPE,                   Global_VarType, 0, 1},
2127     {DISPID_GLOBAL_ISDATE,                    Global_IsDate, 0, 1},
2128     {DISPID_GLOBAL_ISEMPTY,                   Global_IsEmpty, 0, 1},
2129     {DISPID_GLOBAL_ISNULL,                    Global_IsNull, 0, 1},
2130     {DISPID_GLOBAL_ISNUMERIC,                 Global_IsNumeric, 0, 1},
2131     {DISPID_GLOBAL_ISARRAY,                   Global_IsArray, 0, 1},
2132     {DISPID_GLOBAL_ISOBJECT,                  Global_IsObject, 0, 1},
2133     {DISPID_GLOBAL_ATN,                       Global_Ant, 0, 1},
2134     {DISPID_GLOBAL_COS,                       Global_Cos, 0, 1},
2135     {DISPID_GLOBAL_SIN,                       Global_Sin, 0, 1},
2136     {DISPID_GLOBAL_TAN,                       Global_Tan, 0, 1},
2137     {DISPID_GLOBAL_EXP,                       Global_Exp, 0, 1},
2138     {DISPID_GLOBAL_LOG,                       Global_Log, 0, 1},
2139     {DISPID_GLOBAL_SQR,                       Global_Sqr, 0, 1},
2140     {DISPID_GLOBAL_RANDOMIZE,                 Global_Randomize, 0, 1},
2141     {DISPID_GLOBAL_RND,                       Global_Rnd, 0, 1},
2142     {DISPID_GLOBAL_TIMER,                     Global_Timer, 0, 0},
2143     {DISPID_GLOBAL_LBOUND,                    Global_LBound, 0, 1},
2144     {DISPID_GLOBAL_UBOUND,                    Global_UBound, 0, 1},
2145     {DISPID_GLOBAL_RGB,                       Global_RGB, 0, 3},
2146     {DISPID_GLOBAL_LEN,                       Global_Len, 0, 1},
2147     {DISPID_GLOBAL_LENB,                      Global_LenB, 0, 1},
2148     {DISPID_GLOBAL_LEFT,                      Global_Left, 0, 2},
2149     {DISPID_GLOBAL_LEFTB,                     Global_LeftB, 0, 2},
2150     {DISPID_GLOBAL_RIGHT,                     Global_Right, 0, 2},
2151     {DISPID_GLOBAL_RIGHTB,                    Global_RightB, 0, 2},
2152     {DISPID_GLOBAL_MID,                       Global_Mid, 0, 2, 3},
2153     {DISPID_GLOBAL_MIDB,                      Global_MidB, 0, 2, 3},
2154     {DISPID_GLOBAL_STRCOMP,                   Global_StrComp, 0, 2, 3},
2155     {DISPID_GLOBAL_LCASE,                     Global_LCase, 0, 1},
2156     {DISPID_GLOBAL_UCASE,                     Global_UCase, 0, 1},
2157     {DISPID_GLOBAL_LTRIM,                     Global_LTrim, 0, 1},
2158     {DISPID_GLOBAL_RTRIM,                     Global_RTrim, 0, 1},
2159     {DISPID_GLOBAL_TRIM,                      Global_Trim, 0, 1},
2160     {DISPID_GLOBAL_SPACE,                     Global_Space, 0, 1},
2161     {DISPID_GLOBAL_STRING,                    Global_String, 0, 0, 2},
2162     {DISPID_GLOBAL_INSTR,                     Global_InStr, 0, 2, 4},
2163     {DISPID_GLOBAL_INSTRB,                    Global_InStrB, 0, 3, 4},
2164     {DISPID_GLOBAL_ASCB,                      Global_AscB, 0, 1},
2165     {DISPID_GLOBAL_CHRB,                      Global_ChrB, 0, 1},
2166     {DISPID_GLOBAL_ASC,                       Global_Asc, 0, 1},
2167     {DISPID_GLOBAL_CHR,                       Global_Chr, 0, 1},
2168     {DISPID_GLOBAL_ASCW,                      Global_AscW, 0, 1},
2169     {DISPID_GLOBAL_CHRW,                      Global_ChrW, 0, 1},
2170     {DISPID_GLOBAL_ABS,                       Global_Abs, 0, 1},
2171     {DISPID_GLOBAL_FIX,                       Global_Fix, 0, 1},
2172     {DISPID_GLOBAL_INT,                       Global_Int, 0, 1},
2173     {DISPID_GLOBAL_SGN,                       Global_Sgn, 0, 1},
2174     {DISPID_GLOBAL_NOW,                       Global_Now, 0, 0},
2175     {DISPID_GLOBAL_DATE,                      Global_Date, 0, 0},
2176     {DISPID_GLOBAL_TIME,                      Global_Time, 0, 0},
2177     {DISPID_GLOBAL_DAY,                       Global_Day, 0, 1},
2178     {DISPID_GLOBAL_MONTH,                     Global_Month, 0, 1},
2179     {DISPID_GLOBAL_WEEKDAY,                   Global_Weekday, 0, 1, 2},
2180     {DISPID_GLOBAL_YEAR,                      Global_Year, 0, 1},
2181     {DISPID_GLOBAL_HOUR,                      Global_Hour, 0, 1},
2182     {DISPID_GLOBAL_MINUTE,                    Global_Minute, 0, 1},
2183     {DISPID_GLOBAL_SECOND,                    Global_Second, 0, 1},
2184     {DISPID_GLOBAL_DATEVALUE,                 Global_DateValue, 0, 1},
2185     {DISPID_GLOBAL_TIMEVALUE,                 Global_TimeValue, 0, 1},
2186     {DISPID_GLOBAL_DATESERIAL,                Global_DateSerial, 0, 3},
2187     {DISPID_GLOBAL_TIMESERIAL,                Global_TimeSerial, 0, 3},
2188     {DISPID_GLOBAL_INPUTBOX,                  Global_InputBox, 0, 1, 7},
2189     {DISPID_GLOBAL_MSGBOX,                    Global_MsgBox, 0, 1, 5},
2190     {DISPID_GLOBAL_CREATEOBJECT,              Global_CreateObject, 0, 1},
2191     {DISPID_GLOBAL_GETOBJECT,                 Global_GetObject, 0, 0, 2},
2192     {DISPID_GLOBAL_DATEADD,                   Global_DateAdd, 0, 3},
2193     {DISPID_GLOBAL_DATEDIFF,                  Global_DateDiff, 0, 3, 5},
2194     {DISPID_GLOBAL_DATEPART,                  Global_DatePart, 0, 2, 4},
2195     {DISPID_GLOBAL_TYPENAME,                  Global_TypeName, 0, 1},
2196     {DISPID_GLOBAL_ARRAY,                     Global_Array, 0, 1},
2197     {DISPID_GLOBAL_ERASE,                     Global_Erase, 0, 1},
2198     {DISPID_GLOBAL_FILTER,                    Global_Filter, 0, 2, 4},
2199     {DISPID_GLOBAL_JOIN,                      Global_Join, 0, 1, 2},
2200     {DISPID_GLOBAL_SPLIT,                     Global_Split, 0, 1, 4},
2201     {DISPID_GLOBAL_REPLACE,                   Global_Replace, 0, 3, 6},
2202     {DISPID_GLOBAL_STRREVERSE,                Global_StrReverse, 0, 1},
2203     {DISPID_GLOBAL_INSTRREV,                  Global_InStrRev, 0, 2, 4},
2204     {DISPID_GLOBAL_LOADPICTURE,               Global_LoadPicture, 0, 1},
2205     {DISPID_GLOBAL_SCRIPTENGINE,              Global_ScriptEngine, 0, 0},
2206     {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION,  Global_ScriptEngineMajorVersion, 0, 0},
2207     {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION,  Global_ScriptEngineMinorVersion, 0, 0},
2208     {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION,  Global_ScriptEngineBuildVersion, 0, 0},
2209     {DISPID_GLOBAL_FORMATNUMBER,              Global_FormatNumber, 0, 1, 5},
2210     {DISPID_GLOBAL_FORMATCURRENCY,            Global_FormatCurrency, 0, 1, 5},
2211     {DISPID_GLOBAL_FORMATPERCENT,             Global_FormatPercent, 0, 1, 5},
2212     {DISPID_GLOBAL_FORMATDATETIME,            Global_FormatDateTime, 0, 1, 2},
2213     {DISPID_GLOBAL_WEEKDAYNAME,               Global_WeekdayName, 0, 1, 3},
2214     {DISPID_GLOBAL_MONTHNAME,                 Global_MonthName, 0, 1, 2},
2215     {DISPID_GLOBAL_ROUND,                     Global_Round, 0, 1, 2},
2216     {DISPID_GLOBAL_ESCAPE,                    Global_Escape, 0, 1},
2217     {DISPID_GLOBAL_UNESCAPE,                  Global_Unescape, 0, 1},
2218     {DISPID_GLOBAL_EVAL,                      Global_Eval, 0, 1},
2219     {DISPID_GLOBAL_EXECUTE,                   Global_Execute, 0, 1},
2220     {DISPID_GLOBAL_EXECUTEGLOBAL,             Global_ExecuteGlobal, 0, 1},
2221     {DISPID_GLOBAL_GETREF,                    Global_GetRef, 0, 1},
2222     {DISPID_GLOBAL_VBMSGBOXHELPBUTTON,     Global_vbMsgBoxHelpButton, BP_GET},
2223     {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND,  Global_vbMsgBoxSetForeground, BP_GET},
2224     {DISPID_GLOBAL_VBMSGBOXRIGHT,          Global_vbMsgBoxRight, BP_GET},
2225     {DISPID_GLOBAL_VBMSGBOXRTLREADING,     Global_vbMsgBoxRtlReading, BP_GET}
2226 };
2227
2228 HRESULT init_global(script_ctx_t *ctx)
2229 {
2230     HRESULT hres;
2231
2232     ctx->global_desc.ctx = ctx;
2233     ctx->global_desc.builtin_prop_cnt = sizeof(global_props)/sizeof(*global_props);
2234     ctx->global_desc.builtin_props = global_props;
2235
2236     hres = get_typeinfo(GlobalObj_tid, &ctx->global_desc.typeinfo);
2237     if(FAILED(hres))
2238         return hres;
2239
2240     hres = create_vbdisp(&ctx->global_desc, &ctx->global_obj);
2241     if(FAILED(hres))
2242         return hres;
2243
2244     hres = create_script_disp(ctx, &ctx->script_obj);
2245     if(FAILED(hres))
2246         return hres;
2247
2248     return init_err(ctx);
2249 }