Pb: Interroger utilisation CPU en VB

Bonjour,

J'ai téléchargé un programme VB (script WMI) dont voici le corps :
Function GetCPUUsage
On Error Resume Next
strComputer = Environment("LocalHostName")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process")
' La liste est vide !!!
' wscript.echo "Computer Name" & "," & "Process Name" & ","& "CPU Usage"
For Each objItem in colProcesses
sMsg = objItem.PercentProcessorTime
MsgBox sMsg
'wscript.echo strcomputer & "," & objItem.Name & ","& objItem.PercentProcessorTime
Next
End Function

Est-ce que quelqu'un a une idée d'où peut venir le problème ? (J'ai bien les droits d'Admin )
NB : Le bout de code que j'ai récupéré sur l'utilisation mémoire fonctionne très bien :
strComputer = Environment("LocalHostName")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where name = 'javaw.exe'")

Merci de votre aide,
Bonne journée