[SCRIPT VB] Email de la liste des composants non Ă  jour

La section pour partager vos scripts et demander de l'aide dans vos scénarios.

Modérateur: HoMIDoM

[SCRIPT VB] Email de la liste des composants non Ă  jour

Messagede davidinfo » 29 Avr 2016, 17:56

Voici un petit script quipermet de récupérer la liste des composants non à jour et de l'envoyer par email.
Cette liste est visible dans l'admin.

Code: Tout sélectionner
    Imports System
    Imports System.IO
    Imports System.Windows.Forms
    Imports Microsoft.VisualBasic
    Imports Homidom   
    Imports System.Xml
    Imports System.Xml.XPath
    Imports System.Xml.Serialization   
    Imports System.Net                   
    Imports System.Collections     
    Imports System.Threading                               
    Namespace Dynam
    'Ne pas supprimer cette class
    Public Class DynamicCode
       
      'Ne pas supprimer cette function
      Public Function ExecuteCode(paramarray prmParameters() as object) as object
        Dim _serveur as Homidom.Homidom.server
        _serveur = prmParameters(0)
        try
                Dim IdDuServer as string = "123456789"
                Dim listecomposants as string
                Dim listdevices As New System.Collections.Generic.List(Of String)

                 _serveur.log(1, 2, "Macro : Check composant non Ă  jour", "Verification des composants")

                 listdevices = _serveur.GetDeviceNoMaJ(IdDuServer)
                        If listdevices.Count > 0 Then
                            For Each logmsg As String In listdevices
                                listecomposants &= logmsg & vbCrLf
                            Next
_serveur.log(1, 2, "Macro : Check composant non Ă  jour", "Liste des composants non Ă  jour:" & listecomposants )

                            Dim _action As New Homidom.HoMIDom.Mail(_serveur, _serveur.GetSMTPMailServeur(IdDuServer), "email@email.com", "Homidom liste des composants non Ă  jour", "liste des composants: " & listecomposants, _serveur.GetSMTPServeur(IdDuServer), _serveur.GetSMTPPort(IdDuServer), _serveur.GetSMTPSSL(IdDuServer), _serveur.GetSMTPLogin(IdDuServer), _serveur.GetSMTPPassword(IdDuServer))
                            Dim y As New Thread(AddressOf _Action.Send_email)
                            y.Name = "Traitement du script"
                            y.Start()
                            y = Nothing
                        Else
                             _serveur.log(1, 2, "Macro : Check composant non Ă  jour", "Aucun composant non Ă  jour")
                        End If
                        listdevices.Clear()

                 
        Catch ex As Exception
           _serveur.log(8, 2, "Macro VB:Action sur le composant", "Exception: " & ex.tostring)
        End Try
      End Function

    End Class
    End Namespace
HoMIDoM- Le système complet et gratuit de domotique pour la maison (Domos)
Avatar de l’utilisateur
davidinfo
Dieu de domotique
 
Messages: 1514
Inscription: 19 Oct 2008, 22:49
Localisation: Algrange (57)

Retourner vers Scripts VB

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités

Copyright © 2011 - Touteladomotique.com - Tous droits rĂ©servĂ©s
Les blogs partenaires : Abavala, Domo-Blog, Domotique34, Maison et Domotique