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
  21 #include "vbscript.h"
  22 #include "vbscript_defs.h"
  23
  24 #include "mshtmhst.h"
  25 #include "objsafe.h"
  26
  27 #include "wine/debug.h"
  28
  29 WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
  30
  31 #define VB_E_CANNOT_CREATE_OBJ 0x800a01ad
  32
  33 /* Defined as extern in urlmon.idl, but not exported by uuid.lib */
  34 const GUID GUID_CUSTOM_CONFIRMOBJECTSAFETY =
  35     {0x10200490,0xfa38,0x11d0,{0xac,0x0e,0x00,0xa0,0xc9,0xf,0xff,0xc0}};
  36
  37 static IInternetHostSecurityManager *get_sec_mgr(script_ctx_t *ctx)
  38 {
  39     IInternetHostSecurityManager *secmgr;
  40     IServiceProvider *sp;
  41     HRESULT hres;
  42
  43     if(!ctx->site)
  44         return NULL;
  45
  46     if(ctx->secmgr)
  47         return ctx->secmgr;
  48
  49     hres = IActiveScriptSite_QueryInterface(ctx->site, &IID_IServiceProvider, (void**)&sp);
  50     if(FAILED(hres))
  51         return NULL;
  52
  53     hres = IServiceProvider_QueryService(sp, &SID_SInternetHostSecurityManager, &IID_IInternetHostSecurityManager,
  54             (void**)&secmgr);
  55     IServiceProvider_Release(sp);
  56     if(FAILED(hres))
  57         return NULL;
  58
  59     return ctx->secmgr = secmgr;
  60 }
  61
  62 static HRESULT return_bstr(VARIANT *res, const WCHAR *str)
  63 {
  64     BSTR ret;
  65
  66     if(!res)
  67         return S_OK;
  68
  69     ret = SysAllocString(str);
  70     if(!ret)
  71         return E_OUTOFMEMORY;
  72
  73     V_VT(res) = VT_BSTR;
  74     V_BSTR(res) = ret;
  75     return S_OK;
  76 }
  77
  78 static IUnknown *create_object(script_ctx_t *ctx, const WCHAR *progid)
  79 {
  80     IInternetHostSecurityManager *secmgr = NULL;
  81     IObjectWithSite *obj_site;
  82     struct CONFIRMSAFETY cs;
  83     IClassFactoryEx *cfex;
  84     IClassFactory *cf;
  85     DWORD policy_size;
  86     BYTE *bpolicy;
  87     IUnknown *obj;
  88     DWORD policy;
  89     GUID guid;
  90     HRESULT hres;
  91
  92     hres = CLSIDFromProgID(progid, &guid);
  93     if(FAILED(hres))
  94         return NULL;
  95
  96     TRACE("GUID %s\n", debugstr_guid(&guid));
  97
  98     if(ctx->safeopt & INTERFACE_USES_SECURITY_MANAGER) {
  99         secmgr = get_sec_mgr(ctx);
 100         if(!secmgr)
 101             return NULL;
 102
 103         policy = 0;
 104         hres = IInternetHostSecurityManager_ProcessUrlAction(secmgr, URLACTION_ACTIVEX_RUN,
 105                 (BYTE*)&policy, sizeof(policy), (BYTE*)&guid, sizeof(GUID), 0, 0);
 106         if(FAILED(hres) || policy != URLPOLICY_ALLOW)
 107             return NULL;
 108     }
 109
 110     hres = CoGetClassObject(&guid, CLSCTX_INPROC_SERVER|CLSCTX_LOCAL_SERVER, NULL, &IID_IClassFactory, (void**)&cf);
 111     if(FAILED(hres))
 112         return NULL;
 113
 114     hres = IClassFactory_QueryInterface(cf, &IID_IClassFactoryEx, (void**)&cfex);
 115     if(SUCCEEDED(hres)) {
 116         FIXME("Use IClassFactoryEx\n");
 117         IClassFactoryEx_Release(cfex);
 118     }
 119
 120     hres = IClassFactory_CreateInstance(cf, NULL, &IID_IUnknown, (void**)&obj);
 121     if(FAILED(hres))
 122         return NULL;
 123
 124     if(secmgr) {
 125         cs.clsid = guid;
 126         cs.pUnk = obj;
 127         cs.dwFlags = 0;
 128         hres = IInternetHostSecurityManager_QueryCustomPolicy(secmgr, &GUID_CUSTOM_CONFIRMOBJECTSAFETY,
 129                 &bpolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
 130         if(SUCCEEDED(hres)) {
 131             policy = policy_size >= sizeof(DWORD) ? *(DWORD*)bpolicy : URLPOLICY_DISALLOW;
 132             CoTaskMemFree(bpolicy);
 133         }
 134
 135         if(FAILED(hres) || policy != URLPOLICY_ALLOW) {
 136             IUnknown_Release(obj);
 137             return NULL;
 138         }
 139     }
 140
 141     hres = IUnknown_QueryInterface(obj, &IID_IObjectWithSite, (void**)&obj_site);
 142     if(SUCCEEDED(hres)) {
 143         IUnknown *ax_site;
 144
 145         ax_site = create_ax_site(ctx);
 146         if(ax_site) {
 147             hres = IObjectWithSite_SetSite(obj_site, ax_site);
 148             IUnknown_Release(ax_site);
 149         }
 150         IObjectWithSite_Release(obj_site);
 151         if(!ax_site || FAILED(hres)) {
 152             IUnknown_Release(obj);
 153             return NULL;
 154         }
 155     }
 156
 157     return obj;
 158 }
 159
 160 static HRESULT Global_CCur(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 161 {
 162     FIXME("\n");
 163     return E_NOTIMPL;
 164 }
 165
 166 static HRESULT Global_CInt(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 167 {
 168     FIXME("\n");
 169     return E_NOTIMPL;
 170 }
 171
 172 static HRESULT Global_CLng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 173 {
 174     FIXME("\n");
 175     return E_NOTIMPL;
 176 }
 177
 178 static HRESULT Global_CBool(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 179 {
 180     FIXME("\n");
 181     return E_NOTIMPL;
 182 }
 183
 184 static HRESULT Global_CByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 185 {
 186     FIXME("\n");
 187     return E_NOTIMPL;
 188 }
 189
 190 static HRESULT Global_CDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 191 {
 192     FIXME("\n");
 193     return E_NOTIMPL;
 194 }
 195
 196 static HRESULT Global_CDbl(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 197 {
 198     FIXME("\n");
 199     return E_NOTIMPL;
 200 }
 201
 202 static HRESULT Global_CSng(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 203 {
 204     FIXME("\n");
 205     return E_NOTIMPL;
 206 }
 207
 208 static HRESULT Global_CStr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 209 {
 210     FIXME("\n");
 211     return E_NOTIMPL;
 212 }
 213
 214 static inline WCHAR hex_char(unsigned n)
 215 {
 216     return n < 10 ? '0'+n : 'A'+n-10;
 217 }
 218
 219 static HRESULT Global_Hex(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 220 {
 221     WCHAR buf[17], *ptr;
 222     DWORD n;
 223
 224     TRACE("%s\n", debugstr_variant(arg));
 225
 226     switch(V_VT(arg)) {
 227     case VT_I2:
 228         n = (WORD)V_I2(arg);
 229         break;
 230     case VT_I4:
 231         n = V_I4(arg);
 232         break;
 233     case VT_EMPTY:
 234         n = 0;
 235         break;
 236     case VT_NULL:
 237         if(res)
 238             V_VT(res) = VT_NULL;
 239         return S_OK;
 240     default:
 241         FIXME("unsupported type %s\n", debugstr_variant(arg));
 242         return E_NOTIMPL;
 243     }
 244
 245     buf[16] = 0;
 246     ptr = buf+15;
 247
 248     if(n) {
 249         do {
 250             *ptr-- = hex_char(n & 0xf);
 251             n >>= 4;
 252         }while(n);
 253         ptr++;
 254     }else {
 255         *ptr = '0';
 256     }
 257
 258     return return_bstr(res, ptr);
 259 }
 260
 261 static HRESULT Global_Oct(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 262 {
 263     FIXME("\n");
 264     return E_NOTIMPL;
 265 }
 266
 267 static HRESULT Global_VarType(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 268 {
 269     FIXME("\n");
 270     return E_NOTIMPL;
 271 }
 272
 273 static HRESULT Global_IsDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 274 {
 275     FIXME("\n");
 276     return E_NOTIMPL;
 277 }
 278
 279 static HRESULT Global_IsEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 280 {
 281     TRACE("(%s)\n", debugstr_variant(arg));
 282
 283     assert(args_cnt == 1);
 284
 285     if(res) {
 286         V_VT(res) = VT_BOOL;
 287         V_BOOL(res) = V_VT(arg) == VT_EMPTY ? VARIANT_TRUE : VARIANT_FALSE;
 288     }
 289     return S_OK;
 290 }
 291
 292 static HRESULT Global_IsNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 293 {
 294     FIXME("\n");
 295     return E_NOTIMPL;
 296 }
 297
 298 static HRESULT Global_IsNumeric(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 299 {
 300     FIXME("\n");
 301     return E_NOTIMPL;
 302 }
 303
 304 static HRESULT Global_IsArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 305 {
 306     FIXME("\n");
 307     return E_NOTIMPL;
 308 }
 309
 310 static HRESULT Global_IsObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 311 {
 312     TRACE("(%s)\n", debugstr_variant(arg));
 313
 314     assert(args_cnt == 1);
 315
 316     if(res) {
 317         V_VT(res) = VT_BOOL;
 318         V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE;
 319     }
 320     return S_OK;
 321 }
 322
 323 static HRESULT Global_Ant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 324 {
 325     FIXME("\n");
 326     return E_NOTIMPL;
 327 }
 328
 329 static HRESULT Global_Cos(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 330 {
 331     FIXME("\n");
 332     return E_NOTIMPL;
 333 }
 334
 335 static HRESULT Global_Sin(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 336 {
 337     FIXME("\n");
 338     return E_NOTIMPL;
 339 }
 340
 341 static HRESULT Global_Tan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 342 {
 343     FIXME("\n");
 344     return E_NOTIMPL;
 345 }
 346
 347 static HRESULT Global_Exp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 348 {
 349     FIXME("\n");
 350     return E_NOTIMPL;
 351 }
 352
 353 static HRESULT Global_Log(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 354 {
 355     FIXME("\n");
 356     return E_NOTIMPL;
 357 }
 358
 359 static HRESULT Global_Sqr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 360 {
 361     FIXME("\n");
 362     return E_NOTIMPL;
 363 }
 364
 365 static HRESULT Global_Randomize(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 366 {
 367     FIXME("\n");
 368     return E_NOTIMPL;
 369 }
 370
 371 static HRESULT Global_Rnd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 372 {
 373     FIXME("\n");
 374     return E_NOTIMPL;
 375 }
 376
 377 static HRESULT Global_Timer(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 378 {
 379     FIXME("\n");
 380     return E_NOTIMPL;
 381 }
 382
 383 static HRESULT Global_LBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 384 {
 385     FIXME("\n");
 386     return E_NOTIMPL;
 387 }
 388
 389 static HRESULT Global_UBound(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 390 {
 391     FIXME("\n");
 392     return E_NOTIMPL;
 393 }
 394
 395 static HRESULT Global_RGB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 396 {
 397     FIXME("\n");
 398     return E_NOTIMPL;
 399 }
 400
 401 static HRESULT Global_Len(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 402 {
 403     FIXME("\n");
 404     return E_NOTIMPL;
 405 }
 406
 407 static HRESULT Global_LenB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 408 {
 409     FIXME("\n");
 410     return E_NOTIMPL;
 411 }
 412
 413 static HRESULT Global_Left(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 414 {
 415     FIXME("\n");
 416     return E_NOTIMPL;
 417 }
 418
 419 static HRESULT Global_LeftB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 420 {
 421     FIXME("\n");
 422     return E_NOTIMPL;
 423 }
 424
 425 static HRESULT Global_Right(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 426 {
 427     FIXME("\n");
 428     return E_NOTIMPL;
 429 }
 430
 431 static HRESULT Global_RightB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 432 {
 433     FIXME("\n");
 434     return E_NOTIMPL;
 435 }
 436
 437 static HRESULT Global_Mid(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 438 {
 439     FIXME("\n");
 440     return E_NOTIMPL;
 441 }
 442
 443 static HRESULT Global_MidB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 444 {
 445     FIXME("\n");
 446     return E_NOTIMPL;
 447 }
 448
 449 static HRESULT Global_StrComp(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 450 {
 451     FIXME("\n");
 452     return E_NOTIMPL;
 453 }
 454
 455 static HRESULT Global_LCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 456 {
 457     FIXME("\n");
 458     return E_NOTIMPL;
 459 }
 460
 461 static HRESULT Global_UCase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 462 {
 463     FIXME("\n");
 464     return E_NOTIMPL;
 465 }
 466
 467 static HRESULT Global_LTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 468 {
 469     FIXME("\n");
 470     return E_NOTIMPL;
 471 }
 472
 473 static HRESULT Global_RTrim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 474 {
 475     FIXME("\n");
 476     return E_NOTIMPL;
 477 }
 478
 479 static HRESULT Global_Trim(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 480 {
 481     FIXME("\n");
 482     return E_NOTIMPL;
 483 }
 484
 485 static HRESULT Global_Space(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 486 {
 487     FIXME("\n");
 488     return E_NOTIMPL;
 489 }
 490
 491 static HRESULT Global_String(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 492 {
 493     FIXME("\n");
 494     return E_NOTIMPL;
 495 }
 496
 497 static HRESULT Global_InStr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 498 {
 499     FIXME("\n");
 500     return E_NOTIMPL;
 501 }
 502
 503 static HRESULT Global_InStrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 504 {
 505     FIXME("\n");
 506     return E_NOTIMPL;
 507 }
 508
 509 static HRESULT Global_AscB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 510 {
 511     FIXME("\n");
 512     return E_NOTIMPL;
 513 }
 514
 515 static HRESULT Global_ChrB(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 516 {
 517     FIXME("\n");
 518     return E_NOTIMPL;
 519 }
 520
 521 static HRESULT Global_Asc(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 522 {
 523     FIXME("\n");
 524     return E_NOTIMPL;
 525 }
 526
 527 static HRESULT Global_Chr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 528 {
 529     FIXME("\n");
 530     return E_NOTIMPL;
 531 }
 532
 533 static HRESULT Global_AscW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 534 {
 535     FIXME("\n");
 536     return E_NOTIMPL;
 537 }
 538
 539 static HRESULT Global_ChrW(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 540 {
 541     FIXME("\n");
 542     return E_NOTIMPL;
 543 }
 544
 545 static HRESULT Global_Abs(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 546 {
 547     FIXME("\n");
 548     return E_NOTIMPL;
 549 }
 550
 551 static HRESULT Global_Fix(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 552 {
 553     FIXME("\n");
 554     return E_NOTIMPL;
 555 }
 556
 557 static HRESULT Global_Int(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 558 {
 559     FIXME("\n");
 560     return E_NOTIMPL;
 561 }
 562
 563 static HRESULT Global_Sgn(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 564 {
 565     FIXME("\n");
 566     return E_NOTIMPL;
 567 }
 568
 569 static HRESULT Global_Now(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 570 {
 571     FIXME("\n");
 572     return E_NOTIMPL;
 573 }
 574
 575 static HRESULT Global_Date(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 576 {
 577     FIXME("\n");
 578     return E_NOTIMPL;
 579 }
 580
 581 static HRESULT Global_Time(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 582 {
 583     FIXME("\n");
 584     return E_NOTIMPL;
 585 }
 586
 587 static HRESULT Global_Day(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 588 {
 589     FIXME("\n");
 590     return E_NOTIMPL;
 591 }
 592
 593 static HRESULT Global_Month(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 594 {
 595     FIXME("\n");
 596     return E_NOTIMPL;
 597 }
 598
 599 static HRESULT Global_Weekday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 600 {
 601     FIXME("\n");
 602     return E_NOTIMPL;
 603 }
 604
 605 static HRESULT Global_Year(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 606 {
 607     FIXME("\n");
 608     return E_NOTIMPL;
 609 }
 610
 611 static HRESULT Global_Hour(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 612 {
 613     FIXME("\n");
 614     return E_NOTIMPL;
 615 }
 616
 617 static HRESULT Global_Minute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 618 {
 619     FIXME("\n");
 620     return E_NOTIMPL;
 621 }
 622
 623 static HRESULT Global_Second(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 624 {
 625     FIXME("\n");
 626     return E_NOTIMPL;
 627 }
 628
 629 static HRESULT Global_DateValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 630 {
 631     FIXME("\n");
 632     return E_NOTIMPL;
 633 }
 634
 635 static HRESULT Global_TimeValue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 636 {
 637     FIXME("\n");
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT Global_DateSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 642 {
 643     FIXME("\n");
 644     return E_NOTIMPL;
 645 }
 646
 647 static HRESULT Global_TimeSerial(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 648 {
 649     FIXME("\n");
 650     return E_NOTIMPL;
 651 }
 652
 653 static HRESULT Global_InputBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 654 {
 655     FIXME("\n");
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT Global_MsgBox(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 660 {
 661     FIXME("\n");
 662     return E_NOTIMPL;
 663 }
 664
 665 static HRESULT Global_CreateObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 666 {
 667     IUnknown *obj;
 668     HRESULT hres;
 669
 670     TRACE("(%s)\n", debugstr_variant(arg));
 671
 672     if(V_VT(arg) != VT_BSTR) {
 673         FIXME("non-bstr arg\n");
 674         return E_INVALIDARG;
 675     }
 676
 677     obj = create_object(This->desc->ctx, V_BSTR(arg));
 678     if(!obj)
 679         return VB_E_CANNOT_CREATE_OBJ;
 680
 681     if(res) {
 682         hres = IUnknown_QueryInterface(obj, &IID_IDispatch, (void**)&V_DISPATCH(res));
 683         if(FAILED(hres))
 684             return hres;
 685
 686         V_VT(res) = VT_DISPATCH;
 687     }
 688
 689     IUnknown_Release(obj);
 690     return S_OK;
 691 }
 692
 693 static HRESULT Global_GetObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 694 {
 695     FIXME("\n");
 696     return E_NOTIMPL;
 697 }
 698
 699 static HRESULT Global_DateAdd(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 700 {
 701     FIXME("\n");
 702     return E_NOTIMPL;
 703 }
 704
 705 static HRESULT Global_DateDiff(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 706 {
 707     FIXME("\n");
 708     return E_NOTIMPL;
 709 }
 710
 711 static HRESULT Global_DatePart(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 712 {
 713     FIXME("\n");
 714     return E_NOTIMPL;
 715 }
 716
 717 static HRESULT Global_TypeName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 718 {
 719     FIXME("\n");
 720     return E_NOTIMPL;
 721 }
 722
 723 static HRESULT Global_Array(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 724 {
 725     FIXME("\n");
 726     return E_NOTIMPL;
 727 }
 728
 729 static HRESULT Global_Erase(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 730 {
 731     FIXME("\n");
 732     return E_NOTIMPL;
 733 }
 734
 735 static HRESULT Global_Filter(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 736 {
 737     FIXME("\n");
 738     return E_NOTIMPL;
 739 }
 740
 741 static HRESULT Global_Join(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 742 {
 743     FIXME("\n");
 744     return E_NOTIMPL;
 745 }
 746
 747 static HRESULT Global_Split(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 748 {
 749     FIXME("\n");
 750     return E_NOTIMPL;
 751 }
 752
 753 static HRESULT Global_Replace(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 754 {
 755     FIXME("\n");
 756     return E_NOTIMPL;
 757 }
 758
 759 static HRESULT Global_StrReverse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 760 {
 761     FIXME("\n");
 762     return E_NOTIMPL;
 763 }
 764
 765 static HRESULT Global_InStrRev(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 766 {
 767     FIXME("\n");
 768     return E_NOTIMPL;
 769 }
 770
 771 static HRESULT Global_LoadPicture(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 772 {
 773     FIXME("\n");
 774     return E_NOTIMPL;
 775 }
 776
 777 static HRESULT Global_ScriptEngine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 778 {
 779     FIXME("\n");
 780     return E_NOTIMPL;
 781 }
 782
 783 static HRESULT Global_ScriptEngineMajorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 784 {
 785     FIXME("\n");
 786     return E_NOTIMPL;
 787 }
 788
 789 static HRESULT Global_ScriptEngineMinorVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 790 {
 791     FIXME("\n");
 792     return E_NOTIMPL;
 793 }
 794
 795 static HRESULT Global_ScriptEngineBuildVersion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 796 {
 797     FIXME("\n");
 798     return E_NOTIMPL;
 799 }
 800
 801 static HRESULT Global_FormatNumber(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 802 {
 803     FIXME("\n");
 804     return E_NOTIMPL;
 805 }
 806
 807 static HRESULT Global_FormatCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 808 {
 809     FIXME("\n");
 810     return E_NOTIMPL;
 811 }
 812
 813 static HRESULT Global_FormatPercent(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 814 {
 815     FIXME("\n");
 816     return E_NOTIMPL;
 817 }
 818
 819 static HRESULT Global_FormatDateTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 820 {
 821     FIXME("\n");
 822     return E_NOTIMPL;
 823 }
 824
 825 static HRESULT Global_WeekdayName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 826 {
 827     FIXME("\n");
 828     return E_NOTIMPL;
 829 }
 830
 831 static HRESULT Global_MonthName(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 832 {
 833     FIXME("\n");
 834     return E_NOTIMPL;
 835 }
 836
 837 static HRESULT Global_Round(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 838 {
 839     FIXME("\n");
 840     return E_NOTIMPL;
 841 }
 842
 843 static HRESULT Global_Escape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 844 {
 845     FIXME("\n");
 846     return E_NOTIMPL;
 847 }
 848
 849 static HRESULT Global_Unescape(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 850 {
 851     FIXME("\n");
 852     return E_NOTIMPL;
 853 }
 854
 855 static HRESULT Global_Eval(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 856 {
 857     FIXME("\n");
 858     return E_NOTIMPL;
 859 }
 860
 861 static HRESULT Global_Execute(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 862 {
 863     FIXME("\n");
 864     return E_NOTIMPL;
 865 }
 866
 867 static HRESULT Global_ExecuteGlobal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 868 {
 869     FIXME("\n");
 870     return E_NOTIMPL;
 871 }
 872
 873 static HRESULT Global_GetRef(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 874 {
 875     FIXME("\n");
 876     return E_NOTIMPL;
 877 }
 878
 879 static HRESULT Global_vbUseSystem(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 880 {
 881     FIXME("\n");
 882     return E_NOTIMPL;
 883 }
 884
 885 static HRESULT Global_vbUseSystemDayOfWeek(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 886 {
 887     FIXME("\n");
 888     return E_NOTIMPL;
 889 }
 890
 891 static HRESULT Global_vbSunday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 892 {
 893     FIXME("\n");
 894     return E_NOTIMPL;
 895 }
 896
 897 static HRESULT Global_vbMonday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 898 {
 899     FIXME("\n");
 900     return E_NOTIMPL;
 901 }
 902
 903 static HRESULT Global_vbTuesday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 904 {
 905     FIXME("\n");
 906     return E_NOTIMPL;
 907 }
 908
 909 static HRESULT Global_vbWednesday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 910 {
 911     FIXME("\n");
 912     return E_NOTIMPL;
 913 }
 914
 915 static HRESULT Global_vbThursday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 916 {
 917     FIXME("\n");
 918     return E_NOTIMPL;
 919 }
 920
 921 static HRESULT Global_vbFriday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 922 {
 923     FIXME("\n");
 924     return E_NOTIMPL;
 925 }
 926
 927 static HRESULT Global_vbSaturday(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 928 {
 929     FIXME("\n");
 930     return E_NOTIMPL;
 931 }
 932
 933 static HRESULT Global_vbFirstJan1(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 934 {
 935     FIXME("\n");
 936     return E_NOTIMPL;
 937 }
 938
 939 static HRESULT Global_vbFirstFourDays(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 940 {
 941     FIXME("\n");
 942     return E_NOTIMPL;
 943 }
 944
 945 static HRESULT Global_vbFirstFullWeek(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 946 {
 947     FIXME("\n");
 948     return E_NOTIMPL;
 949 }
 950
 951 static HRESULT Global_vbOKOnly(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 952 {
 953     FIXME("\n");
 954     return E_NOTIMPL;
 955 }
 956
 957 static HRESULT Global_vbOKCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 958 {
 959     FIXME("\n");
 960     return E_NOTIMPL;
 961 }
 962
 963 static HRESULT Global_vbAbortRetryIgnore(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 964 {
 965     FIXME("\n");
 966     return E_NOTIMPL;
 967 }
 968
 969 static HRESULT Global_vbYesNoCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 970 {
 971     FIXME("\n");
 972     return E_NOTIMPL;
 973 }
 974
 975 static HRESULT Global_vbYesNo(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 976 {
 977     FIXME("\n");
 978     return E_NOTIMPL;
 979 }
 980
 981 static HRESULT Global_vbRetryCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 982 {
 983     FIXME("\n");
 984     return E_NOTIMPL;
 985 }
 986
 987 static HRESULT Global_vbCritical(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 988 {
 989     FIXME("\n");
 990     return E_NOTIMPL;
 991 }
 992
 993 static HRESULT Global_vbQuestion(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
 994 {
 995     FIXME("\n");
 996     return E_NOTIMPL;
 997 }
 998
 999 static HRESULT Global_vbExclamation(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1000 {
1001     FIXME("\n");
1002     return E_NOTIMPL;
1003 }
1004
1005 static HRESULT Global_vbInformation(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1006 {
1007     FIXME("\n");
1008     return E_NOTIMPL;
1009 }
1010
1011 static HRESULT Global_vbDefaultButton1(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1012 {
1013     FIXME("\n");
1014     return E_NOTIMPL;
1015 }
1016
1017 static HRESULT Global_vbDefaultButton2(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1018 {
1019     FIXME("\n");
1020     return E_NOTIMPL;
1021 }
1022
1023 static HRESULT Global_vbDefaultButton3(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1024 {
1025     FIXME("\n");
1026     return E_NOTIMPL;
1027 }
1028
1029 static HRESULT Global_vbDefaultButton4(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1030 {
1031     FIXME("\n");
1032     return E_NOTIMPL;
1033 }
1034
1035 static HRESULT Global_vbApplicationModal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1036 {
1037     FIXME("\n");
1038     return E_NOTIMPL;
1039 }
1040
1041 static HRESULT Global_vbSystemModal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1042 {
1043     FIXME("\n");
1044     return E_NOTIMPL;
1045 }
1046
1047 static HRESULT Global_vbOK(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1048 {
1049     FIXME("\n");
1050     return E_NOTIMPL;
1051 }
1052
1053 static HRESULT Global_vbCancel(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1054 {
1055     FIXME("\n");
1056     return E_NOTIMPL;
1057 }
1058
1059 static HRESULT Global_vbAbort(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1060 {
1061     FIXME("\n");
1062     return E_NOTIMPL;
1063 }
1064
1065 static HRESULT Global_vbRetry(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1066 {
1067     FIXME("\n");
1068     return E_NOTIMPL;
1069 }
1070
1071 static HRESULT Global_vbIgnore(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1072 {
1073     FIXME("\n");
1074     return E_NOTIMPL;
1075 }
1076
1077 static HRESULT Global_vbYes(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1078 {
1079     FIXME("\n");
1080     return E_NOTIMPL;
1081 }
1082
1083 static HRESULT Global_vbNo(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1084 {
1085     FIXME("\n");
1086     return E_NOTIMPL;
1087 }
1088
1089 static HRESULT Global_vbEmpty(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1090 {
1091     FIXME("\n");
1092     return E_NOTIMPL;
1093 }
1094
1095 static HRESULT Global_vbNull(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1096 {
1097     FIXME("\n");
1098     return E_NOTIMPL;
1099 }
1100
1101 static HRESULT Global_vbInteger(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1102 {
1103     FIXME("\n");
1104     return E_NOTIMPL;
1105 }
1106
1107 static HRESULT Global_vbLong(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1108 {
1109     FIXME("\n");
1110     return E_NOTIMPL;
1111 }
1112
1113 static HRESULT Global_vbSingle(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1114 {
1115     FIXME("\n");
1116     return E_NOTIMPL;
1117 }
1118
1119 static HRESULT Global_vbDouble(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1120 {
1121     FIXME("\n");
1122     return E_NOTIMPL;
1123 }
1124
1125 static HRESULT Global_vbCurrency(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1126 {
1127     FIXME("\n");
1128     return E_NOTIMPL;
1129 }
1130
1131 static HRESULT Global_vbDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1132 {
1133     FIXME("\n");
1134     return E_NOTIMPL;
1135 }
1136
1137 static HRESULT Global_vbString(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1138 {
1139     FIXME("\n");
1140     return E_NOTIMPL;
1141 }
1142
1143 static HRESULT Global_vbObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1144 {
1145     FIXME("\n");
1146     return E_NOTIMPL;
1147 }
1148
1149 static HRESULT Global_vbError(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1150 {
1151     FIXME("\n");
1152     return E_NOTIMPL;
1153 }
1154
1155 static HRESULT Global_vbBoolean(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1156 {
1157     FIXME("\n");
1158     return E_NOTIMPL;
1159 }
1160
1161 static HRESULT Global_vbVariant(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1162 {
1163     FIXME("\n");
1164     return E_NOTIMPL;
1165 }
1166
1167 static HRESULT Global_vbDataObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1168 {
1169     FIXME("\n");
1170     return E_NOTIMPL;
1171 }
1172
1173 static HRESULT Global_vbDecimal(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1174 {
1175     FIXME("\n");
1176     return E_NOTIMPL;
1177 }
1178
1179 static HRESULT Global_vbByte(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1180 {
1181     FIXME("\n");
1182     return E_NOTIMPL;
1183 }
1184
1185 static HRESULT Global_vbArray(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1186 {
1187     FIXME("\n");
1188     return E_NOTIMPL;
1189 }
1190
1191 static HRESULT Global_vbTrue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1192 {
1193     FIXME("\n");
1194     return E_NOTIMPL;
1195 }
1196
1197 static HRESULT Global_vbFalse(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1198 {
1199     FIXME("\n");
1200     return E_NOTIMPL;
1201 }
1202
1203 static HRESULT Global_vbUseDefault(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1204 {
1205     FIXME("\n");
1206     return E_NOTIMPL;
1207 }
1208
1209 static HRESULT Global_vbBinaryCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1210 {
1211     FIXME("\n");
1212     return E_NOTIMPL;
1213 }
1214
1215 static HRESULT Global_vbTextCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1216 {
1217     FIXME("\n");
1218     return E_NOTIMPL;
1219 }
1220
1221 static HRESULT Global_vbDatabaseCompare(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1222 {
1223     FIXME("\n");
1224     return E_NOTIMPL;
1225 }
1226
1227 static HRESULT Global_vbGeneralDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1228 {
1229     FIXME("\n");
1230     return E_NOTIMPL;
1231 }
1232
1233 static HRESULT Global_vbLongDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1234 {
1235     FIXME("\n");
1236     return E_NOTIMPL;
1237 }
1238
1239 static HRESULT Global_vbShortDate(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1240 {
1241     FIXME("\n");
1242     return E_NOTIMPL;
1243 }
1244
1245 static HRESULT Global_vbLongTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1246 {
1247     FIXME("\n");
1248     return E_NOTIMPL;
1249 }
1250
1251 static HRESULT Global_vbShortTime(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1252 {
1253     FIXME("\n");
1254     return E_NOTIMPL;
1255 }
1256
1257 static HRESULT Global_vbObjectError(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1258 {
1259     FIXME("\n");
1260     return E_NOTIMPL;
1261 }
1262
1263 static HRESULT Global_vbBlack(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1264 {
1265     FIXME("\n");
1266     return E_NOTIMPL;
1267 }
1268
1269 static HRESULT Global_vbBlue(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1270 {
1271     FIXME("\n");
1272     return E_NOTIMPL;
1273 }
1274
1275 static HRESULT Global_vbCyan(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1276 {
1277     FIXME("\n");
1278     return E_NOTIMPL;
1279 }
1280
1281 static HRESULT Global_vbGreen(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1282 {
1283     FIXME("\n");
1284     return E_NOTIMPL;
1285 }
1286
1287 static HRESULT Global_vbMagenta(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1288 {
1289     FIXME("\n");
1290     return E_NOTIMPL;
1291 }
1292
1293 static HRESULT Global_vbRed(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1294 {
1295     FIXME("\n");
1296     return E_NOTIMPL;
1297 }
1298
1299 static HRESULT Global_vbWhite(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1300 {
1301     FIXME("\n");
1302     return E_NOTIMPL;
1303 }
1304
1305 static HRESULT Global_vbYellow(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1306 {
1307     FIXME("\n");
1308     return E_NOTIMPL;
1309 }
1310
1311 static HRESULT Global_vbCr(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1312 {
1313     FIXME("\n");
1314     return E_NOTIMPL;
1315 }
1316
1317 static HRESULT Global_vbCrLf(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1318 {
1319     FIXME("\n");
1320     return E_NOTIMPL;
1321 }
1322
1323 static HRESULT Global_vbNewLine(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1324 {
1325     FIXME("\n");
1326     return E_NOTIMPL;
1327 }
1328
1329 static HRESULT Global_vbFormFeed(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1330 {
1331     FIXME("\n");
1332     return E_NOTIMPL;
1333 }
1334
1335 static HRESULT Global_vbLf(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1336 {
1337     FIXME("\n");
1338     return E_NOTIMPL;
1339 }
1340
1341 static HRESULT Global_vbNullChar(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1342 {
1343     FIXME("\n");
1344     return E_NOTIMPL;
1345 }
1346
1347 static HRESULT Global_vbNullString(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1348 {
1349     FIXME("\n");
1350     return E_NOTIMPL;
1351 }
1352
1353 static HRESULT Global_vbTab(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1354 {
1355     FIXME("\n");
1356     return E_NOTIMPL;
1357 }
1358
1359 static HRESULT Global_vbVerticalTab(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1360 {
1361     FIXME("\n");
1362     return E_NOTIMPL;
1363 }
1364
1365 static HRESULT Global_vbMsgBoxHelpButton(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1366 {
1367     FIXME("\n");
1368     return E_NOTIMPL;
1369 }
1370
1371 static HRESULT Global_vbMsgBoxSetForeground(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1372 {
1373     FIXME("\n");
1374     return E_NOTIMPL;
1375 }
1376
1377 static HRESULT Global_vbMsgBoxRight(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1378 {
1379     FIXME("\n");
1380     return E_NOTIMPL;
1381 }
1382
1383 static HRESULT Global_vbMsgBoxRtlReading(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res)
1384 {
1385     FIXME("\n");
1386     return E_NOTIMPL;
1387 }
1388
1389 static const builtin_prop_t global_props[] = {
1390     {DISPID_GLOBAL_VBUSESYSTEM,        Global_vbUseSystem, BP_GET},
1391     {DISPID_GLOBAL_USESYSTEMDAYOFWEEK, Global_vbUseSystemDayOfWeek, BP_GET},
1392     {DISPID_GLOBAL_VBSUNDAY,           Global_vbSunday, BP_GET},
1393     {DISPID_GLOBAL_VBMONDAY,           Global_vbMonday, BP_GET},
1394     {DISPID_GLOBAL_VBTUESDAY,          Global_vbTuesday, BP_GET},
1395     {DISPID_GLOBAL_VBWEDNESDAY,        Global_vbWednesday, BP_GET},
1396     {DISPID_GLOBAL_VBTHURSDAY,         Global_vbThursday, BP_GET},
1397     {DISPID_GLOBAL_VBFRIDAY,           Global_vbFriday, BP_GET},
1398     {DISPID_GLOBAL_VBSATURDAY,         Global_vbSaturday, BP_GET},
1399     {DISPID_GLOBAL_VBFIRSTJAN1,        Global_vbFirstJan1, BP_GET},
1400     {DISPID_GLOBAL_VBFIRSTFOURDAYS,    Global_vbFirstFourDays, BP_GET},
1401     {DISPID_GLOBAL_VBFIRSTFULLWEEK,    Global_vbFirstFullWeek, BP_GET},
1402     {DISPID_GLOBAL_VBOKONLY,           Global_vbOKOnly, BP_GET},
1403     {DISPID_GLOBAL_VBOKCANCEL,         Global_vbOKCancel, BP_GET},
1404     {DISPID_GLOBAL_VBABORTRETRYIGNORE, Global_vbAbortRetryIgnore, BP_GET},
1405     {DISPID_GLOBAL_VBYESNOCANCEL,      Global_vbYesNoCancel, BP_GET},
1406     {DISPID_GLOBAL_VBYESNO,            Global_vbYesNo, BP_GET},
1407     {DISPID_GLOBAL_VBRETRYCANCEL,      Global_vbRetryCancel, BP_GET},
1408     {DISPID_GLOBAL_VBCRITICAL,         Global_vbCritical, BP_GET},
1409     {DISPID_GLOBAL_VBQUESTION,         Global_vbQuestion, BP_GET},
1410     {DISPID_GLOBAL_VBEXCLAMATION,      Global_vbExclamation, BP_GET},
1411     {DISPID_GLOBAL_VBINFORMATION,      Global_vbInformation, BP_GET},
1412     {DISPID_GLOBAL_VBDEFAULTBUTTON1,   Global_vbDefaultButton1, BP_GET},
1413     {DISPID_GLOBAL_VBDEFAULTBUTTON2,   Global_vbDefaultButton2, BP_GET},
1414     {DISPID_GLOBAL_VBDEFAULTBUTTON3,   Global_vbDefaultButton3, BP_GET},
1415     {DISPID_GLOBAL_VBDEFAULTBUTTON4,   Global_vbDefaultButton4, BP_GET},
1416     {DISPID_GLOBAL_VBAPPLICATIONMODAL, Global_vbApplicationModal, BP_GET},
1417     {DISPID_GLOBAL_VBSYSTEMMODAL,      Global_vbSystemModal, BP_GET},
1418     {DISPID_GLOBAL_VBOK,               Global_vbOK, BP_GET},
1419     {DISPID_GLOBAL_VBCANCEL,           Global_vbCancel, BP_GET},
1420     {DISPID_GLOBAL_VBABORT,            Global_vbAbort, BP_GET},
1421     {DISPID_GLOBAL_VBRETRY,            Global_vbRetry, BP_GET},
1422     {DISPID_GLOBAL_VBIGNORE,           Global_vbIgnore, BP_GET},
1423     {DISPID_GLOBAL_VBYES,              Global_vbYes, BP_GET},
1424     {DISPID_GLOBAL_VBNO,               Global_vbNo, BP_GET},
1425     {DISPID_GLOBAL_VBEMPTY,            Global_vbEmpty, BP_GET},
1426     {DISPID_GLOBAL_VBNULL,             Global_vbNull, BP_GET},
1427     {DISPID_GLOBAL_VBINTEGER,          Global_vbInteger, BP_GET},
1428     {DISPID_GLOBAL_VBLONG,             Global_vbLong, BP_GET},
1429     {DISPID_GLOBAL_VBSINGLE,           Global_vbSingle, BP_GET},
1430     {DISPID_GLOBAL_VBDOUBLE,           Global_vbDouble, BP_GET},
1431     {DISPID_GLOBAL_VBCURRENCY,         Global_vbCurrency, BP_GET},
1432     {DISPID_GLOBAL_VBDATE,             Global_vbDate, BP_GET},
1433     {DISPID_GLOBAL_VBSTRING,           Global_vbString, BP_GET},
1434     {DISPID_GLOBAL_VBOBJECT,           Global_vbObject, BP_GET},
1435     {DISPID_GLOBAL_VBERROR,            Global_vbError, BP_GET},
1436     {DISPID_GLOBAL_VBBOOLEAN,          Global_vbBoolean, BP_GET},
1437     {DISPID_GLOBAL_VBVARIANT,          Global_vbVariant, BP_GET},
1438     {DISPID_GLOBAL_VBDATAOBJECT,       Global_vbDataObject, BP_GET},
1439     {DISPID_GLOBAL_VBDECIMAL,          Global_vbDecimal, BP_GET},
1440     {DISPID_GLOBAL_VBBYTE,             Global_vbByte, BP_GET},
1441     {DISPID_GLOBAL_VBARRAY,            Global_vbArray, BP_GET},
1442     {DISPID_GLOBAL_VBTRUE,             Global_vbTrue, BP_GET},
1443     {DISPID_GLOBAL_VBFALSE,            Global_vbFalse, BP_GET},
1444     {DISPID_GLOBAL_VBUSEDEFAULT,       Global_vbUseDefault, BP_GET},
1445     {DISPID_GLOBAL_VBBINARYCOMPARE,    Global_vbBinaryCompare, BP_GET},
1446     {DISPID_GLOBAL_VBTEXTCOMPARE,      Global_vbTextCompare, BP_GET},
1447     {DISPID_GLOBAL_VBDATABASECOMPARE,  Global_vbDatabaseCompare, BP_GET},
1448     {DISPID_GLOBAL_VBGENERALDATE,      Global_vbGeneralDate, BP_GET},
1449     {DISPID_GLOBAL_VBLONGDATE,         Global_vbLongDate, BP_GET},
1450     {DISPID_GLOBAL_VBSHORTDATE,        Global_vbShortDate, BP_GET},
1451     {DISPID_GLOBAL_VBLONGTIME,         Global_vbLongTime, BP_GET},
1452     {DISPID_GLOBAL_VBSHORTTIME,        Global_vbShortTime, BP_GET},
1453     {DISPID_GLOBAL_VBOBJECTERROR,      Global_vbObjectError, BP_GET},
1454     {DISPID_GLOBAL_VBBLACK,            Global_vbBlack, BP_GET},
1455     {DISPID_GLOBAL_VBBLUE,             Global_vbBlue, BP_GET},
1456     {DISPID_GLOBAL_VBCYAN,             Global_vbCyan, BP_GET},
1457     {DISPID_GLOBAL_VBGREEN,            Global_vbGreen, BP_GET},
1458     {DISPID_GLOBAL_VBMAGENTA,          Global_vbMagenta, BP_GET},
1459     {DISPID_GLOBAL_VBRED,              Global_vbRed, BP_GET},
1460     {DISPID_GLOBAL_VBWHITE,            Global_vbWhite, BP_GET},
1461     {DISPID_GLOBAL_VBYELLOW,           Global_vbYellow, BP_GET},
1462     {DISPID_GLOBAL_VBCR,               Global_vbCr, BP_GET},
1463     {DISPID_GLOBAL_VBCRLF,             Global_vbCrLf, BP_GET},
1464     {DISPID_GLOBAL_VBNEWLINE,          Global_vbNewLine, BP_GET},
1465     {DISPID_GLOBAL_VBFORMFEED,         Global_vbFormFeed, BP_GET},
1466     {DISPID_GLOBAL_VBLF,               Global_vbLf, BP_GET},
1467     {DISPID_GLOBAL_VBNULLCHAR,         Global_vbNullChar, BP_GET},
1468     {DISPID_GLOBAL_VBNULLSTRING,       Global_vbNullString, BP_GET},
1469     {DISPID_GLOBAL_VBTAB,              Global_vbTab, BP_GET},
1470     {DISPID_GLOBAL_VBVERTICALTAB,      Global_vbVerticalTab, BP_GET},
1471     {DISPID_GLOBAL_CCUR,                      Global_CCur, 0, 1},
1472     {DISPID_GLOBAL_CINT,                      Global_CInt, 0, 1},
1473     {DISPID_GLOBAL_CLNG,                      Global_CLng, 0, 1},
1474     {DISPID_GLOBAL_CBOOL,                     Global_CBool, 0, 1},
1475     {DISPID_GLOBAL_CBYTE,                     Global_CByte, 0, 1},
1476     {DISPID_GLOBAL_CDATE,                     Global_CDate, 0, 1},
1477     {DISPID_GLOBAL_CDBL,                      Global_CDbl, 0, 1},
1478     {DISPID_GLOBAL_CSNG,                      Global_CSng, 0, 1},
1479     {DISPID_GLOBAL_CSTR,                      Global_CStr, 0, 1},
1480     {DISPID_GLOBAL_HEX,                       Global_Hex, 0, 1},
1481     {DISPID_GLOBAL_OCT,                       Global_Oct, 0, 1},
1482     {DISPID_GLOBAL_VARTYPE,                   Global_VarType, 0, 1},
1483     {DISPID_GLOBAL_ISDATE,                    Global_IsDate, 0, 1},
1484     {DISPID_GLOBAL_ISEMPTY,                   Global_IsEmpty, 0, 1},
1485     {DISPID_GLOBAL_ISNULL,                    Global_IsNull, 0, 1},
1486     {DISPID_GLOBAL_ISNUMERIC,                 Global_IsNumeric, 0, 1},
1487     {DISPID_GLOBAL_ISARRAY,                   Global_IsArray, 0, 1},
1488     {DISPID_GLOBAL_ISOBJECT,                  Global_IsObject, 0, 1},
1489     {DISPID_GLOBAL_ATN,                       Global_Ant, 0, 1},
1490     {DISPID_GLOBAL_COS,                       Global_Cos, 0, 1},
1491     {DISPID_GLOBAL_SIN,                       Global_Sin, 0, 1},
1492     {DISPID_GLOBAL_TAN,                       Global_Tan, 0, 1},
1493     {DISPID_GLOBAL_EXP,                       Global_Exp, 0, 1},
1494     {DISPID_GLOBAL_LOG,                       Global_Log, 0, 1},
1495     {DISPID_GLOBAL_SQR,                       Global_Sqr, 0, 1},
1496     {DISPID_GLOBAL_RANDOMIZE,                 Global_Randomize, 0, 1},
1497     {DISPID_GLOBAL_RND,                       Global_Rnd, 0, 1},
1498     {DISPID_GLOBAL_TIMER,                     Global_Timer, 0, 0},
1499     {DISPID_GLOBAL_LBOUND,                    Global_LBound, 0, 1},
1500     {DISPID_GLOBAL_UBOUND,                    Global_UBound, 0, 1},
1501     {DISPID_GLOBAL_RGB,                       Global_RGB, 0, 3},
1502     {DISPID_GLOBAL_LEN,                       Global_Len, 0, 1},
1503     {DISPID_GLOBAL_LENB,                      Global_LenB, 0, 1},
1504     {DISPID_GLOBAL_LEFT,                      Global_Left, 0, 2},
1505     {DISPID_GLOBAL_LEFTB,                     Global_LeftB, 0, 2},
1506     {DISPID_GLOBAL_RIGHT,                     Global_Right, 0, 2},
1507     {DISPID_GLOBAL_RIGHTB,                    Global_RightB, 0, 2},
1508     {DISPID_GLOBAL_MID,                       Global_Mid, 0, 2, 3},
1509     {DISPID_GLOBAL_MIDB,                      Global_MidB, 0, 2, 3},
1510     {DISPID_GLOBAL_STRCOMP,                   Global_StrComp, 0, 2, 3},
1511     {DISPID_GLOBAL_LCASE,                     Global_LCase, 0, 1},
1512     {DISPID_GLOBAL_UCASE,                     Global_UCase, 0, 1},
1513     {DISPID_GLOBAL_LTRIM,                     Global_LTrim, 0, 1},
1514     {DISPID_GLOBAL_RTRIM,                     Global_RTrim, 0, 1},
1515     {DISPID_GLOBAL_TRIM,                      Global_Trim, 0, 1},
1516     {DISPID_GLOBAL_SPACE,                     Global_Space, 0, 1},
1517     {DISPID_GLOBAL_STRING,                    Global_String, 0, 0, 2},
1518     {DISPID_GLOBAL_INSTR,                     Global_InStr, 0, 3, 4},
1519     {DISPID_GLOBAL_INSTRB,                    Global_InStrB, 0, 3, 4},
1520     {DISPID_GLOBAL_ASCB,                      Global_AscB, 0, 1},
1521     {DISPID_GLOBAL_CHRB,                      Global_ChrB, 0, 1},
1522     {DISPID_GLOBAL_ASC,                       Global_Asc, 0, 1},
1523     {DISPID_GLOBAL_CHR,                       Global_Chr, 0, 1},
1524     {DISPID_GLOBAL_ASCW,                      Global_AscW, 0, 1},
1525     {DISPID_GLOBAL_CHRW,                      Global_ChrW, 0, 1},
1526     {DISPID_GLOBAL_ABS,                       Global_Abs, 0, 1},
1527     {DISPID_GLOBAL_FIX,                       Global_Fix, 0, 1},
1528     {DISPID_GLOBAL_INT,                       Global_Int, 0, 1},
1529     {DISPID_GLOBAL_SGN,                       Global_Sgn, 0, 1},
1530     {DISPID_GLOBAL_NOW,                       Global_Now, 0, 0},
1531     {DISPID_GLOBAL_DATE,                      Global_Date, 0, 0},
1532     {DISPID_GLOBAL_TIME,                      Global_Time, 0, 0},
1533     {DISPID_GLOBAL_DAY,                       Global_Day, 0, 1},
1534     {DISPID_GLOBAL_MONTH,                     Global_Month, 0, 1},
1535     {DISPID_GLOBAL_WEEKDAY,                   Global_Weekday, 0, 1, 2},
1536     {DISPID_GLOBAL_YEAR,                      Global_Year, 0, 1},
1537     {DISPID_GLOBAL_HOUR,                      Global_Hour, 0, 1},
1538     {DISPID_GLOBAL_MINUTE,                    Global_Minute, 0, 1},
1539     {DISPID_GLOBAL_SECOND,                    Global_Second, 0, 1},
1540     {DISPID_GLOBAL_DATEVALUE,                 Global_DateValue, 0, 1},
1541     {DISPID_GLOBAL_TIMEVALUE,                 Global_TimeValue, 0, 1},
1542     {DISPID_GLOBAL_DATESERIAL,                Global_DateSerial, 0, 3},
1543     {DISPID_GLOBAL_TIMESERIAL,                Global_TimeSerial, 0, 3},
1544     {DISPID_GLOBAL_INPUTBOX,                  Global_InputBox, 0, 1, 7},
1545     {DISPID_GLOBAL_MSGBOX,                    Global_MsgBox, 0, 1, 5},
1546     {DISPID_GLOBAL_CREATEOBJECT,              Global_CreateObject, 0, 1},
1547     {DISPID_GLOBAL_GETOBJECT,                 Global_GetObject, 0, 0, 2},
1548     {DISPID_GLOBAL_DATEADD,                   Global_DateAdd, 0, 3},
1549     {DISPID_GLOBAL_DATEDIFF,                  Global_DateDiff, 0, 3, 5},
1550     {DISPID_GLOBAL_DATEPART,                  Global_DatePart, 0, 2, 4},
1551     {DISPID_GLOBAL_TYPENAME,                  Global_TypeName, 0, 1},
1552     {DISPID_GLOBAL_ARRAY,                     Global_Array, 0, 1},
1553     {DISPID_GLOBAL_ERASE,                     Global_Erase, 0, 1},
1554     {DISPID_GLOBAL_FILTER,                    Global_Filter, 0, 2, 4},
1555     {DISPID_GLOBAL_JOIN,                      Global_Join, 0, 1, 2},
1556     {DISPID_GLOBAL_SPLIT,                     Global_Split, 0, 1, 4},
1557     {DISPID_GLOBAL_REPLACE,                   Global_Replace, 0, 3, 6},
1558     {DISPID_GLOBAL_STRREVERSE,                Global_StrReverse, 0, 1},
1559     {DISPID_GLOBAL_INSTRREV,                  Global_InStrRev, 0, 2, 4},
1560     {DISPID_GLOBAL_LOADPICTURE,               Global_LoadPicture, 0, 1},
1561     {DISPID_GLOBAL_SCRIPTENGINE,              Global_ScriptEngine, 0, 0},
1562     {DISPID_GLOBAL_SCRIPTENGINEMAJORVERSION,  Global_ScriptEngineMajorVersion, 0, 0},
1563     {DISPID_GLOBAL_SCRIPTENGINEMINORVERSION,  Global_ScriptEngineMinorVersion, 0, 0},
1564     {DISPID_GLOBAL_SCRIPTENGINEBUILDVERSION,  Global_ScriptEngineBuildVersion, 0, 0},
1565     {DISPID_GLOBAL_FORMATNUMBER,              Global_FormatNumber, 0, 1, 5},
1566     {DISPID_GLOBAL_FORMATCURRENCY,            Global_FormatCurrency, 0, 1, 5},
1567     {DISPID_GLOBAL_FORMATPERCENT,             Global_FormatPercent, 0, 1, 5},
1568     {DISPID_GLOBAL_FORMATDATETIME,            Global_FormatDateTime, 0, 1, 2},
1569     {DISPID_GLOBAL_WEEKDAYNAME,               Global_WeekdayName, 0, 3},
1570     {DISPID_GLOBAL_MONTHNAME,                 Global_MonthName, 0, 1, 2},
1571     {DISPID_GLOBAL_ROUND,                     Global_Round, 0, 1, 2},
1572     {DISPID_GLOBAL_ESCAPE,                    Global_Escape, 0, 1},
1573     {DISPID_GLOBAL_UNESCAPE,                  Global_Unescape, 0, 1},
1574     {DISPID_GLOBAL_EVAL,                      Global_Eval, 0, 1},
1575     {DISPID_GLOBAL_EXECUTE,                   Global_Execute, 0, 1},
1576     {DISPID_GLOBAL_EXECUTEGLOBAL,             Global_ExecuteGlobal, 0, 1},
1577     {DISPID_GLOBAL_GETREF,                    Global_GetRef, 0, 1},
1578     {DISPID_GLOBAL_VBMSGBOXHELPBUTTON,     Global_vbMsgBoxHelpButton, BP_GET},
1579     {DISPID_GLOBAL_VBMSGBOXSETFOREGROUND,  Global_vbMsgBoxSetForeground, BP_GET},
1580     {DISPID_GLOBAL_VBMSGBOXRIGHT,          Global_vbMsgBoxRight, BP_GET},
1581     {DISPID_GLOBAL_VBMSGBOXRTLREADING,     Global_vbMsgBoxRtlReading, BP_GET}
1582 };
1583
1584 HRESULT init_global(script_ctx_t *ctx)
1585 {
1586     HRESULT hres;
1587
1588     ctx->global_desc.ctx = ctx;
1589     ctx->global_desc.builtin_prop_cnt = sizeof(global_props)/sizeof(*global_props);
1590     ctx->global_desc.builtin_props = global_props;
1591
1592     hres = get_typeinfo(GlobalObj_tid, &ctx->global_desc.typeinfo);
1593     if(FAILED(hres))
1594         return hres;
1595
1596     hres = create_vbdisp(&ctx->global_desc, &ctx->global_obj);
1597     if(FAILED(hres))
1598         return hres;
1599
1600     ctx->script_desc.ctx = ctx;
1601     hres = create_vbdisp(&ctx->script_desc, &ctx->script_obj);
1602     if(FAILED(hres))
1603         return hres;
1604
1605     return init_err(ctx);
1606 }