脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - vbs wmi获取电脑硬件信息实例代码

vbs wmi获取电脑硬件信息实例代码

2020-07-22 13:52VBS代码大全 VBS

用vbs+wmi实现获取电脑硬件信息的代码,真的不错,方便查看系统硬件信息

  1. Set wmi=GetObject("winmgmts:\\")  
  2.  
  3. Set board=wmi.instancesof("win32_baseboard")  
  4. For Each b In board  
  5. msg="主板:"&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)  
  6. Next  
  7. msg=msg&Chr(13)&"---"+Chr(13)  
  8.  
  9. Set cpus=wmi.instancesof("win32_processor")  
  10. msg=msg&"CPU 特征:"+Chr(13)  
  11. For Each cpu In cpus  
  12. msg=msg+cpu.deviceid&vbTab&cpu.name&Chr(13) _  
  13. &vbtab&cpu.SocketDesignation&vbtab&cpu.CurrentClockSpeed&"MHz"&vbtab&cpu.l2cachesize&"Kb_L2"&Chr(13)  
  14. Next  
  15. msg=msg&Chr(13)&"---"+Chr(13)  
  16.  
  17. Set mem=wmi.instancesof("win32_physicalmemory")  
  18. msg=msg&"内存容量:"+Chr(13)  
  19. For Each    m In mem  
  20. msg=msg&m.tag&space(10)&m.capacity&+Chr(13)  
  21. Next  
  22.  
  23. Set mem=wmi.instancesof("win32_computersystem")  
  24. For Each m In mem  
  25. msg=msg&"内存总容量:"&Round((m.totalphysicalmemory/1024^2),2)&"M"+Chr(13)  
  26. Next  
  27. msg=msg&Chr(13)&"---"+Chr(13)  
  28.  
  29. Set display=wmi.instancesof("Win32_videocontroller")  
  30. msg=msg&"显示系统:"+Chr(13)  
  31. For Each     video In display  
  32. msg=msg&video.deviceid&vbTab&video.name&Chr(13)  
  33. Next  
  34. msg=msg&Chr(13)&"---"+Chr(13)  
  35.  
  36.  
  37. Set disks=wmi.instancesof("win32_diskdrive")  
  38. msg=msg&"硬盘容量:"+Chr(13)  
  39. For Each d In disks  
  40. If int(d.size/(1024^3))=0 Then   
  41. n=Round(d.size/(1024^2),2)&"M"  
  42. Else  
  43. n=Round(d.size/(1024^3),2)&"G"  
  44. End If  
  45.  
  46. msg=msg+d.deviceid&"      空间为: "&n&Chr(13)  
  47. Next  
  48. msg=msg&Chr(13)&"---"+Chr(13)  
  49.  
  50.  
  51. MsgBox msg,0,"电脑基本特征"  

延伸 · 阅读

精彩推荐