L'auteur
Mike Gagnon
 Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004
Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
 Fiche personnelle
 Note des membres
pas de note
|
Contributions > 09 - Automation > WMI (Windows Management Instrumentation)
Énumérer touts les procédés qui roulent
# 0000000101
ajouté le 26/11/2004 16:22:46 et modifié le 29/03/2006
consulté 8357 fois
Niveau
initié
Version(s) Foxpro :
VFP 7.0
|
| Description |
|---|
|
| Code source : |
|---|
FUNCTION enumerateProcess
lcComputer = '.'
loWMIService = Getobject('winmgmts:' ;
+ '{impersonationLevel=impersonate}!\\' + lcComputer + '\root\cimv2')
colProcessList = loWMIService.ExecQuery ;
('Select * from Win32_Process')
Create Cursor Process (Name c(20),Id i,Thread i,pagefile i,pagefault i,workingset c(20))
Index On Name Tag Name
For Each loProcess In colProcessList
Insert Into Process (Name,Id,Thread,pagefile,pagefault,workingset);
VALUES (loProcess.Name,loProcess.ProcessID,loProcess.ThreadCount,loProcess.PageFileUsage,;
loProcess.pagefaults,loProcess.WorkingSetSize)
Next
BROWSE normal
|
| Commentaires |
|---|
Aucun commentaire enregistré ...
|
Retour à la liste