Ошибка 70 разрешение отклонено ошибка выполнения microsoft vbscript

       Несколько недель назад в правом нижнем углу экрана загорелось сообщение: «Активация Windows Чтобы активировать Windows, перейдите в раздел «Параметры». 

На компьютере установлена Windows 10 pro (1607, 14393.1358) . Windows 10 pro была получена бесплатно, мы обновили систему до Windows 10  pro на соответствующем устройстве с подлинной копии Windows 7 pro. Изменений
в «железо» не вносили (пару раз отключался от компа 2-й монитор). После появления сообщения об активации Windows 10 pro в компьютере менялась оперативная память (увеличилась). Что сделать для правильной активации?

— переход с Windows 7 pro на Windows 10 pro — 2015—2016гг, когда W7pro настойчиво «сама» хотела обновиться
до W10;

— winver
—  
Windows 10 pro (1607, 14393.1358)

— slmgr /xpr — Ошибка 70 возникла при подключении к локальному поставщику WMI. Разрешение отклонено (Ошибка выполнения Microsoft
VBScript)

— slmgr /dlv —  ошибка 70 возникла
при подключении к локальному поставщику WMI. Разрешение отклонено (Ошибка выполнения Microsoft VBScript) 

Выложите скрин — не хочет вставлять изображения, не разобрался, могу скинуть на email

Icon Ex Номер ошибки: Ошибка во время выполнения 70
Название ошибки: Permission denied
Описание ошибки: An attempt was made to write to a write-protected disk or to access a locked file.
Разработчик: Microsoft Corporation
Программное обеспечение: Windows Operating System
Относится к: Windows XP, Vista, 7, 8, 10, 11

Оценка «Permission denied»

«Permission denied» — это стандартная ошибка времени выполнения. Разработчики программного обеспечения пытаются обеспечить, чтобы программное обеспечение было свободным от этих сбоев, пока оно не будет публично выпущено. Ошибки, такие как ошибка 70, иногда удаляются из отчетов, оставляя проблему остается нерешенной в программном обеспечении.

После первоначального выпуска пользователи Windows Operating System могут столкнуться с сообщением «An attempt was made to write to a write-protected disk or to access a locked file.» во время запуска программы. Если возникает ошибка 70, разработчикам будет сообщено об этой проблеме через уведомления об ошибках, которые встроены в Windows Operating System. Microsoft Corporation может устранить обнаруженные проблемы, а затем загрузить измененный файл исходного кода, позволяя пользователям обновлять свою версию. Если есть уведомление об обновлении Windows Operating System, это может быть решением для устранения таких проблем, как ошибка 70 и обнаруженные дополнительные проблемы.

Как триггеры Runtime Error 70 и что это такое?

Сбой устройства или Windows Operating System обычно может проявляться с «Permission denied» в качестве проблемы во время выполнения. Вот три наиболее распространенные причины, по которым происходят ошибки во время выполнения ошибки 70:

Ошибка 70 Crash — Номер ошибки вызовет блокировка системы компьютера, препятствуя использованию программы. Если Windows Operating System не может обработать данный ввод, или он не может получить требуемый вывод, это обычно происходит.

Утечка памяти «Permission denied» — ошибка 70 утечка памяти приводит к тому, что Windows Operating System постоянно использует все больше и больше памяти, увяская систему. Возможные причины включают сбой Microsoft Corporation для девыделения памяти в программе или когда плохой код выполняет «бесконечный цикл».

Ошибка 70 Logic Error — логическая ошибка возникает, когда Windows Operating System производит неправильный вывод из правильного ввода. Это происходит, когда исходный код Microsoft Corporation вызывает уязвимость при обработке информации.

Microsoft Corporation проблемы с Permission denied чаще всего связаны с повреждением или отсутствием файла Windows Operating System. В большинстве случаев скачивание и замена файла Microsoft Corporation позволяет решить проблему. В некоторых случаях реестр Windows пытается загрузить файл Permission denied, который больше не существует; в таких ситуациях рекомендуется запустить сканирование реестра, чтобы исправить любые недопустимые ссылки на пути к файлам.

Типичные ошибки Permission denied

Типичные ошибки Permission denied, возникающие в Windows Operating System для Windows:

  • «Ошибка приложения Permission denied.»
  • «Ошибка программного обеспечения Win32: Permission denied»
  • «Permission denied должен быть закрыт. «
  • «Не удается найти Permission denied»
  • «Permission denied не может быть найден. «
  • «Ошибка запуска в приложении: Permission denied. «
  • «Permission denied не выполняется. «
  • «Permission denied выйти. «
  • «Неверный путь к программе: Permission denied. «

Ошибки Permission denied EXE возникают во время установки Windows Operating System, при запуске приложений, связанных с Permission denied (Windows Operating System), во время запуска или завершения работы или во время установки ОС Windows. При появлении ошибки Permission denied запишите вхождения для устранения неполадок Windows Operating System и чтобы HelpMicrosoft Corporation найти причину.

Истоки проблем Permission denied

Большинство проблем Permission denied связаны с отсутствующим или поврежденным Permission denied, вирусной инфекцией или недействительными записями реестра Windows, связанными с Windows Operating System.

Более конкретно, данные ошибки Permission denied могут быть вызваны следующими причинами:

  • Поврежденные ключи реестра Windows, связанные с Permission denied / Windows Operating System.
  • Вредоносные программы заразили Permission denied, создавая повреждение.
  • Permission denied злонамеренно или ошибочно удален другим программным обеспечением (кроме Windows Operating System).
  • Другое приложение, конфликтующее с Permission denied или другими общими ссылками.
  • Поврежденная загрузка или неполная установка программного обеспечения Windows Operating System.

Продукт Solvusoft

Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление

Hello,

I have a VBScript which attempts to connect to a remote Windows 2003 server and query for all the services.

Here is the entire script…

********************************************************************************************

On Error Resume Next
strComputer = «ECCAS769»
Set objWMIService = GetObject(«winmgmts:» & strComputer & «rootCIMV2»)

