Configuration 如何确定用户'；s IE设置为"；初始化未标记为安全的ActiveX控件并为其编写脚本；

我有这样的代码，可以从我们的内部网打开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命令失败，因为它们没有更新设置？

您必须读取注册表才能执行此操作。但是操作系统和IE版本依赖的地方。 IE6的eg HKEY\U LOCAL\U MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet设置和HKEY\U LOCAL\U MACHINE\Software\Policys\Microsoft\Windows\CurrentVersion\Internet设置 可能还有其他人

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

---

我认为您最好使用组策略设置正确的设置，并将这些设置分发到工作站。如果您不使用组策略，您可以通过登录脚本或双击.reg文件，让它们手动加载.reg文件来查找和测试正确的注册表项和分发。但是操作系统和IE版本依赖的地方。 IE6的eg HKEY\U LOCAL\U MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet设置和HKEY\U LOCAL\U MACHINE\Software\Policys\Microsoft\Windows\CurrentVersion\Internet设置 可能还有其他人

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

---

我认为您最好使用组策略设置正确的设置，并将这些设置分发到工作站。如果您不使用组策略，您可以通过登录脚本或双击.reg文件手动加载该文件来查找和测试正确的注册表项和分发。谢谢您的回复。我希望在某个地方可能有某种错误代码，我可以用来确认我应该告诉用户他们需要更新特定的设置。我很确定我将无法使用默认设置访问注册表。感谢您的回复。我希望在某个地方可能有某种错误代码，我可以用来确认我应该告诉用户他们需要更新特定的设置。我很确定我将无法使用默认设置访问注册表。