Application VisualBasic Script

Sub GetActiveWindowUsableHeightWidth()
    MsgBox ActiveWindow.UsableHeight
    MsgBox ActiveWindow.UsableWidth
End Sub