Listar los 5 Procesos Windows mas usados

[maxi_lance]

Necesito saber como podria mostrar los 5 primeros procesos de Windows que se estan ejecutando al momento.

En esta linea:

Código vb:

{impersonationLevel=impersonate}//localhost").ExecQuery("Select name,PercentProcessorTime,IDProcess from Win32_PerfFormattedData_PerfProc_Process where PercentProcessorTime > 0")
 

la consulta es en WQL asi que no puedo agregarle LIMIT ni ORDER BY.

Se me ocurre un for o un array y mostrarlo 5 veces, pero le estoy errando con la sintaxis ya que me tira error. Y al no tener experiencia en este lenguaje se me hace dificil.

Les dejo el codigo. A ver si pueden darme una mano en agregarle un for o array y ordenarlo por el de mayor porcentaje.

Código vb:

'Declaración de variables y constantes
dim objfile
dim objdestination
dim strline
 
CONST WTER ="processCPUperc.txt"       'NOMBRE FICHERO PARA ESCRIBIR
'Inicializacion objeto FSO y fichero de log
set objfile = createobject("scripting.filesystemobject")
set salida = wscript.stdout
 
'Recuperar procesos que estén en uso en la CPU
for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").ExecQuery("Select name,PercentProcessorTime,IDProcess from Win32_PerfFormattedData_PerfProc_Process where PercentProcessorTime > 0")
 
'Descarte del total y del no utilizado
if (process.name = "_Total" or process.name = "Idle") then
'Aqui se puede introducir código para cuando se cumpla la condicion
else
'Volcado al output
salida.writeline day(now)& "-" & month (now)& "-" & year(now)& ":" & Hour(now) & ":"& Minute(now) & " - " & process.name & " - %: " & process.percentprocessortime & " - ID:" & process.idprocess
 
end if
next
 

Muchas Gracias !!

[pkj]

Lo he puesto en un botón y he añadido un textbox para mostrar el resultado.
Parece que funciona.

Código vb:

Private Sub Command1_Click()
'Declaración de variables y constantes
Dim objfile
Dim objdestination
Dim strline
Dim process
Const WTER = "processCPUperc.txt"      'NOMBRE FICHERO PARA ESCRIBIR
'Inicializacion objeto FSO y fichero de log
Set objfile = CreateObject("scripting.filesystemobject")
'Set salida = wscript.stdout
 
'Recuperar procesos que estén en uso en la CPU
For Each process In GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").ExecQuery("Select name,PercentProcessorTime,IDProcess from Win32_PerfFormattedData_PerfProc_Process where PercentProcessorTime > 0")
 
'Descarte del total y del no utilizado
If (process.Name = "_Total" Or process.Name = "Idle") Then
'Aqui se puede introducir código para cuando se cumpla la condicion
Else
'Volcado al output
Text1.Text = Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ":" & Hour(Now) & ":" & Minute(Now) & " - " & process.Name & " - %: " & process.percentprocessortime & " - ID:" & process.idprocess
 
End If
Next
End Sub
 

Saludos

[maxi_lance]

grax pkj por tu tiempo !

Por ahi no me he expresado bien, pero lo que necesito es que el listado de los servicios los ordene de menor a mayor y limite el total a solo 5 servicios.
Es por eso que pensé en un array para ordenarlos y mostrarlo.
Para limitar a 5 pensé en un for pero me tira error de sintaxis:

Código vb:

'Declaración de variables y constantes
dim objfile
dim objdestination
dim strline
 
CONST WTER ="processCPUperc.txt"       'NOMBRE FICHERO PARA ESCRIBIR
'Inicializacion objeto FSO y fichero de log
set objfile = createobject("scripting.filesystemobject")
set salida = wscript.stdout
 
i = 1
 
'Recuperar procesos que estén en uso en la CPU
for i = 0 to 3
 
set Process = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").ExecQuery("Select name,PercentProcessorTime,IDProcess from Win32_PerfFormattedData_PerfProc_Process where PercentProcessorTime > 0")
 
salida.writeline day(now)& "-" & month (now)& "-" & year(now)& ":" & Hour(now) & ":"& Minute(now) & " - " & process.name & " - %: " & process.      percentprocessortime & " - ID:" & process.idprocess
salida.writeline i
 
i = i + 1   
 
next
 

Muchas Gracias !

[pkj]

Lo siento pero lo que usas del GetObject y tal no lo conozco y no sé como hacer que devuelva lo que tú quieres, pero te puedo decir un par de cosas:
El bucle que intentas hacer solo va a mostrar 5 veces el mismo resultado, ya que muestra solo los procesos que están haciendo algo que ocupe más del 1% del tiempo de proceso.

De todas formas te comento que el for lo usas mal, ya que al entrar en el for la variable i adquiere el valor 0, de modo que asignarselo antes es absurdo.
Además, dentro del bucle no necesitas aumentar el valor de i, ya que aumenta solo al llegar al next para comenzar un nuevo ciclo, y al aumentarlo tu, te saltas un ciclo a cada vuelta.

Tampoco declaras variables, como Process. Activa el Option Explicit en tu VB para evitar conflictos con las variables.

Suerte.