Mémoire Processus et CPU

**NorocBzh** · 25/10/2012, 08h55

Bonjour à tous,

Je cherche à connaître la mémoire utilisée par un processus ainsi que le pourcentage de CPU utilisé.

Pour ça, j'utilise la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WMIC PROCESS get Caption,...

Chaque paramètre (Caption...) est sensé correspondre à une colonne de l'onglet Processus du gestionnaire des tâches.

Après avoir testé tous les paramètres, j'ai trouvé le "WorkingSetSize" qui correspond à la mémoire utilisée par un processus, par contre, je n'ai pas retrouvé celui qui correspond à la colonne "Processeur" sur un OS français où "CPU" sur un OS anglais.
La liste des paramètres testés vient de ce site : http://www.networkautomation.com/aut...nformation.htm

Une idée pour retrouver ces informations ?
Il y a peut-être un tout autre moyen que de passer par WMIC ?

Merci de votre aide !

**minnesota** · 26/10/2012, 15h32

Salut,

Il me semble qu'il y a une discussion similaire, regardes-y si tu trouves ce que tu cherches -> http://www.developpez.net/forums/d12...er-charge-cpu/

**NorocBzh** · 26/10/2012, 16h47

Merci bien ! Du coup, je récupère bien la charge CPU utilisée, reste plus qu'a me débrouiller pour trouver la charge par processus, et pas globale !

Je reviendrai vous voir si besoin

**minnesota** · 26/10/2012, 20h11

par processus c'est Win32_PerfFormattedData_PerfProc_Process ou Win32_PerfRawData_PerfProc_Process, via PercentProcessorTime...

mais pour que ça soit fiable et plus ou moins synchronisé, il faut que la priorité de ton "module" soit supérieure à la normale... du moins si c'est pour faire du "monitoring"...

**hackoofr** · 26/10/2012, 23h28

en mode graphique avec un HTA ça donne quelque chose comme ceci

Juste vous copier et coller et enregistrer-sous par exemple VerifProcess.hta

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
<html>
<head>
<title>Vérificateur de Processus © Hackoo Crackoo Version Beta © 2012</title>
<HTA:APPLICATION 
     ID="Vérificateur de Processus" 
     APPLICATIONNAME="Vérificateur de Processus"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="Maximize"
     icon="verifier.exe"
