利用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获取效果
