TODAY UPDATE: i found that i have basic version of VWS, so the output file used in the script does not exist so i modified it (see BOLD)
then a created a recurring event that launch the script and some virtual devices with same identification used in script (w11, w12.....)
Now another issue, i see in the code something about a GIF, is this something with the icon used in STATUS page ? where can i get some icons like that (free , please
)sub main ()
'Get Data from VWS for use with Homeseer
dim f, fs
dim data1, day,month,year,hour,minute,temperature,humidity,tempvalue
Set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile("C:\vws\data\dbase.csv")
Do While NOT f.AtEndOfStream
data1 = f.ReadLine
Loop
f.close
temperature=hs.StringItem(data1,13,",")
humidity=hs.StringItem(data1,11,",")
tempvalue=hs.devicevalue ("w11")
hs.setdevicestring "W11",temperature & " degrees fahrenheit",true
hs.setdevicevalue "W11",temperature
'hs.SetDeviceString "W11","<img src='/icons/thermostats/"& tempvalue &".gif'>" & " " & temperature + " degrees fahrenheit"
hs.setdevicestring "W12",humidity & " %",true
hs.setdevicevalue "W12",humidity
end sub
