vbscript: Added AddNamedItem implementation.
diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h
index 1f6276f..9c1d35c 100644
--- a/dlls/vbscript/vbscript.h
+++ b/dlls/vbscript/vbscript.h
@@ -28,6 +28,17 @@
 
 #include "vbscript_classes.h"
 
+#include "wine/list.h"
+#include "wine/unicode.h"
+
+typedef struct named_item_t {
+    IDispatch *disp;
+    DWORD flags;
+    LPWSTR name;
+
+    struct list entry;
+} named_item_t;
+
 typedef struct {
     IDispatchEx IDispatchEx_iface;
 
@@ -38,7 +49,11 @@
     IActiveScriptSite *site;
     LCID lcid;
 
+    IDispatch *host_global;
+
     vbdisp_t *script_obj;
+
+    struct list named_items;
 } script_ctx_t;
 
 HRESULT init_global(script_ctx_t*);
@@ -59,3 +74,19 @@
 {
     return HeapFree(GetProcessHeap(), 0, mem);
 }
+
+static inline LPWSTR heap_strdupW(LPCWSTR str)
+{
+    LPWSTR ret = NULL;
+
+    if(str) {
+        DWORD size;
+
+        size = (strlenW(str)+1)*sizeof(WCHAR);
+        ret = heap_alloc(size);
+        if(ret)
+            memcpy(ret, str, size);
+    }
+
+    return ret;
+}