批处理或VBScript检查Windows分辨率是否为宽屏

Question

我正在尝试查找/编写脚本（现有脚本是批处理文件，尽管如果VBS我总是可以在批处理文件中调用它），它可以检测当前屏幕分辨率是否为宽屏格式，以便我可以将适当的背景图像复制到机器上。我只发现了一些具有相同代码的帖子，并且一个回复说你可以随时将图像设置为拉伸。但这意味着图像可能会扭曲（正如其他人所说的那样）。

我从this post找到了以下VBScript，虽然它似乎只适用于Windows XP（虽然我没有尝试过Windows 7 32位）。在Windows 7 64中它只是回响了asterick。

Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")
 Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor where DeviceID = 'DesktopMonitor1'",,0)
 For Each objItem in colItems
 intHorizontal = objItem.ScreenWidth
 intVertical = objItem.ScreenHeight
 Next 

msgbox intHorizontal & " * " & intVertical 

但即使我能让这个脚本工作，我仍然需要有多个IF来匹配Horizo​​ntal＆amp;垂直于宽屏分辨率列表。除非有一个我可以使用的数学方程式（我确信有）。但无论如何，我需要一个适用于XP和7（32和64）的脚本，或者如果需要，每个操作系统或架构都有两个脚本。

提前致谢，

布赖恩

Answer 1

很抱歉延误，我不经常在这里。我的最后评论是有效的答案/解决方案。