vbs wmi获取电脑硬件信息实例
导读：收集整理的这篇文章主要介绍了vbs wmi获取电脑硬件信息实例，觉得挺不错的，现在分享给大家，也给大家做个参考。 Set wmi=GetObject("winmgmts:\\" Set...
收集整理的这篇文章主要介绍了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,"电脑基本特征"
您可能感兴趣的文章:
- VB中使用WMI获取系统硬件和软件有关信息
- VBS调用WMI遍历搜索硬盘文件并计数的方法
- vbs通过WMI修改文件文件夹的NTFS权限
- WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 (本地或远程)
- VBS通过WMI监视注册表变动的代码
- VBS通过WMI获取CPU使用率的代码
- 将WMI中的DateTime类型转换成VBS时间的函数代码
- VBS调用WMI实现搜索硬盘mp3文件
- Rcmd.vbs [Remote Cmd with wmi]远程脚本
- VBS调用WMI快速关闭IE的脚本
- VBS脚本使用WMI操作注册表的代码
- 初窥WMI_Vbs脚本编程简明教程补充读物
- 使用WMI得到计算机的信息
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs wmi获取电脑硬件信息实例
本文地址： https://pptw.com/jishu/609678.html