begin process at 2010 02 10 02:03:05
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Shell

 > WIN 2000, AFFICHER LES PROCESS EN COURS

WIN 2000, AFFICHER LES PROCESS EN COURS


 Information sur la source

Note :
6 / 10 - par 1 personne
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Shell Classé sous :process, affichier, lister, win2000 Niveau :Initié Date de création :28/03/2001 Vu :4 029

Auteur : Azizo

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

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

  • 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
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


 Sources du même auteur

WIN 2000 ENCORE : PROCESSEURS
ENREG. VOS COM (ACTIVEX) PAR SIMPLE CLICK BT DROIT

 Sources de la même categorie

Source avec Zip Source avec une capture LANCEUR REALVNC par Nobru59
Source avec Zip Source .NET (Dotnet) XGBLENDERCOMPRESSOR par XelectroX
Source avec Zip Source .NET (Dotnet) CONTRÔLER L'AUTORUN DE WINDOWS XP (ET SUPÉRIEUR) ET LES NOTI... par ShareVB
Source avec Zip Source .NET (Dotnet) LECTURE ET MODIFICATION DES PROPRIÉTÉS DES FICHIERS OFFICE E... par ShareVB
Source avec Zip Source avec une capture QEMUGUI - LANCEUR DE QEMU par ghuysmans99

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture DATE-HEURE DE LANCEMENT D'UN PROGRAMME par jack
Source avec Zip Source avec une capture Source .NET (Dotnet) YET ANOTHER (REMOTE) PROCESS MONITOR par violent_ken
Source avec Zip Source avec une capture Source .NET (Dotnet) COMMENT DÉTECTER LES PROCESSUS CACHÉS (VIRUS, ROOTKITS...) +... par violent_ken
Source avec Zip Source .NET (Dotnet) ATTENDRE LA FIN D'UN PROCESS EXTERNE AVANT DE FAIRE AUTRE CH... par royaltaz
Source avec Zip LISTE DES PROCESSUS par FX

Commentaires et avis

Commentaire de davidso le 26/05/2004 14:38:56

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 <B>C:\TITUS</B>

***

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

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Listing des process sous WIN2000 [ par bugalanoz ] Bonjour,Comment puis-je récupérer la liste des process sous WIN2000 ainsi que leur status avec du code VBA d'une base access ?bugalanoz listages des process et des fichiers [ par shadow1779 ] Bonjour, j'ai quelques questions sur les programmes, premierement comment lister les processus qui tourne sous windows et comment en killer un par exe Infos sur les processus [ par MadM@tt ] Bonjour à tous,voilà je crée une bibliothèque de gestion de processus et j'aimerais proposer des fonctions permettant de récupérer, par exemple, le no fermeture de win2000... [ par jp3776 ] bonjour à tous,Y aurait-il quelqu'un qui sait comment fermer windows 2000 à partir d'une appli VB, même lorsqu'il y a des process qui bloquent (messag Lister les formulaires d'une page HTML [ par tiljte ] Bonjour,Je souhaiterais savoir s'il est possible, en VB, de lister les formulaires HTML d'une page. Je souhaiterais évidemment aussi lister les champs Temps d'ouverture !!!!! [ par xavier77 ] Salut à tous, J'ai crée un exe avec VB6. Lorsque je l'exécute sous Win98 avec un Celeron 500, l'appli s'ouvre relativement vite. Par contre si je l'ex comment deployer une appli VBnet sur win2000? [ par thelapinkiller ] Bonjour ,je cherche un moyen de deployer mon appli en vbnet sur une plateforme qui n'a pas framework d'installé.est ce possible?merci Lister les repertoires d'un path et afficher la liste dans une textbox [ par vNz ] Salut tout le monde :)Je cherche a savoir s'il est possible de lister les repertoires d'un path (par exemple la liste des repertoire de "c:\program fi kill process VB.NET [ par hamshiva ] Bon voila j'ai cherché comment tué un process (explorer) pour mon application en VB.NET et je n'est pas trouver sur vbfrance alors j'ai cherché plus l Lister les Locals Groups d'un répertoire (en VB) [ par Amigalopin ] Bonjour à tous.Après moultes recherches sur le net, je me décide à poster une demande:Comment est-il possible de récupérer la liste des local group se


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,858 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales