Lo he puesto en un botón y he añadido un textbox para mostrar el resultado.
Parece que funciona.
Código vb:
Ver originalPrivate 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