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
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