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