Discussion :

[makiavel7]

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 :

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

Voila en espérant avoir été clair, merci

[papyxy]

Bonjour
je vous propose ceci (peut-être pas le plus astucieux)

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
    stRep="C:\TradeXpress5\users\edidev\inbox"
 
h= hour(now)
m= minute(now)
  mna=(h*60)+m
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If  oFSO.FolderExists(stRep) Then
 For each   oFl in  oFSO.GetFolder(stRep).Files
	Set oFl =   oFSO.GetFile(oFl.name)
	dm= oFl.DateLastModified
	mn=(mid(dm,12,2) * 60) + mid(dm,15,2)
	if mn > (mna+10) then _
        z=z &  mid(dm,12,5) & "  " & ofl.name & vbCrlf
 Next
End If
 
msgbox z,," plus de 10 mn"

[makiavel7]

bonjour,

Désoler mais je dois mettre quoi a la place de "oFl.name" le nom du fichier ?
(car je ne vais pas connaitre les noms des fichiers
ni le nombres dailleurs)

merci

[papyxy]

avez-vous testé avec mon code?
le nom des fichiers apparaitra en fin d'exécution
"ofl.name" représente tous les noms de fichier du répertoire.

[makiavel7]

Je vien d'essayer l'execution a la main mais je croi qu'il affeche toujours une fenetre "plus de 10 min"

[papyxy]

En principe, la fenêtre résultante doit afficher les fichiers qui sont présents depuis plus de 10mn!
(si j'ai bien compris)

[ProgElecT]

Salut

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
Dim stRep
Dim oFSO, ofl
 
stRep = "C:\PersoFrancis\pour voire"
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If oFSO.FolderExists(stRep) Then
    For Each ofl In oFSO.GetFolder(stRep).Files
        If DateDiff("n", ofl.DateLastModified, Now) >= 10 Then
            MsgBox "le fichier " & ofl.Name & vbNewLine & "date de PLUS de 10 minutes"
            Else
            MsgBox "le fichier " & ofl.Name & vbNewLine & "date de MOINS de 10 minutes"
        End If
    Next
End If

[makiavel7]

Bonjours,

Désoler du temps avant la réponse mais j'étais malade, bref.
merci papyxy mais oui enfaite ProgElecT ma donné se que je cherchais

merci a vous 2