excel vba获取电脑显卡信息

利用vba代码，我们可以做很多电子表格外的事情。也可以轻松获取系统的相关信息。这里以获取显卡信息为例，利用WMI对象可以取得所有信息
详细源码：SubXiankainfo()
OnErrorResumeNext
Dimye
Dimyexj00
Setyexj00=GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
ForEachyeInyexj00
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
EndSub
获取效果

1512379432229402.png