objLocator est un objet automation "WbemScripting.SWbemLocator"
objService est un objet automation dynamique
Resultats est un objet automation dynamique
x est un entier
UnRésultat est une chaîne
UnRésultat2 est une chaîne
UnRésultat3 est une chaîne

QUAND EXCEPTIONEXCEPTION DANS
objService = objLocator>>ConnectServer(".", "root\Microsoft\Windows\Storage")
objService>>Security_>>ImpersonationLevel = 3
Resultats = objService>>ExecQuery("SELECT * FROM MSFT_StorageReliabilityCounter") //SPACES_StorageReliabilityCounter")

//WMI.Query(root\microsoft\windows\storage,SELECT * FROM MSFT_StorageReliabilityCounter where '(DeviceId=0) AND (ObjectID like "%reliabilitycounter")',ReadErrorsTotal)
POUR x = 0 _À_ Resultats>>Count -1
UnRésultat = Resultats>>ItemIndex(x)>>Properties_>>Item("ReadErrorsTotal")>>Value
////// //SI UnRésultat <> "" ALORS Trace(UnRésultat)
UnRésultat2 = Resultats>>ItemIndex(x)>>Properties_>>Item("ReadErrorsTotal")>>Value
////// //SI UnRésultat <> "" ALORS Trace(UnRésultat)
UnRésultat3 = Resultats>>ItemIndex(x)>>Properties_>>Item("FlushLatencyMax")>>Value
////// //SI UnRésultat <> "" ALORS Trace(UnRésultat)
Trace("====================================================")
Trace(UnRésultat," ",UnRésultat2," ",UnRésultat3)
FIN
FAIRE
Erreur("Erreur WMI : " + ExceptionInfo())
FIN

Trace(UnRésultat," ",UnRésultat2," ",UnRésultat3)