Hi,
ich glaube schon, das ich die Parameter richtig übergeben habe.
Erst recht, da dieser '3'-Zeiler(VB2K5) den gleichen Fehler meldet.
Zitat:
Public Function GetCpuTemperature()
Dim Temperature As Double
Try
Dim TempSearcher As New Management.ManagementObjectSearcher("root\
WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each TempSensor As Management.ManagementObject In TempSearcher.Get()
Temperature = CDbl(TempSensor("CurrentTemperature"))
Temperature = (Temperature - 2732) / 10.0
Next
Catch err As Management.ManagementException
MessageBox.Show("Fehler: " & err.Message)
End Try
Return Temperature
End Function
Mit anderen Worten, in der
MSDN kein Eintrag, immer die gleiche Fehlermeldung, da scheint etwas anderes Faul zu sein.
Mal schauen, was da noch so kommt.