- Remove From My Forums
-
Вопрос
-
Доброго времени суток.
В организации на 250+ машинах сетевые параметры адаптеров установлены статикой (sic), необходимо заставить брать их по DHCP. Нашел пару скриптов, наиболее подходящим показался VBS (с которым я совершенно не знаком), т.к.
другой предполагает указание имени сетевого подключения (например, «Подключение по локальной сети»). Сам скрипт:
WMIC Path Win32_NetworkAdapterConfiguration Where «IPEnabled = True» Call SetDNSServerSearchOrderWMIC 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 — без толку.
Подскажите что-нибудь пожалуйста.
-
Изменено
19 сентября 2014 г. 8:19
-
Изменено
Ответы
-
Как я уже говорил с vbs не сталкивался, решение предложенное в той теме Aleksey.T
выдает: строка 1, символ 1, несоответствие типа ‘Code’, код: 800A000D
НО оказывается якобы vbs скрипт который я привел использует обычные команды wmic.exe, которые можно использовать в пакетном файле и это работает. Тема закрыта.
-
Помечено в качестве ответа
Копылов Анатолий
19 сентября 2014 г. 8:47
-
Помечено в качестве ответа
Есть скрипт:
Visual Basic | ||
|
При запуске ругается:
Строка:8
Символ:42
(это буква «L» после «(x86)\»)
Ошибка:Предполагается наличие окончания инструкции
Если эту строчку скопировать и запустить в cmd под тем же пользователем, она без проблем отрабатывается.
Что ОНО хочет от меня?
Добавлено через 18 минут
Поправка!Строка:8
Символ:42
(это первый символ второго параметра: «C:\Users\%USERNAME%\Lotus»)
Решил изучить платформу Nanocad.
Создал файл .VBS и вставил туда код из файла api/ncX_app.chm
Dim nc As New nanoCAD.Application nc.Utility.Prompt ("Hello CAD!")Nanocad выдал ошибку:
Script file path или [./]: C:\Users\Amk_2\Desktop\example.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!")
Изменено пользователем shteyn
I have recently been searching for a solution to my problem and I came across this website. I attempted to follow instructions on how to fix my problem from many other sites but I’m not entirely good at this sort of thing…. Here is my problem:
Windows Script Host
Script: C:\Documents and Settings\Me\Application Data\bits2\windows.vbs
Line: 33
Char: 428
Error: Expected end of statement
Code: 800A0401
Source: Microsoft VBScript compilation error
I found the script and noticed that line 33 does not have 428 characters in it so I am now really stuck on what to do…… Here is the whole script:
Set WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptions &n bsp; &nb sp; Set WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptions
I hope you can help, thank you.
- Remove From My Forums
-
Вопрос
-
Вот текст скрипта:
Const ADS_PROPERTY_DELETE = 4
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500DstrOU = «OU=Test,OU=Users,DC=name,DC=ru»
Set objConnection = CreateObject(«ADODB.Connection»)
objConnection.Open «Provider=ADsDSOObject;»
Set objCommand = CreateObject(«ADODB.Command»)
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
«<LDAP://dc=name,dc=ru>;(objectCategory=Group);» & _
«distinguishedName,primaryGroupToken;subtree»
Set objRecordSet = objCommand.Execute
objCommand.CommandText = _
«<LDAP://» & strOU & «>;» & _
«(&(objectclass=user)(objectcategory=person));» & _
«adspath,distinguishedname,sAMAccountName;subtree»
Set objRecordSet = objCommand.Executedim arrUsers()
dim intUserCount
intUserCount = -1Do Until objRecordSet.EOF
intUserCount = intUserCount + 1
ReDim Preserve arrUsers(intUserCount)
arrUsers(intUserCount) = «LDAP://DC1:389/» & objRecordSet.Fields(«distinguishedname»).Value
objRecordSet.MoveNextLoop
for i = 0 to UBound(arrUsers)
WScript.Echo «arrUsers(» & i & «) = » & arrUsers(i)
WScript.Echo
Set objUser = GetObject(arrUsers(i))
arrMemberOf = objUser.GetEx(«memberOf»)
‘ WScript.Echo arrMemberOf
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo «The memberOf attribute is not set.»
Else
For Each Group in arrMemberOf Set objGroup = GetObject(Group)_
objGroup.PutEx ADS_PROPERTY_DELETE, _
«member», arrUsers (i)
objGroup.SetInfo
Next
End If
nextПри запуске скрипта появляется Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции
в строке For Each Group in arrMemberOf Set objGroup = GetObject(Group)_
Подскажите пожалуйста в чем моя ошибка?
Ответы
-
Вот финальный поправленный скрипт. Проверенно работает.
On Error Resume Next
Const ADS_PROPERTY_DELETE = 4
strOU = «OU=Test,OU=Users,OU=FMS,DC=noname,DC=com»
Set objConnection = CreateObject(«ADODB.Connection»)
objConnection.Open «Provider=ADsDSOObject;»
Set objCommand = CreateObject(«ADODB.Command»)
objCommand.ActiveConnection = objConnectionobjCommand.CommandText = _
«<LDAP://» & strOU & «>;» & _
«(&(objectclass=user)(objectcategory=person));» & _
«adspath,distinguishedname,sAMAccountName;subtree»
Set objRecordSet = objCommand.Executedim arrUsers()
dim intUserCount
intUserCount = -1Do Until objRecordSet.EOF
intUserCount = intUserCount + 1
ReDim Preserve arrUsers(intUserCount)
arrUsers(intUserCount) = objRecordSet.Fields(«distinguishedname»).Value
objRecordSet.MoveNextLoop
for i = 0 to UBound(arrUsers)
‘ WScript.Echo «arrUsers(» & i & «) = » & arrUsers(i)
WScript.Echo
‘»LDAP://» &
strLDAPUser = «LDAP://» & arrUsers(i)Set objUser = GetObject(strLDAPUser) ‘ <================================================
ErrNumber1 = Err.Number
ErrDescription1 = Err.DescriptionarrMemberOf = objUser.GetEx(«memberOf») ‘ <================================================
ErrNumber0 = Err.Number
ErrDescription0 = Err.Descriptionif ErrNumber0 = -2147463155 then
WScript.Echo «strLDAPUser = » & strLDAPUser
WScript.Echo «The memberOf attribute is not set.»
else
If not ErrNumber1 = 0 Then
WScript.Echo «strLDAPUser = » & strLDAPUser
WScript.Echo «Err.Number1 = » & ErrNumber1
WScript.Echo «Err.Description1 = » & ErrDescription1elseif ErrNumber1 = 0 then
For Each Group in arrMemberOf
strLDAP = «LDAP://» & Group
Set objGroup = GetObject(strLDAP) ‘ <================================================
ErrNumber2 = Err.Number
ErrDescription2 = Err.Descriptionif not ErrNumber2 = 0 then
WScript.Echo «strLDAPUser = » & strLDAPUser
WScript.Echo «Err.Number2 = » & ErrNumber2
WScript.Echo «Err.Description2 = » & ErrDescription2
WScript.Echo «strLDAP = » & strLDAP
else
objGroup.PutEx ADS_PROPERTY_DELETE, «member», Array(arrUsers(i))objGroup.SetInfo ‘ <================================================
ErrNumber3 = Err.Number
ErrDescription3 = Err.Description
if not ErrNumber3 = 0 then
WScript.Echo «strLDAPUser = » & strLDAPUser
WScript.Echo «Err.Number3 = » & ErrNumber3
WScript.Echo «Err.Description3 = » & ErrDescription3
else
‘
end if
end if
Next
Else
WScript.Echo «strLDAPUser = » & strLDAPUser
WScript.Echo «Err.Number1 = » & ErrNumber1
WScript.Echo «Err.Description1 = » & ErrDescription1
End If
end if
nextobjRecordSet.Close
Set objRecordSet = Nothing
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
WScript.quit-
Помечено в качестве ответа
29 сентября 2011 г. 12:32
-
Помечено в качестве ответа
Устраняем ошибку Windows Script Host
Исправляем ошибку Windows Script Host
Сразу стоит сказать о том, что если вы писали свой скрипт и при его запуске получили ошибку, то необходимо искать проблемы в коде, а не в системном компоненте. Например, вот такое диалоговое окно говорит именно об этом:
Такая же ситуация может возникнуть и в том случае, когда в коде имеется ссылка на другой скрипт, путь к которому прописан неверно либо данный файл вовсе отсутствует на компьютере.
Далее мы поговорим о тех моментах, когда при старте Windows или запуске программ, например, Блокнота или Калькулятора, а также других приложений, использующих системные ресурсы, появляется стандартная ошибка Windows Script Host. Иногда подобных окон может появиться сразу несколько. Случается такое после обновления операционной системы, которое может пройти как в штатном режиме, так и со сбоями.
Причины такого поведения ОС следующие:
- Неверно выставленное системное время.
- Сбой в работе службы обновлений.
- Некорректная установка очередного апдейта.
- Нелицензионная сборка «винды».
Вариант 1: Системное время
Многие пользователи думают, что системное время, которое показывается в области уведомлений, существует только для удобства. Это не совсем так. Некоторые программы, обращающиеся к серверам разработчиков или к иным ресурсам, могут работать некорректно или вовсе отказаться функционировать по причине расхождений в дате и времени. Это же касается и Windows с ее серверами обновления. В том случае, если будет расхождение в вашем системном времени и времени сервера, то могут наблюдаться неполадки с апдейтами, поэтому на это стоит обратить внимание в первую очередь.
- Нажимаем на часы в правом нижнем углу экрана и переходим по ссылке, указанной на скриншоте.
Далее идем на вкладку «Время по интернету» и жмем на кнопку изменения параметров. Обратите внимание, что ваша учетная запись должна обладать правами администратора.
В окне настроек устанавливаем галку в указанный на изображении чекбокс, затем в выпадающем списке «Сервер» выбираем time.windows.com и нажимаем «Обновить сейчас».
Если все пройдет успешно, то появится соответствующая надпись. В случае ошибки с превышением времени ожидания просто нажимаем кнопку обновления еще раз.
Теперь ваше системное время будет регулярно синхронизироваться с сервером времени Майкрософт и расхождения не будет.
Вариант 2: Служба обновлений
Windows – это очень сложная система, с множеством одновременно протекающих процессов, и некоторые из них могут повлиять на работу службы, отвечающей за обновление. Высокое потребление ресурсов, различные сбои и занятость компонентов, помогающих апдейту, «заставляют» службу совершать бесконечные попытки выполнить свою работу. Сам сервис также может сбоить. Выход здесь один: отключить его, а затем перезагрузить компьютер.
- Вызываем строку «Выполнить» сочетанием клавиш Win+R и в поле с названием «Открыть» пишем команду, которая позволит получить доступ к соответствующей оснастке.
В списке находим «Центр обновления», кликаем ПКМ и выбираем пункт «Свойства».
В открывшемся окне жмем кнопку «Остановить», а затем ОК.
После перезагрузки служба должна запуститься автоматически. Стоит проверить, так ли это и, если она все еще остановлена, включить ее тем же способом.
Если после выполненных действий ошибки продолжают появляться, то необходимо поработать с уже установленными обновлениями.
Вариант 3: Некорректно установленные обновления
Данный вариант подразумевает удаление тех обновлений, после установки которых начались сбои в Windows Script Host. Сделать это можно как вручную, так и с помощью утилиты восстановления системы. В обоих случаях необходимо вспомнить, когда «посыпались» ошибки, то есть после какой даты.
- Идем в «Панель управления» и находим апплет с названием «Программы и компоненты».
Далее переходим по ссылке, отвечающей за просмотр обновлений.
Сортируем список по дате установки, кликнув по шапке последней колонки с надписью «Установлено».
Выбираем нужное обновление, кликаем ПКМ и выбираем «Удалить». Также поступаем с остальными позициями, помня про дату.
- Для перехода к данной утилите кликаем правой кнопкой мыши по значку компьютера на рабочем столе и выбираем пункт «Свойства».
Далее переходим к «Защите системы».
Нажимаем кнопку «Восстановление».
В открывшемся окне утилиты жмем «Далее».
Ставим галку, отвечающую за показ дополнительных точек восстановления. Необходимые нам поинты будут называться «Автоматически созданная точка», тип – «Система». Из них необходимо выбрать ту, которая соответствует дате последнего обновления (или того, после которого начались сбои).
Жмем «Далее», ждем, пока система предложит перезагрузиться и выполнит действия по «откату» к предыдущему состоянию.
Обратите внимание, что в этом случае могут быть удалены и те программы и драйвера, которые были установлены вами после этой даты. Узнать, произойдет ли это, можно нажав кнопку «Поиск затрагиваемых программ».
Читайте также: Как восстановить систему Windows XP, Windows 8, Windows 10
Вариант 4: Нелицензионная Windows
Пиратские сборки «винды» хороши лишь тем, что они совершенно бесплатны. В остальном же такие дистрибутивы могут принести массу проблем, в частности, некорректную работу необходимых компонентов. В этом случае рекомендации, приведенные выше, могут не сработать, так как файлы в скачанном образе уже были сбойными. Здесь можно только посоветовать поискать другой дистрибутив, но лучше воспользоваться лицензионной копией Windows.
Заключение
Решения проблемы с Windows Script Host довольно просты, и с ними справится даже начинающий пользователь. Причина здесь ровно одна: некорректная работа инструмента обновления системы. В случае с пиратскими дистрибутивами можно дать следующий совет: пользуйтесь только лицензионными продуктами. И да, правильно пишите ваши скрипты.
Источник
Dadaviz
Ошибка Windows Script Host — как исправить
Системная ошибка «Windows Script Host» очень знакома пользователям Windows 7/8/10. Ее возникновение чаще всего сопровождается разными официальными обновлениями от компании Microsoft. Еще недавно все работало как надо, а тут вдруг при запуске приложений может происходить сбой или при загрузке Windows выскакивает черный экран и уведомлением об ошибке — «Не удается найти файл сценария» (run.vbs, launchall.js). Иногда с такой проблемой сталкиваются при установке Windows, что характерно она проявляется на официальных версиях от Microsoft тоже.
Ошибка 80070002 — Не удается найти указанный файл
Что это за ошибка?
К счастью для пользователей, данный конфликт сценариев вполне объясним, и связывается он с неправильными интегрированными установочными файлами. По разным причинам весь софт не смог полностью выгрузится в операционную систему. Тут виной являются обновления и установочный диск Windows, пиратская сборка. К дополнительным источникам проблемы нужно отнести: антивирусы, любые сторонние утилиты по оптимизации системы, пользовательские действия на системном диске и другие.
По не официальным данным Windows Script Host может создавать до нескольких сотен подобных ошибок, самые распространенные из которых: 80070002, 80070003 или 80070483. Решения у них бывают практически одинаковые, во многих случаях понадобится не более 5 минут для их реализации и исправления конфликтной ситуации.
Исправляем Windows Script Host (Код 80070002)
Далее мы приведем несколько методов, которые избавят вас от данного сбоя. Эти методы проверенны и одобрены многими юзерами, а также предлагаются как оптимальные на официальном форуме поддержки Microsoft.
Остановка служб обновления
Иногда процесс обновления ОС происходит не совсем корректно. Это бывает связанно с загруженностью системы, сбоях интернета и т.д. Решениями становятся не сложные манипуляции, которые сможет сделать абсолютно любой пользователь. Выполним остановку центра обновлений.
- Перейдите в меню «Пункт» и посетите «Панель управления».
- Найдите подменю «Администрирование».
- Увидите список операций, кликните по «Службы».
- В новом окне отсортируйте все службы ОС по имени, это поможет в поиске «Центр обновления Windows».
- Кликните правой кнопкой мышки. Выберите «Остановить».
Остановка Центра обновлений Windows
Это способ помогает прервать постоянные попытки компьютера получить новые обновления, которые могут вызывать ошибку 80070002.
Настройте время
Ошибка «Windows Script Host сценария» проявляется вследствие неправильно установленной даты на вашем ПК. Расхождения с главным сервером Microsoft во времени очень часто создает конфликты. Устанавливаемый софт строго соблюдает авторские права и поддержку разного рода DirectX , а они, как известно, не вечные.
- Перейдите в правом углу в меню часов, для этого нажмите на них.
- В самом низу будет одно единственное действие «Изменение настроек даты и времени».
Проверяем правильность настроек времени на ПК
Самый простой способ решения, но не менее действенный от этого.
Удаление последних обновлений
Это вариант поможет в ручную решить данную ситуацию. Нужно будет посетить центр обновления и удалить все внесенные изменения за последнее время.
- Через «Пуск» найдите уже знакомую «Панель управления».
- Щелкните по службе «Программы и компоненты».
- В левом меню из трех вариантов выберите «Просмотр установленных обновлений».
- Отсортируйте все по дате добавления софта. Это можно сделать при помощи «Установлено».
Удалите обновления за последние пять дней
А вот наглядная и подробная видео инструкция по исправлению подобной ошибки.
А вот хороший обзор о проблеме несколько иного сбоя службы Windows Script Host: «Не удается найти файл сценария run.vbs», который вызывает черный экран при загрузке и соответствующее уведомление.
Заключение
Данные советы помогут вам исправить системную ошибку Windows Script Host самым простым способом. Многие советуют залезть в реестр и менять значения и настройку некоторых служб — в большинстве случаев это не работает. Если манипуляции с обновлениями системы вам не помогли, тогда просто переустановите систему, тем более если у вас пиратская сборка Виндовс.
Источник
kodblack
12.02.15 — 09:43
Добрый день!
Подскажите — как быть. Мне нужно из таблицы excel в автоматическом режиме производить выгрузку данных в БД SQL.
На VBS — но выдает ошибку.
Код Visual Basic
Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open «Provider=SQLOLEDB;Data Source=<compsqlexpress>;» & _
«Initial Catalog=<test>;User ID=<sa>;Password=<pass>»
‘Import by using OPENDATASOURCE.
strSQL = «SELECT * INTO XLImport6 FROM » & _
«OPENDATASOURCE(‘Microsoft.Jet.OLEDB.4.0’, » & _
«‘Data Source=D:111.xls;» & _
«Extended Properties=Excel 8.0′)…[Customers$]»
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print «Records affected: » & lngRecsAff
‘Import by using OPENROWSET and object name.
strSQL = «SELECT * INTO XLImport7 FROM » & _
«OPENROWSET(‘Microsoft.Jet.OLEDB.4.0’, » & _
«‘Excel 8.0;Database=D:111.xls’, » & _
«[Customers$])»
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print «Records affected: » & lngRecsAff
‘Import by using OPENROWSET and SELECT query.
strSQL = «SELECT * INTO XLImport8 FROM » & _
«OPENROWSET(‘Microsoft.Jet.OLEDB.4.0’, » & _
«‘Excel 8.0;Database=D:111.xls’, » & _
«‘SELECT * FROM [Customers$]’)»
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print «Records affected: » & lngRecsAff
cn.Close
Set cn = Nothing
Таблица excel типа
NO ASD Latitude Longitude DF FG Kod_OK Pyncty_
1 123 64.527386 40.561819 1545,55 55455,56 75.22 456546,56
Andrewww123
1 — 12.02.15 — 09:46
(0) Видимо, сейчас намекнут на текст ошибки.
kodblack
2 — 12.02.15 — 09:50
(1) хотелось бы
rsv
3 — 12.02.15 — 09:50
(0) Мутно как то все . Настройте для начала в скуле линкованный сервер на источник данных Exel. Через него будете читать через OpenQuery например. Постестите все в MS Manag Studio, а опосля уже ADO.
bolobol
4 — 12.02.15 — 09:56
(2) что такое? Ошибка есть, а текста ошибки нет, что ли?
Andrewww123
5 — 12.02.15 — 10:02
(2) Раз хотелось, намекаю Напиши текст ошибки.
dk
6 — 12.02.15 — 10:04
при коннекте к Excel нужно указывать что названия колонок берется из 1-й строки
попробуй HDR=Yes указать
https://www.connectionstrings.com/microsoft-jet-ole-db-4-0/standard-excel/
kodblack
7 — 12.02.15 — 10:10
(5) Сценарий d:123.vbs
Строка 1 Символ 12
Ошибка Предполагается наличие окончания инструкции
Код: 800А0401
rsv
8 — 12.02.15 — 10:26
Тренеруетесь ?
kodblack
9 — 12.02.15 — 10:33
(8) Вы о чем?
Может кто нибудь предложить нормальный способ импорта из excel в sql. Разве не у кого нет наработак. Буду очень признателен.
rsv
10 — 12.02.15 — 10:36
(9) Правой кнопкой мыши на БД в Скуле . Все задачи . Импорт Данных . Откроется мастер импорта данных .
kodblack
11 — 12.02.15 — 10:39
(10) — это не ответ. мне нужен автоматический режим.
т.е Excel — будет обновляться время от времени, и надо что бы автоматически данные обновлялись в БД sql.
Andrewww123
12 — 12.02.15 — 10:39
Как я понимаю, это синтаксис не vbs, но могу ошибаться.
rsv
13 — 12.02.15 — 10:41
(11) MS Скуль . Объекты сервера . Связанные серверы. Правой кнопокой мыши . Создать свзанный сервер. т.е. (3)
kodblack
14 — 12.02.15 — 10:47
(13) — а какой драйвер выбирать??? что то excel не нашел.
rsv
15 — 12.02.15 — 10:49
(14) Что нить с Jet там есть ?
kodblack
16 — 12.02.15 — 10:50
(15) нет
rsv
17 — 12.02.15 — 10:57
(16) попробуйте вот так программно создать по аналогии :
sp_addlinkedserver N’MyxlsServer’, N’Jet 4.0′,
N’Microsoft.Jet.OLEDB.4.0′,
N’\10.0.0.252VShare_UserExcelTemplatesJourAssembly.xls’, NULL, N’Excel 5.0′
kodblack
18 — 12.02.15 — 11:09
(17) создан link server
но драйвер OLE DB Provider for SQL server
и путь до файла с xls — не прописан
N1kMZ
19 — 12.02.15 — 11:10
На стороне MS SQL проще делать. Через SSIS.
kodblack
20 — 12.02.15 — 11:12
(19) SSIS пакет не нашел
Jaap Vduul
21 — 12.02.15 — 11:36
Вот тут есть подробная инструкция с картинками для SSIS 2012:
https://www.simple-talk.com/sql/ssis/moving-data-from-excel-to-sql-server—10-steps-to-follow/
Это если инициировать загрузку со стороны сервера.
Можно конечно делать это, запуская скрипт из шедулера windows.
Но ваш код в таком случае не годится, ибо он написан, не на VBS, а на VBA и движок vbscript его не понимает (7).
Вообще в этом случае я бы порекомендовал использовать PowerShell — в нём можно заюзать класс Data.SqlClient.SqlBulkCopy для быстрой заливки больших объёмов данных.
Пример:
http://www.sqlserver-dba.com/2013/01/sql-server-export-excel-data-to-sql-server-with-powershell.html
kodblack
22 — 12.02.15 — 11:59
(21) спасибо — буду делать через ssis
kodblack
23 — 12.02.15 — 12:13
(21) т.е что бы добавить SSIS нужен VS?
N1kMZ
24 — 12.02.15 — 12:48
(23) Со стороны сервера лучше запускать, JOBом
kodblack
25 — 12.02.15 — 12:49
(24) а можно ссылку?
kodblack
26 — 12.02.15 — 12:50
нашел SSDTBI-VS2012 — написано что есть ssis
N1kMZ
27 — 12.02.15 — 12:50
(25) А на что ссылку? Создаётся job на SQL, в нём в качестве шага созданный ранее SSIS пакет. Ну а так документацию читать надо, в пост не влезет всё
Господин ПЖ
28 — 12.02.15 — 12:50
>т.е что бы добавить SSIS нужен VS
нужен нормальный скуль… или SSIS сейчас везде доступен по лицензии?
N1kMZ
29 — 12.02.15 — 12:55
rsv
30 — 12.02.15 — 13:06
Так что с линком то не копали ? Там буков и телодвижений меньше .
rsv
31 — 12.02.15 — 13:07
+(30) и скорее скуль в (0) 64 разряда и не видит 32 разрядный Jet
N1kMZ
32 — 12.02.15 — 14:05
(31) SSIS пакет можно запускать в 32-разрядной среде принудительно (в свойствах пакета).
kodblack
33 — 13.02.15 — 07:46
(30) с линк сервером — не до понял что делать после добавления модуля.
kodblack
34 — 13.02.15 — 10:39
Добавил путем запроса.
А вот дальше не понял что делать.
EXEC sp_addlinkedserver
server = ‘ExcelServer1’,
@srvproduct = ‘Excel’,
@provider = ‘Microsoft.Jet.OLEDB.4.0’,
@datasrc = ‘d:111.xls’,
@provstr = ‘Excel 8.0;IMEX=1;HDR=YES;’
kodblack
35 — 13.02.15 — 10:40
И провайдер — выставился другой — OLE DB
kodblack
36 — 13.02.15 — 11:08
почему в связи сервера нет для выбора Microsoft.Jet.OLEDB.4.0
я установил AccessDatabaseEngine_x64
Jaap Vduul
37 — 13.02.15 — 11:24
kodblack
38 — 13.02.15 — 11:40
(37) Связь сделал. Но теперь сори за туп…ой вопрос — а как вогнать данные с таблицы в БД?
Jaap Vduul
39 — 13.02.15 — 11:44
kodblack
40 — 13.02.15 — 11:49
(39) — т.е что по ACE.OLEDB или по SSIS — путь один?
Jaap Vduul
41 — 13.02.15 — 11:54
(40)
Вопрос звучит как «т.е. дизель и мерседес с одинаковой скоростью едут?».
kodblack
42 — 13.02.15 — 12:22
(41) тогда вопрос при настройке связи SQL Statement
простой запрос написал но выдает ошибку
IF EXISTS (SELECT 1 FROM information_schema.tables where table_name like ‘1111’)
DROP TABLE 1111
— create a table to hold purchase ledger items
CREATE TABLE 1111(
PRIMARY KEY IDENTITY(1,1),
Naimenovanie nchar(10),
Latitude float,
Longitude float,
Factiheskyi nchar(10),
inn nchar(10),
Kod_OKVED nchar(10),
Pyncty nchar(10)
)
[Задача «Выполнение SQL»] Ошибка: Сбой выполнения запроса «IF EXISTS (SELECT 1 FROM information_schema.tables…» со следующей ошибкой: «Неправильный синтаксис около конструкции «1111».». Возможные причины сбоя: проблемы с этим запросом, свойство «ResultSet» установлено неправильно, параметры установлены неправильно или соединение было установлено неправильно.
Jaap Vduul
43 — 13.02.15 — 12:38
(42)
Не могут идентификаторы объектов в MSSQL начинаться с цифровых символов.
https://msdn.microsoft.com/en-us/library/ms175874.aspx
kodblack
44 — 13.02.15 — 13:09
(43) IF EXISTS (SELECT 1 FROM information_schema.tables where table_name like ‘qwerty’)
DROP TABLE qwerty
— create a table to hold purchase ledger items
CREATE TABLE qwerty(
PRIMARY KEY IDENTITY(1,1),
Naimenovanie nchar(10),
Latitude float,
Longitude float,
Factiheskyi nchar(10),
inn nchar(10),
Kod_OKVED nchar(10),
Pyncty nchar(10)
)
[Задача «Выполнение SQL»] Ошибка: Сбой выполнения запроса «IF EXISTS (SELECT 1 FROM information_schema.tables…» со следующей ошибкой: «Неправильный синтаксис около ключевого слова «IDENTITY».». Возможные причины сбоя: проблемы с этим запросом, свойство «ResultSet» установлено неправильно, параметры установлены неправильно или соединение было установлено неправильно.
kodblack
45 — 13.02.15 — 13:11
(44) удалил PRIMARY KEY IDENTITY(1,1), и все заработало
Jaap Vduul
46 — 13.02.15 — 13:15
(44)
Надо было не удалять, а указать наименование первичного ключа, типа:
Id PRIMARY KEY IDENTITY(1,1)
Хотя, если первичный ключ не нужен, то и так сойдёт.
kodblack
47 — 13.02.15 — 16:44
(46) он должен быть указан в таблице или sql сама задаст этой строкой? если сама то конечно надо.