Wscript.echo «Connecting to » & strComputer
Wscript.echo «Error Number: » & Err.number & »   Error Description: » & Err.Description
Wscript.wait (3000)

Set colItems = objWMIService.ExecQuery(«SELECT * FROM Win32_Service»)
For Each objItem in colItems
    Wscript.Echo «Service Name: » & objItem.Name & VBNewLine & «State: » & objItem.State & VBNewLine

    Wscript.Echo «Display Name: » & objItem.Caption
    Wscript.Echo «Start Mode: » & objItem.StartMode
    Wscript.Echo «Service Specific Exit Code: » & objItem.ServiceSpecificExitCode   

Next

********************************************************************************************

If I run this from an account with domain admin privileges, it executes fine.  (Running with domain admin privileges is not an option in our PROD environment.)

However, if run from an account without domain admin privileges, the following error is returned:

«Error Number: 70   Error Description: Permission denied»

Can anyone tell me:

1.  What exactly am I being denied access to?  (i.e. the remote server;  Rootcimv2;  Win32_Services)

2.  What permissions do I need to execute this successfully?

3.  What permissions are generally needed to make a remote connection using VBScript?

Thanks in advance,

DetRich


DetRich

Hello,

I have a VBScript which attempts to connect to a remote Windows 2003 server and query for all the services.

Here is the entire script…

********************************************************************************************

On Error Resume Next
strComputer = «ECCAS769»
Set objWMIService = GetObject(«winmgmts:» & strComputer & «rootCIMV2»)

Wscript.echo «Connecting to » & strComputer
Wscript.echo «Error Number: » & Err.number & »   Error Description: » & Err.Description
Wscript.wait (3000)

Set colItems = objWMIService.ExecQuery(«SELECT * FROM Win32_Service»)
For Each objItem in colItems
    Wscript.Echo «Service Name: » & objItem.Name & VBNewLine & «State: » & objItem.State & VBNewLine

    Wscript.Echo «Display Name: » & objItem.Caption
    Wscript.Echo «Start Mode: » & objItem.StartMode
    Wscript.Echo «Service Specific Exit Code: » & objItem.ServiceSpecificExitCode   

Next

********************************************************************************************

If I run this from an account with domain admin privileges, it executes fine.  (Running with domain admin privileges is not an option in our PROD environment.)

However, if run from an account without domain admin privileges, the following error is returned:

«Error Number: 70   Error Description: Permission denied»

Can anyone tell me:

1.  What exactly am I being denied access to?  (i.e. the remote server;  Rootcimv2;  Win32_Services)

2.  What permissions do I need to execute this successfully?

3.  What permissions are generally needed to make a remote connection using VBScript?

Thanks in advance,

DetRich


DetRich

В этой статье представлена ошибка с номером Ошибка 70, известная как Доступ запрещен, описанная как Была сделана попытка записи на защищенный от записи диск или доступа к заблокированному файлу.

О программе Runtime Ошибка 70

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

Определения (Бета)

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

  • Доступ — НЕ ИСПОЛЬЗУЙТЕ этот тег для Microsoft Access, используйте вместо него [ms-access].
  • Запрещено — все, что связано с отказ системы выполнить некоторую операцию, запрошенную пользователем.
  • Диск — все, что связано с дисковыми носителями, такими как жесткие диски, компакт-диски, DVD и т. д.
  • Файл — блок произвольной информации или ресурс для хранения информации, доступный по строковому имени или пути.
  • В доступе отказано — этот тег относится к ситуации, в которой вам отказывают в доступе к определенной системе, файлу, базе данных и т. Д.
  • Protected — `protected` — спецификатор доступа в object- ориентированные языки
  • Access . Microsoft Access, также известный как Microsoft Office Access, представляет собой систему управления базами данных от Microsoft, которая обычно сочетает в себе реляционное ядро ​​СУБД Microsoft JetACE с графическим пользовательским интерфейсом и инструменты разработки программного обеспечения.
  • Разрешение — разрешения определяют операции что аутентифицированным пользователям разрешено работать с файловыми системами, базами данных и другими компьютерными системами.
Симптомы Ошибка 70 — Доступ запрещен

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

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

Fix Доступ запрещен (Error Ошибка 70)
(Только для примера)

Причины Доступ запрещен — Ошибка 70

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

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

Методы исправления

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

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

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.

Метод 1 — Закройте конфликтующие программы

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

  • Откройте диспетчер задач, одновременно нажав Ctrl-Alt-Del. Это позволит вам увидеть список запущенных в данный момент программ.
  • Перейдите на вкладку «Процессы» и остановите программы одну за другой, выделив каждую программу и нажав кнопку «Завершить процесс».
  • Вам нужно будет следить за тем, будет ли сообщение об ошибке появляться каждый раз при остановке процесса.
  • Как только вы определите, какая программа вызывает ошибку, вы можете перейти к следующему этапу устранения неполадок, переустановив приложение.

Метод 2 — Обновите / переустановите конфликтующие программы

Использование панели управления

  • В Windows 7 нажмите кнопку «Пуск», затем нажмите «Панель управления», затем «Удалить программу».
  • В Windows 8 нажмите кнопку «Пуск», затем прокрутите вниз и нажмите «Дополнительные настройки», затем нажмите «Панель управления»> «Удалить программу».
  • Для Windows 10 просто введите «Панель управления» в поле поиска и щелкните результат, затем нажмите «Удалить программу».
  • В разделе «Программы и компоненты» щелкните проблемную программу и нажмите «Обновить» или «Удалить».
  • Если вы выбрали обновление, вам просто нужно будет следовать подсказке, чтобы завершить процесс, однако, если вы выбрали «Удалить», вы будете следовать подсказке, чтобы удалить, а затем повторно загрузить или использовать установочный диск приложения для переустановки. программа.

Использование других методов

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

Метод 3 — Обновите программу защиты от вирусов или загрузите и установите последнюю версию Центра обновления Windows.

Заражение вирусом, вызывающее ошибку выполнения на вашем компьютере, необходимо немедленно предотвратить, поместить в карантин или удалить. Убедитесь, что вы обновили свою антивирусную программу и выполнили тщательное сканирование компьютера или запустите Центр обновления Windows, чтобы получить последние определения вирусов и исправить их.

