wscript: Implemented Host_put_Interactive.

programs/wscript/host.c

@@ -154,8 +154,10 @@ static HRESULT WINAPI Host_get_Interactive(IHost *iface, VARIANT_BOOL *out_Inter
 
 static HRESULT WINAPI Host_put_Interactive(IHost *iface, VARIANT_BOOL v)
 {
-    WINE_FIXME("(%x)\n", v);
-    return E_NOTIMPL;
+    WINE_TRACE("(%x)\n", v);
+
+    wshInteractive = v;
+    return S_OK;
 }
 
 static HRESULT WINAPI Host_Quit(IHost *iface, int ExitCode)

programs/wscript/tests/run.js

@@ -43,5 +43,9 @@ try {
 ok(WScript.Arguments.Count() === 3, "WScript.Arguments.Count() = " + WScript.Arguments.Count());
 ok(WScript.Arguments.length === 3, "WScript.Arguments.length = " + WScript.Arguments.length);
 ok(WScript.Interactive === true, "WScript.Interactive = " + WScript.Interactive);
+WScript.Interactive = false;
+ok(WScript.Interactive === false, "WScript.Interactive = " + WScript.Interactive);
+WScript.Interactive = true;
+ok(WScript.Interactive === true, "WScript.Interactive = " + WScript.Interactive);
 
 winetest.reportSuccess();