support VBArray

Author: arcticnotes

.github/workflows/ci.yaml

@@ -23,4 +23,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,13 @@
 // This file is in JScript, not in JavaScript. It is executed in Windows Scripting Host (WSH).
 
+function CreateVBArray( jsArray) {
+	var dict = new ActiveXObject( 'Scripting.Dictionary');
+	for( var i = 0; i < jsArray.length; i++)
+		dict.Add( i, jsArray[ i]);
+	dict.Add( 'length', jsArray.length);
+	return Dict2VBArray( dict);
+}
+
 var FSO = new ActiveXObject( 'Scripting.FileSystemObject');
 var OBJECT_TOSTRING = Object.toString();
 var GLOBAL = this;
@@ -79,6 +87,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,9 @@
+Function Dict2VBArray( dict)
+	Dim vbArray()
+	ReDim vbArray( dict.Item( "length") - 1)
+	Dim I
+	For I = 0 To dict.Item( "length") - 1
+		vbArray( I) = dict.Item( I)
+	Next
+	Dict2VBArray = vbArray
+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();
+	}
+});