Monitoring d'une MAJ d'un fichier située sur un lecteur réseau

Monitoring d'une MAJ d'un fichier située sur un lecteur réseau - VB/VBA/VBS - Programmation

Marsh Posté le 28-07-2010 à 15:52:00    

Bonjour,
 
J'ai besoin d'être prévenu quand un fichier situé sur un lecteur réseau est modifié par qq'un. J'ai fait ce script en vbs :  

Code :
  1. strComputer = "." 
  2. Set objWMIService = GetObject("winmgmts:" _ 
  3. & "{impersonationLevel=impersonate}!\\" & _ 
  4.         strComputer & "\root\cimv2" ) 
  5.  
  6. Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
  7.     ("SELECT * FROM __InstanceModificationEvent WITHIN 20 WHERE " _ 
  8. & "TargetInstance ISA 'CIM_DataFile' and " _ 
  9. & "TargetInstance.Name='R:\\Mon Rép\\MonFichier.xls'" ) 
  10.  
  11. Do 
  12.     Set objLatestEvent = colMonitoredEvents.NextEvent 
  13.     Wscript.Echo "Le fichier " & objLatestEvent.TargetInstance.Name & " a été modifié." 
  14. Loop


 
Sur un fichier en local, ça marche bien mais pas avec un fichier sur le lecteur réseau R:. Mon script n'arrête pas de me dire que le fichier est modifié alors que ce n'est pas le cas.
 
Une idée? Merci :)


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Marsh Posté le 28-07-2010 à 15:52:00   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed