support VBArray

Author: arcticnotes

lib/node/node-wsh.js

@@ -3,8 +3,8 @@ import PATH from 'node:path';
 import { Syncline} from "@arcticnotes/syncline";
 
 const COMMAND = 'cscript.exe';
-const ARGS = [ '//E:jscript', '//NoLogo'];
-const SCRIPT_FILE = PATH.join( PATH.dirname( import.meta.dirname), 'wsh', 'host.js');
+const ARGS = [ '//NoLogo'];
+const SCRIPT_FILE = PATH.join( PATH.dirname( import.meta.dirname), 'wsh', 'host.wsf');
 
 export class WindowsScriptingHost extends EventEmitter {
 

lib/wsh/host.js

@@ -8,6 +8,13 @@ var nextRefId = 0;
 
 eval( FSO.OpenTextFile( FSO.BuildPath( FSO.GetParentFolderName( WScript.ScriptFullName), 'json2.js')).ReadAll());
 
+function CreateVBArray( jsArray) {
+	WScript.StdErr.WriteLine( 'jsArray=' + JSON.stringify( jsArray));
+	var vbArray = JSArray2VBArray( jsArray);
+	WScript.StdErr.WriteLine( 'vbArray=' + vbArray);
+	return vbArray;
+}
+
 function decode( encoded) {
 	var decoded;
 	var item;
@@ -79,6 +86,7 @@ function encode( decoded) {
 				return encoded;
 			}
 		// warning: intentional fall-through here!
+		case 'unknown':
 		case 'function':
 			for( i in REFERENCES)
 				if( REFERENCES[ i].value === decoded)

lib/wsh/host.vbs

@@ -0,0 +1,17 @@
+Function JSArray2VBArray( jsArray)
+	Dim vbArray()
+	ReDim vbArray( jsArray.length - 1)
+	Dim i
+	Dim x
+	WScript.StdErr.WriteLine "vbs: jsArray=" & jsArray
+	WScript.StdErr.WriteLine "vbs: jsArray.length=" & jsArray.length
+	i = 0
+	For Each x In jsArray
+		vbArray( i) = x
+		WScript.StdErr.WriteLine "vbs: vbArray(" & i & ")=" & x
+		i = i + 1
+	Next
+	WScript.StdErr.WriteLine "vbs: almost done"
+	JSArray2VBArray = vbArray
+	WScript.StdErr.WriteLine "vbs: done"
+End Function

lib/wsh/host.wsf

@@ -0,0 +1,4 @@
+<job>
+	<script language="VBScript" src="host.vbs" />
+	<script language="JScript" src="host.js" />
+</job>

test/test.js

@@ -4,9 +4,9 @@ import { WindowsScriptingHost} from '@arcticnotes/node-wsh';
 
 TEST( 'smoke-test', async() => {
 	const wsh = await WindowsScriptingHost.connect();
-	wsh.on( 'ref', ( ref, obj) => console.log( 'ref', ref, obj));
-	wsh.on( 'unref', ref => console.log( 'unref', ref));
 	try {
+		wsh.on( 'ref', ( ref, obj) => console.log( 'ref', ref, obj));
+		wsh.on( 'unref', ref => console.log( 'unref', ref));
 		const WScript = wsh.global( 'WScript');
 		const GetObject = wsh.global( 'GetObject');
 		const Enumerator = wsh.global( 'Enumerator');
@@ -27,3 +27,13 @@ TEST( 'smoke-test', async() => {
 		await wsh.disconnect();
 	}
 });
+
+TEST( 'vbarray', async() => {
+	const wsh = await WindowsScriptingHost.connect();
+	try {
+		const CreateVBArray = wsh.global( 'CreateVBArray');
+		ASSERT.equal( typeof CreateVBArray( [ 1, 3, 5]), 'function');
+	} finally {
+		await wsh.disconnect();
+	}
+});