利用vba代码，我们可以做很多电子表格外的事情。

也可以轻松获取系统的相关信息。

这里以获取显卡信息为例，利用WMI对象可以取得所有信息

详细源码：

Sub Xiankainfo()     On Error Resume Next     Dim ye     Dim yexj00     Set yexj00 = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")     For Each ye In yexj00     MsgBox " 型 号: " & ye.VideoProcessor & vbCrLf & _     " 厂 商: " & ye.AdapterCompatibility & vbCrLf & _     " 名 称: " & ye.Name & vbCrLf & _     " 状 态: " & ye.Status & vbCrLf & _     " 显 存: " & (ye.AdapterRAM \ 1024000) & "MB" & vbCrLf & _     "驱 动 (dll): " & ye.InstalledDisplayDrivers & vbCrLf & _     "驱 动 (inf): " & ye.infFilename & vbCrLf & _     " 版 本: " & ye.DriverVersion     Next End Sub

获取效果