Descrição:
Como descobrir a resolução da tela aberta no E3Viewer em tempo de execução?
Solução:
Para isso, deve-se utilizar em um script a classe ‘Win32_VideoController’.
Exemplo de script da classe ‘Win32_VideoController‘ executado no evento Click de um botão:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_VideoController")
For Each objItem in colItems
MsgBox "Width: "&objItem.CurrentHorizontalResolution
MsgBox "Height: " & objItem.CurrentVerticalResolution
Next
