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 Expand


(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 Expand


(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 http://www.newlisp.org/modules/various/winscript.lsp.html">this. ;)

[axtens]

Good to see you're exploring and trying new things. You might also be interested in http://www.newlisp.org/modules/various/winscript.lsp.html">this. ;)

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



Thanks.



Bruce.