Ошибка компиляции microsoft vbscript предполагается наличие инструкции

Студворк — интернет-сервис помощи студентам

Есть скрипт:

Visual Basic
1
2
3
4
5
6
7
8
9
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
LotusPath = "C:Users" & WshNetwork.UserName & "Lotus"
 
'Проверяем наличие папки Lotus в перемещаемом профиле, если такой папки не существует, то создаем ее
If FSO.FolderExists(LotusPath) = False Then
    FSO.CreateFolder(LotusPath)
    robocopy "C:Program Files (x86)Lotus" "C:Users%USERNAME%Lotus" "notes.ini"
End If

При запуске ругается:
Строка:8
Символ:42
(это буква «L» после «(x86)»)
Ошибка:Предполагается наличие окончания инструкции

Если эту строчку скопировать и запустить в cmd под тем же пользователем, она без проблем отрабатывается.
Что ОНО хочет от меня?

Добавлено через 18 минут
Поправка!Строка:8
Символ:42
(это первый символ второго параметра: «C:Users%USERNAME%Lotus»)

  • Remove From My Forums
  • Question

  • Доброго времени суток.
    В организации на 250+ машинах сетевые параметры адаптеров установлены статикой (sic), необходимо заставить брать их по DHCP. Нашел пару скриптов, наиболее подходящим показался VBS (с которым я совершенно не знаком), т.к.
    другой предполагает указание имени сетевого подключения (например, «Подключение по локальной сети»). Сам скрипт:
    WMIC Path Win32_NetworkAdapterConfiguration Where «IPEnabled = True» Call SetDNSServerSearchOrder 

    WMIC Path Win32_NetworkAdapterConfiguration Where «IPEnabled = True» Call EnableDHCP

    выдает: предполагается наличие окончания инструкции. строка1, символ 11.

    пробовал использовать bat такого вида: 

    netsh interface ip set address name=»Подключение по локальной сети» source=dhcp 

    netsh interface ip set dnsservers name=»Подключение по локальной сети» source=dhcp 

    ощутил проблемы с кодировкой, 1 раз он отработал, хотя отписал козябру, НО я не могу понять как, т.к. повторить я этого не могу, пробовал 1251, 866, 869 — без толку.

    Подскажите что-нибудь пожалуйста.

    • Edited by

      Friday, September 19, 2014 8:19 AM

Answers

  • Как я уже говорил с vbs не сталкивался, решение предложенное в той теме Aleksey.T

    выдает: строка 1, символ 1, несоответствие типа ‘Code’, код: 800A000D

    НО оказывается якобы vbs скрипт который я привел использует обычные команды wmic.exe, которые можно использовать в пакетном файле и это работает. Тема закрыта.

    • Marked as answer by
      Копылов Анатолий
      Friday, September 19, 2014 8:47 AM

Troubleshooting Code 800A0400 – Expected Statement

Perhaps instead of ‘Expected Statement’, ‘missing character’ would be a better error message.  I have noticed with error 800A0400 how often the problem is at the beginning or the end of the line mentioned in the error message.

Introduction to Code 800A0400

Error code 800A0400 is a generic message when you execute a VBScript.  A wild guess, you have missed a command at the beginning of a line.Code 800A0400 Expected Statement VBscript error

The Symptoms You Get

The script does not execute as you had hoped.  Instead you get a message box like this picture:

The Cause of Error 800A0400

Your VBScript contain is missing a statement.  This is a difficult error to track down.  However, the good news is that I have three examples.  Most likely you have placed a statement, which is not appropriate for the logic of your script.  For example, extra brackets, or missing command. 

Note: the clue ‘Source: Microsoft VBScript compilation error’.  My point is that ‘compilation error’ and not a ‘runtime error’, means this is a syntax error in your script.

The Solution for Error: Expected statement

The Windows Scripting Host gives us two useful clues, firstly, look on Line: 10, do count any remark or empty lines.  Secondly, the Char: number 1, is useful in tracing the error.  In this case there is something wrong with the Select statement.

