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:
Ver original'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 !