Назад | Перейти на главную страницу

ПК не запускает сценарий VB, ошибка времени выполнения VBScript идентификатор ошибки 800A046

У меня есть несколько рабочих станций, которые не могут запустить сетевой сценарий для отображения сетевых дисков и т. Д. Я знаю, что сценарий работает так же, как и для всех остальных.

Но на 1 или 2 машинах (из 1000) скрипт вообще не запускается. Я получаю сообщение об ошибке «Ошибка выполнения VBScript, идентификатор ошибки 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 "............................"

Ошибка разрешения запрещена. К сожалению, это могло быть из любого места в скрипте, а не только из линии, на которую он жалуется. Поскольку вы знаете, что проблема заключается в рабочей станции, а не в сопоставлении дисков, я бы подумал, что проблема заключается в разрешениях на DCOM или в каталоге на локальной рабочей станции. Вы упомянули, что они не могут запускать скрипты. Я бы сначала попробовал переустановить vbscript, чтобы посмотреть, решит ли это проблему.

Кстати, если это сопоставление дисков, почему бы не использовать настройки групповой политики и вовсе не исключить сценарий?

Прочтите эту статью. Я согласен с тем, что это похоже на проблему с разрешениями при сопоставлении дисков или что-то еще, что пытается сделать ваш сценарий входа в сеть.

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

Замечу, что строка перед упомянутой вами строкой вызывает ошибку: .Close ...

Похоже, вы что-то закрываете, а затем ссылаетесь на это.

Попробуйте переехать .Close после .title = sTitle

Хотя трудно быть уверенным, не увидев больше сценария.