作者：自由之风

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