[..] Fonction WMI Bloquante
Posté : sam. 07 mai 2011 18:58
Alors, n'étant pas très fort en WMI ni en COM, je m'en remet à vous.
Voici mon code: (trouvé sur le forum anglais)
Il sert à monitorer les changement de taille d'un fichier (une boucle de FileGetSize est plutôt lourde)
Le problème c'est que la ligne marqué d'un ; ##### est bloquante.
Comment y remédier SVP??? Merci
Voici mon code: (trouvé sur le forum anglais)
Code : Tout sélectionner
$file = @ScriptFullPath
; Setup WMI
$sComputer = @ComputerName
$oWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $sComputer & "\root\cimv2")
$colMonitoredEvents = $oWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceModificationEvent WITHIN 10 WHERE " _
& "TargetInstance ISA 'CIM_DataFile' AND " _
& 'TargetInstance.Name="' & StringReplace($file, '\', '\\') & '"')
While 1
ConsoleWrite("-" & @CRLF)
$oLatestEvent = $colMonitoredEvents.NextEvent ; ############
ConsoleWrite('Time: ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
ConsoleWrite("File: " & $oLatestEvent.TargetInstance.Name & @CRLF)
ConsoleWrite("New size: " & $oLatestEvent.TargetInstance.FileSize & @CRLF)
ConsoleWrite("Old size: " & $oLatestEvent.PreviousInstance.FileSize & @CRLF)
Sleep(1000)
WEndLe problème c'est que la ligne marqué d'un ; ##### est bloquante.
Comment y remédier SVP??? Merci