Discussion :

[Invité]

Bonjour a tous

un script WMI qui fonctionnait très bien sous ASUS N75 Windows 7
ne fonctionne plus sous ASUS N76 WINDOWS 8

pourquoi si ? quelqu'un peut m'aider ?
d'avance merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
strServer = "."
 
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 "CurrentTemperature : " & (( .CurrentTemperature - 2732) / 10.0)
End With
On Error Goto 0
Next