vbscript获取屏幕分辨率报错：无法获取 -2147023174181

在使用vbscript获取屏幕分辨率时，可能会遇到以下报错：`无法获取 -2147023174`。本文将详细分析造成此报错的原因，并提供解决方法。

报错原因

该报错通常是由以下原因引起的：* 安全限制：vbscript脚本在默认情况下无法访问某些系统信息，包括屏幕分辨率。
* 丢失引用：如果脚本中没有正确引用Microsoft Script Runtime Library，则无法获取屏幕分辨率。

解决方法

要解决此报错，可以采用以下方法：

1. 添加安全权限

在脚本的顶部添加以下代码：```vbscript
Option Explicit
Dim oShell
Set oShell = CreateObject("")
"cmd /c echo %USERPROFILE%", 1, True
```

这将打开一个命令提示符窗口，并显示用户配置文件路径。将以下代码添加到路径末尾：```vbscript
\Local Settings\Application Data\Microsoft\Windows Script Host
```

现在，vbscript脚本将拥有访问屏幕分辨率所需的权限。

2. 添加引用

确保脚本中已正确引用Microsoft Script Runtime Library。在脚本的顶部添加以下代码：```vbscript
Option Explicit
On Error Resume Next
Dim oFSO, oWScript, WshNetwork
If 0 Then
Set oFSO = CreateObject("")
Set oWScript = CreateObject("")
Set WshNetwork = CreateObject("")
Else

End If
```

获取屏幕分辨率

添加了必要的安全权限和引用后，可以使用以下代码获取屏幕分辨率：```vbscript
Dim oShell
Set oShell = CreateObject("")
screenwidth =
screenheight =
MsgBox "屏幕分辨率：" & screenwidth & " x " & screenheight
```

通过添加必要的安全权限和引用，可以解决vbscript获取屏幕分辨率时的报错。通过使用适当的代码，可以轻松获得屏幕分辨率信息。

2025-01-18

上一篇：VBScript编译器：让VBS也疯狂

下一篇：VBScript 中字符连接的多种方法