[PATCH 08/12] vbscript: Implement ScriptTypeLibComp_BindType.

[Gabriel Ivăncescu]

Signed-off-by: Gabriel Ivăncescu 
---
 dlls/vbscript/vbdisp.c | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c
index be11277..56a8fe8 100644
--- a/dlls/vbscript/vbdisp.c
+++ b/dlls/vbscript/vbdisp.c
@@ -1435,9 +1435,21 @@ static HRESULT WINAPI ScriptTypeLibComp_BindType(ITypeComp *iface, LPOLESTR szNa
 {
     ScriptTypeInfo *This = ScriptTypeInfo_from_typelib_ITypeComp(iface);

-    FIXME("(%p)->(%s %08x %p %p)\n", This, debugstr_w(szName), lHashVal, ppTInfo, ppTComp);
+    TRACE("(%p)->(%s %08x %p %p)\n", This, debugstr_w(szName), lHashVal, ppTInfo, ppTComp);

-    return E_NOTIMPL;
+    if (!szName || !ppTInfo || !ppTComp)
+        return E_INVALIDARG;
+
+    *ppTInfo = NULL;
+    *ppTComp = NULL;
+
+    if (!wcsicmp(szName, L"VBScriptTypeInfo"))
+    {
+        /* For some reason, Windows does not return the TypeComp here */
+        *ppTInfo = &This->ITypeInfo_iface;
+        ITypeInfo_AddRef(*ppTInfo);
+    }
+    return S_OK;
 }

static const ITypeCompVtbl ScriptTypeLibCompVtbl = {