Метод 4 — Переустановите библиотеки времени выполнения

Вы можете получить сообщение об ошибке из-за обновления, такого как пакет MS Visual C ++, который может быть установлен неправильно или полностью. Что вы можете сделать, так это удалить текущий пакет и установить новую копию.

  • Удалите пакет, выбрав «Программы и компоненты», найдите и выделите распространяемый пакет Microsoft Visual C ++.
  • Нажмите «Удалить» в верхней части списка и, когда это будет сделано, перезагрузите компьютер.
  • Загрузите последний распространяемый пакет от Microsoft и установите его.

Метод 5 — Запустить очистку диска

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

  • Вам следует подумать о резервном копировании файлов и освобождении места на жестком диске.
  • Вы также можете очистить кеш и перезагрузить компьютер.
  • Вы также можете запустить очистку диска, открыть окно проводника и щелкнуть правой кнопкой мыши по основному каталогу (обычно это C
  • Щелкните «Свойства», а затем — «Очистка диска».

Метод 6 — Переустановите графический драйвер

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

  • Откройте диспетчер устройств и найдите драйвер видеокарты.
  • Щелкните правой кнопкой мыши драйвер видеокарты, затем нажмите «Удалить», затем перезагрузите компьютер.

Метод 7 — Ошибка выполнения, связанная с IE

Если полученная ошибка связана с Internet Explorer, вы можете сделать следующее:

  1. Сбросьте настройки браузера.
    • В Windows 7 вы можете нажать «Пуск», перейти в «Панель управления» и нажать «Свойства обозревателя» слева. Затем вы можете перейти на вкладку «Дополнительно» и нажать кнопку «Сброс».
    • Для Windows 8 и 10 вы можете нажать «Поиск» и ввести «Свойства обозревателя», затем перейти на вкладку «Дополнительно» и нажать «Сброс».
  2. Отключить отладку скриптов и уведомления об ошибках.
    • В том же окне «Свойства обозревателя» можно перейти на вкладку «Дополнительно» и найти пункт «Отключить отладку сценария».
    • Установите флажок в переключателе.
    • Одновременно снимите флажок «Отображать уведомление о каждой ошибке сценария», затем нажмите «Применить» и «ОК», затем перезагрузите компьютер.

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

Другие языки:

How to fix Error 70 (Permission denied) — An attempt was made to write to a write-protected disk or to access a locked file.
Wie beheben Fehler 70 (Erlaubnis verweigert) — Es wurde versucht, auf einen schreibgeschützten Datenträger zu schreiben oder auf eine gesperrte Datei zuzugreifen.
Come fissare Errore 70 (Permesso negato) — Si è tentato di scrivere su un disco protetto da scrittura o di accedere a un file bloccato.
Hoe maak je Fout 70 (Toestemming geweigerd) — Er is geprobeerd naar een schrijfbeveiligde schijf te schrijven of toegang te krijgen tot een vergrendeld bestand.
Comment réparer Erreur 70 (Permission refusée) — Tentative d’écriture sur un disque protégé en écriture ou d’accès à un fichier verrouillé.
어떻게 고치는 지 오류 70 (권한이 거부되었습니다.) — 쓰기 금지된 디스크에 쓰거나 잠긴 파일에 액세스하려고 했습니다.
Como corrigir o Erro 70 (Permissão negada) — Foi feita uma tentativa de gravar em um disco protegido contra gravação ou de acessar um arquivo bloqueado.
Hur man åtgärdar Fel 70 (Åtkomst nekad) — Ett försök gjordes att skriva till en skrivskyddad disk eller att komma åt en låst fil.
Jak naprawić Błąd 70 (Odmowa pozwolenia) — Podjęto próbę zapisu na dysku chronionym przed zapisem lub uzyskania dostępu do zablokowanego pliku.
Cómo arreglar Error 70 (Permiso denegado) — Se intentó escribir en un disco protegido contra escritura o acceder a un archivo bloqueado.

The Author Об авторе: Фил Харт является участником сообщества Microsoft с 2010 года. С текущим количеством баллов более 100 000 он внес более 3000 ответов на форумах Microsoft Support и создал почти 200 новых справочных статей в Technet Wiki.

Следуйте за нами: Facebook Youtube Twitter

Последнее обновление:

13/12/22 06:37 : Пользователь Windows 7 проголосовал за то, что метод восстановления 1 работает для него.

Рекомендуемый инструмент для ремонта:

Этот инструмент восстановления может устранить такие распространенные проблемы компьютера, как синие экраны, сбои и замораживание, отсутствующие DLL-файлы, а также устранить повреждения от вредоносных программ/вирусов и многое другое путем замены поврежденных и отсутствующих системных файлов.

ШАГ 1:

Нажмите здесь, чтобы скачать и установите средство восстановления Windows.

ШАГ 2:

Нажмите на Start Scan и позвольте ему проанализировать ваше устройство.

ШАГ 3:

Нажмите на Repair All, чтобы устранить все обнаруженные проблемы.

СКАЧАТЬ СЕЙЧАС

Совместимость

Требования

1 Ghz CPU, 512 MB RAM, 40 GB HDD
Эта загрузка предлагает неограниченное бесплатное сканирование ПК с Windows. Полное восстановление системы начинается от $19,95.

ID статьи: ACX09521RU

Применяется к: Windows 10, Windows 8.1, Windows 7, Windows Vista, Windows XP, Windows 2000


Offline

kipriot

 


#1
Оставлено
:

5 мая 2015 г. 17:17:05(UTC)

kipriot

Статус: Новичок

Группы: Участники

Зарегистрирован: 03.07.2014(UTC)
Сообщений: 8
Российская Федерация

Поблагодарили: 1 раз в 1 постах

Такая проблема при формировании сертификата —
«Произошла ошибка при установке параметров запроса!
Номер: 0х1A8
Источник: Ошибка выполнения Microsoft VBScript
Источник: Требуется объект»

Система Windows 8.1 x64, КриптоПро CSP 3.9.8227
Что делать?

Пользователь kipriot прикрепил следующие файлы:

Pic.png (146kb) загружен 57 раз(а).

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


Вверх

Offline

kipriot

 


#2
Оставлено
:

6 мая 2015 г. 5:41:31(UTC)

kipriot

Статус: Новичок

Группы: Участники

Зарегистрирован: 03.07.2014(UTC)
Сообщений: 8
Российская Федерация

Поблагодарили: 1 раз в 1 постах

В режима отладки проверил, показывает:
«SCRIPT5007: Не удалось задать свойство «KeyProtection» ссылки, значение которой не определено или является NULL»

А поддержка всё молчит……


Вверх

Offline

kipriot

 


#3
Оставлено
:

6 мая 2015 г. 6:25:57(UTC)

kipriot

Статус: Новичок

Группы: Участники

Зарегистрирован: 03.07.2014(UTC)
Сообщений: 8
Российская Федерация

Поблагодарили: 1 раз в 1 постах

Путём манипуляций с настройками IE 11 (разрешением всего и вся в настройках безопасности), процесс пошёл, Крипто про подрубается, появляется «датчик случайных чисел» и….выскакивает:
«Произошла ошибка при сохранении запроса в файл!
Номер: 0х46
Источник: Ошибка выполнения Microsoft VBScript
Источник: Разрешение отклонено»

Кажется начинаю понимать где собака зарытаDancing


Вверх

Offline

kipriot

 


#4
Оставлено
:

6 мая 2015 г. 7:20:51(UTC)

kipriot

Статус: Новичок

Группы: Участники

Зарегистрирован: 03.07.2014(UTC)
Сообщений: 8
Российская Федерация

Поблагодарили: 1 раз в 1 постах

В общем победил. Моя система win 8.1 x64, браузер IE 11, КриптоПро CSP 3.9. Итак.
Отключаем антивирус, Заходим в панель управления — Свойства браузера — Вкладка Безопасность — Зона «Интернет» и «Местная Интрасеть», нажимаем «другой» и разрешаем ВСЁ по длинному списку, (главное «Элементы Activex и модули подключения» разрешить) — затем во вкладку «Дополнительно» и тут разрешаем ВСЁ — жмём ОК — вышли — перезагрузились.
Теперь, если у вас нет доп. установленного меню пуск как в windows 7, идём в папку C:Program FilesInternet Explorer И запускаем (правой кнопкой мыши) «запуск от имени администратора» iexplore.exe.
В открывшемся браузере нажимаем Файл — Открыть — ваш файл offreq. Далее стандартно.Applause

PS. По всей видимости сей offreq был написан в незапамятные времена для windows 95d'oh! , поэтому на современных системах просто так не работает


Вверх

thanks 1 пользователь поблагодарил kipriot за этот пост.

winnie-the-pooh

оставлено 23.08.2016(UTC)

Пользователи, просматривающие эту тему

Guest

Быстрый переход
 

Вы не можете создавать новые темы в этом форуме.

Вы не можете отвечать в этом форуме.

Вы не можете удалять Ваши сообщения в этом форуме.

Вы не можете редактировать Ваши сообщения в этом форуме.

Вы не можете создавать опросы в этом форуме.

Вы не можете голосовать в этом форуме.

При работе с компьютером пользователи периодически могут сталкиваться с ошибками, связанными с определенными системными сбоями. Неустранимая ошибка 70 – достаточно популярная проблема. Стоит разобраться, по каким причинам на экране периодически может появляться окно, в котором фигурирует информация «код события 36887 источник Schannel ошибка 70» и как решить данную проблему.

Содержание статьи

  1. Возможные причины ошибки
  2. Способы устранения ошибки
  3. Способ № 1: Проверка наличия обновлений Windows
  4. Способ № 2: Сканирование компьютера на наличие вирусов
  5. Способ № 3: Откат системы к точке восстановления
  6. Способ № 4: Закрытие и переустановка конфликтующих программ
  7. Способ № 5: Применение сторонних программ
  8. DriverHub
  9. DriverPack Solution
  10. Комментарии пользователей

Возможные причины ошибки

Фото 2

Причин, по которым на мониторе возникает надпись «Событие 36874, Schannel», несколько. Неустранимая ошибка 70 появляется вследствие:

  • неверной настройки операционной системы (ОС);
  • отсутствием актуальных обновлений;
  • нарушений в отдельных журналах и протоколах, вызванных деятельностью вредоносных программ;
  • некорректной работы отдельных программ, конфликтующих между собой.

Важно! Не имеет значения, при работе, с какой ОС на экране появляется надпись «Schannel 36887 ошибка 70» – Windows 7, Windows 8 или Windows 10. Причины возникновения ошибки идентичны.

Способы устранения ошибки

Фото 3

Когда получено следующее предупреждение о неустранимой ошибке 70, нужно действовать одним из описанных ниже способов.

Способ № 1: Проверка наличия обновлений Windows

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

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

Фото 4

  1. Перейти в раздел «Обновление и безопасность».

Фото 5

  1. Кликнуть по вкладке «Центр обновления Windows».

Фото 6

  1. После этого потребуется нажать на «Проверить наличие обновление».

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

Важно! После установки обновлений рекомендуется всегда выполнять перезагрузку компьютера. Так они вступят в силу.  

Данный порядок действий актуален для компьютеров, работающих на базе ОС Windows 10. В более ранних версиях системы конкретный порядок действий может отличаться, однако суть процесса не меняется.

Способ № 2: Сканирование компьютера на наличие вирусов

Фото 7

Следующий способ решения проблемы с неустранимой ошибкой 70 – сканирование системы на наличие вредоносных программ. Именно по их вине происходят внесения несанкционированных изменений в программные коды приложений.

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

Важно! Рекомендуется использовать только безопасные, проверенные временем антивирусные программы. Загружать их также следует с официальных интернет-ресурсов.

Наиболее функциональными и безопасными антивирусными программами принято считать «Kaspersky» (ссылка на официальный сайт) и «Avast» (ссылка на официальный ресурс компании).

Способ № 3: Откат системы к точке восстановления

Если первые 2 способа не помогли справиться с неустранимой ошибкой, имеет смысл произвести откат операционной системы к точке восстановление.

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

Важно! В случае сбоя (демонстрации наличия неустранимой ошибки 70) пользователь имеет возможность вернуть систему в рабочее состояние. При этом даже не придется переустанавливать Windows, сэкономив массу времени.

Чтобы реализовать задуманное, потребуется последовательно выполнить несколько действий:

  1. Сначала необходимо запустить «Панель задач». На ОС Windows 10 для этого требуется правой кнопкой мыши один раз кликнуть по свободной от ярлыков области рабочего стола, после чего в открывшемся меню выбрать пункт «Персонализация». Откроется еще одно окно, «Панель задач» в нем будет находиться в нижней части контекстного меню.
  2. Открыв панель задач, нужно перейти во вкладку «Восстановление».
  3. Откроется новое окно, в котором потребуется выбрать пункт «Запуск восстановления системы».
  4. Чтобы продолжить следовать пути, которым ведет программа, нужно кликнуть «Далее».

Фото 8

  1. На экране появится список точек, к которым может быть совершен возврат. Среди них потребуется выбрать ту, которая имеет как можно более позднюю дату.

Фото 9

  1. После того как точка определена, система попросит подтвердить, что пользователь действительно намерен выполнить откат. Нужно кликнуть «Да».

Фото 10

Важно! Запуск восстановления системы никак не влияет на сохранность файлов, содержащихся на жестком диске компьютера. Поэтому не нужно беспокоиться о том, что при откате системы будут утрачены какие-либо фото или документы.

Способ № 4: Закрытие и переустановка конфликтующих программ

Когда неустранимая ошибка 70 появляется при работе сразу с несколькими программами, велика вероятность то, что одна из них функционирует неверно. Чтобы избавиться от ошибки, нужно вычислить, какая программа приводит к сбою систем. Для этого потребуется:

  1. Запустить «Диспетчер задач» путем единовременного нажатия 3-х клавиш «Ctrl», «Alt» и «Del» и выбора соответствующего пункта. Диспетчер покажет, какие именно программы в текущий момент запущены.
  2. Чтобы увидеть их, нужно перейти во вкладку «Процессы».

Фото 11

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

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

Способ № 5: Применение сторонних программ

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

Важно! Поиск программных обновлений будет осуществляться не только для видеокарты, но и остальных элементов компьютера.

Среди наиболее эффективных программ отдельного внимания заслуживают две:

DriverHub

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

Фото 12

DriverPack Solution

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

Фото 13

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

Перейти к содержимому раздела

Серый форум

разработка скриптов

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

1 2010-12-02 12:22:05

  • scripsils
  • Гость

Тема: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Уважаемые коллеги. Подскажите в чем причина ошибки при работе скрипта.
Задача: скопировать из одного места в другое все папки с файлами не старше чем i дней относительно текущей даты.
Был написан скрипт, который хорошо коприует 1 и 2 папки. На третьей папке возникает ошибка 70.
Вот код скрипта:

On Error Resume Next
dim src, dst, fs, fol, subfol, f1, cur_date, pre_date, fol_name, f, copy, ok, i

'katalog s dannymi
src = "D:Папка"
dst = "D:"

set fs = CreateObject("Scripting.FileSystemObject")
set fol = fs.GetFolder(src)
set subfol = fol.SubFolders

i=20
For Each f1 In subfol

    cur_date = f1.DateCreated
    pre_date = date()-i

    if cur_date > pre_date Then              
    
        fol_name = f1.name    
                fs.CopyFolder src & fol_name, dst

            WScript.Echo err.number 'Здесь выскакивает ошибка на третьей папке

        if (err.number <> 0) Then
                ErrorCopy    
            WScript.Quit

        End If
        set ok = fs.CreatetextFile(dst & "ok", True)
    
    End If 
Next 

Sub ErrorCopy

 set ok = fs.CreatetextFile("error_copy", True)

End Sub

Спасибо.

2 Ответ от smaharbA 2010-12-02 13:01:50

  • smaharbA
  • Разработчик
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

атрибуты поменяйте у приемных файлов, снимите только чтение и системный
+
fs.CopyFolder src & fol_name, dst, true

Я конечно далек от мысли… (с)

3 Ответ от scripsils 2010-12-02 13:21:22 (изменено: scripsils, 2010-12-02 13:21:40)

  • scripsils
  • Гость

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

CopyFolder — по умолчанию используется overwrite=true.
«приемные файлы» — это какие? Атрибуты проверил. Везде не архивный, не системный, не только чтение. Ошибка вознкает опять.
Ошибка возникает и при копировании в пустую папку.

4 Ответ от smaharbA 2010-12-02 13:53:50

  • smaharbA
  • Разработчик
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

70 это отклонение разрешения
+ и заключите в кавычки если спецсимволы в именах папок
и могут быть файлы с «плохими» именами

Я конечно далек от мысли… (с)

5 Ответ от scripsils 2010-12-02 14:12:35

  • scripsils
  • Гость

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

имена папок по-русски, без пробелов или цифрами разницы нет. В некоторых папках файлов нет.
Тестировалось на нескольких компах. Везде при копировании третьей папки ошибка 70

6 Ответ от Anmat 2010-12-02 16:36:15

  • Anmat
  • Участник
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Вообще-то, ошибка возникает не на копировании папки, а на записи файла:

set ok = fs.CreatetextFile(dst & "ok", True)

Файл-то закрывать надо.

7 Ответ от scripsils 2010-12-02 16:53:13

  • scripsils
  • Гость

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Спасибо. Помогло.

8 Ответ от smaharbA 2010-12-02 17:35:46

  • smaharbA
  • Разработчик
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

каюсь проглядел

Я конечно далек от мысли… (с)

Сообщения 8

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

       Несколько недель назад в правом нижнем углу экрана загорелось сообщение: «Активация Windows Чтобы активировать Windows, перейдите в раздел «Параметры». 

На компьютере установлена Windows 10 pro (1607, 14393.1358) . Windows 10 pro была получена бесплатно, мы обновили систему до Windows 10  pro на соответствующем устройстве с подлинной копии Windows 7 pro. Изменений
в «железо» не вносили (пару раз отключался от компа 2-й монитор). После появления сообщения об активации Windows 10 pro в компьютере менялась оперативная память (увеличилась). Что сделать для правильной активации?

— переход с Windows 7 pro на Windows 10 pro — 2015—2016гг, когда W7pro настойчиво «сама» хотела обновиться
до W10;

— winver
—  
Windows 10 pro (1607, 14393.1358)

— slmgr /xpr — Ошибка 70 возникла при подключении к локальному поставщику WMI. Разрешение отклонено (Ошибка выполнения Microsoft
VBScript)

— slmgr /dlv —  ошибка 70 возникла
при подключении к локальному поставщику WMI. Разрешение отклонено (Ошибка выполнения Microsoft VBScript) 

Выложите скрин — не хочет вставлять изображения, не разобрался, могу скинуть на email

Вариант цикла с задержкой для обработки файла. В данном случае — удаления, так проще осуществить временное блокирование файла. На копировании не тестировал.

iName = "c:testiPathtest.mp3"
oName = "c:testoPath"
Set oFSO = CreateObject("Scripting.FileSystemObject")
on error resume Next
do: ' пока файл заблокирован (проигрывается), будет повторяться цикл
    WScript.Echo "Before oFSO..."
    'oFSO.CopyFile iName, oName, True
    oFSO.DeleteFile iName, True
    if err.number=0 then exit Do
    err.clear
    wsh.Sleep 1000
loop
WScript.Echo "Operation completed" 

Как-то давно делал ожидание завершения процесса на VBA (распаковка файлов из архива) через WaitForSingleObject. Не очень близко, но сам подход может пригодиться.

Public Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Public Const SYNCHRONIZE = &H100000
Public Const INFINITE = &HFFFFFFFF

Public Function SyncShell(ByVal ProcessID As Long)
    On Error GoTo SyncShell_Error
    ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID)
    WaitForSingleObject ProcessHandle, INFINITE
    SyncShell = True
    Exit Function
