1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| strServer = "."
'Dim WshShell,obj,Command,Result,Temp,FileName,File
'Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set objWMI = GetObject("winmgmts://" & strServer & "/root\WMI")
Set objInstances = objWMI.InstancesOf("MSAcpi_ThermalZoneTemperature",48)
On Error Resume Next
For Each objInstance in objInstances
With objInstance
'WScript.Echo "Temperature du Microprocesseur : = " & (( .CurrentTemperature - 2732) / 10.0) & " °C"
msgbox "Temperature du Microprocesseur : = " & (( .CurrentTemperature - 2732) / 10.0) & " °C"
' WScript.Sleep 9000 ' pause de 9 secondes
End With
On Error Goto 0
Next |
