Another camera photo grabber and photo series saver

[Pete]

Currently using 4 Netier WEB cam servers running Windows 98SE. Thinking of migrating these to XP as they are currently running at about 600Mhz. Need to add memory though (currently only at 64 megs each). Saving captures of doorbell rings, mail etc manually by running a script which just copies to a separate directory on HS server. Ideal program! Steve can you offer some hints as to best way to run your script utilizing various events?

[Pete]

Testing on one of the WEB cams getting the following (still playing though).....

6/18/2003 9:45:51 PM~!~Event Trigger~!~Trigger from menu (test)
6/18/2003 9:45:51 PM~!~Error~!~Script error in file: CameraSeries2.txt: 500:Variable is undefined: 'WScript' in line 47

Ok...playing some more...

Testing it using

wscript.exe camera.vbs

and

ran it same way in HS...

Works great with "test" line uncommented out.

so now how do I run it when called to work with motion etc??

[This message was edited by Pete on Wed, 18 June 2003 at 11:20 PM.]

[Stevech]

try this

Take the script as it was.
Edit it to comment out the Call Main()
Save this as somefile.txt in the HS scripts folder.
Make a HS event run somefile.txt and specify Main(1) to run in that script file.

This is changing the script from VBS form to a HomeSeer script which by convention are TXT files, and the Event function in HS can call a particular function in the script - main() in this case.

A VBS form can be clicked upon to run independent of HomeSeer. VBS types are associated to the scripting engine. TXT files are assocaited with WordPad or Notepad, as a rule.

[Pete]

So how are the variables URL, FileNameRoot,ID passed when called?

camera.txt("main(1)")

is it?

camera.txt("main(1)"),URL, etc where as
URL = (URL(http:\\xxx.xxx.xxx.xxx:xxx)?

like:

camera.txt("main(1)","URL(http:\\xxx.xxx.xxx.xxx:xxx)",filen ameroot(//xxx)",id(x))

thanks again...

[This message was edited by Pete on Fri, 20 June 2003 at 01:07 PM.]

[Stevech]

here's the script's declaration:
main(URL, FilenameRoot, id)

so you call it from the HS event script invocation just as show above, but you replace URL with a string of your choice, same for FilenameRoor. You can compute each of these before passing them, by using an expression or bny putting multiple script commands on one line.

main("Http://xxx.yyy.zzz:8080//blahblah" & minute(now()), "myfilename", 1)

n = minute(now()) : main("Http://xxx.yyy.zzz:8080//blahblah" & n, 1)

msdn.microsoft.com web site has a free dowload of the Windows Scripting Host documentation. Or from the bookstore- VB Script programming.