基于 WMI 的 CPU 与硬盘温度监控

本代码示例展示了如何使用 VB6.0 和 WMI (Windows Management Instrumentation) 获取 CPU 和硬盘温度。

代码示例:

' 需要引用 "Microsoft Scripting Control 1.0" 

Private Sub GetTemperature()
    Dim objWMIService As Object, objItems As Object, objItem As Object
    Dim strWQL As String, strValue As String

    ' 获取 WMI 服务
    Set objWMIService = GetObject("winmgmts:.rootcimv2")

    ' 查询 CPU 温度
    strWQL = "SELECT * FROM Win32_TemperatureProbe WHERE SystemName = '" & strComputer & "'"
    Set objItems = objWMIService.ExecQuery(strWQL)
    For Each objItem In objItems
        strValue = "CPU 温度: " & objItem.CurrentReading & " 度"
    Next

    ' 查询硬盘温度
    '  (需要根据实际情况调整 WQL 语句)
    strWQL = "SELECT * FROM MSStorageDriver_ATAPISmartData" 
    Set objItems = objWMIService.ExecQuery(strWQL)
    For Each objItem In objItems
        strValue = strValue & vbCrLf & "硬盘温度: " & objItem.Temperature & " 度" 
    Next

    MsgBox strValue, vbInformation, "温度信息"

    ' 释放对象
    Set objWMIService = Nothing
    Set objItems = Nothing
    Set objItem = Nothing
End Sub

注意:

• 以上代码仅供参考，实际应用中可能需要根据硬件和 WMI 提供程序进行调整。
• 不是所有系统都支持通过 WMI 获取硬盘温度。
• 为了使用 WMI，需要确保脚本或应用程序具有足够的权限。