Log Digimax or RFXSensor to a file

[b_weijenberg]

With this script you can log all temperature changes to a text file that can be analyzed later with Excel for example.

Create an Event with as trigger Device Value Change using the Digimax or RFXSensor device. Value is: Any value

sub main()
Dim fso,file1
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8

Path = "C:\templog.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile(path, OpenFileForAppending,True)

file1.WriteLine( Now() & " " & hs.devicevalue("\65"))

file1.Close
end sub

change the \65 if your current temperature value is at another device.