批处理之家 » VBS求助&讨论 » VBS获取CPU当前温度

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

返回列表发帖

Rank: 4

帖子: 69
积分: 383
技术: 0
捐助: 0
注册时间: 2007-10-25

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2007-11-10 01:58 | 只看该作者

VBS获取CPU当前温度

不准...

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&"℃"
复制代码

1 评分人数

youxi01: 还不错，辛苦PB + 2

Software is like sex: it's better when it's free..!

Rank: 4

帖子: 128
积分: 361
技术: 0
捐助: 0
注册时间: 2007-12-21

2楼

发表于 2007-12-22 10:14 | 只看该作者

我的是xp
运行不鸟出错了

Rank: 8 Rank: 8

帖子: 150
积分: 957
技术: 2
捐助: 0
注册时间: 2007-12-9

3楼

发表于 2007-12-22 11:07 | 只看该作者

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

不大可能的事也许今天实现，根本不可能的事也许明天会实现

Rank: 2

帖子: 9
积分: 189
技术: 0
捐助: 0
注册时间: 2009-1-29

4楼

发表于 2009-2-5 13:01 | 只看该作者

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

Rank: 4

帖子: 68
积分: 412
技术: 0
捐助: 0
注册时间: 2008-11-5

5楼

发表于 2009-2-5 13:31 | 只看该作者

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