Se connecter  
Suivez Informaticien.be sur Facebook  Suivez Informaticien.be sur Twitter  Suivez le Podcast Les Technos sur YouTube  Suivez le Podcast Les Technos sur iTunes  Suivez Informaticien.be via RSS
Supprimer un message
Raison de suppression du message (envoyée à l'utilisateur)

Voulez vous réellement supprimer ce message?  


Jean-Christophe
Salut Cousin,

Est ce que le VBS suivant fonctionne chez toi?

Code:
  1. ''''On Error Resume Next  
  2. strComputer = "."  
  3. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")  
  4. Set colItems = objWMIService.ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature",,48)  
  5. For Each objItem in colItems  
  6. currentTemp = objItem.CurrentTemperature 
  7. CurrentTemp = CurrentTemp/10 
  8. CurrentTemp = CurrentTemp -273 
  9. msgbox "Temperature : " & CurrentTemp  
  10. Next


Si oui, il 'suffit' de faire une interface...

Je n'ai rien trouvé de tout fait :spamafote:
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?