我正在尝试查找/编写一个脚本（现有脚本是一个批处理文件，尽管如果 VBS 我总是可以在批处理文件中调用它）可以检测当前屏幕分辨率是否为宽屏格式，以便我可以复制适当的背景图像到机器。我只发现了几篇具有相同代码的帖子，正如一个回复所说，您始终可以将图像设置为拉伸。但这意味着图像可能会失真（正如其他人所说的那样）。
我从这篇文章中找到了以下 VBScript ，尽管它似乎只适用于 Windows XP（虽然我没有尝试过 Windows 7 32 位）。在 Windows 7 64 中，它只是与星号相呼应。
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 才能将水平和垂直与宽屏分辨率列表相匹配。除非有一个我可以使用的数学方程式（我确定有）。但无论如何，我需要一个适用于 XP 和 7（32 和 64）的脚本，或者如果需要，每个操作系统或体系结构都有两个脚本。
提前致谢，
布赖恩