获取显卡详细信息

作者在 2015-04-09 01:02:43 发布以下内容

作者:自由之风


Clear
objWMIService = Getobject("winmgmts:\\.\root\CIMV2")
colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48)
For Each ye In colItems
    ?"型 号: "+ ye.VideoProcessor
    ?"厂 商: "+ye.AdapterCompatibility
    ?"名 称: "+ ye.Name
    ?"状 态: "+ ye.Status
    ?"像 素:"+Str(ye.CurrentBitsPerPixel,3,2)
    ?"当前分辨率和颜色:"+ye.VideoModeDescription
    ?"屏幕刷新频率:"+Str(ye.CurrentRefreshRate,3)+"MHZ"
    ?"显 存: " +Str(ye.AdapterRAM/1024000,8,8)+"MB"
    ?"驱 动(dll): "+ye.InstalledDisplayDrivers
    ?"驱 动(inf): "+ye.infFilename
    ?"文件的部分(inf):"+ye.InfSection
    ?"版 本: "+ye.DriverVersion
    ?"视频驱动程序最后一次修改的日期和时间:"+ye.DriverDate
Endfor

其它问题 | 阅读 1828 次
文章评论,共0条
游客请输入验证码
浏览376910次