vba如何得到显卡的信息

Admin | 2010-10-20 11:17:23 | 被阅次数 | 7151

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　如下的VBA代码，用于获取本机显卡的相关信息：

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

该杂文来自： PowerPoint杂文

上一篇：vba获取主板、硬盘、CPU信息的代码

下一篇：没有安装OFFICE2007的电脑如何打开XLSM格式的文件