vbs中怎么使用wmi方法獲取電腦硬件信息-創(chuàng)新互聯(lián)

這篇文章將為大家詳細講解有關(guān)vbs中怎么使用wmi方法獲取電腦硬件信息，文章內(nèi)容質(zhì)量較高，因此小編分享給大家做個參考，希望大家閱讀完這篇文章后對相關(guān)知識有一定的了解。

創(chuàng)新互聯(lián)2013年開創(chuàng)至今，公司以網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計、系統(tǒng)開發(fā)、網(wǎng)絡(luò)推廣、文化傳媒、企業(yè)宣傳、平面廣告設(shè)計等為主要業(yè)務，適用行業(yè)近百種。服務企業(yè)客戶成百上千，涉及國內(nèi)多個省份客戶。擁有多年網(wǎng)站建設(shè)開發(fā)經(jīng)驗。為企業(yè)提供專業(yè)的網(wǎng)站建設(shè)、創(chuàng)意設(shè)計、宣傳推廣等服務。 通過專業(yè)的設(shè)計、獨特的風格，為不同客戶提供各種風格的特色服務。

Set wmi=GetObject("winmgmts:\\")

Set board=wmi.instancesof("win32_baseboard")
For Each b In board
msg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Set cpus=wmi.instancesof("win32_processor")
msg=msg&"CPU 特征:"+Chr(13)
For Each cpu In cpus
msg=msg+cpu.deviceid&vbTab&cpu.name&Chr(13) _
&vbtab&cpu.SocketDesignation&vbtab&cpu.CurrentClockSpeed&"MHz"&vbtab&cpu.l2cachesize&"Kb_L2"&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Set mem=wmi.instancesof("win32_physicalmemory")
msg=msg&"內(nèi)存容量："+Chr(13)
For Each    m In mem
msg=msg&m.tag&space(10)&m.capacity&+Chr(13)
Next

Set mem=wmi.instancesof("win32_computersystem")
For Each m In mem
msg=msg&"內(nèi)存總?cè)萘浚?&Round((m.totalphysicalmemory/1024^2),2)&"M"+Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Set display=wmi.instancesof("Win32_videocontroller")
msg=msg&"顯示系統(tǒng)："+Chr(13)
For Each     video In display
msg=msg&video.deviceid&vbTab&video.name&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)


Set disks=wmi.instancesof("win32_diskdrive")
msg=msg&"硬盤容量："+Chr(13)
For Each d In disks
If int(d.size/(1024^3))=0 Then 
n=Round(d.size/(1024^2),2)&"M"
Else
n=Round(d.size/(1024^3),2)&"G"
End If

msg=msg+d.deviceid&"      空間為： "&n&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)


MsgBox msg,0,"電腦基本特征"

關(guān)于vbs中怎么使用wmi方法獲取電腦硬件信息就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。

當前標題：vbs中怎么使用wmi方法獲取電腦硬件信息-創(chuàng)新互聯(lián)
文章源于：http://m.jiaotiyi.com/article/gcpoh.html