On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_DisplayConfiguration")
For Each objItem in colItems
Wscript.Echo "Qualité couleur: " & objItem.BitsPerPel
Wscript.Echo "Carte graphique: " & objItem.DeviceName
Wscript.Echo "Fréquence du moniteur: " & objItem.DisplayFrequency
Wscript.Echo "Version du driver: " & objItem.DriverVersion
Wscript.Echo "Hauteur en pixels: " & objItem.PelsHeight
Wscript.Echo "Largeur en pixels: " & objItem.PelsWidth
Next