Win 2000, afficher les process en cours

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 613 fois - Téléchargée 67 fois

Commenter

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
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
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
Mémère
29 mars 2001 à 11:22
Ben oui c'est mieux :)
mémère
28 mars 2001 à 18:08
Tu sais ce que c'est un process?
S'inscrire maintenant

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.

Du même auteur (cs_Azizo)