signed

QiShunwang

“诚信为本、客户至上”

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

2021/5/14 22:31:16   来源:
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得到计算机的信息