WIN 2000, AFFICHER LES PROCESS EN COURS
mémère
-
28 mars 2001 à 18:08
cs_davidso Messages postés 5 Date d'inscription vendredi 5 septembre 2003 Statut Membre Dernière intervention 28 janvier 2008 - 26 mai 2004 à 14:38
cs_davidso Messages postés 5 Date d'inscription vendredi 5 septembre 2003 Statut Membre Dernière intervention 28 janvier 2008 - 26 mai 2004 à 14:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/807-win-2000-afficher-les-process-en-cours
https://codes-sources.commentcamarche.net/source/807-win-2000-afficher-les-process-en-cours
26 mai 2004 à 14:38
voici ce code (peut-être à voir au niveau de la requête?) qui examine tous les fichiers créés dans le répertoire C:\TITUS
***
on error resume next
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\LUWK1042\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("select * from __InstanceCreationEvent within 10 WHERE "_
& "TargetInstance ISA 'CIM_DirectoryContainsFile' AND TargetInstance.GroupComponent = 'Win32_Directory.Name=""c:\\\\titus""'")
x = 0
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
x = x + 1
if x = 2 then
msgbox "Ciao! on arrête l'espion au bout de deux activités!"
exit sub
end if
Loop
29 mars 2001 à 11:22
28 mars 2001 à 18:08