Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Proceso.csv", ForReading)
 
arr = Split(objFile.ReadAll, VBcrlf)
 
n = UBound(arr)
 
 
Do
  nn = -1
  For j = LBound(arr)+1 to n - 1
 
num1 = split(arr(j)," ")
 
n1 = len(num1(0))
n1=36-n1
		auxnum1=num1(n1)
	numero1=Int(auxnum1)
 
 
  	  if not arr(j+1) = "" Then
  	  	num2 = split(arr(j+1)," ")
	n2=len(num2(0))
	n2=36-n2
 
 
	auxnum2=num2(n2)
 
numero2=Int(auxnum2)
 
  	  end if
 
      If numero1 < numero2 Then
         TempValue = arr(j + 1)
         arr(j + 1) = arr(j)
         arr(j) = TempValue
         nn = j
      End If
 
  Next
 
 
  n = nn
 
Loop Until nn = -1
 
 
For i = LBound(arr) To UBound(arr)
 
     if not arr(i) = "" Then
    	AuxProc1 = split(arr(i)," ") 
msgbox arr(i)  
	if AuxProc1(0) = "_Total" then 	
	numproc=i
end if
     End If
 
Next 
 

#!/bin/bash
 
APP_NAM=top
CPU_LIMIT=50
 
echo $APP_NAM
 
APP_CPU= 'ps aux |grep $APP_NAM |awk {'print $3'}'
 
if [ $APP_CPU -lt $CPU_LIMIT ];then
echo "normal"
fi
if [ $APP_CPU -ge $CPU_LIMIT ];then
echo "warning"
fi 
 
read -s -p "Presione enter para continuar..."

wmic path win32_PerfFormattedData_PerfProc_Process get Name
,PercentProcessorTime >salida.txt
 

sort salida.txt

@echo off
cd C:\Users\ETSSistemas
For /f "tokens=3 skip=1" %%x IN ('pslist -s 2 idle') Do set cpu=%%x 
 
echo %cpu%
pause>nul
goto EOF

04:13:17 p.m. 03/03/2014 Process information for ETSNBWIN7SIS:

Name                Pid CPU Thd  Hnd   Priv        CPU Time    Elapsed Time
Idle                  0  75   2    0      0     8:31:01.544     5:05:44.842
process idle was not found on ETSNBWIN7SIS