SyncShell_Error:
    On Error GoTo 0
    SyncShell = False
    Exit Function
End Function

Sub RARUnPack(Folder As String)
    Dim rslt As Long
    pathtoRAR = "c:Program FilesWinRARWinRAR.exe"

    rslt = Shell(pathtoRAR & " e -inul -o- -y """ & Folder & "*.rar"" """ & Folder & """", vbNormalFocus)
    c = SyncShell(rslt)
    MyAppActive
End Sub

Hello,

I have a VBScript which attempts to connect to a remote Windows 2003 server and query for all the services.

Here is the entire script…

********************************************************************************************

On Error Resume Next
strComputer = «ECCAS769»
Set objWMIService = GetObject(«winmgmts:\\» & strComputer & «\root\CIMV2»)

Wscript.echo «Connecting to » & strComputer
Wscript.echo «Error Number: » & Err.number & »   Error Description: » & Err.Description
Wscript.wait (3000)

Set colItems = objWMIService.ExecQuery(«SELECT * FROM Win32_Service»)
For Each objItem in colItems
    Wscript.Echo «Service Name: » & objItem.Name & VBNewLine & «State: » & objItem.State & VBNewLine

    Wscript.Echo «Display Name: » & objItem.Caption
    Wscript.Echo «Start Mode: » & objItem.StartMode
    Wscript.Echo «Service Specific Exit Code: » & objItem.ServiceSpecificExitCode   

Next

********************************************************************************************

If I run this from an account with domain admin privileges, it executes fine.  (Running with domain admin privileges is not an option in our PROD environment.)

However, if run from an account without domain admin privileges, the following error is returned:

«Error Number: 70   Error Description: Permission denied»

Can anyone tell me:

1.  What exactly am I being denied access to?  (i.e. the remote server;  Root\cimv2;  Win32_Services)

2.  What permissions do I need to execute this successfully?

3.  What permissions are generally needed to make a remote connection using VBScript?

Thanks in advance,

DetRich


DetRich

Перейти к содержимому раздела

Серый форум

разработка скриптов

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

1 2010-12-02 12:22:05

  • scripsils
  • Гость

Тема: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Уважаемые коллеги. Подскажите в чем причина ошибки при работе скрипта.
Задача: скопировать из одного места в другое все папки с файлами не старше чем i дней относительно текущей даты.
Был написан скрипт, который хорошо коприует 1 и 2 папки. На третьей папке возникает ошибка 70.
Вот код скрипта:

On Error Resume Next
dim src, dst, fs, fol, subfol, f1, cur_date, pre_date, fol_name, f, copy, ok, i

'katalog s dannymi
src = "D:\Папка\"
dst = "D:\"

set fs = CreateObject("Scripting.FileSystemObject")
set fol = fs.GetFolder(src)
set subfol = fol.SubFolders

i=20
For Each f1 In subfol

    cur_date = f1.DateCreated
    pre_date = date()-i

    if cur_date > pre_date Then              
    
        fol_name = f1.name    
                fs.CopyFolder src & fol_name, dst

            WScript.Echo err.number 'Здесь выскакивает ошибка на третьей папке

        if (err.number <> 0) Then
                ErrorCopy    
            WScript.Quit

        End If
        set ok = fs.CreatetextFile(dst & "ok", True)
    
    End If 
Next 

Sub ErrorCopy

 set ok = fs.CreatetextFile("error_copy", True)

End Sub

Спасибо.

2 Ответ от smaharbA 2010-12-02 13:01:50

  • smaharbA
  • Разработчик
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

атрибуты поменяйте у приемных файлов, снимите только чтение и системный
+
fs.CopyFolder src & fol_name, dst, true

Я конечно далек от мысли… (с)

3 Ответ от scripsils 2010-12-02 13:21:22 (изменено: scripsils, 2010-12-02 13:21:40)

  • scripsils
  • Гость

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

CopyFolder — по умолчанию используется overwrite=true.
«приемные файлы» — это какие? Атрибуты проверил. Везде не архивный, не системный, не только чтение. Ошибка вознкает опять.
Ошибка возникает и при копировании в пустую папку.

4 Ответ от smaharbA 2010-12-02 13:53:50

  • smaharbA
  • Разработчик
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

70 это отклонение разрешения
+ и заключите в кавычки если спецсимволы в именах папок
и могут быть файлы с «плохими» именами

Я конечно далек от мысли… (с)

5 Ответ от scripsils 2010-12-02 14:12:35

  • scripsils
  • Гость

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

имена папок по-русски, без пробелов или цифрами разницы нет. В некоторых папках файлов нет.
Тестировалось на нескольких компах. Везде при копировании третьей папки ошибка 70

6 Ответ от Anmat 2010-12-02 16:36:15

  • Anmat
  • Участник
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Вообще-то, ошибка возникает не на копировании папки, а на записи файла:

set ok = fs.CreatetextFile(dst & "ok", True)

Файл-то закрывать надо.

7 Ответ от scripsils 2010-12-02 16:53:13

  • scripsils
  • Гость

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

Спасибо. Помогло.

8 Ответ от smaharbA 2010-12-02 17:35:46

  • smaharbA
  • Разработчик
  • Неактивен
  • Рейтинг : [0|0]

Re: VBS: Скрипт выдает ошибку 70 на копируемой третьей папке

каюсь проглядел

Я конечно далек от мысли… (с)

Сообщения 8

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Thanks. We have received your request and will respond promptly.

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!

  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It’s Free!

*Tek-Tips’s functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

VBScript Error 70 Permissions

VBScript Error 70 Permissions

(OP)


I am using a VBScript to create mail messages Createobject(«Outlook.Application»). The script is called from within a DOS batch file (Yes I know it is state of the ark but thats what the legacy application runs under). All works fine until the batch file is executed using an AT command on NT.
The AT is set up to run under a specific user account. The moment the VBScript tries to create the Outlook object I get an error 70. I guess that some form of registry update is trying to happen but I do not know which one I need to change permissions on. I have checked MSDN but have had no  luck.

Please help a very very frustrated person, who’s boss is now getting a bit upset that the new e-mailing system he promised his users does not work!.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Join Tek-Tips® Today!

Join your peers on the Internet’s largest technical computer professional community.
It’s easy to join and it’s free.

Here’s Why Members Love Tek-Tips Forums:

  • Tek-Tips ForumsTalk To Other Members
  • Notification Of Responses To Questions
  • Favorite Forums One Click Access
  • Keyword Search Of All Posts, And More…

Register now while it’s still free!

Already a member? Close this window and log in.

Join Us             Close

Skydiver_vrn

0 / 0 / 0

Регистрация: 01.07.2014

Сообщений: 14

1

VBS

Разрешение отклонено

01.07.2014, 09:03. Показов 30708. Ответов 11

Метки нет (Все метки)


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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set FSO = CreateObject("Scripting.FileSystemObject")
path="D:\share\123\"
  if (FSO.FolderExists(path) = true) then 
    Set Folder = FSO.GetFolder(path)
    For Each SubFolder In Folder.SubFolders
     folder1=SubFolder.Name
     if folder1<>"Маркетинг" and folder1<>"111" and folder1<>"222" and folder1<>"333" and folder1<>"444" and folder1<>"555" and folder1<>"666" and folder1<>"777" and folder1<>"888" then
      folder1=path+folder1
       if (FSO.FolderExists(folder1) = true) then 
        Set folder_for_delete = FSO.GetFolder(folder1)
        folder_for_delete.Delete(True)
       else MsgBox "Путь "+folder1+" не найден" 
       end if
     end if 
    Next
  end if

Вот такой скрипт, ругается на строка 11 символ 9 разрешение отклонено



0



2618 / 548 / 109

Регистрация: 21.03.2012

Сообщений: 1,051

01.07.2014, 10:11

2

Цитата
Сообщение от Skydiver_vrn
Посмотреть сообщение

… разрешение отклонено

Причина — отсутствуют необходимые полномочия. Проверяйте список управления доступом для соответствующей папки.



0



0 / 0 / 0

Регистрация: 01.07.2014

Сообщений: 14

01.07.2014, 11:54

 [ТС]

3

Dmitrii, Так запускаю скрипт вручную под доменным админом у которого есть все права на эту папку.

Добавлено через 1 час 40 минут
Dmitrii, Поигрался с правами, теперь пишет «путь не найден» Строка 11 символ 9



0



2618 / 548 / 109

Регистрация: 21.03.2012

Сообщений: 1,051

01.07.2014, 18:29

4

Цитата
Сообщение от Skydiver_vrn
Посмотреть сообщение

… под доменным админом у которого есть все права на эту папку

1. Какая версия ОС?
2. Включен ли UAC?

Цитата
Сообщение от Skydiver_vrn
Посмотреть сообщение

Поигрался с правами, теперь пишет «путь не найден»

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



0



Skydiver_vrn

0 / 0 / 0

Регистрация: 01.07.2014

Сообщений: 14

02.07.2014, 08:17

 [ТС]

5

Dmitrii, С доступом вроде разобрался сам, сегодня скрипт отработал ночью запускал через bat-ник

Bash
1
2
del D:\Share\123\*.* /q /f
C:\cmd\clear_share.vbs

но удалились только файлы которые были вне папок, папки на месте остались, и новая ошибка «Предполагается наличие Then строка 7 символ 174»

Добавлено через 12 минут
И тут затупил сам тоже, не написал and когда ещё пункт добавил. Сегодня ночью ещё раз попробую.



0



0 / 0 / 0

Регистрация: 01.07.2014

Сообщений: 14

03.07.2014, 14:52

 [ТС]

6

Dmitrii, Снова удалились только файлы, никакой ошибки не выскочило. Помогите пожалуйста, я чайник в написании скриптов.

Добавлено через 5 часов 55 минут
Причём часть папок удалилась, а как только дошёл до первой в списке исключений остальные на месте.



0



Dmitrii

2618 / 548 / 109

Регистрация: 21.03.2012

Сообщений: 1,051

04.07.2014, 20:47

7

Попробуйте такой вариант:

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim objFS, objFolder, objItem, strPath, strExclude, strLog, strTemp
 
strExclude = "Маркетинг;111;222;333;444;555;666;777;888;"
Set objFS = CreateObject("Scripting.FileSystemObject")
strPath = "D:\share\123\"
If objFS.FolderExists(strPath) Then 
    Set objFolder = objFS.GetFolder(strPath)
    On Error Resume Next
    If objFolder.SubFolders.Count > 0 Then
        For Each objItem In objFolder.SubFolders
            If InStr(1, strExclude, objItem.Name & ";", vbTextCompare) = 0 Then
                strTemp = objItem.Path
                objItem.Delete True
                If Err.Number = 0 Then
                    strLog = strLog & strTemp & " -> успех" & vbNewLine
                Else
                    strLog = strLog & strTemp & " -> ошибка: " & Err.Description & vbNewLine
                    Err.Clear
                End If
            End if 
        Next
    Else
        strLog = "Папка " & strPath & " не содержит ни одной подпапки."
    End If
    Set objFolder = Nothing
Else
    strLog = "Не найден путь " & strPath
End if
strTemp = objFS.BuildPath(objFS.GetParentFolderName(WScript.ScriptFullName), "Results.txt")
Set objItem = objFS.CreateTextFile(strTemp, True)
If Err.Number = 0 Then
    If Len(strLog) > 0 Then
        objItem.Write strLog
    Else
        objItem.Write "Папка " & strPath & " не содержит ни одной подпапки, предназначенной для удаления."
    End If
    objItem.Close
    WScript.Echo "Готово. Журнал здесь:" & vbNewLine & strTemp
Else
    WScript.Echo "Готово. Ошибка при создании журнала:" & vbNewLine & Err.Description
    Err.Clear
End If
Set objItem = Nothing: Set objFS = Nothing
WScript.Quit 0



2



ComSpec

3455 / 1993 / 635

Регистрация: 26.02.2014

Сообщений: 1,457

04.07.2014, 22:27

8

Dmitrii, поправки:

Visual Basic
1
strExclude = ";Маркетинг;111;222;333;444;555;666;777;888;"
Visual Basic
1
If InStr(1, strExclude, ";" & objItem.Name & ";", vbTextCompare) = 0 Then

.
Иначе не удалятся папки с именами «1», «2», «3», «4», «5», «6», «7», «8», «11», «22», «33», «44», «55», «66», «77», «88», «аркетинг», «ркетинг», «кетинг», «етинг», «тинг», «инг», «нг», «г».



3



Эксперт WindowsАвтор FAQ

18066 / 7669 / 891

Регистрация: 25.12.2011

Сообщений: 11,438

Записей в блоге: 17

05.07.2014, 14:21

9

Вот такая папка тоже не удалится «111;222»
Нужно все разделители ; заменить на символ, который нельзя использовать в именовании ФС, например |



3



Dmitrii

2618 / 548 / 109

Регистрация: 21.03.2012

Сообщений: 1,051

06.07.2014, 21:37

10

Лучший ответ Сообщение было отмечено Skydiver_vrn как решение

Решение

С учётом справедливых замечаний от ComSpec и Dragokas имеем следующий вариант:

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim objFS, objFolder, objItem, strPath, strExclude, strLog, strTemp
 
strExclude = "*Маркетинг*111*222*333*444*555*666*777*888*"
Set objFS = CreateObject("Scripting.FileSystemObject")
strPath = "D:\share\123\"
If objFS.FolderExists(strPath) Then 
    Set objFolder = objFS.GetFolder(strPath)
    On Error Resume Next
    If objFolder.SubFolders.Count > 0 Then
        For Each objItem In objFolder.SubFolders
            If InStr(1, strExclude, "*" & objItem.Name & "*", vbTextCompare) = 0 Then
                strTemp = objItem.Path
                objItem.Delete True
                If Err.Number = 0 Then
                    strLog = strLog & strTemp & " -> успех" & vbNewLine
                Else
                    strLog = strLog & strTemp & " -> ошибка: " & Err.Description & vbNewLine
                    Err.Clear
                End If
            End if 
        Next
    Else
        strLog = "Папка " & strPath & " не содержит ни одной подпапки."
    End If
    Set objFolder = Nothing
Else
    strLog = "Не найден путь " & strPath
End if
strTemp = objFS.BuildPath(objFS.GetParentFolderName(WScript.ScriptFullName), "Results.txt")
Set objItem = objFS.CreateTextFile(strTemp, True)
If Err.Number = 0 Then
    If Len(strLog) > 0 Then
        objItem.Write strLog
    Else
        objItem.Write "Папка " & strPath & " не содержит ни одной подпапки, предназначенной для удаления."
    End If
    objItem.Close
    WScript.Echo "Готово. Журнал здесь:" & vbNewLine & strTemp
Else
    WScript.Echo "Готово. Ошибка при создании журнала:" & vbNewLine & Err.Description
    Err.Clear
End If
Set objItem = Nothing: Set objFS = Nothing
WScript.Quit 0



2



0 / 0 / 0

Регистрация: 01.07.2014

Сообщений: 14

15.07.2014, 11:19

 [ТС]

11

Всем огромное спасибо! Всё работает. А может стоит куда то вынести сей скрипт, он же достаточно универсальный, может ещё какойнибудь такойже как я чайник сможет применить в своей системе…



0



Эксперт WindowsАвтор FAQ

18066 / 7669 / 891

Регистрация: 25.12.2011

Сообщений: 11,438

Записей в блоге: 17

15.07.2014, 13:47

12

Skydiver_vrn, в принципе можно. Добавил.



0



Понравилась статья? Поделить с друзьями:
  • Ошибка 700065 стойка sinumerik 808d
  • Ошибка 7005 при сбросе айфона до заводских настроек
  • Ошибка 70 на котле бош 4000w
  • Ошибка 70007 cookie run kingdom
  • Ошибка 7005 apple