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