Mathematica, 51 bytes
SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]~Infix~x
Es posible que esto no funcione para usted dependiendo de los dispositivos que haya conectado (no lo sé). Esto siempre debería funcionar (suponiendo que tenga al menos una pantalla conectada):
Infix[Last/@("FullScreenArea"/.SystemInformation["Devices","ScreenInformation"][[1]]),x]
Explicación
SystemInformation[] devuelve una expresión de la forma
SystemInformationData[{
"Kernel" -> {__},
"FrontEnd" -> {__},
"Links" -> {__},
"Parallel" -> {__},
"Devices" -> {__},
"Network" -> {__},
}]
Estamos interesados "Devices", a los que se puede acceder directamente como SystemInformation["Devices"]o como SystemInformation[][[1,5,2]]. El resultado será una lista del formulario.
{
"ScreenInformation" -> {__},
"GraphicsDevices" -> {__},
"ControllerDevices" -> {__}
}
Queremos "ScreenInformation", al que se puede acceder como SystemInformation["Devices","ScreenInformation"]o más sucintamente como SystemInformation[][[1,5,2,1,2]]. El resultado será de la forma
{
{
"ScreenArea" -> {__},
"FullScreenArea" -> {{0,w_},{0,h_}},
"BitDepth" -> _,
"Resolution" -> _
},
___
}
La longitud de la lista será la cantidad de pantallas que haya conectado. La primera pantalla es SystemInformation[][[1,5,2,1,2,1]]y el ancho y la altura se pueden extraer como SystemInformation[][[1,5,2,1,2,1,2,2,;;,2]]Luego, simplemente insertamos un Infix xpara el formato de salida.