vba编程中，有时候需要获取计算机信息，比如计算机名称、ID、磁盘容量、磁盘类型等等，那么如何来实现这个能呢?
下面讲一下，关于获取本地信息的一个简单方法。
这里我们会用到一些很重要的函数（GetObject），这些函数内置在Excel应用中，只要调用即可。
其中还用到Win32_LogicalDisk class，也就是WMI下的一个类。
相关内容可以查看如下址：
NO.2
本节内容相对比较难，需要掌握的知识有一些深度，其代码可能不是好理解。
如果只是拿来用一下，直接用就可以，如果要更多地掌握其核心内容，可能要花费不少时间，而且还必须对操作有一个熟悉的认识。
特别是对于底层的一些磁盘结构有了解，还有就是要对注册表相关构造也有认识，再来学本节内容就相对容易多了。
NO.3
上为一个例子，单击按钮自动查找出计算机的ID来，ID是每个计算机的身份识别，具有，就像个人一样。
还有一个能就是列出本地硬盘的存储信息，也就是存储空间大小。
实现这个能首先是对注册表进行了一翻查找，找到相关信息后再和计算机属对比了一下。
然后利用GetObject函数调出对应数据，显示到表格内。
其过程有点麻烦，实现终结果却毫无波澜。
NO.4
下面介绍一下代码
将获取计算机ID能，做成一个函数来实现，只要打开Excel调用这个函数就可将ID显示在表格里。
做得还是比较实用的，如果需要直接拿去调用即可。
Sub getID '''取计算机ID
Dim idObj, id，inobj
Set idObj = GetObject("winmts:{impersonationLl=impersonate}") _
.InstancesOf("Win32_Operating")
For Each inobj In idObj
If "" Then 'SealNumber 计算ID
id =
End If
Next
("B2").Value = id
End Sub
getobject将返回win32_operating下一些相关信息，里面包含了计算机内置信息，有计算机名、版本、ID等等各种你想要的。
详细可查阅下
NO.5
相对来说完成这个能是有一些难度的，毕竟要掌握的知识点比较多，交叉内容也相对复杂，所以做了一些很的思考。
编码过程中还有许多函数处理，就不一一贴出来了。
把重要的部分，如何获取硬盘信息函数出来。
Sub DiskSizes '列出硬盘信息
Dim Disks, Sizes
ReDim Sizes(0)
Set Disks = GetObject("winmts:{impersonationLl=impersonate}") _
.InstancesOf("Win32_LogicalDisk")
For Each mo In Disks
If "" Then
ReDim Preserve Sizes(UBound(Sizes) + 1)
Sizes(UBound(Sizes)) = "_" &
End If
Next
'''''''''''''''''''''''''''''' 保存至表格
("A2").Select
Dim i As Integer
For i = 1 To UBound(Sizes)
With (i, 0)
.Value = (Sizes(i), 2)
(211, 211, 1)
.RowHeight = 30
.VerticalAliment = xlCenter
.HozontalAliment = xlCenter
End With
With (i, 1)
.Formula = (Sizes(i), (Sizes(i), 2) & "_", "", 1)
(211, 211, 1)
.RowHeight = 30
.NumberFortLocal = "0"
.VerticalAliment = xlCenter
.HozontalAliment = xlRight
.IndentLl = 2 '缩进
End With
Next i
End Sub
能虽简单，但并不是说就很容易掌握，建议不是了解操作还是不要学这个了，除没有意义之外，再者就是学会了也不知道用来做什么。
但做为一个对有特别热爱的人来说，就必须要掌握了，不过相对了解操作的人来说还是很容易的，那些你所知道或不知道的东西就是在那里，只要你去发现，它也没不会乱跑，妥妥地拿出来。
对于靠近部分本不是vba的强项，所以我们要用到WMI技术，这就偏离了vba编程的常规路径。
文章来源于网络：个人学习栈 » 如何查看电脑id(电脑ID的命名方式Windows7查询)