Bonjours,
Tout d'abords je suis nouveau dans ce forum, espérant que c'est bien le bon endroit pour demander cela.
Voila je débute le vbs, je voulais faire un script vbs pour qu'il me renvoie une erreure (c'est pour un script nagios) si un ou plusieurs fichiers du dossier "inbox" est présent depuis plus de 10 minutes.
Pas de restriction sur le type des fichiers.
J'ai commencer avec ceci :
Voila en espérant avoir été clair, merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 'je ne sais pas si je dois utiliser cette ligne (Set fso = CreateObject("Scripting.FileSystemObject" ) ) dim Time Time = Now Const intOK = 0 Const intWarning = 1 Const intCritical = 2 Const intUnknown = 3 strFichier="C:\TradeXpress5\users\edidev\inbox" If oFSO.FileExists(strFichier) = False Then wscript.echo "Error File " & strFile & " was not founded!" wscript.quit(intError) 'Récupération de la date de modification du fichier dtmCreationDate = oFile.DateLastModified ' 'Comparaison entre l'heure de modif du fichier et l'heure système, si elle est supérieure à 10 minutes alors on déclanche l'erreur Critique If Datediff("n", dtmCreationDate, Time) > 10 Then wscript.echo "CRITICAL : Un ou plusieurs fichier date de plus de 10 minutes" WScript.Quit(intCritical) Else wscript.echo "OK : Auncun fichier parasite" WScript.Quit(intOK) End if End if End
Partager