1. 搞机Pro网首页
  2. 综合

VBA如何获取计算机硬件信息（教你几招技巧）

亚游 • • 综合

计算机信息是一个固定的内容，编程过程中会经常提取计算机信息来进行处理，本节介绍一下如何利用VBA来进行提取计算机信息。

VBA如何获取计算机硬件信息（教你几招技巧）

本示例基于Windows操作系统，苹果或Linux系统并不适用，一定分清楚。

下图为提取后的表格，简单举例三个信息，分别是CPU序列号，硬盘信息和网卡MAC地址。

VBA如何获取计算机硬件信息（教你几招技巧）

根据新建一个GetObject("Winmgmts:")对象来对操作系统进行信息提取。

它是基于windows系统的系统管理工具WMI。

什么是WMI 呢？

全称为Windows管理规范，英文（Windows Management Instrumentation）

它是一项核心的 Windows 管理技术，用户可以使用 WMI 管理本地和远程计算机。

总之就是用来管理计算机的一个工具，既然是管理计算机的，那它对计算机有十足的了解，所以我们要通过WMI来获取计算机信息就找对了。

VBA如何获取计算机硬件信息（教你几招技巧）

下面来看具体代码，一定要收藏。

获取CPU序列号函数：

Public Function GetCpu()'CPU序列号Dim cpuInfo, Soi, So, s As Integer, cpuArr()cpuInfo = ""Set Soi = GetObject("Winmgmts:").InstancesOf("Win32_Processor")For Each So In SoicpuInfo = CStr(So.ProcessorId)ReDim Preserve cpuArr(s)cpuArr(s) = cpuInfos = s + 1NextIf Not VBA.IsArray(cpuArr) Then    ReDim cpuArr(0)    cpuArr(0) = ""End IfGetCpu = cpuArrEnd Function

获取硬盘信息函数

Function getHde() As String'硬盘信息Dim HDid, moc, moSet moc = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")For Each mo In moc    HDid = HDid & mo.Model & VBA.vbCrLfNextgetHde = VBA.Mid(HDid, 1, VBA.Len(HDid) - 1)End Function

获取网卡MAC地址函数：

Function getMAC() As String'网卡地址Dim Wap, MACSet Wap = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")For Each MAC In Wap  If MAC.IPEnabled = True Then    getMAC = MAC.MacAddress  Exit For  End IfNextEnd Function

以上函数都可以独立调用，调用方法如下：

Private Sub CommandButton1_Click()Dim r As RangeSet r = Range("D2")With r    .Value = GetCpu    .Offset(1, 0).Value = getHde    .Offset(2, 0).Value = getMACEnd WithEnd Sub

重点说一点，如果使用的时候没有返回任何正确信息，或者有报错提示，那么有两个可能。

一是计算机系统版本不同，由于不同时期的操作系统WMI也会有不同，所以找不到硬件信息。

二是WMI 服务最好启动，服务名为“winmgmt”。启动方法 DOS环境下 执行 net start winmgmt 命令重启。停止 WMI 服务使用：winmgmt /kill 或 net stop winmgmt ，最好不要停止服务。

如果想获取更多计算机信息可参考WMI对象使用方法，不过似乎就脱离了Excel VBA内容了。

欢迎关注、收藏

END

您可能感兴趣：

高中化学必修一知识点全归纳（第三章）值得收藏

最难写的化学方程式有哪些（最难的化学方程式是什么反应）

高三无机化学方程式（高中化学无机方程式总结）

高考化学工艺流程题总结（高考化学工艺流程专题）

中考化学知识点总结归纳完整版（2020中考化学必考知识点总结免费）

中考化学酸碱盐必考知识点（化学中考酸碱盐重点知识归纳）

赞 (0)
亚游亚游
0

相关推荐

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。

发表评论

登录后才能评论