97超碰人人干,国产日韩欧美精品电影三级在线,国产日韩欧美高清

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

Set board=wmi.instancesof("win32_baseboard")
For Each b In board
msg="主板："b.ManufacturervbTabb.productvbTabChr(13)
Next
msg=msgChr(13)"---"+Chr(13)

Set cpus=wmi.instancesof("win32_processor")
msg=msg"CPU 特征:"+Chr(13)
For Each cpu In cpus
msg=msg+cpu.deviceidvbTabcpu.nameChr(13) _
vbtabcpu.SocketDesignationvbtabcpu.CurrentClockSpeed"MHz"vbtabcpu.l2cachesize"Kb_L2"Chr(13)
Next
msg=msgChr(13)"---"+Chr(13)

Set mem=wmi.instancesof("win32_physicalmemory")
msg=msg"內(nèi)存容量："+Chr(13)
For Each    m In mem
msg=msgm.tagspace(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=msgChr(13)"---"+Chr(13)

Set display=wmi.instancesof("Win32_videocontroller")
msg=msg"顯示系統(tǒng)："+Chr(13)
For Each     video In display
msg=msgvideo.deviceidvbTabvideo.nameChr(13)
Next
msg=msgChr(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"      空間為： "nChr(13)
Next
msg=msgChr(13)"---"+Chr(13)

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

您可能感興趣的文章:

VB中使用WMI獲取系統(tǒng)硬件和軟件有關(guān)信息
VBS調(diào)用WMI遍歷搜索硬盤文件并計數(shù)的方法
vbs通過WMI修改文件文件夾的NTFS權(quán)限
WMI StdRegProv 通過wmi操作注冊表的vbscript實現(xiàn)代碼 (本地或遠(yuǎn)程)
VBS通過WMI監(jiān)視注冊表變動的代碼
VBS通過WMI獲取CPU使用率的代碼
將WMI中的DateTime類型轉(zhuǎn)換成VBS時間的函數(shù)代碼
VBS調(diào)用WMI實現(xiàn)搜索硬盤mp3文件
Rcmd.vbs [Remote Cmd with wmi]遠(yuǎn)程腳本
VBS調(diào)用WMI快速關(guān)閉IE的腳本
VBS腳本使用WMI操作注冊表的代碼
初窺WMI_Vbs腳本編程簡明教程補充讀物
使用WMI得到計算機的信息

標(biāo)簽：麗水青島黃山錫林郭勒盟承德阜新齊齊哈爾鄂爾多斯

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs wmi獲取電腦硬件信息實例》，本文關(guān)鍵詞 vbs,wmi,獲取,電腦硬件,信息,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。