Pour connaitre votre resolution
Contenu du snippet
affiche la résolution de votre PC
Source / Exemple :
set locator = CreateObject("WBEMScripting.SWBEMLocator")
set wmi = locator.ConnectServer()
set Properties = wmi.Get("Win32_DisplayControllerConfiguration")
for each oProp in Properties.Instances_
list = list & oProp.Name & vbcrlf &_
oProp.VideoMode
next
MsgBox list