Win 2000, afficher les process en cours

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 272 fois - Téléchargée 64 fois

Contenu du snippet

Ce code ne tourne que sur Win 2000.
Il permet d'afficher les process en Cours dans le système.

Creer un fichier avec l'extention VBS puis coller le code suivant
Pour executer : double cliquez sur ce fichier, il s'executera dans l'environnement Windows.

Source / Exemple :


Dim p, liste
Dim s
s = ""

Set liste =  GetObject("winmgmts:").InstancesOf("Win32_Process")
for each p in liste
  s = s & "  Nom : "                  & p.Name
  s = s & "  PID  : "                  & p.ProcessId 
  s = s & "  ParentProcessId :  "     & p.ParentProcessId
  s = s & vbCRLF
  'MsgBox s
  's = ""
next
MsgBox s

Conclusion :


Bon courage pour le reste.
des commentaires sympa sont les bienvenus.

Toujours du SHELL et encore du shell

A voir également

Ajouter un commentaire

Commentaires

Messages postés
5
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
28 janvier 2008

l.o. dis moi, saurais-tu comment on pourrait faire un espion qui pourrait placer dans un fichier chaque moficfication faite sur des fichiers contenus sous une arborescence donnée? Par avance... merci, j'ai bien un code, mais il ne fonctionne que sur un répertoire et pas sur des sous-répertoires.

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
Ben oui c'est mieux :)
Tu sais ce que c'est un process?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.