Salut Cousin,
Est ce que le VBS suivant fonctionne chez toi?
-
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
- Set colItems = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature",,48)
- For Each objItem in colItems
- currentTemp = objItem.CurrentTemperature
- CurrentTemp = CurrentTemp/10
- CurrentTemp = CurrentTemp -273
- msgbox "Temperature : " & CurrentTemp
- Next
Si oui, il 'suffit' de faire une interface...
Je n'ai rien trouvé de tout fait