strComputer = "."
objWMIService = .OLEObject~GetObject("winmgmts:\\"||strComputer||"\root\CIMV2")
do objItem over objWMIService~ExecQuery("Select * from Win32_VideoController")
    z = objItem~AcceleratorCapabilities
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Adapter Compatibility:" objItem~AdapterCompatibility
    say "Adapter DAC Type:" objItem~AdapterDACType
    say "Adapter RAM:" objItem~AdapterRAM
    say "Availability:" objItem~Availability
    z = objItem~CapabilityDescriptions
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Caption:" objItem~Caption
    say "Color Table Entries:" objItem~ColorTableEntries
    say "Config Manager Error Code:" objItem~ConfigManagerErrorCode
    say "Config Manager User Config:" objItem~ConfigManagerUserConfig
    say "Creation Class Name:" objItem~CreationClassName
    say "Current Bits Per Pixel:" objItem~CurrentBitsPerPixel
    say "Current Horizontal Resolution:" objItem~CurrentHorizontalResolution
    say "Current Number Of Colors:" objItem~CurrentNumberOfColors
    say "Current Number Of Columns:" objItem~CurrentNumberOfColumns
    say "Current Number Of Rows:" objItem~CurrentNumberOfRows
    say "Current Refresh Rate:" objItem~CurrentRefreshRate
    say "Current Scan Mode:" objItem~CurrentScanMode
    say "Current Vertical Resolution:" objItem~CurrentVerticalResolution
    say "Description:" objItem~Description
    say "Device ID:" objItem~DeviceID
    say "Device Specific Pens:" objItem~DeviceSpecificPens
    say "Dither Type:" objItem~DitherType
    say "Driver Date:" objItem~DriverDate
    say "Driver Version:" objItem~DriverVersion
    say "Error Cleared:" objItem~ErrorCleared
    say "Error Description:" objItem~ErrorDescription
    say "ICM Intent:" objItem~ICMIntent
    say "ICM Method:" objItem~ICMMethod
    say "Inf File name:" objItem~InfFilename
    say "Inf Section:" objItem~InfSection
    say "Install Date:" objItem~InstallDate
    say "Installed Display Drivers:" objItem~InstalledDisplayDrivers
    say "Last Error Code:" objItem~LastErrorCode
    say "Max Memory Supported:" objItem~MaxMemorySupported
    say "Max Number Controlled:" objItem~MaxNumberControlled
    say "Max Refresh Rate:" objItem~MaxRefreshRate
    say "Min Refresh Rate:" objItem~MinRefreshRate
    say "Monochrome:" objItem~Monochrome
    say "Name:" objItem~Name
    say "Number Of Color Planes:" objItem~NumberOfColorPlanes
    say "Number Of Video Pages:" objItem~NumberOfVideoPages
    say "PNP Device ID:" objItem~PNPDeviceID
    z = objItem~PowerManagementCapabilities
    if .NIL <> z then
        do x over z
            say objProperty.Name ": " x
    end
    say "Power Management Supported:" objItem~PowerManagementSupported
    say "Protocol Supported:" objItem~ProtocolSupported
    say "Reserved System Palette Entries:" objItem~ReservedSystemPaletteEntries
    say "Specification Version:" objItem~SpecificationVersion
    say "Status:" objItem~Status
    say "Status Info:" objItem~StatusInfo
    say "System Creation Class Name:" objItem~SystemCreationClassName
    say "System Name:" objItem~SystemName
    say "System Palette Entries:" objItem~SystemPaletteEntries
    say "Time Of Last Reset:" objItem~TimeOfLastReset
    say "Video Architecture:" objItem~VideoArchitecture
    say "Video Memory Type:" objItem~VideoMemoryType
    say "Video Mode:" objItem~VideoMode
    say "Video Mode Description:" objItem~VideoModeDescription
    say "Video Processor:" objItem~VideoProcessor
end