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

我有几个工作站,无法运行networking映射networking驱动器等脚本我知道脚本工作,因为它是为所有人工作。

但在1台或2台机器上(1000台),脚本根本不会运行。 我得到一个错误“VBScript运行时错误,错误ID 800A046。

剧本本身很好,我很确定。 有任何想法吗?

也尝试作为pipe理员帐户。

从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 "............................" 

此错误是拒绝权限。 不幸的是,这可能来自剧本中的任何地方,而不仅仅是它所抱怨的那一个。 既然你知道问题是在工作站上,而不是驱动器映射,我会认为问题是在DCOM或本地工作站上的目录的权限。 你提到他们不能运行任何脚本,我会首先尝试重新安装VBScript,看看是否能解决问题。

在一个侧面说明,如果这是映射驱动器为什么不使用组策略首选项,并完全消除脚本?

检查这篇文章了。 我同意,这听起来像映射驱动器的权限问题或任何其他networkinglogin脚本正在尝试做的事情。

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

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

所以看起来你正在closures一些东西然后引用它。

尝试移动。 .title = sTitle.title = sTitle

虽然没有看到更多的剧本,但很难确定。