脚本宝典收集整理的这篇文章主要介绍了vbs wmi获取电脑硬件信息实例，脚本宝典觉得挺不错的，现在分享给大家，也给大家做个参考。

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&"内存容量："+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&"内存总容量："&Round((m.totalphysicalmemory/1024^2),2)&"M"+Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Set display=wmi.instancesof("Win32_videocontroller")
msg=msg&"显示系统："+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,"电脑基本特征"

脚本宝典总结

以上是脚本宝典为你收集整理的vbs wmi获取电脑硬件信息实例全部内容，希望文章能够帮你解决vbs wmi获取电脑硬件信息实例所遇到的问题。

如果觉得脚本宝典网站内容还不错，欢迎将脚本宝典推荐好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。