Vbs предполагается наличие окончания инструкции

  • Remove From My Forums
  • Вопрос

  • Доброго времени суток.
    В организации на 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 — без толку.

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

    • Изменено

      19 сентября 2014 г. 8:19

Ответы

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

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

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

    • Помечено в качестве ответа
      Копылов Анатолий
      19 сентября 2014 г. 8:47

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

Есть скрипт:

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»)

Решил изучить платформу 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  = &h8000500D

    strOU = «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.Execute

    dim arrUsers()
    dim intUserCount
    intUserCount = -1

    Do Until objRecordSet.EOF
      intUserCount = intUserCount + 1
      ReDim Preserve arrUsers(intUserCount)
      arrUsers(intUserCount) = «LDAP://DC1:389/» & objRecordSet.Fields(«distinguishedname»).Value
      objRecordSet.MoveNext

    Loop
    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 = objConnection

    objCommand.CommandText = _
      «<LDAP://» & strOU & «>;» & _
      «(&(objectclass=user)(objectcategory=person));» & _
      «adspath,distinguishedname,sAMAccountName;subtree»
    Set objRecordSet = objCommand.Execute

    dim arrUsers()
    dim intUserCount
    intUserCount = -1

    Do Until objRecordSet.EOF
      intUserCount = intUserCount + 1
       ReDim Preserve arrUsers(intUserCount)
      arrUsers(intUserCount) = objRecordSet.Fields(«distinguishedname»).Value
       objRecordSet.MoveNext

    Loop

    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.Description

       

        arrMemberOf = objUser.GetEx(«memberOf») ‘ <================================================
        ErrNumber0 = Err.Number
        ErrDescription0 = Err.Description   

        if 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 = » & ErrDescription1

            elseif ErrNumber1 = 0 then

                    For Each Group in arrMemberOf

                        strLDAP = «LDAP://» & Group
                        Set objGroup = GetObject(strLDAP) ‘ <================================================
                        ErrNumber2 = Err.Number
                        ErrDescription2 = Err.Description

                       

                        if 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
    next

    objRecordSet.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. Сделать это можно как вручную, так и с помощью утилиты восстановления системы. В обоих случаях необходимо вспомнить, когда «посыпались» ошибки, то есть после какой даты.

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


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


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


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

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


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


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


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


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


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


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

    Читайте также: Как восстановить систему 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.

    Остановка служб обновления

    Иногда процесс обновления ОС происходит не совсем корректно. Это бывает связанно с загруженностью системы, сбоях интернета и т.д. Решениями становятся не сложные манипуляции, которые сможет сделать абсолютно любой пользователь. Выполним остановку центра обновлений.

    1. Перейдите в меню «Пункт» и посетите «Панель управления».
    2. Найдите подменю «Администрирование».
    3. Увидите список операций, кликните по «Службы».
    4. В новом окне отсортируйте все службы ОС по имени, это поможет в поиске «Центр обновления Windows».
    5. Кликните правой кнопкой мышки. Выберите «Остановить».

    Остановка Центра обновлений Windows

  • Перезагрузите систему.
  • Это способ помогает прервать постоянные попытки компьютера получить новые обновления, которые могут вызывать ошибку 80070002.

    Настройте время

    Ошибка «Windows Script Host сценария» проявляется вследствие неправильно установленной даты на вашем ПК. Расхождения с главным сервером Microsoft во времени очень часто создает конфликты. Устанавливаемый софт строго соблюдает авторские права и поддержку разного рода DirectX , а они, как известно, не вечные.

    1. Перейдите в правом углу в меню часов, для этого нажмите на них.
    2. В самом низу будет одно единственное действие «Изменение настроек даты и времени».

    Проверяем правильность настроек времени на ПК

  • Далее вводите правильное число и выбираете свой часовой пояс. А вообще лучше выставить автоматическое определение.
  • Самый простой способ решения, но не менее действенный от этого.

    Удаление последних обновлений

    Это вариант поможет в ручную решить данную ситуацию. Нужно будет посетить центр обновления и удалить все внесенные изменения за последнее время.

    1. Через «Пуск» найдите уже знакомую «Панель управления».
    2. Щелкните по службе «Программы и компоненты».
    3. В левом меню из трех вариантов выберите «Просмотр установленных обновлений».
    4. Отсортируйте все по дате добавления софта. Это можно сделать при помощи «Установлено».

    Удалите обновления за последние пять дней

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

    А вот хороший обзор о проблеме несколько иного сбоя службы 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 сама задаст этой строкой? если сама то конечно надо.

    Понравилась статья? Поделить с друзьями:

    Это тоже интересно:

  • Vasu trichup инструкция по применению
  • Vaporesso xtra инструкция на русском языке
  • Vapex hr инструкция по применению
  • Vaporesso xtra инструкция на русском по применению
  • Vapesoul электронная сигарета с зарядкой инструкция

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии