首页
后端开发
VB
CPU硬盘温度检测VB WMI脚本

CPU硬盘温度检测VB WMI脚本

0 次浏览 0 条评论
rar
rar

CPU 和硬盘温度的 VB 代码，亲测能用，挺适合搞点轻量级系统监控的小工具。WMI 接口配合 VB 脚本，查询温度不算难，响应也挺快的。CPU 那边用的是Win32_PerfFormattedData_Counters_ProcessorInformation类，获取每个核心的温度百分比，虽然不是真实温度值，但用来估算负载水平也够用了。

硬盘的情况稍微复杂点，要看你机器支不支持返回温度数据。代码里是用Win32_DiskDrive查的Temperature属性，不过不是所有硬盘都给你返回这个值，有时候得靠厂商驱动配合。可以先试试看能不能跑通，有值就赚到，没值也不会报错。

代码结构简单明了，几行 WMI 查询就能跑起来，调试也轻松。像下面这样：

Set objWMIService = GetObject("winmgmts:.rootCIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Counters_ProcessorInformation")
For Each objItem In colItems
  If Not IsNull(objItem.LoadPercentage) Then
    WScript.Echo "CPU " & objItem.Name & "温度：" & objItem.LoadPercentage & "%"
  End If
Next

另外别忘了，如果提示缺少 OCX 组件，是系统少了 ActiveX 控件。你可以装一下 VB 的运行库或者单独找对应的控件文件补上，网上资源挺多的。

，想快速搭个小工具监控温度，这段代码还蛮实用的。尤其是在老系统或者轻量脚本需求下，用起来又快又稳。如果你经常服务器或者喜欢折腾 VB，蛮值得收藏一份。

rar 文件大小：66.04KB