PC 无法运行 VB 脚本，错误 VBScript 运行时错误 ID 800A046

Question

我有几个工作站无法运行网络脚本来映射网络驱动器等。我知道该脚本可以正常工作，因为它对其他人都有效。

但在 1000 台机器中，有 1 到 2 台机器上，该脚本根本无法运行。我收到错误“VBScript 运行时错误，错误 ID 800A046。

剧本本身很好，我对此非常确定。有什么想法吗？

也尝试过以管理员帐户身份运行。

从 501 行开始

      .Open
      .Write "<span id='theEnd'></span>"
      .Close
      Set oTheEnd = .all.theEnd
      .Title = sTitle

      With .ParentWindow.document.body
        .style.backgroundcolor = "LightBlue"
        .style.Font = "10pt 'Arial'"
        '.style.borderStyle = "outset"
        '.style.borderWidth = "4px"
        ' .scroll="no"
      End With
      oIE.Visible = True

    End With ' document
  End With   ' oIE
End Sub

还值得注意的是：

'main
Function main()
    On Error Resume Next

    'Map "<group>" , "<drive>:" , "\\server\<share>"
    Map "DummyGroupName" , "R:" , "\\Servername\Sharename"  

Log File

' Create logfile
If appendlogfile=True Then WriteFlag = 8 Else WriteFlag = 2 End If
sSystemdrive = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
Set logfile = oFSO.OpenTextFile (sSystemdrive & "\logon.log", WriteFlag, True)
logfile.Writeline "............................"

Answer 1

此错误是权限被拒绝。不幸的是，这可能来自脚本中的任何位置，而不仅仅是它抱怨的行。由于您知道问题出在工作站上而不是驱动器映射上，我认为问题出在 DCOM 或本地工作站上的目录上的权限上。您提到他们无法运行任何脚本，我会首先尝试重新安装 vbscript 以查看是否能解决问题。

顺便说一句，如果这是映射驱动器，为什么不使用组策略首选项并完全消除脚本？

Answer 2

看看这篇文章。我同意，这听起来像是映射驱动器的权限问题，或者是您的网络登录脚本试图执行的其他操作。

http://www.computerperformance.co.uk/Logon/code/code_800A0046.htm

Answer 3

我注意到您提到的引发错误的行之前的行是.Close......

因此看起来您正在关闭某些东西然后引用它。

尝试移动.Close后.title = sTitle

尽管如果不看更多剧本就很难确定。