Hi Ken
BTW, I'm assuming you're talking about Rev 3, right? If not, let me know as
there's a couple of differences between VBS in Rev 2.x and Rev 3.
Thank you all for help - I use 2.9 and did not know that there are differences
in handling of vbs in the new runrev 3.0.
I came to the following solution: instead of running vbs from runrev I use
scan.hta (hyptertext application) with the code:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Scannen</title>
<BODY onLoad="scanner.CurrentSource='2';scanner.ShowUI
='False';scanner.Units='2';scanner.Resolution =
'150';scanner.ImageLeft='0';scanner.ImageRight='4';scanner.ImageBottom='4';scanner.AcquireToFile('test.jpg');">
<object ID=scanner
CLASSID="CLSID:A96AC4E0-6EBF-11D0-AA7C-00608CC9A71F">
</object>
</body>
</html>
this works from commandline (I use the shell("scan.hta") command from runrev).
If I would put a Self.Close on the End of the Body onLoad, the scan would not
start because the hta is closing before.
A new problem occured:
The mshta.exe process in any case does not close on the machine I am testing on
(xp sp3). => I do need vbs from runrev for that.
In the case the mshta.exe does not close (a problem in ms windows documented in
the ms kb) I use the following vbs in field 1 and run it from runrev. This
works and closes any process "mshta.exe".
on mouseUp
put field 1 into auftrag; do auftrag as VBScript; put the result
end mouseUp
set wmi = GetObject("winmgmts:")
wql = "select * from win32_process"
set ergebnis = wmi.ExecQuery(wql)
for each objekt in ergebnis
liste = liste & objekt.name & " Prozess-ID: " & objekt.processID & vbCr
next
wql = "select * from win32_process where name='mshta.exe'"
set ergebnis = wmi.ExecQuery(wql)
for each mshta in ergebnis
mshta.Terminate 0
next
_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
