Création d'un script spécifique

Pour sauver spécifiquement des données d'un module, il suffit de créer un script de ce style. Le script fait juste une requête SQL de type INSERT. Cette commande va ajouter la valeur du device A1 dans la table events de la base de données que nous venons de créer. Vous pouvez bien sur modifier ce script pour traiter vos codes de module...

Créez le script test.vbs dans le répertoire HOMESEER/scripts/modules/

#include ..\lib\framework_domotics.vbs

Sub main

'Sub saveDeviceChangeWithAuthor(astrDevice,astrAuthor)
Dim aobjConn                ' Connection to the database
Dim astrConnectionString        ' Connection String
Dim astrDatabase            ' Path + File to find the database
Dim astrSQL                ' Query to be executed
Dim aevtLast                ' Last event trigered
Dim acodeLast                ' Last code changed
Dim aDateTime                ' Current Date and Time
Dim astrDevice

astrDevice="A1"

Set aobjConn = CreateObject("ADODB.Connection")
aobjConn.Open(G_CONNECTION_STRING)
aDateTime = Now()

astrSQL = "INSERT INTO EVENTS (STRING, DEVICE, STATUS, VALUE, DATE, NOTES) VALUES ("
astrSQL = astrSQL & "'" & replace(hs.DeviceString(aStrDevice),"'","''") & "',"
astrSQL = astrSQL & "'" & astrDevice & "',"
astrSQL = astrSQL & "'" & hs.DeviceStatus(astrDevice) & "',"      
astrSQL = astrSQL &  hs.DeviceValue(astrDevice) & ","
astrSQL = astrSQL & "'" & Year(aDateTime) &"/"& Month(aDateTime) &"/"& Day(aDateTime) 
astrSQL = astrSQL & " " & Hour(aDateTime) &":"& Minute(aDateTime) &":"& Second(aDateTime) & "',"
astrSQL = astrSQL & "'" & replace(astrAuthor,"'","''") & "')"

aobjConn.Execute astrSQL
aobjConn.Close
Set aobjConn = Nothing

End Sub

Créez ensuite un évènement Homeseer. Et utilisez le fichier test.vbs.

Enfin, ouvrez votre client MySQL et vérifiez que les données sont bien sauvées dans la table EVENTS. Utilisez pour celà la commande SQL " select device, date from events;"