MOM 2005 : creer un evenement si un fichier apparait dans un dossier

Le script MOM suivant permet de creer un evenement de type ERROR si un fichier apparait dans un dossier normalement vide
sinon un evenement de type success est cree.
 
Utilisation dans MOM :
Schedule a frequence desiree, puis creation d’une regle d’alerte sur l’evenement.
 
Utiliser le second script pour rechercher un fichier en particulier
 
 
 
‘*******************************************************************************************
‘ script :   TestPresFichierMOM.vbs
‘ version :   1.0
‘ Auteur :   JF BERENGUER

‘ Objet :   teste la presence d’un fichier dans un dossier

‘ Méthode :   compte le nombre de fichier présents dans ce dossier,  

‘ Configuration : renseigner le chemin de la recherche
‘           

‘ Utilisation :  script MOM

‘*******************************************************************************************
Option explicit
‘******  Déclaration des constantes     *****
Const EVENT_TYPE_SUCCESS = 0
Const EVENT_TYPE_ERROR   = 1
Const EVENT_TYPE_WARNING = 2
Const EVENT_TYPE_INFORMATION = 4
Const EVENT_TYPE_AUDITSUCCESS = 8
Const EVENT_TYPE_AUDITFAILURE = 16
‘******  Déclaration des variables     *****
Dim fso
Dim WshShell
Dim folder
Dim IntNbFile
Dim strPath
Dim file
‘******  Initialisation des variables    *****
IntNbFile = 0
strPath = "c:\\Folder\test"
‘******  Main          *****
Set fso = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
set folder = fso.GetFolder(strPath)
for each file in folder.Files
IntNbFile = IntNbFile + 1
next
If IntNbFile > 0 Then
 CreateEvent 701,EVENT_TYPE_ERROR,"MOM_EVENT","un ou des fichiers sont présents dans le dossier " & strPath
 Else
 CreateEvent 702,EVENT_TYPE_SUCCESS,"MOM_EVENT","aucun fichier n’est présent dans le dossier " & strPath
End if
 
 
‘******  Procedures  *****
Sub CreateEvent(intEventNumber,intEventType,strEventSource,strEventMessage)

‘ But :   Creer un evenement MOM

‘ Arguments : No event, type, source, message, nom du device

‘ Retour :  n/a

Dim objEvent
    Set objEvent = ScriptContext.CreateEvent()
    objEvent.EventSource = strEventSource
    objEvent.EventNumber = intEventNumber
    objEvent.EventType = intEventType
    objEvent.Message = strEventMessage
    ScriptContext.Submit objEvent
End Sub
 
 
 
 
 
 
 
‘*******************************************************************************************
‘ script :   TestPresFichierMOM.vbs
‘ version :   2.0
‘ Auteur :   JF BERENGUER

‘ Objet :   teste la presence d’un fichier dans un dossier

‘ Méthode :   compte le nombre de fichier présents dans ce dossier,  

‘ Configuration : renseigner le chemin de la recherche et le nom du fichicer recherche
‘           

‘ Utilisation :  script MOM

‘*******************************************************************************************
Option explicit
‘******  Déclaration des constantes     *****
Const EVENT_TYPE_SUCCESS = 0
Const EVENT_TYPE_ERROR   = 1
Const EVENT_TYPE_WARNING = 2
Const EVENT_TYPE_INFORMATION = 4
Const EVENT_TYPE_AUDITSUCCESS = 8
Const EVENT_TYPE_AUDITFAILURE = 16
‘******  Déclaration des variables     *****
Dim fso
Dim WshShell
Dim folder
Dim IntNbFile
Dim strPath
Dim file
Dim strFileName
‘******  Initialisation des variables    *****
IntNbFile = 0
strPath = "c:\\Folder\test"
strFileName = "FileName"
‘******  Main          *****
Set fso = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
set folder = fso.GetFolder(strPath)
for each file in folder.Files
If file.Name = (strFileName) Then IntNbFile = IntNbFile + 1
next
If IntNbFile > 0 Then
 CreateEvent 701,EVENT_TYPE_ERROR,"MOM_EVENT","un ou des fichiers sont présents dans le dossier " & strPath
 Else
 CreateEvent 702,EVENT_TYPE_SUCCESS,"MOM_EVENT","aucun fichier n’est présent dans le dossier " & strPath
End if
 
 
‘******  Procédures  *****
Sub CreateEvent(intEventNumber,intEventType,strEventSource,strEventMessage)

‘ But :   Créer un évènement MOM

‘ Arguments : No event, type, source, message, nom du device

‘ Retour :  n/a

Dim objEvent
    Set objEvent = ScriptContext.CreateEvent()
    objEvent.EventSource = strEventSource
    objEvent.EventNumber = intEventNumber
    objEvent.EventType = intEventType
    objEvent.Message = strEventMessage
    ScriptContext.Submit objEvent
End Sub
 
 
 
 
 
 
Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :