Discussion :

[Félia]

Bonjour,

Je ne sais pas si je suis vraiment sur le bon forum mais je préfère tenter ma chance tout de même.
Je voudrais créer un batch qui vérifie dans un dossier donné s'il y a eu ajout de nouveaux fichiers (de format DLIV*) dans les n dernières heures. Et si ce n'est pas le cas, qui envoie une alerte (type NET SEND ?!?) sur un poste donné.

Je n'arrive pas à savoir la fonction à utiliser pour la recherche et forcément comment la paramétrer. Quelqu'un a-t-il une idées, des suggestions ? Je suis preneuse de toute idée sur le sujet. Merci à tous !
@+.

[thomas_b]

pour tester l'existance d'un fichier :
IF [NOT] EXIST filename command
peut etre en faisant
IF EXIST cheminDossier\*.ext NET SEND
Mais je ne sais pas comment avoir la date de création de fichier avec un batch

[Laurent Dardenne]

Le mieux est d'utiliser WMI avec WSH qui répond exactement à ton problème.
En batch c'est possible mais il y auras pas mal de contrainte, notamment pour la scrutation du répertoire à interval régulier .

Mais quel est le contexte exactement ?

Un début de solution :

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
31
32
33
Temporary event consumer that issues an alert any time the file C:\Scripts\Index.vbs is modified. Best when run under Cscript.exe.

 

Supported Platforms
Windows Server 2003 Yes

Windows XP Yes
 
Windows 2000 Yes
 
Windows NT 4.0  Yes, with WMI installed
 
Windows 98 Yes, with WMI installed
  

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\cimv2")

Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceModificationEvent WITHIN 10 WHERE " _
        & "TargetInstance ISA 'CIM_DataFile' and " _
            & "TargetInstance.Name='c:\\scripts\\index.vbs'")

Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    Wscript.Echo "File: " & objLatestEvent.TargetInstance.Name
    Wscript.Echo "New size: " & objLatestEvent.TargetInstance.FileSize
    Wscript.Echo "Old size: " & objLatestEvent.PreviousInstance.FileSize
Loop

Script synchrone, scrute les modif sur UN fichier toutes les 10 secondes.
Pour ton pb la requête WQL doit être modifié...

[Félia]

Le contexte est le suivant : J'ai une application qui crée des fichiers automatiquement. Et pour savoir si l'application n'a pas planté, je voudrais vérifier à intervalle régulier qu'il y a eu au moins une création de fichier commançant par DLIV suivi d'un numéro dans les 4 dernières heures.
Je pense que lancer régulièrement un batch qui envoie une alerte sur un poste s'il n'y a pas eu de nouveaux fichiers représentent une solution fiable et simple (sauf que je n'ai jamais fait de batch !!! )
Et voilou pour la petite histoire.
Pour ton début de solution, je ne suis pas sûre que ça réponde à mon besoin dans le sens où il s'agit de création de fichier + je ne connais pas le nom complet du(/des) fichier(s).
@+.

[Laurent Dardenne]

Pour ton début de solution, je ne suis pas sûre que ça réponde à mon besoin dans le sens où il s'agit de création de fichier + je ne connais pas le nom complet du(/des) fichier(s).

Mais tu connais le nom du directory.
Il faut utiliser la classe Win32_Directory et l'événement __InstanceCreationEvent.

Ce qui donne qq chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
"SELECT * FROM __InstanceCreationEvent WITHIN 300 WHERE  "TargetInstance ISA 'CIM_DataFile' and  "TargetInstance.Name='c:\\scripts\\directoryName'"

Mais si tu utilises Delphi comme j'ai pu le comprendre dans tes anciens msg, tu peux utiliser WMI sans batch ou utiliser une autre solution proposé dans la rubrique sources de Delphi.

[Félia]

Ok, je vais essayer ta solution avec l'évènement __InstanceCreationEvent. Je te tiens au courant.

Par contre, pour information, je ne fais plus de développement du tout et donc plus de Delphi. En effet, j'ai changé de boulot. Je me contente de faire beaucoup de requête SQL.
Là, c'est juste pour m'aider à surveiller mon application et comme, je n'ai aucun outil de dév ...

Merci et @+.