Page 1 of 1
Wat is fout in dit script?
Posted: Mon Dec 28, 2009 8:50 pm
by 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.
Re: wat is hier fout?
Posted: Mon Dec 28, 2009 9:42 pm
by 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
Re: wat is hier fout?
Posted: Mon Dec 28, 2009 10:11 pm
by Edwin
Bedankt ga het morgen eens proberen
Re: wat is hier fout?
Posted: Mon Dec 28, 2009 10:12 pm
by 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?
Re: wat is hier fout?
Posted: Tue Dec 29, 2009 2:28 pm
by Edwin
Dick het sript werkt perfect bedankt!
