Hallo,
ich weis nicht obs hier richtig ist, aber:
Ich will per WMI die CPU Temperatur auslesen, amche das wie folgt:
Private Sub cputemp()
Try
Dim TempSearcher As New Management.ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each TempSensor As Management.ManagementObject In TempSearcher.Get()
Dim Temperature As Double = CDbl(TempSensor("CurrentTemperature"))
Temperature = (Temperature - 2732) / 10.0
ListBox1.Items.Add(Temperature.ToString & " °C")
Next
Catch err As Management.ManagementException
Timer1.Stop()
MessageBox.Show("Fehler: " & err.Message & "(Closing application.)")
Application.Exit()
End Try
End Sub
So, nun bekomme ich immer den Fehler "Nicht Unterstützt".
Also hab ich mal den WMI Tester gestartet (wbemtest.exe) und den Befehl eingegeben:
SELECT * FROM MSAcpi_ThermalZoneTemperature
Auch hier kommt "Nicht Unterstützt", sprich, es muss ja wohl was am Befehl faul sein...
Nur wie komme ich jetzt an meine Infos? Ich kenn mich mit der WMI leider nciht aus...
Vllt weis ja einer eine Lösung...
MfG
ich weis nicht obs hier richtig ist, aber:
Ich will per WMI die CPU Temperatur auslesen, amche das wie folgt:
Private Sub cputemp()
Try
Dim TempSearcher As New Management.ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each TempSensor As Management.ManagementObject In TempSearcher.Get()
Dim Temperature As Double = CDbl(TempSensor("CurrentTemperature"))
Temperature = (Temperature - 2732) / 10.0
ListBox1.Items.Add(Temperature.ToString & " °C")
Next
Catch err As Management.ManagementException
Timer1.Stop()
MessageBox.Show("Fehler: " & err.Message & "(Closing application.)")
Application.Exit()
End Try
End Sub
So, nun bekomme ich immer den Fehler "Nicht Unterstützt".
Also hab ich mal den WMI Tester gestartet (wbemtest.exe) und den Befehl eingegeben:
SELECT * FROM MSAcpi_ThermalZoneTemperature
Auch hier kommt "Nicht Unterstützt", sprich, es muss ja wohl was am Befehl faul sein...
Nur wie komme ich jetzt an meine Infos? Ich kenn mich mit der WMI leider nciht aus...
Vllt weis ja einer eine Lösung...
MfG