The line number, as is so often the case, is crucial to solving this error.  The problem is that the whole line is gibberish to the VBScript engine.  So take another look at each word, punctuation and see if you can spot a simple error.

  ‡

Example 1 of Error code: 800A0400

Missing underscore at the end of the line 7:

‘ WSHname.vbs
‘ Sample VBScript to check WSH Version
‘ Author Guy Thomas https://computerperformance.co.uk/
‘ Version 2.3 – September 2010
‘ ——————————————————-
On Error Resume Next
WScript.Echo «WSH Version: » & WScript.Version & » » & WScript.BuildVersion
& vbcr & «File name: » WScript.ScriptName
WScript.Quit

Solution

Missing underscore at the end of the line:

WScript.Echo «WSH Version: » & WScript.Version & » » & _

‘ WSHname.vbs
‘ Sample VBScript to check WSH Version
‘ Author Guy Thomas https://computerperformance.co.uk/
‘ Version 2.3 – September 2010
‘ ——————————————————-
On Error Resume Next
WScript.Echo «WSH Version: » & WScript.Version & » » & _ WScript.BuildVersion
& vbcr & «File name: » WScript.ScriptName
WScript.Quit

Guy Recommends:  A Free Trial of the Network Performance Monitor (NPM)Review of Orion NPM v11.5 v11.5

SolarWinds’ Orion performance monitor will help you discover what’s happening on your network.  This utility will also guide you through troubleshooting; the dashboard will indicate whether the root cause is a broken link, faulty equipment or resource overload.

What I like best is the way NPM suggests solutions to network problems.  Its also has the ability to monitor the health of individual VMware virtual machines.  If you are interested in troubleshooting, and creating network maps, then I recommend that you try NPM now.

Download a free trial of Solarwinds’ Network Performance Monitor

Example 2 of 800A0400

Error on Line 4.

Talk about stupid errors, there is no ‘ apostrophe to Rem out that line of dashes.

Actual

————————

Should be:

 ‘   —————————–

