 
On Error Resume Next 
strComputer = "." 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48) 

For Each objItem in colItems 
WScript.Echo "LoadPercentage: " & objItem.LoadPercentage 
Next 

參考鏈接：Win32_Processor Class

原文:http://demon.tw/programming/vbs-wmi-cpu-usage.html

您可能感興趣的文章:

相關(guān)文章

用VBS模擬二叉樹，可以得到一個排序辦法.
用VBS模擬二叉樹，可以得到一個排序辦法....
2007-03-03
charCodeAt與AscW函數(shù)的區(qū)別說明
charCodeAt與AscW函數(shù)的區(qū)別說明...
2007-03-03
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs...
2007-02-02
VBS基礎(chǔ)篇 vbscript Sendkeys模擬鍵盤操作
在vbscript中我們可以object.SendKeys模擬鍵盤操作，將一個或多個按鍵指令發(fā)送到指定Windows窗口來控制應(yīng)用程序運(yùn)行，,需要的朋友可以參考下
2018-06-06
枚舉域內(nèi)計(jì)算機(jī)個數(shù)vbscript腳本（沒環(huán)境，沒測試）
枚舉域內(nèi)計(jì)算機(jī)個數(shù)的腳本，參考了微軟官方的代碼，有興趣的朋友可以參考下。
2009-10-10
收藏的比較精典VBS代碼
比較精典VBS代碼,想學(xué)習(xí)vbscript的朋友可以參考下
2007-03-03
vbs向指定的文件添加內(nèi)容的函數(shù)
用vbscript實(shí)現(xiàn)的向指定的文件寫字符串，第三個參數(shù)指定是否刪除原來的內(nèi)容，喜歡的朋友可以測試系
2013-01-01
vbs實(shí)現(xiàn)右鍵菜單中添加CMD HERE
cmdhere安裝，使你在任何目錄下直接進(jìn)入改目錄的CMD狀態(tài),需要的朋友可以參考下
2008-05-05
使用ADSI、ASP和一對魔術(shù)戲法自動地創(chuàng)立一個虛擬目錄的方法
使用ADSI、ASP和一對魔術(shù)戲法自動地創(chuàng)立一個虛擬目錄的方法...
2007-03-03
添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示.去頁眉頁腳的vbs代碼
主要是解決在使用WebBrowser打印時(shí)，得先設(shè)置IE安全性的問題，是客戶端工具。
2009-07-07