Разрешение экрана VBScript в RDP

Question

Я получаю текущее разрешение экрана с:

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)

For Each objItem in colItems 
    Wscript.Echo "Horizontal resolution: " & objItem.CurrentHorizontalResolution 
    Wscript.Echo "Vertical resolution: " & objItem.CurrentVerticalResolution

Однако он возвращает разрешение реального монитора и не работает в сеансе RDP. Как я могу получить разрешение RDP или просто получить тип сеанса, чтобы доказать, что я нахожусь в сеансе RDP (и, следовательно, могу реализовать обходной путь)? Это серьезная проблема при RDPing с MacBook с высоким разрешением.

Спасибо