#include <WinAPI.au3>
_Main()

Func _Main()
	Local $aDevice, $i = 0, $text
	While 1
		$aDevice = _WinAPI_EnumDisplayDevices("", $i)
		If Not $aDevice[0] Then ExitLoop
		If $aDevice[1]&$aDevice[2]&$aDevice[4] = '' Then ExitLoop
		$text = "Успешно? " & $aDevice[0] & @LF
		$text &= "Устройство (Адаптер или монитор): " & $aDevice[1] & @LF
		$text &= "Описание (Адаптер или монитор): " & $aDevice[2] & @LF
		$text &= "Флаг состояния устройства: " & $aDevice[3] & @LF
		If BitAND($aDevice[3], 32) Then $text &= @TAB & "- Устройство имеет больше режимов отображения, чем поддерживается устройством вывода" & @LF

		If BitAND($aDevice[3], 16) Then $text &= @TAB & "- Устройство является съемным; оно не может быть основным монитором" & @LF
		If BitAND($aDevice[3], 8) Then $text &= @TAB & "- Устройство является VGA совместимый" & @LF
		If BitAND($aDevice[3], 4) Then $text &= @TAB & "- Псевдо-устройство, used to mirror application drawing for remoting" & @LF
		If BitAND($aDevice[3], 2) Then $text &= @TAB & "- Основной устройство" & @LF
		If BitAND($aDevice[3], 1) Then $text &= @TAB & "- Устройство является частью компьютера" & @LF

		$text &= "Идентификатор Plug and Play: " & $aDevice[4] & @LF
		MsgBox(4096, "", $text)
		$i += 1
	WEnd
EndFunc   ;==>_Main