Script:Lib Alerte

Un article de MacodaWiki.

lib_alerte.vbs : Permet de gérer des niveaus d'alerte, de relance d'alerte, ...

'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*

'* LIBRAIRIE                                                                                             *
'*                                                                                                       *
'*   Voir l'entete de lib_log !!!                                                 *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*                                                                                                       *
'*  2006/08/01                                                                                           *
'*-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-**-*-*-*-*-*-*-*



'TABLE => tb_alerte
'Date : 20/10/2005 12:12
'Niveau d'importance : Critique / Urgent / Important / infos
'Description : Problème sur les températures
'Etat : Niveau xxx
'xxxx allant de 1 à 4
' 0 : Non traité
' 1 : Mail perso
' 2 : Mail boulot
' 3 : SMS David
' 4 : SMS Corinne

Const ALERTE_CRITIQUE  = 0
Const ALERTE_URGENT    = 1
Const ALERTE_IMPORTANT = 2
Const ALERTE_INFOS     = 3


'##############################################################################
Sub gFCT_ALERTE_Creation(iNiveau,sTexte)
Dim sChamp_insert, sValeur_insert

	' Insertion de la ligne dans la base access pour déclencher l'alerte
	sChamp_insert = "[Date_op], [Niveau_alerte], [Description], [Etat], [Date_etat]"
	sValeur_insert = "Now, "&CStr(iNiveau)&",'"&sTexte&"',0, Now"
	gBDDATA_Insert_SQL "alerte",sChamp_insert,sValeur_insert	

	' On lance l'évènement qui va surveiller les alertes et les traiter
	gFct_Log_LIB LOG_NORMAL,"Et on le lance une première fois"
	hs.TriggerEvent "Controle_alerte"
	
	gFct_Log_LIB LOG_NORMAL,"On fait le nécessaire pour que l'évènement Controle_alerte s'éxécute régulièrement"
	hs.EnableEvent "Controle_alerte" 
	
	
End Sub