- 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获取电脑硬件信息实例代码
2020-07-22 13:52VBS代码大全 VBS
用vbs+wmi实现获取电脑硬件信息的代码,真的不错,方便查看系统硬件信息
延伸 · 阅读
- 2022-04-25VBS 批量Ping的项目实现
- 2022-04-21教你用vbs实现微信自动发送消息功能
- 2022-04-20抖音很火的vbs表白代码(简单实用!)
- 2022-04-19VBS脚本基础语法实例讲解
- 2021-12-10利用C#操作WMI指南
- 2021-12-09禁用VBS提高Windows 11性能,这个技巧必须要掌握
- VBS
VBS编程教程 (第1篇)
VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言....
- VBS
灵活实用VBS入门教程应用篇
上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 ...
- VBS
VBS文本文件操作实现代码
这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下...
- VBS
VBS数组深入浅出
VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷...
- VBS
VBS教程:正则表达式简介 -正则表达式语法
正则表达式语法 一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式。该模式描述在查找文字主体时待匹配的...
- VBS
WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码
本文主要分享WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码,有需要的童鞋可以参考下...
- VBS
Adsutil.vbs 在脚本攻击中的妙用[我非我原创]
adsutil.vbs是什么?相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%\Inetpub\AdminScripts目录下。...
- VBS
雷客图ASP站长安全助手vbs测试版代码
雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本(vbs测试版)主要用于服务器本地运行以查找ASP木马。此版本为测试版,希...