interface to CScript.EXE (VBScript)

[axtens]

G'day everyone

Here's something I just cooked up as part of a test frame. It's a way of evaluating VBScript code from newLISP.

Code: Select all

(define (vbscript text)
	(begin
		(set 'aFile (open "c:/temp/temp.vbs" "write"))
		(write-line aFile (string text))
		(close aFile)
		(exec "cmd.exe /C c:\\windows\\system32\\cscript.exe c:\\temp\\temp.vbs >c:\\temp\\temp.out" )
		(set 'aFile (open "c:/temp/temp.out" "read"))
		(set 'result (string (read-line aFile)))
		(close aFile)
		result
	)
)

And here's an example of its use:

Code: Select all

(set 'foo "dim a
a = \"hello world\"
msgbox a
")

(vbscript foo)

Kind regards,
Bruce.

[m35]

Good to see you're exploring and trying new things. You might also be interested in this. ;)

[axtens]

Good to see you're exploring and trying new things. You might also be interested in this. ;)

Oh wow, that looks so cool. I've gotta try that out real soon.

Thanks.

Bruce.