1

我有这样的代码，它可以从我们的 Intranet 打开 Word 文档进行编辑，显然是在单击相关按钮时调用的：

  Dim objWord
  Sub Btn956_onclick()
    call OpenDoc("\\server01\folder1\docname.docx")
  End Sub
  Sub OpenDoc(strLocation)
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = true
    objWord.Documents.Open strLocation
  End Sub

为了让它在 IE（我们的员工标准浏览器）中工作，我需要让他们一次性更改他们的互联网安全设置（否则他们只会收到一个 javascript 错误）。特别是，Intranet 区域的“初始化和编写未标记为安全的 ActiveX 控件”设置从禁用更改为启用。

为了帮助用户在没有技术帮助的情况下更新此设置，我需要一种方法来通知他们在设置不正确时需要更改设置。有没有一种方法可以以编程方式检测到上述 OpenDoc 命令失败，因为他们没有更新他们的设置？

4

1 回答 1

1

您必须阅读注册表才能这样做。但是操作系统和IE版本依赖的地方。例如，对于 IE6 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings 和 HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings 以及其他可能也是如此。

这也取决于您的站点所在的安全区域。要读取脚本中的注册表，用户需要足够的权限。另一方面，如果用户有足够的权限，你可以从你的脚本中设置设置，他应该只需要确认一些我认为的提示。

我认为您最好的选择是使用组策略正确设置设置并将这些设置分发到工作站。如果您不使用组策略，您可以通过登录脚本或让他们通过双击手动加载 .reg 文件来寻找和测试正确的注册表项和分发。

于 2012-05-16T07:18:18.470 回答