Определение характеристик и параметров видеоадаптера. Изучение методов тестирования видеоадаптера

Лабораторная работа № 9. Определение характеристик и параметров видеоадаптера

Цель работы: изучение методов тестирования видеоадаптера.

Постановка задачи: написать программу для определения AdapterRAM.

Ход работы:

Использование WMI.

Windows Management Instrumentation (далее WMI) – это масштабируемая система управления инфраструктурой которая использует единый, стандартизированный, расширяемый, объектно-ориентированный интерфейс. WMI предоставляет программисту взаимодействовать с системой управления информацией и прилежащими WMI API.

При выборе данной технологии, для получения информации о видеорежимах используется множество классов, например:  Win32_DisplayConfiguration, Win32_DisplayControllerConfiguration, Win32_VideoSettings, Win32_VideoController, Win32_VideoConfiguration, Win32_DesktopMonitor. Использование данной технологии наиболее просто реализуемо при использовании языка программирования Visual Basic Script.

Листинг программы:

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$strComputer = "localhost"

$OutputTitle = ""

$Output = ""

$OutputTitle &= "Computer: " & $strComputer  & @CRLF

$OutputTitle &= "==========================================" & @CRLF

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_VideoController", "WQL", _

$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

Local $Object_Flag = 0

For $objItem In $colItems

$Object_Flag = 1

$strAcceleratorCapabilities = $objItem.AcceleratorCapabilities(0)

$Output &= "AdapterCompatibility: " & $objItem.AdapterCompatibility & @CRLF

$Output &= "AdapterRAM: " & $objItem.AdapterRAM & @CRLF

if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop

$Output=""

Next

If $Object_Flag = 0 Then Msgbox(1,"WMI Output",$OutputTitle)

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_VideoController" )

Endif

Func WMIDateStringToDate($dtmDate)

Return (StringMid($dtmDate, 5, 2) & "/" & _

StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _

& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))

EndFunc

Рисунок 1 – Результат работы программы