Wat is fout in dit script?

[Edwin]

Wat is hier fout in dit script?
Ik wil de devicestring van p50 en datum +tijd wegschrijven naar bestand ,maar krijg het gedeelte van devicestring maar niet goed
ben ook een noob in scripting moet het van voorbeelden hebben

Code: Select all

sub main()
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile("D:\Program Files\HomeSeer 2\Scripts\top40log.txt", 8, 0)
f1.WriteLine &hs.DeviceString("P50") date & " " & time & " " & "--" & msg
f1.Close
end sub

alvast bedankt.

[Dickr43]

Ben ook geen scriptwonder maar probeer deze eens:

Code: Select all

sub main()

Dim fso, f1, cString

Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile("D:\Program Files\HomeSeer 2\Scripts\top40log.txt", 8, 0)

cString = hs.DeviceString("P50") & date & " " & time & " " & "--" & msg

f1.WriteLine cString

f1.Close
set fso = Nothing

end sub

[Edwin]

Bedankt ga het morgen eens proberen

[Alexander]

wordt het script aangeroepen vanuit HS? (mbv events) Zo ja, dan moet de & voor de hs. weg. en voor "date" moet nog &. "msg" is overigens ook onbekend of heb je die ergens anders gedefinieerd en uit je post gehaald? Wat geeft ie als foutmelding eigenlijk in HS log?

[Edwin]

Dick het sript werkt perfect bedankt!