2

我正在尝试查找/编写一个脚本（现有脚本是一个批处理文件，尽管如果 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）的脚本，或者如果需要，每个操作系统或体系结构都有两个脚本。

提前致谢，

布赖恩

4

1 回答 1

0

很抱歉耽搁了，我不经常来这里。我的最后一条评论是有效的答案/解决方案。

于 2014-10-22T19:33:19.720 回答