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