>
<style>
a:link {color: #F19105;}
a:visited {color: #F19105;}
a:active {color: #F19105;}
a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}

input,button
            {
            border:1px solid Darkorange;
            background-color:white;
            font-family:Comic sans MS;
            font-size:12px;
            color:#804040;
            font-weight:bold;
            cursor:hand; 
            }
</style>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<SCRIPT LANGUAGE="VBScript">
Dim sTimer
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME") 
NomUtilisateur = ProcessEnv("USERNAME") 
strComputer = "."

Sub Window_OnLoad 
 Call NomComputer()
 document.body.style.cursor = "wait"
 DataArea.InnerHTML = "<br><br><br><br><br><br><br><br><br><br>"&_
 "<hr noshode color=""#FFFFFFF""><b><font color='DarkOrange' size='6'>Veuillez Patienter le Chargement des Processus est en cours ....... </font><hr noshode color=""#FFFFFFF"">"
 PauseScript(0)
 Call CheckProcess()
 sTimer = window.setInterval("CheckProcess()", 10000)
End Sub

    Sub CheckProcess
        On Error Resume Next
        Self.document.title ="Liste des Processus en cours d'exécution © Hackoo Crackoo Version Beta © 2012"
        document.body.style.cursor = "default"
        count=0 
        lien ="<font color=yellow size =""1"">(Cliquer sur un lien pour afficher le fichier dans l'explorateur)</font>"
        strComputer = Computer.Value
        NomUtilisateur = User.Value 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process")
        strHTML = "<table border='1' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='Table1'>"
        strHTML = strHTML & "<tr>"
        strHTML = strHTML & "<td style=""text-align:center"" width='10%' bgcolor = 'black'><font color = 'DarkOrange'><b>Processus</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='5%' bgcolor = 'black'><font color =  'DarkOrange'><b>Propriétaire</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='5%' bgcolor = 'black'><font color =  'DarkOrange'><b>PID</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='5%' bgcolor = 'black'><font color =  'DarkOrange'><b>Mémoire</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='50%' bgcolor = 'black'><font color = 'DarkOrange'><b>Processus en Ligne de Commande<br>"&lien&"</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='5%' bgcolor = 'black'><font color =  'DarkOrange'><b>Vérifier dans fichier.net</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='5%' bgcolor = 'black'><font color =  'DarkOrange'><b>Vérifier dans Library</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='15%' bgcolor = 'black'><font color = 'DarkOrange'><b>Vérifier dans Google</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='1%' bgcolor = 'black'><font color =  'DarkOrange'><b>Terminer un seul Processus</td>"
        strHTML = strHTML & "<td style=""text-align:center"" width='2%' bgcolor = 'black'><font color =  'DarkOrange'><b>Terminer Plusieurs Instances</td>"
        strHTML = strHTML & "</tr>"

        For Each objProcess in colProcesses
            count=count+1
            ProcessName = objProcess.Name
            ProcessID = objProcess.ProcessID
            Memoire = objProcess.WorkingSetSize
            CommandLine = objProcess.CommandLine
            ExecutablePath = objProcess.ExecutablePath
            link = "<a href=""#"" OnClick='Explore("""& ExecutablePath & """)'>"& CommandLine &"</a>"
            objProcess.GetOwner strUserName, strUserDomain
            Owner = strUserName 
            If IsNull(Memoire) OR Memoire = "" Then Memoire = 0
            If Memoire = 0 Then
                Memoire = "0 Ko" 
                Else
                    Memoire = ConvertToDiskSize(Memoire)
            End If
            strHTML = strHTML & "<tr>"
            strHTML = strHTML & "<td style=""text-align:center"" width='10%'>" & ProcessName & "</td>"
            strHTML = strHTML & "<td style=""text-align:center"" width='5%'>" & Owner & "</td>"
            strHTML = strHTML & "<td style=""text-align:center"" width='5%'>" & ProcessID & "</td>"
            strHTML = strHTML & "<td style=""text-align:center"" width='5%'>" & Memoire & "</td>"
            strHTML = strHTML & "<td width='50%'>" & link & "</td>"
            strHTML = strHTML & "<td style=""text-align:center"" width='5%'>" & "<Input type=""button"" class=""button"" Value=""Vérifier"" onClick='OpenURL(""http://fichier.net/processus/"& objProcess.Name & ".html"")'></td>"
            strHTML = strHTML & "<td style=""text-align:center"" width='5%'>" & "<Input type=""button"" class=""button"" Value=""Vérifier"" onClick='OpenURL(""http://www.processlibrary.com/fr/search/?q=" & objProcess.Name & """)'></td>"
            strHTML = strHTML & "<td style=""text-align:center"" width='15%'>" & "<Input type=""button"" class=""button"" Value=""Googler"" onClick='OpenURL(""http://www.google.com/search?q=" & objProcess.Name & """)'></td>"
             strHTML = strHTML & "<td align=""center"" width='1%'><input type=""button"" value=""M"" style=""font-family: Wingdings"" style=""cursor:hand;"" onClick='KillOneProcess("""& objProcess.ProcessID & """)'></td>"
             strHTML = strHTML & "<td align=""center"" width='2%'><input type=""button"" value=""MMMM"" style=""font-family: Wingdings"" style=""cursor:hand;"" onClick='KillALLProcess("""& objProcess.Name & """)'></td>"
            strHTML = strHTML & "</tr>"
        Next
        strHTML = strHTML & "</table>"
        strHTML = strHTML & "<br><B><font color=DarkOrange>Il y a "& Count &" Processus en cours d'exécution le " & date & " à " & time & " sur Le PC </font><font color=Yellow>"& qq(strComputer) & "</font><font color=DarkOrange> connecté en tant que </font><font color=Yellow>" & qq(NomUtilisateur) & "</font></B>"
        strHTML = strHTML & "<br><br><img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_
Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_
Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img>"
        DataArea.InnerHTML = strHTML
        If Err.Number <> 0 Then
        document.body.style.cursor = "wait"
            Tool.style.visibility="hidden"
            strError = "<b><font color=Orange>Veuillez Patienter car le Système est Occupé pour accomplir une tâche en arrière plan et il va se relancer Automatiquement. Merci !</font></b>"
            DataArea.InnerHTML = strError
            Err.Clear
        End If    
    End Sub
    
Function Explore(filename)
ws.run "Explorer /n,/select,"&filename&""
End Function

Function NomComputer()
Set WshShell = CreateObject("WScript.Shell" )
Set env = WshShell.Environment("PROCESS" )
computername = env("COMPUTERNAME" )
NomUtilisateur = env("USERNAME")
Computer.Value = computername
User.Value = NomUtilisateur 
End Function

Function KillALLProcess(Name)
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process Where Name = '"&Name&"'")
result=-1
Question = MsgBox ("Voulez-vous Terminer Tout les Processus qui porte le nom " & qq(Name)&" ?",VBYesNO+VbQuestion,"Terminaison du processus " & qq(Name))
If Question = VbYes Then
        if result<>0 Then 
           FOR each objProcess in colProcesses
                       Name = objProcess.Name
                       result=objProcess.terminate(0)
                       Fermer(Name)
                       Call CheckProcess()
               if result<>0 Then 
                      Call CheckProcess()
                      MsgBox "Erreur code " & result, vbExclamation,"Terminaison du processus " & qq(Name)
                      Exit FOR
               end If
           NEXT
        end If
     Else
     MsgBox "L'action de la Terminaison du Processus " & qq(Name) &" est Annulée ! " , vbExclamation,"Annulation de la Terminaison du processus " & qq(Name)
     Exit Function
End If
Call CheckProcess()    
If result=0 Then
MsgBox "Tout les Processus qui porte le nom " & qq(Name) &" sont correctement terminés !", vbInformation,"Terminaison des processus avec le nom " & qq(Name)
End if
KillALLProcess=result
End Function

Function KillOneProcess(PID)
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * From Win32_Process Where ProcessID = '"&PID&"'")
result=-1
for each objProcess in colProcesses
    Name = objProcess.Name
   Question = MsgBox ("Voulez-vous Terminer ce Processus " & qq(Name)&" ?",VBYesNO+VbQuestion,"Terminaison du processus " & qq(Name))
 If Question = VbYes Then
 result=objProcess.terminate(0)
 Call CheckProcess()
 End If
 If Question = 6 Then
    If result<>0 Then 
        MsgBox "Erreur code " & result, vbExclamation,"Terminaison du processus " & qq(Name)
        Call CheckProcess()
        Exit for
    Else
        MsgBox "Le Processus " & qq(Name) &" est correctement terminé !", vbInformation,"Terminaison du processus " & qq(Name)    
    End If
 End If
Next
KillOneProcess=result
End Function

Sub Fermer(Process)
Set Ws = CreateObject("Wscript.Shell")
Command = "cmd /c Taskkill /F /IM "&Process&""
Execution = Ws.Run(Command,0,True)
End Sub

Function ConvertToDiskSize(intValue)
        If (intValue / 1099511627776) > 1 Then
            ConvertToDiskSize = Round(intValue / 1099511627776,1) & " To " 
            ElseIf (intValue / 1073741824) > 1 Then
                ConvertToDiskSize = Round(intValue / 1073741824,1) & " Go " 
                ElseIf (intValue / 1048576) > 1 Then
                    ConvertToDiskSize = Round(intValue / 1048576,2) & " Mo " 
                    ElseIf (intValue / 1024) > 1 Then
                        ConvertToDiskSize = Round(intValue / 1024,2) & " Ko " 
                        Else
                            ConvertToDiskSize = Round(intValue) & " Octets " 
        End If
End Function

Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

Sub MonitorUpdate()
    sTimer = window.setInterval("CheckProcess()", 10000)
End Sub 

Sub PauseScript(intPause)
        Set objShell = CreateObject("WScript.Shell" )
        objShell.Run "%COMSPEC% /c ping -w " & intPause & " -n 1 1.0.0.0", 0, True
End Sub

Sub OpenURL(strURL)
Set objShell = CreateObject("WScript.Shell")
strURL = Replace(strURL, "_", " ")
objShell.Run strURL,1,False 
End Sub
</SCRIPT>
<body text=white bgcolor=#1234568 TOPMARGIN="1" LEFTMARGIN="1" RIGHTMARGIN="1"><center>
<span id ="DataArea"></span>
<input type="hidden" name="Computer" ID="Computer">
<input type="hidden" name="User" ID="User"><br>
</body>
</html>

**NorocBzh** · 30/10/2012, 14h58

Merci à tous les 2 !
Je reviens sur ce sujet dans quelques jours, je le passerai à résolu dès que j'aurai fini

Mémoire Processus et CPU [Batch]

Scripts/Batch

Discussions similaires

Partager

Partager