‘The script is below, and the pclist.txt contain only 2 line:
‘ mainsrv
‘ computer1
——————————————————–
Const ForReading = 1
Set objDictionary = CreateObject(«Scripting.Dictionary»)
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
Set objTextFile = objFSO.OpenTextFile _
(«e:scriptspclist.txt», ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
objDictionary.Add i, strNextLine
i = i + 1
Loop
For Each objItem in objDictionary
StrComputer = objDictionary.Item(objItem)
Set objWMIService = GetObject(«winmgmts:» _
& «{impersonationLevel=impersonate}!» & strComputer& «rootcimv2»)
Set colServices = objWMIService.ExecQuery _
(«SELECT * FROM Win32_Service»)
Wscript.Echo strComputer, colServices.Count
Next

Example 3 of 800A0400  (Code available)

I just plain missed command, for example no ‘Set’.

Problem

«Error» ObjNetwork = CreateObject(«Wscript.Network»)

Correction

Set ObjNetwork = CreateObject(«Wscript.Network»)

Engineer's Toolset v10 v11.5

SolarWinds’ Orion performance monitor will help you discover what’s happening on your network.  This utility will also guide you through troubleshooting; the dashboard will indicate whether the root cause is a broken link, faulty equipment or resource overload.

What I like best is the way NPM suggests solutions to network problems.  Its also has the ability to monitor the health of individual VMware virtual machines.  If you are interested in troubleshooting, and creating network maps, then I recommend that you try NPM now.

Download a free trial of Solarwinds’ Network Performance Monitor

Example 2 of 800A0400

Error on Line 4.

Talk about stupid errors, there is no ‘ apostrophe to Rem out that line of dashes.

Actual

————————

Should be:

 ‘   —————————–

‘The script is below, and the pclist.txt contain only 2 line:
‘ mainsrv
‘ computer1
——————————————————–
Const ForReading = 1
Set objDictionary = CreateObject(«Scripting.Dictionary»)
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
Set objTextFile = objFSO.OpenTextFile _
(«e:scriptspclist.txt», ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
objDictionary.Add i, strNextLine
i = i + 1
Loop
For Each objItem in objDictionary
StrComputer = objDictionary.Item(objItem)
Set objWMIService = GetObject(«winmgmts:» _
& «{impersonationLevel=impersonate}!» & strComputer& «rootcimv2»)
Set colServices = objWMIService.ExecQuery _
(«SELECT * FROM Win32_Service»)
Wscript.Echo strComputer, colServices.Count
Next

Example 3 of 800A0400  (Code available)

I just plain missed command, for example no ‘Set’.

Problem

«Error» ObjNetwork = CreateObject(«Wscript.Network»)

Correction

Set ObjNetwork = CreateObject(«Wscript.Network»)

Engineer's Toolset v10Guy Recommends: SolarWinds Engineer’s Toolset v10

This Engineer’s Toolset v10 provides a comprehensive console of 50 utilities for troubleshooting computer problems.  Guy says it helps me monitor what’s occurring on the network, and each tool teaches me more about how the underlying system operates.

There are so many good gadgets; it’s like having free rein of a sweetshop.  Thankfully the utilities are displayed logically: monitoring, network discovery, diagnostic, and Cisco tools.  Try the SolarWinds Engineer’s Toolset now!

Download your fully functional trial copy of the Engineer’s Toolset v10

Example 4 – No need for End If

The 800A0400 error message in VBScript often appears when the user adds a «End» statement when there is no need for one. For example, in this script, the user puts «End If», when there is no If statement to end.

MsgBox «Click OK to continue»
Input = InputBox(«Type your name»)
End If

There was no need for the user to put «End If», so the script host says that the user needs to put an ‘If’ statement, but wouldn’t it make much more sense if it told the user to delete the ‘End If’ statement?

This example was kindly sent in by Alex Jones.

Select Case Example of Error Code 800A0400

n_Num = 3

Select Case n_Num
Case n_Num 1
wscript.echo 1
Case 2
wscript.echo 2
Case 3
wscript.echo 3
End Case

Solutions:
Should be Case 1 (Not Case n_Num 1)
Should be End Select (Not End Case)

Kindly sent in by Bradley Harris.

See More Windows Update Error Codes 8004 Series

• Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

• Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

• Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

If you like this page then please share it with your friends


Устраняем ошибку Windows Script Host

Исправляем ошибку Windows Script Host

Сразу стоит сказать о том, что если вы писали свой скрипт и при его запуске получили ошибку, то необходимо искать проблемы в коде, а не в системном компоненте. Например, вот такое диалоговое окно говорит именно об этом:

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

Далее мы поговорим о тех моментах, когда при старте Windows или запуске программ, например, Блокнота или Калькулятора, а также других приложений, использующих системные ресурсы, появляется стандартная ошибка Windows Script Host. Иногда подобных окон может появиться сразу несколько. Случается такое после обновления операционной системы, которое может пройти как в штатном режиме, так и со сбоями.

Причины такого поведения ОС следующие:

  • Неверно выставленное системное время.
  • Сбой в работе службы обновлений.
  • Некорректная установка очередного апдейта.
  • Нелицензионная сборка «винды».

Вариант 1: Системное время

Многие пользователи думают, что системное время, которое показывается в области уведомлений, существует только для удобства. Это не совсем так. Некоторые программы, обращающиеся к серверам разработчиков или к иным ресурсам, могут работать некорректно или вовсе отказаться функционировать по причине расхождений в дате и времени. Это же касается и Windows с ее серверами обновления. В том случае, если будет расхождение в вашем системном времени и времени сервера, то могут наблюдаться неполадки с апдейтами, поэтому на это стоит обратить внимание в первую очередь.

    Нажимаем на часы в правом нижнем углу экрана и переходим по ссылке, указанной на скриншоте.


Далее идем на вкладку «Время по интернету» и жмем на кнопку изменения параметров. Обратите внимание, что ваша учетная запись должна обладать правами администратора.


В окне настроек устанавливаем галку в указанный на изображении чекбокс, затем в выпадающем списке «Сервер» выбираем time.windows.com и нажимаем «Обновить сейчас».


Если все пройдет успешно, то появится соответствующая надпись. В случае ошибки с превышением времени ожидания просто нажимаем кнопку обновления еще раз.

Теперь ваше системное время будет регулярно синхронизироваться с сервером времени Майкрософт и расхождения не будет.

Вариант 2: Служба обновлений

Windows – это очень сложная система, с множеством одновременно протекающих процессов, и некоторые из них могут повлиять на работу службы, отвечающей за обновление. Высокое потребление ресурсов, различные сбои и занятость компонентов, помогающих апдейту, «заставляют» службу совершать бесконечные попытки выполнить свою работу. Сам сервис также может сбоить. Выход здесь один: отключить его, а затем перезагрузить компьютер.

    Вызываем строку «Выполнить» сочетанием клавиш Win+R и в поле с названием «Открыть» пишем команду, которая позволит получить доступ к соответствующей оснастке.


В списке находим «Центр обновления», кликаем ПКМ и выбираем пункт «Свойства».


В открывшемся окне жмем кнопку «Остановить», а затем ОК.


После перезагрузки служба должна запуститься автоматически. Стоит проверить, так ли это и, если она все еще остановлена, включить ее тем же способом.

Если после выполненных действий ошибки продолжают появляться, то необходимо поработать с уже установленными обновлениями.

Вариант 3: Некорректно установленные обновления

Данный вариант подразумевает удаление тех обновлений, после установки которых начались сбои в Windows Script Host. Сделать это можно как вручную, так и с помощью утилиты восстановления системы. В обоих случаях необходимо вспомнить, когда «посыпались» ошибки, то есть после какой даты.

    Идем в «Панель управления» и находим апплет с названием «Программы и компоненты».


Далее переходим по ссылке, отвечающей за просмотр обновлений.


Сортируем список по дате установки, кликнув по шапке последней колонки с надписью «Установлено».


Выбираем нужное обновление, кликаем ПКМ и выбираем «Удалить». Также поступаем с остальными позициями, помня про дату.

  • Перезагружаем компьютер.
    1. Для перехода к данной утилите кликаем правой кнопкой мыши по значку компьютера на рабочем столе и выбираем пункт «Свойства».


    Далее переходим к «Защите системы».


    Нажимаем кнопку «Восстановление».


    В открывшемся окне утилиты жмем «Далее».


    Ставим галку, отвечающую за показ дополнительных точек восстановления. Необходимые нам поинты будут называться «Автоматически созданная точка», тип – «Система». Из них необходимо выбрать ту, которая соответствует дате последнего обновления (или того, после которого начались сбои).


    Жмем «Далее», ждем, пока система предложит перезагрузиться и выполнит действия по «откату» к предыдущему состоянию.


    Обратите внимание, что в этом случае могут быть удалены и те программы и драйвера, которые были установлены вами после этой даты. Узнать, произойдет ли это, можно нажав кнопку «Поиск затрагиваемых программ».

    Читайте также: Как восстановить систему Windows XP, Windows 8, Windows 10

    Вариант 4: Нелицензионная Windows

    Пиратские сборки «винды» хороши лишь тем, что они совершенно бесплатны. В остальном же такие дистрибутивы могут принести массу проблем, в частности, некорректную работу необходимых компонентов. В этом случае рекомендации, приведенные выше, могут не сработать, так как файлы в скачанном образе уже были сбойными. Здесь можно только посоветовать поискать другой дистрибутив, но лучше воспользоваться лицензионной копией Windows.

    Заключение

    Решения проблемы с Windows Script Host довольно просты, и с ними справится даже начинающий пользователь. Причина здесь ровно одна: некорректная работа инструмента обновления системы. В случае с пиратскими дистрибутивами можно дать следующий совет: пользуйтесь только лицензионными продуктами. И да, правильно пишите ваши скрипты.

    Источник

    Как исправить ошибку Windows script host

    Windows script host довольно редкая системная ошибка, которая появляется в Windows 7, 8 или 10 версиях независимо от того, лицензионные они или нет. Путь указанный в ней говорит о невозможности запуска конкретного файла. Чаще всего это возникает в следствии появления вирусов.

    В статье я рассмотрю причины появления и как можно устранить Windows script host ошибку с кодом 80070002 когда не удается найти указанный файл.

    Причины появления ошибки

    Чаще всего причиной являются сбои при установке приложений, программ и вирусы. Возможно смогла загрузиться только часть необходимых данных и поэтому системе не удаётся найти указанный файл даже если он присутствует по указанному в ошибке адресу. Это связанно с неверной записью реестра.

    Windows script host — это компонент для запуска исполняемых сценариев на различных языках. В сценарии может быть любая задача (например, включение программы).

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

    Как исправить ошибку (код 80070002)

    Всё зависит от того куда указывает ошибка. Однако решения всегда почти одинаковы. Вот несколько примеров на, что может указывать Windows script host:

    1. Nvideo_driver.js
    2. WindowsUpdateDrivers.vbs
    3. Launchall.js

    Обратите внимание, что это может быть любой файл с расширением vbs и js (редко с другим).

    После каждой инструкции требуется перезагрузка, чтобы применить изменения.

    Устранение неполадок в реестре

    Устранение нужно начать с исправления реестра. Скачайте программу Ccleaner и установите. Зайдите во вкладку реестра и нажмите на «Поиск проблем».

    Исправьте все найденные неполадки и повторите процедуру до тех пор, пока они не будут обнаружены.

    Устранение ссылки на запуск вируса

    Если при включении компьютера появляется Windows script host с указанием пути на Nvideo_driver.js, Launchall.js или другие документы с подобным расширением на конце, то это значит, что сам вирус (то есть указанные выше файлы) удалены, но обращение на него остаётся.

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

    Проверьте и очистите автозагрузку удалив записи об автоматическом запуске там. Либо можно перейти вручную по указанному в ошибке адресу и провести удаление самостоятельно.

    Откройте строку выполнения через меню Пуск или клавишами Win+R и введите команду:

    Проблема с обновлением

    Если Windows script host указывает на WindowsUpdateDrivers, то в этом случае может помочь очистка папки где хранятся временные данные обновлений. Но сначала отключите соответствующую службу.

    Снова введите в строку выполнения команду, но уже другую:

    Найдите «Центр обновления Windows» и отключите его через контекстное меню (правой кнопкой мыши) в свойствах.

    Перейдите в локальный диск C (там где установлена ОС) >> Windows >> SoftwareDistribution >> DataStore и удалите всё, что там расположено. Затем включите службу и попробуйте обновиться.

    Следующим шагом будет удаление недавних обновлений. Они часто могут быть причиной ошибки особенно на пиратских версиях Windows.

    Войдите в панель управления через меню Пуск >> Программы и компоненты >> Просмотр установленных обновлений. Кликните по столбцу «Установлено» для сортировки по дате и удаляйте строки по одной до тех пор, пока ошибка 80070002 не пропадёт.

    Неправильное время

    Важно установить правильную дату на компьютере иначе будет несоответствие со временем на авторское право различных утилит и программ. Оно ограниченно во времени и сравнивается со специальным сервером.

    На рабочем столе нажмите на время в правом нижнем углу и перейдите в настройки.

    Поставьте синхронизацию с официальным сервером компании Microsoft, чтобы избежать различных конфликтов или вручную укажите верную на текущий момент дату.

    Источник

    Решил изучить платформу Nanocad.

    Создал файл .VBS и вставил туда код из файла api/ncX_app.chm

    Dim nc As New nanoCAD.Application
    nc.Utility.Prompt ("Hello CAD!")

    Nanocad выдал ошибку:

    Script file path или [./]: C:UsersAmk_2Desktopexample.vbserr: "Ошибка компиляции Microsoft VBScript" raised an exception "Предполагается наличие окончания инструкции" at line 1 pos 7
    Dim nc As New nanoCAD.Application
          ^

    Насколько я помню, VBS является безтиповым языком. Точнее не требует объявления типов.

    Поэтому ругается на явное объявление

    Dim nc As New nanoCAD.Application

    Один из вариантов реализации вашего кода с помощью метода CreateObject

    Dim nc
    Set nc = CreateObject("nanoCAD.Application")
    nc.Utility.Prompt ("Hello CAD!")


    Изменено 8 июня, 2011 пользователем shteyn

    Troubleshooting Code 800A0401 – Expected End of Statement

    Good news, here is another example of a WSH error message with a helpful Char: number.  Count along the line until you get to the offending character.  With Error 800A0401 start by looking for missing ampersands (&).

    Introduction to Code 800A0401

    Error code, 800A0401 occurs when you execute a VBScript.  This is a compilation error, therefore check your punctuation.  A wild guess, you have left out an ampersand (&), or possibly a comma.Code 800A0401 - Expected end of statement

    The Symptoms You Get

    The script does not execute as you had hoped. Instead, Windows Scripting host generates a message box like this picture:  Good news, I have three examples of code: 800A0401.

    The Cause of Code 800A0401 VBScript Error

    Your VBScript contains a punctuation error.   Note: The clue from Source: Microsoft VBScript compilation error, this means a syntax error in your script.  In this case the Char: number (33) is particularly valuable in troubleshooting.

    The Solution to Error: Expected end of statement

    Check the syntax of your script, in particular double-check punctuation marks (&, comma, speech marks or full stop.).  In this instance, Windows Scripting Host has detected a mix-up between a comma and a full stop.  As ever, a line number is helpful when troubleshooting, moreover, any Char : number other than 1, will pin-point the problem.

      ‡

    Example 1 of Script for Code 800A0401

    Note: The error is at Line 3, Character 33 – wbemServices, Instances

    It should be wbemServices.Instances  (Full stop, and not a comma)

    ‘ VBScript Error 800A0401
    strComputer = «Alan»
    set wbemservices = GetObject(«Winmgmts:\» & strComputer)
    set wbemObjectSet = wbemServices, InstancesOf («win32_LogicalMemoryConfiguration»)
    For each wbemobject in wbemobjectset
    WScript.echo «Tot Physical Memory » & wbemobject.totalPhysicalMemory
    Next

    Guy Recommends:  A Free Trial of the Network Performance Monitor (NPM)Review of Orion NPM v11.5 v11.5

    SolarWinds’ Orion performance monitor will help you discover what’s happening on your network.  This utility will also guide you through troubleshooting; the dashboard will indicate whether the root cause is a broken link, faulty equipment or resource overload.

    What I like best is the way NPM suggests solutions to network problems.  Its also has the ability to monitor the health of individual VMware virtual machines.  If you are interested in troubleshooting, and creating network maps, then I recommend that you try NPM now.

    Download a free trial of Solarwinds’ Network Performance Monitor

    Example 2 of Script for Error 800A0401

    Problem

    Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

    An & (ampersand) is missing it should be:

    Correction

    Wscript.Echo objNetwork.UserName & » at » & objNetwork.ComputerName

    ‘ VBScript 800A0401 Error
    Set ObjNetwork = CreateObject(«Wscript.Network»)
    Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

    [ThemesGuy/google_leader728htm]

    Example 3 – Missing Comma

    The error is on line 10 char 33, it needs a comma between the drive letter and the UNC path

    objNetwork.MapNetworkDrive «R:» «\alanbackup»
    objNetwork.MapNetworkDrive «R:» ,  «\alanbackup»

    ‘ BudgetPear.vbs
    ‘ Script to map the Budget share on the server pear
    ‘ Version 1.1 August 2010
    ‘ Guy Thomas https://computerperformance.co.uk

    Option Explicit
    Dim objNetwork

    Set objNetwork = CreateObject(«Wscript.Network»)
    objNetwork.MapNetworkDrive «R:» «\alanbackup»
    WSript.echo » Share Mapped «
    WScript.Quit

    ‘ End of Guy’s script

    Summary of Error Code 800A0401

    As usual with 0800 error codes, check the line number and the char number.  Pay careful attention to any punctuation.  Is there a comma, missing?  Could there be a comma, where the script needs a full stop?

    See More Windows Update Error Codes 8004 Series

    • Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

    • Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

    • Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

    Solarwinds Free WMI Monitor v11.5

    SolarWinds’ Orion performance monitor will help you discover what’s happening on your network.  This utility will also guide you through troubleshooting; the dashboard will indicate whether the root cause is a broken link, faulty equipment or resource overload.

    What I like best is the way NPM suggests solutions to network problems.  Its also has the ability to monitor the health of individual VMware virtual machines.  If you are interested in troubleshooting, and creating network maps, then I recommend that you try NPM now.

    Download a free trial of Solarwinds’ Network Performance Monitor

    Example 2 of Script for Error 800A0401

    Problem

    Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

    An & (ampersand) is missing it should be:

    Correction

    Wscript.Echo objNetwork.UserName & » at » & objNetwork.ComputerName

    ‘ VBScript 800A0401 Error
    Set ObjNetwork = CreateObject(«Wscript.Network»)
    Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

    [ThemesGuy/google_leader728htm]

    Example 3 – Missing Comma

    The error is on line 10 char 33, it needs a comma between the drive letter and the UNC path

    objNetwork.MapNetworkDrive «R:» «\alanbackup»
    objNetwork.MapNetworkDrive «R:» ,  «\alanbackup»

    ‘ BudgetPear.vbs
    ‘ Script to map the Budget share on the server pear
    ‘ Version 1.1 August 2010
    ‘ Guy Thomas https://computerperformance.co.uk

    Option Explicit
    Dim objNetwork

    Set objNetwork = CreateObject(«Wscript.Network»)
    objNetwork.MapNetworkDrive «R:» «\alanbackup»
    WSript.echo » Share Mapped «
    WScript.Quit

    ‘ End of Guy’s script

    Summary of Error Code 800A0401

    As usual with 0800 error codes, check the line number and the char number.  Pay careful attention to any punctuation.  Is there a comma, missing?  Could there be a comma, where the script needs a full stop?

    See More Windows Update Error Codes 8004 Series

    • Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

    • Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

    • Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

    Solarwinds Free WMI MonitorGuy Recommends: WMI Monitor and It’s Free!

    Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems.  Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free.  Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

    Download your free copy of WMI Monitor


    Do you need additional help?

    • For interpreting the WSH messages check Diagnose 800 errors.
    • For general advice try my 7 Troubleshooting techniques.
    • See master list of 0800 errors.
    • Codes beginning 08004…
    • Codes beginning 08005…
    • Codes beginning 08007…
    • Codes beginning 0800A…

    Give something back?

    Would you like to help others?  If you have a good example of this error, then please email me, I will publish it with a credit to you:

    If you like this page then please share it with your friends


    Понравилась статья? Поделить с друзьями:
  • Ошибка компиляции microsoft vbscript предполагается наличие идентификатора
  • Ошибка компиляции microsoft vbscript недопустимый знак
  • Ошибка компиляции microsoft vbscript код 800a0408
  • Ошибка компиляции does not name a type
  • Ошибка компиляции microsoft vbscript 800a0409