wscript: Implemented Host_get_Application.

programs/wscript/host.c

@@ -110,8 +110,10 @@ static HRESULT WINAPI Host_get_Name(IHost *iface, BSTR *out_Name)
 
 static HRESULT WINAPI Host_get_Application(IHost *iface, IDispatch **out_Dispatch)
 {
-    WINE_FIXME("(%p)\n", out_Dispatch);
-    return E_NOTIMPL;
+    WINE_TRACE("(%p)\n", out_Dispatch);
+
+    *out_Dispatch = (IDispatch*)&host_obj;
+    return S_OK;
 }
 
 static HRESULT WINAPI Host_get_FullName(IHost *iface, BSTR *out_Path)

programs/wscript/tests/run.js

@@ -47,5 +47,6 @@ WScript.Interactive = false;
 ok(WScript.Interactive === false, "WScript.Interactive = " + WScript.Interactive);
 WScript.Interactive = true;
 ok(WScript.Interactive === true, "WScript.Interactive = " + WScript.Interactive);
+ok(WScript.Application === WScript, "WScript.Application = " + WScript.Application);
 
 winetest.reportSuccess();