Hello

have you a peace of code for mesure temperature of a disque please

thank you

Il giorno Sun, 20 Jul 2008 21:39:53 +0200, "zloup" ha scritto:

Je ne suis pas sur si ça marche. Le script a été creé par vbsedit.

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_TemperatureProbe",,48)

For Each objItem in colItems
WScript.Echo "AccOn Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_TemperatureProbe",,48)

For Each objItem in colItems
WScript.Echo "Accuracy: " & objItem.Accuracy
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode...

desole marche pas
erreur ligne 38
!!

merci quand meme

"Reventlov" a écrit dans le message de news:
4890704a.4260069@powernews.libero.it...

...