support VBArray

Author: arcticnotes

.github/workflows/ci.yaml

@@ -10,9 +10,7 @@ jobs:
     strategy:
       matrix:
         node-version:
-          - 20.x
           - 22.x
-          - 24.x
     steps:
       - uses: actions/checkout@v4
       - uses: actions/setup-node@v4
@@ -23,4 +21,5 @@ jobs:
         shell: cmd
         run: chcp 65001
       - run: npm ci
+      - run: cscript
       - run: node --expose-gc --test

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

@@ -1,5 +1,16 @@
 // This file is in JScript, not in JavaScript. It is executed in Windows Scripting Host (WSH).
 
+WScript.StdErr.WriteLine( '>>>>>>>>>>>>>>>>> before');
+JSArray2VBArray( [ 1, 2, 3]);
+WScript.StdErr.WriteLine( '>>>>>>>>>>>>>>>>> after');
+
+function CreateVBArray( jsArray) {
+	WScript.StdErr.WriteLine( 'jsArray=' + JSON.stringify( jsArray));
+	var vbArray = JSArray2VBArray( jsArray);
+	WScript.StdErr.WriteLine( 'vbArray=' + vbArray);
+	return vbArray;
+}
+
 var FSO = new ActiveXObject( 'Scripting.FileSystemObject');
 var OBJECT_TOSTRING = Object.toString();
 var GLOBAL = this;
@@ -79,6 +90,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,19 @@
+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
+	WScript.StdErr.WriteLine "vbs: start iteration"
+	For Each x In jsArray
+		WScript.StdErr.WriteLine "vbs: vbArray(" & i & ") <- " & x
+		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();
+	}
+});