Mathematica, 51 bytes
SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]~Infix~x
Isso pode não funcionar para você, dependendo de quais dispositivos você conectou (não sei). Isso sempre deve funcionar (supondo que você tenha pelo menos uma tela conectada):
Infix[Last/@("FullScreenArea"/.SystemInformation["Devices","ScreenInformation"][[1]]),x]
Explicação
SystemInformation[] retorna uma expressão do formulário
SystemInformationData[{
"Kernel" -> {__},
"FrontEnd" -> {__},
"Links" -> {__},
"Parallel" -> {__},
"Devices" -> {__},
"Network" -> {__},
}]
Estamos interessados "Devices", que podem ser acessados diretamente como SystemInformation["Devices"]ou como SystemInformation[][[1,5,2]]. O resultado será uma lista do formulário
{
"ScreenInformation" -> {__},
"GraphicsDevices" -> {__},
"ControllerDevices" -> {__}
}
Queremos "ScreenInformation", que pode ser acessado de maneira SystemInformation["Devices","ScreenInformation"]mais ou mais sucinta SystemInformation[][[1,5,2,1,2]]. O resultado será da forma
{
{
"ScreenArea" -> {__},
"FullScreenArea" -> {{0,w_},{0,h_}},
"BitDepth" -> _,
"Resolution" -> _
},
___
}
O comprimento da lista será o número de telas que você conectou. A primeira tela é SystemInformation[][[1,5,2,1,2,1]]e a largura e a altura podem ser extraídas como SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]Então, basta inserir um Infix xpara o formato de saída.