Вывод информации о конфигурации монитора

Option Explicit 

dim objWMIService
dim colItems
dim objItem


Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate," _
& "(debug, shutdown)}\\localhost\root\cimV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DisplayConfiguration")

For Each objItem in colItems
    WScript.Echo "BitsPerPel: " & objItem.BitsPerPel
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "DeviceName: " & objItem.DeviceName
      WScript.Echo "DisplayFlags: " & objItem.DisplayFlags
      WScript.Echo "DisplayFrequency: " & objItem.DisplayFrequency
      WScript.Echo "DriverVersion: " & objItem.DriverVersion
      WScript.Echo "LogPixels: " & objItem.LogPixels
      WScript.Echo "PelsHeight: " & objItem.PelsHeight
      WScript.Echo "PelsWidth: " & objItem.PelsWidth
      WScript.Echo "SettingID: " & objItem.SettingID
      WScript.Echo "SpecificationVersion: " & objItem.SpecificationVersion
Next