Machine-specific discussion
Unix, Linux, OS X, OS/2, Windows, ..?
-
axtens
- Posts: 28
- Joined: Mon Apr 06, 2009 12:23 pm
- Location: Perth, WA Australia
-
Contact:
Post
by 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
- Posts: 171
- Joined: Wed Feb 14, 2007 12:54 pm
- Location: Carifornia
Post
by m35 »
Good to see you're exploring and trying new things. You might also be interested in
this. ;)
-
axtens
- Posts: 28
- Joined: Mon Apr 06, 2009 12:23 pm
- Location: Perth, WA Australia
-
Contact:
Post
by axtens »
m35 wrote: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.