VBS获取CPU当前温度

somebody · 发表于 2007-11-10 01:58:49

不准...

Dim u, s, CPUTemperature
Set mCPU=GetObject("winmgmts:{impersonationLevel=impersonate}!root\wmi").ExecQuery("Select CurrentTemperature From MSAcpi_ThermalZoneTemperature")
For Each u In mCPU
s=s&u.CurrentTemperature
Next
Set mCPU=Nothing
CPUTemperature=(s-2732)/10
MsgBox "The Current Temperature of Your CPU is: "&CPUTemperature&"℃"

复制代码

xxx3212 · 发表于 2007-12-22 10:14:40

我的是xp
运行不鸟出错了

ieutk · 发表于 2007-12-22 11:07:59

我的也是XP,但是可以正常运行

qq191035066 · 发表于 2009-2-5 13:01:40

我的也是XP,但是不可以正常运行，说脚本宿主！

hkmhd · 发表于 2009-2-5 13:31:18

运行出错……楼主自个说的“不准”有什么含义

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考