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,9 @@
 // This file is in JScript, not in JavaScript. It is executed in Windows Scripting Host (WSH).
 
+function CreateVBArray( jsArray) {
+	return JSArray2VBArray( jsArray);
+}
+
 var FSO = new ActiveXObject( 'Scripting.FileSystemObject');
 var OBJECT_TOSTRING = Object.toString();
 var GLOBAL = this;
@@ -79,6 +83,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,12 @@
+Function JSArray2VBArray( jsArray)
+	Dim vbArray()
+	ReDim vbArray( jsArray.length - 1)
+	Dim i
+	Dim x
+	i = 0
+	For Each x In jsArray
+		vbArray( i) = x
+		i = i + 1
+	Next
+	JSArray2VBArray = 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();
+//	}
+//});