Код ошибки 800a0035 - Oshibku.top - решение и исправление самых разных ошибок

I am pretty new to all this VBS stuff because basically all I need to do is to make one simple VBS script, which I have possibly written, however, my problem is that it gives me 800A0035 or 800A004C error when I execute it for the first time on a particular PC, as soon as I execute it for the second time, it runs just OK and does what it is supposed to do. Incidentally, on my own computer it works OK even on the first execution.
I know that the errors have something to do with the wrong paths but I have checked my script several times and I am 100% positive that they are correct.

Here is the script:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "rar.bat" , "rarp.bat"
'HideBat.vbs
CreateObject("Wscript.Shell").Run "rarp.bat", 0, True

What the script is supposed to do is to rename the rar.bat file to rarp.bat and run that batch file (rarp.bat) without popping up the command prompt. What the batch file does is not relevant, I guess, but anyway, it just runs WinRAR.

The rar.bat file and the VBS script are in the same folder, that’s why I have used relative paths in the script. I cannot use absolute paths because I need to run the script on several computers.

I have read somewhere on the internet that by default VBS script first looks for the files in C:\Windows\System32 when relative paths are used. I have even tried using absolute paths in the script but it didn’t work either. Here is how I need them to look like: %systemdrive%\users\%username%\appdata\roaming\rar.bat but this simply didn’t work in the VBS script.

I really think that what I need is really a simple script but apparently it’s pretty hard to get it working properly. I will be very grateful to those who help me.

Thank you a lot in advance.

Regards.

Источник

Troubleshooting Code 800A0035 – File not found

Code 800A0035 is a straightforward error to solve. The secret is to read the Windows Script Error message carefully, then check the file path. Guy bet’s there is a typo.

Introduction to Error Code 800A0035

Code 800A0035 is runtime error more common with an .ASP file than a .VBS. The error is pointing to a file type or the wrong path rather than a pure scripting mistake. Code Error 800A0035 File not found

The Symptoms You Get 800A0035

When you get a pop-up message box put on your detective hat, and pay close attention to the line number. My point is that its the line in the script and not the file name following Script:

The Cause of Error 800A0035

In the example above, Line 31: is the source of the error. Char 1: is not always very useful as the error could be anywhere on the line, and WSH still blames char 1.

The cause of error 800A0035 is most likely to be a spelling mistake in the file, however, Geoffery unearthed a bizarre problem where his files had an extra .extension. For example instead of being info.txt, it was info.txt.txt.

The Solution

Before you find the root cause you may want to confirm the diagnosis by using a reference to a different file, preferably on a different drive. If that works, then revisit the name of the original script. Should you be hard-coding a path in your script, try copying and pasting from the bar in Windows Explorer.

‡

Example 1: Script to map a printer

In this example, the actual file was called Input.txt.txt, thus either rename that to the more normal single .txt, else change the script!

‘ VBScript example snippet to demonstrate error 800A0035 .

‘ f1 is the Input file handle, so Set f1 = OPEN input Set f1 = fso.GetFile(«D:\SMDR\Input.txt»)

See More Windows Update Error Codes 8004 Series

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

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

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

Guy Recommends: WMI Monitor and It’s Free!

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

Download your free copy of WMI Monitor

Do you need additional help?

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

Give something back?

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

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

About The Author

Guy Thomas

Источник

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

Сценарий: Не удается найти файл сценария.
«Путь сценария VBS»
Строка: х
Символ: x
Ошибка: описание ошибки.
Код: ххххххх
Источник: источник ошибки.

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

1. Используйте проверку системных файлов

Запустите командную строку от имени администратора и выполните следующую команду для сканирования и автоматического восстановления системных файлов:

Перезагрузите систему после завершения сканирования.

2. Сканирование ПК на наличие вредоносных программ

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

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

3. Установить значение по умолчанию для ключа. vbs

Нажмите комбинацию кнопок Win + R и введите regedit, чтобы открыть редактор реестра. Далее перейдите по пути:

В левой колонке найдите .vbs, выделите эту папку, и с правой стороны щелкните два раза мышкой по значению (По умолчанию). Задайте значение VBSFile.

4. Устранение неполадок в состоянии чистой загрузки

Чистая загрузка используется для диагностики и устранения неполадок связанных с системой. Во время чистой загрузки мы запускаем систему с минимальным количеством драйверов и программ запуска, что помогает изолировать причину мешающим программным обеспечением. После того, как вы загрузились в чистом состоянии загрузки, проверьте, сохраняется ли проблема. Если, ошибки нет, то вам придется искать программу или службу, которая вызывает ошибку Windows Script Host. Таким образом вы можете добавлять другие (сторонние) службы по одной, чтобы выявить виновника.

5. Восстановление или сброс Windows 10

Восстановление: Загрузитесь в дополнительные параметры и попробуйте «Восстановление при загрузке». Чтобы попасть туда, нужно перезагрузить компьютер 3 и более раз кнопкой Reset на ПК. Т. е. Вы загружаетесь до момента логотипа Windows (когда крутится колесико загрузки) и перезагружаете еще раз. И так три раза.

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

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

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

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

Решение 1. Просканируйте свой компьютер на наличие вредоносных программ

Хотя на рынке существует множество сторонних приложений для защиты системы, Windows включает в себя бесплатный антивирус – Защитник Windows. В настоящее время это программное обеспечение находится на одном уровне со многими известными поставщиками ПО безопасности. Поэтому при отсутствии на компьютере стороннего антивируса, используйте его. Первым делом необходимо выяснить, заключается ли проблема в наличии вредоносных программ на ПК.

Щелкните правой кнопкой мыши Пуск и выберите Параметры.
Перейдите к обновлению и безопасности.
Выберите Безопасность Windows слева и нажмите Защита от вирусов и угроз.
Затем кликните на Параметры сканирования;
Нажмите флажок Проверка автономного Защитника Windows и Сканировать сейчас.

Это действие перезагрузит компьютер и запустит глубокое сканирование системы.

Решение 2. Запустите сканирование SFC и DISM

Средство проверки системных файлов может диагностировать и восстанавливать проблемные или повреждённые системные данные Windows:

Введите cmd в поиске Windows.
Щелкните правой кнопкой мыши командную строку и выберите Запуск от имени администратора.
В новом окне введите sfc /scannow и нажмите Enter. Выполните сканирование SFC.
Дождитесь завершения работы программы, и перезагрузите компьютер.

Если сканирование SFC ничего не нашло или не смогло исправить обнаруженные нарушения целостности, вам следует выполнить восстановление образа Windows с помощью DISM. Откройте командную строку от имени администратора ещё раз и запустите следующие команды, нажимая Enter после каждой:

Dism/Online/Cleanup-Image/CheckHealth;
Dism/Online/Cleanup-Image/ScanHealth;
Dism/Online/Cleanup-Image/RestoreHealth.

Решение 3. Восстановите значение VBS по умолчанию через реестр

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

Введите regedit в поиске Windows и нажмите Enter.
Зайдите в реестр. Если отобразится Контроль учётных записей пользователей, нажмите Да.
В открывшемся окне реестра нажмите на строку Правка, а затем – Найти и введите Vbs – нужно найти одноименную папку.
Дважды щелкните ключ по умолчанию справа.
Убедитесь, что для ключа установлено значение VBSFile, и нажмите OK.
Восстановите значение VBS по умолчанию.

Решение 4. Отключите Windows Script Host через реестр

Windows Script Host был представлен в Windows 98 – он позволяет запускать на компьютере больше языков программирования. К сожалению, если вредоносному ПО удастся проникнуть в устройство, оно может злоупотребить этим и получить доступ к большему количеству внутренних функций. Таким образом, полное отключение Windows Script Host, если он не используется, является хорошей практикой безопасности, которая также остановит появление связанной с ним ошибки.

Введите regedit в поиске Windows и нажмите Enter.
После захода в редактор реестра перейдите по следующему пути: HKEY_CURRENT_USERSoftware MicrosoftWindows Script HostSettings.
Если справа вы не видите ключ Enabled, создайте его.
Для этого щелкните правой кнопкой мыши в пустое место в правом окне и выберите «Создать»> «Значение DWORD (32 бита)».
После появления ключа дважды щелкните по нему ЛКМ и установите для него значение 0 Отключить хост Windows Script.
Теперь перейдите по следующему пути и повторите шаги, описанные выше: HKEY_LOCAL_MACHINESoftwareMicrosoftWindows Script HostSettings.

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

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

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

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

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

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

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

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

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

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

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

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

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

«Выполнить»

Win+R

«Открыть»

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

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

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

«Панель управления»

«Программы и компоненты»

«Свойства»

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

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

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

Заключение

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

Мы рады, что смогли помочь Вам в решении проблемы.

Помимо этой статьи, на сайте еще 11868 инструкций.
Добавьте сайт Lumpics. ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

Источники:

https://mywebpc. ru/windows/oshibka-windows-script-host-windows-10/

https://gamesqa. ru/kompyutery/kak-ispravit-oshibku-windows-script-host-23016/

https://lumpics. ru/error-in-windows-script-host-how-to-fix-it/

Troubleshooting Code 800A0035 – File not found

Code 800A0035 is a straightforward error to solve. The secret is to read the Windows Script Error message carefully, then check the file path. Guy bet’s there is a typo.

Introduction to Error Code 800A0035

Code 800A0035 is runtime error more common with an .ASP file than a .VBS. The error is pointing to a file type or the wrong path rather than a pure scripting mistake.

The Symptoms You Get 800A0035

When you get a pop-up message box put on your detective hat, and pay close attention to the line number. My point is that its the line in the script and not the file name following Script:

The Cause of Error 800A0035

In the example above, Line 31: is the source of the error. Char 1: is not always very useful as the error could be anywhere on the line, and WSH still blames char 1.

The Solution

‡

Example 1: Script to map a printer

In this example, the actual file was called Input.txt.txt, thus either rename that to the more normal single .txt, else change the script!

‘ VBScript example snippet to demonstrate error 800A0035 .

‘ f1 is the Input file handle, so Set f1 = OPEN input Set f1 = fso.GetFile(«D:SMDRInput.txt»)

See More Windows Update Error Codes 8004 Series

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

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

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

Guy Recommends: WMI Monitor and It’s Free!

Download your free copy of WMI Monitor

Do you need additional help?

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

Give something back?

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

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

About The Author

Guy Thomas

Here is the script:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "rar.bat" , "rarp.bat"
'HideBat.vbs
CreateObject("Wscript.Shell").Run "rarp.bat", 0, True

The rar.bat file and the VBS script are in the same folder, that’s why I have used relative paths in the script. I cannot use absolute paths because I need to run the script on several computers.

I have read somewhere on the internet that by default VBS script first looks for the files in C:WindowsSystem32 when relative paths are used. I have even tried using absolute paths in the script but it didn’t work either. Here is how I need them to look like: %systemdrive%users%username%appdataroamingrar.bat but this simply didn’t work in the VBS script.

I really think that what I need is really a simple script but apparently it’s pretty hard to get it working properly. I will be very grateful to those who help me.

Thank you a lot in advance.

Regards.

INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

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

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

Microsoft VBScript runtime error ‘800a0035’

(OP)

4 Aug 08 12:18

Using the following command in ASP code running on IIS:

Set pfFile=fs.OpenTextFile(szFileName,1,false)

Produces the following error:

Microsoft VBScript runtime error ‘800a0035’

File not found

The file is a network file. It does exist. Anonymous Access is enabled with a network user that has access to the file. The anonymous user shows up in the Event Log of the IIS server with a successful logon. The Logged in user also has access to the file and can view the file directly in Microsoft Explorer.

What is causing OpenTextFile to not be able to find this file?

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:

Talk 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

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

Вот сценарий:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "rar.bat" , "rarp.bat"
'HideBat.vbs
CreateObject("Wscript.Shell").Run "rarp.bat", 0, True

Что скрипт должен делать, так это переименовывать rar.bat файл в rarp.bat и запустите этот командный файл (rarp.bat) без появления командной строки. Что делает пакетный файл, я думаю, не имеет значения, но в любом случае он просто запускается WinRAR.

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

Я где-то читал в Интернете, что по умолчанию сценарий VBS сначала ищет файлы в C:WindowsSystem32 когда используются относительные пути. Я даже пытался использовать абсолютные пути в скрипте, но это тоже не сработало. Вот как мне нужно, чтобы они выглядели: %systemdrive%users%username%appdataroamingrar.bat но это просто не работало в сценарии VBS.

Я действительно думаю, что мне нужен действительно простой скрипт, но, по-видимому, довольно сложно заставить его работать должным образом. Буду очень благодарен тем, кто мне поможет.

Заранее большое спасибо.

С уважением.

17 Years Ago

The data that is entered is creating the error page when I suibmit it ti the db. Can anyone help? :confused:

HTTP 500.100 — Internal Server Error — ASP error
Internet Information Services

———————————————————————————

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A0035)
File not found
/threecubePlus_IIS/formProcess.asp, line 31

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 181 bytes to /threecubePlus_IIS/formProcess.asp

POST Data:
myTitle=eryeryre&thefile=C%3A%5CDocuments+and+Settings%5CStuart.BLUEBEEN0DT01%5CDesktop%5Csite.png&myName=erreery&submit=Submit&myAddress1=&myAddress2=&myCity=&myCounty=&myPostCode=

Time:
Friday, May 06, 2005, 5:11:11 PM

More information:
Microsoft Support

do you have an include file or something? or is your page called formProcess.asp

post the page that might help but by my guess doest the dbase have a error if null field?

Be a part of the DaniWeb community

We’re a friendly, industry-focused community of developers, IT pros, digital marketers,
and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Страницы 1

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

1 2010-11-12 13:35:43

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Тема: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Пример из справки, не работает, ни в VBScript ни в JScript:

Set objShellApp = CreateObject("Shell.Application")
WinCol = objShellApp.Windows().Count
MsgBox "В настоящий момент открыто окон Проводника - " & WinCol, vbInformation

В ответ получаю:

[b]Сервер сценариев Windows[/b]
Строка: 2
Символ: 1
Ошибка: Невозможно создание объекта контейнером ActiveX
Код: 800A01AD
Источник: Ошибка выполнение Microsoft VBScript

Windows XP SP3
WSH v5.7

Нас невозможно сбить с пути, нам пофигу куда идти.

2 Ответ от alexii 2010-11-12 14:29:23

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

На всякий случай, попробуйте перерегистрировать библиотеку:

regsvr32.exe C:WINDOWSsystem32SHELL32.dll

3 Ответ от DnsIs 2010-11-12 19:31:11

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Не помогает, причем уже на 2 компьютерах проверил.

Нас невозможно сбить с пути, нам пофигу куда идти.

4 Ответ от alexii 2010-11-12 19:32:09

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

У Вас такое даже не на одном?!

Какая версия IE?

5 Ответ от DnsIs 2010-11-12 19:38:54

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

На одном компьютере
Windows XP SP3
WSH v5.7
IE 8

На домашнем
Windows XP SP2
WSH v5.6
IE 7

Нас невозможно сбить с пути, нам пофигу куда идти.

6 Ответ от DnsIs 2010-11-12 19:48:44 (изменено: DnsIs, 2010-11-12 19:49:25)

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Причем выяснил, что shell32.dll ни при чем. Я отменил регистрацию shell32.dll (regsvr32.exe shell32.dll /u)
И ошибка такая же и осталась, а если бы была зависимость, то было бы что то вроде:
«Не удается найти класс программируемых объектов с именем «Shell.Application»

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

Нас невозможно сбить с пути, нам пофигу куда идти.

7 Ответ от alexii 2010-11-12 20:01:30

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

DnsIs пишет:

И ошибка такая же и осталась, а если бы была зависимость, то было бы что то вроде:
«Не удается найти класс программируемых объектов с именем «Shell.Application»

Да ну :

Set objShellApp = CreateObject("qww.qww")

Ошибка выполнения Microsoft VBScript: Невозможно создание объекта контейнером ActiveX: ‘qww.qww’

Вы путаете с «WScript.CreateObject()»:

Set objShellApp = WScript.CreateObject("qww.qww")

WScript.CreateObject: Не удается найти класс программируемых объектов с именем «qww.qww».

8 Ответ от jite 2010-11-14 03:48:36 (изменено: jite, 2010-11-14 03:48:59)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Логично, alexii.
Странно, но у меня приведенный пример и без «WScript.» работает. (XP SP2)

9 Ответ от alexii 2010-11-14 06:53:24

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

jite, так и у меня работает. А у коллеги DnsIs — нет.

10 Ответ от DnsIs 2010-11-14 20:54:27

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

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

Нас невозможно сбить с пути, нам пофигу куда идти.

11 Ответ от jite 2010-11-14 21:12:34 (изменено: jite, 2010-11-14 21:13:32)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Это точно не работает на локальном компе под WSH?
А то может на ISS (ASP)? Или попытка запуска CreateObject() на другом компе?

Если точно локально, под WSH, то:
1) Идем в свойства обозревателя IE и во вкладке безопасность проверяем, не слишком ли высок ее уровень… э-э для локального компа уровня нет (вообще-то это ветка HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones), но может поможет сброс движков доверенных и интранета в «Средний»? После перегрузиться для гарантии.
2) Или создаем нового пользователя, даем для гарантии ему права локального админа, смотрим, как под ним? Если под новым все ОК, то под «нерабочим» профилем есть проблема в упомянутой ветке реестра.

12 Ответ от jite 2010-11-14 21:18:20

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Казалось бы, причем здесь IE…
Но оно таки есть. Встречал последствия действий одного зловреда как раз в части настроек безопасности IE: была оставлена одна зона и в ней все заблокировано. При этом пользователь не мог вообще ничего запустить. Решалось пересозданием профиля.

13 Ответ от DnsIs 2010-11-15 11:22:50 (изменено: DnsIs, 2010-11-15 11:56:00)

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

jite, настройки IE у меня по-умолчанию.
Но обнаружил вот что:
Оказывается, что скрипт, прекрасно пашет если его запустить из проводника windows (0)
НО! Если из Total Commander (1), Notepadd++ (2) или из консоли (3), то не хочет запускаться ни в какую.
Проверил строки запуска скрипта, но во всех случаях они оказались идентичными, символ в символ.

Тогда я проверил от имени какого пользователя запускаются процессы, оказалось что
(1), (2), (3), запускают WScript.exe от имени SYSTEM,
А (0) от имени локального пользователя.
О как!

Нас невозможно сбить с пути, нам пофигу куда идти.

14 Ответ от DnsIs 2010-11-15 14:11:19 (изменено: DnsIs, 2010-11-15 14:15:22)

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

В ходе «расследования» вот что нарыл еще.
Я всегда, когда сажусь за комп, запускаю Тотал Коммандер, мне с ним удобней.
Запускал я его всегда из проводника Windows, но в один прекрасный день я установил nnCron и сделал на основные программы горячие клавиши.
И теперь выглядит все вот как:
При загрузке компа грузиться nnCron от имени SYSTEM, и далее по цепочке, Тотал от имени SYSTEM, Notepad++ от имени SYSTEM, скрипты от имени SYSTEM, ВСЕ от SYSTEM!

Понять еще не мог, почему у меня вордовские и экселевские документы при запуске из Тотала пишут: «Файл не найден», хотя все работало ранее нормально, и где случился переломный момент, что так произошло.
Теперь понял. Оказывается корень всех проблем в том, что nnCron Работает от SYSTEM.

Вот в этой области моих знаний не хватает. Скажите, гуру, Почему SYSTEM такой злобный?
Где ковырнуть винду, что бы подружить SYSTEM и пользовательский аккаунт?

Нас невозможно сбить с пути, нам пофигу куда идти.

15 Ответ от alexii 2010-11-15 14:47:54

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Я думаю, проще будет сделать загрузку TC и прочего из обычного пользовательского раздела «HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun». Горячие клавиши и прочее удобно организовывать в «True Launch Bar».

16 Ответ от DnsIs 2010-11-15 15:06:01

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Проблему решил, выставив в nnCron опцию «Запускать программы от имени пользователя».
И погуглив нашел ответ: SYSTEM — это встроенный пользовательский аккаунт, с ограниченными правами.
Вот и вся проблема.

Всем спасибо.

Нас невозможно сбить с пути, нам пофигу куда идти.

17 Ответ от jite 2010-11-15 22:52:36 (изменено: jite, 2010-11-15 22:53:59)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

DnsIs пишет:

Проблему решил, выставив в nnCron опцию «Запускать программы от имени пользователя».

Это лучшее решение.

DnsIs пишет:

SYSTEM — это встроенный пользовательский аккаунт, с ограниченными правами.

Ну если точней, то это аккаунт (SYSTEM он же NT AUTHORITYSYSTEM), под которым собственно операционка «логинится» и действует. Уровень полномочий SYSTEM примерно такой же, как и у встроенного админа. Именно для него во вкладке безопасность предусмотрены права доступа SYSTEM.
Однако под SYSTEM лучше не сидеть лично и повседневно — не предназначен он для этого. Наверняка найдутся какие-нибудь специфические грабли, для обхода которых придется менять настройки ОС по ум. с риском чего-нибудь непоправимо сломать. Оно нам надо?
Из полезного же можно зайти под ним не переопределяя прав на папки:
— в «System volume information» — актуально при лечении небольших сбоев привязки к жесткому, как правило, требуется в XP после клонирования диска,
— в кэш автономных файлов C:WindowsCSC — актуально для Win7, папка известна тем, что со временем в ней накапливается много мусора, который просто так не удалить.
Словом специфические операции.

18 Ответ от DnsIs 2010-11-16 00:06:02

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Помню как то читал статью о паролях windows. Выдержка:

Информация об учетных записях пользователей хранится в ветке «HKEY_LOCAL_MACHINESAM» (SAM — Security Account Manager) реестра … бла-бла-бла … по умолчанию недоступен для чтения никому, даже Администратору

А я все гадал, почему я запуская реестр, спокойно читаю этот раздел, а оказывается вон оно как все запутанно.

Нас невозможно сбить с пути, нам пофигу куда идти.

19 Ответ от jite 2010-11-16 00:53:02

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Еще одно специфическое применение аккаунта. Кто бы мог подумать, куда может завести обсуждение неработающей функции…

Возвращаясь к теме. Все-таки интересно, почему же SYSTEM не имеет права получать Shell.Application? А если я вдруг задумаю под этим акком какой-нибудь скрипт выполнить? Что, разве не должен выполниться? Странно.

20 Ответ от alexii 2010-11-16 03:58:15

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

DnsIs, для того, чтобы объект «Shell.Application» мог быть создан, должен существовать экземпляр Проводника, и, поскольку он существует в контексте текущего пользователя, а скрипт Вы пытаетесь запустить от имени «NT AUTHORITYSYSTEM», то, соответственно, получаете закономерный отлуп. Запустите файловый менеджер от имени «NT AUTHORITYSYSTEM», закройте Проводник описанным способом: OFF: Завершение работы Проводника без снятия процесса «explorer.exe», запустите из-под файлового менеджера Проводник. Запускайте скрипт.

P.S. Данное поведение зависит от свойств конкретного объекта, как и чем он реализуется.

21 Ответ от jite 2010-11-16 21:28:06

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

off (bytheway system_purpose)

DnsIs пишет:

Помню как то читал статью о паролях windows. Выдержка:

Информация об учетных записях пользователей хранится в ветке «HKEY_LOCAL_MACHINESAM» (SAM — Security Account Manager) реестра … бла-бла-бла … по умолчанию недоступен для чтения никому, даже Администратору

А я все гадал, почему я запуская реестр, спокойно читаю этот раздел, а оказывается вон оно как все запутанно.

Вообще-то упомянутая ветка доступна для чтения всем… если я случайно не сбросил разрешения.
В статье же говорится про %SystemRoot%system32configSAM, а его при активной ОС прочесть не удастся и под SYSTEM. Впрочем он читается другими способами. Даже при активной ОС.

end off

22 Ответ от alexii 2010-11-16 22:22:21

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

jite пишет:

Вообще-то упомянутая ветка доступна для чтения всем… если я случайно не сбросил разрешения.

Возможно, имелось в виду «HKEY_LOCAL_MACHINESAMSAM».

23 Ответ от DnsIs 2010-11-16 22:54:26

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

jite, да да, как правильно поправил alexii, я имел ввиду ветку «HKEY_LOCAL_MACHINESAMSAM».
А вы уверены что читается? Вы открываете ее, а там пусто или нет? Если пусто то вы просто ничего не видите. Попробуйте так:

at 0:43 reg export HKEY_LOCAL_MACHINESAMSAM c:reg.reg

Вместо 0:43 подставьте свое время

и потом загляните в полученный файл.

Ну а про %SystemRoot%system32configSAM в манах написано:

«HKEY_LOCAL_MACHINESAM» (SAM — Security Account Manager) реестра. А так как в Windows XP все ветки реестра «физически» расположены на диске в каталоге %SystemRoot%System32Config в нескольких файлах, то и эта ветка — не исключение.

Так что фактически одно и тоже.

jite пишет:

а его при активной ОС прочесть не удастся и под SYSTEM. Впрочем он читается другими способами. Даже при активной ОС.

Не подскажите как?

Нас невозможно сбить с пути, нам пофигу куда идти.

24 Ответ от jite 2010-11-17 01:48:05 (изменено: jite, 2010-11-17 01:57:27)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Да, действительно по умолчанию samsam не должен быть виден.

Вирус заблокировал вам доступ к Google?!
Что-то подсказывает мне, что мы слишком отклонились от темы.

25 Ответ от alexii 2010-11-17 02:10:29

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

2jite: коллега, при ссылке на Google (хоть этого и нет в Правилах ) желательно (и, думаю, достаточно) давать уже сформулированный запрос, например так, или так, иначе это не может считаться ответом на вопрос.

26 Ответ от jite 2010-11-17 02:59:55 (изменено: jite, 2010-11-17 03:01:15)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Да, но тогда не являются ли взаимоисключающими такая ссылка и п. 2.9?

27 Ответ от alexii 2010-11-17 03:16:43

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

В какой его части?

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

28 Ответ от DnsIs 2010-11-17 08:01:19

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

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

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

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

2alexii, пора закрывать тему наглухо, можно даже с удалением не относящихся к теме постов.

Нас невозможно сбить с пути, нам пофигу куда идти.

29 Ответ от jite 2010-11-17 10:38:49 (изменено: jite, 2010-11-18 22:49:42)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

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

—————— >8 Линия отреза 8< ——————

this.topic_title.new(«ЛС как альтернативный способ обсуждения нерекомендованного к обсуждению. Вопросы, тестирование»)

30 Ответ от alexii 2010-11-17 10:43:29

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

jite пишет:

А давайте так, раз уж есть интерес, и кто-то из модераторов даст добро, я прямо в этом посте опишу известные мне методики чтения файлов папки system32sam. А после того, как пост повисит денька 2-3, я это все вытру. Идет, alexii? smile

Я бы предпочёл, что б такие вещи шли в личку. Впрочем, подождём, что скажет администрация.

31 Ответ от DnsIs 2010-11-17 17:07:04

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Плюнте в меня если я не прав, но я считаю, что тема прямым образом не относиться в вирусописательству. Раз уж так, то давайте запретим писать на форумах «format c:», «del c:windows*.*» и пр…
Необязательно писать о фале SAM. Тем более в интернете полно статей на эту тему.
Неужели ни у кого не возникает необходимости копировать залоченные файлы. А SAM ведь, как я понимаю не исключение.

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

Нас невозможно сбить с пути, нам пофигу куда идти.

32 Ответ от alexii 2010-11-17 18:18:55

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

jite пишет:

…чтоб такие вещи шли в личку

А она кстати работает? Я как-то «Послать e-mail» (ссылка в профиле любого пользователя) одному участнику. Реакции не дождался. Видимо не дошло.
А пункта ЛС у меня нет.

Работает. Просто не все отвечают, я сам с этим сталкивался.

Под «ЛС» я, собственно, «Послать e-mail» и имел в виду.

33 Ответ от Lucky 2010-11-17 18:34:03

Lucky
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

alexii пишет:

Работает. Просто не все отвечают, я сам с этим сталкивался.

Под «ЛС» я, собственно, «Послать e-mail» и имел в виду.

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

Стремление — залог успеха

34 Ответ от alexii 2010-11-18 01:32:53

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

И это тоже. Немалое число регистрируется, пользуя Mailinator.com и тому подобное. Впрочем, как говорится, тут уж никто не виноват — сам себе злобный Буратино. Кто хотел получать письма — менял потом адрес на нормальный.

35 Ответ от DnsIs 2010-11-18 19:07:40 (изменено: DnsIs, 2010-11-18 19:08:16)

DnsIs
Участник
Неактивен

Рейтинг : [4|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Мне кажется нужно временные ящики (Mailinator.com и пр.) фильтровать, нафик такие пользователи нужны.

Нас невозможно сбить с пути, нам пофигу куда идти.

36 Ответ от alexii 2010-11-18 19:57:04

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Да ну . И как Вы планируете определять, какой почтовый адрес относится ко «временным ящикам»?

37 Ответ от jite 2010-11-18 20:08:16

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

DnsIs пишет:

Мне кажется нужно временные ящики (Mailinator.com и пр.) фильтровать, нафик такие пользователи нужны.

Ну и как, получили письмо?

38 Ответ от alexii 2010-11-18 20:29:15

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

39 Ответ от alexii 2010-11-18 21:11:41

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

OFF: Тьфу ты! Письмо-то не мне было отправлено. Недоглядел .

40 Ответ от jite 2010-11-18 22:28:36 (изменено: jite, 2010-11-18 22:31:58)

jite
Разработчик
Неактивен

Рейтинг : [0|0]

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Участник alexii форума Серый форум послал Вам сообщение. Вы можете ответить alexii путём ответа на это письмо.

Содержание сообщения:
————————————————————————

Hello World!

————————————————————————

В свою очередь направлю письмо вам, alexii. А то вдруг, не доходят…

41 Ответ от alexii 2010-11-19 00:28:02

alexii
Разработчик
Неактивен

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

Доходят:

Участник jite форума Серый форум послал Вам сообщение. Вы можете ответить jite путём ответа на это письмо.

Содержание сообщения:
————————————————————————

Тестовое сообщение.

————————————————————————

—
Серый форум Почтовый робот

Страницы 1

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

PATH — VBS SCRIPT (VBSCRIPT) ERRORS 800A0035 AND/OR

thanks, I give up on trying to execute the bat file using the realtive path. Is there a way to use absolute path using environment variables in the VBS script?
From stackoverflow.com
Reviews 6

«MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A01AD’ ERROR AFTER PATCHING …

If you have feedback for TechNet Subscriber Support, contact [email protected] Marked as answer by Mary_PH Thursday, July 26, 2018 3:56 AM Tuesday, July 24, 2018 8:36 AM
From social.technet.microsoft.com

YOU MAY RECEIVE A «VBSCRIPT RUNTIME ERROR ‘800A01F4’ » ERROR …

To work around this behavior on an SMS Reporting Web site that is running Microsoft Windows Server 2003 together with Microsoft Internet Information Services (IIS) 6.0, follow these steps: Click Start , point to Administrative Tools , and then …
From support.microsoft.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A01AD’

User-216640841 posted Windows 7 SP1 IIS 7.5 Classic ASP app I’ve narrowed the problem down to the following simple test script: <% set objLogin = server.createObject(«SPSSecurity2.security») ‘set objLogin = server.createObject(«MSWC.BrowserType») if not objLogin is Nothing then response.write … · …
From social.msdn.microsoft.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A0006’

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A0005’ — INVALID PROCEDURE …

Hi, we use a VBscript/Classic ASP function to upload attachments to a web application. Since KB3104002 has been implemented this now fails with : Since KB3104002 has been implemented this now fails with :
From social.msdn.microsoft.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A005E’

Ahoj, zaprve je dulezite uvedomit si ze se jedna o chybu za kterou muze programator tohoto webu. Primarne bys tedy mel informovat …
From social.technet.microsoft.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A004C’ PATH NOT FOUND

See if this solution works for you by signing up for a 7 day free trial.
From experts-exchange.com

URGENT -MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A0034’ ERROR — PLEASE …

Below code is what sending the email as an attachment and that file was try to open in the above code: Set objMessage = Server.CreateObject («CDO.M essage») ‘new. Set objConfiguration = Server.CreateObject («CDO.C onfigurati on») ‘new. Set colFields = objConfiguration.Fields. With colFields.
From experts-exchange.com

SOLVED: MICROSOFT VBSCRIPT RUNTIME ERROR WHEN WORKING …

Hi, Your problem sounds like the one mentioned in the ‘OleObject Property’ help topic: Quote: ===== Note for Microsoft Office users: In order to be able to get an OLE object for an already running application, this application must be registered in the Running Object Table (ROT).However, Microsoft Office applications that are launched from the shell (for example, …
From community.smartbear.com

MICROSOFT VBS SCRIPT RUNTIME ERROR — MICROSOFT COMMUNITY

Harassment is any behavior intended to disturb or upset a person or group of people. Threats include any threat of suicide, violence, or harm to another.
From answers.microsoft.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A0006’

I’m sorry, but I don’t think this forum will be able to assist you. The discussion here is with regard to the Microsoft ProClarity software platform, and does not in any way involve jobstreet.com. Again, sorry we are unable to assist.
From social.technet.microsoft.com

CODE ERROR 800A000D MICROSOFT VBSCRIPT RUNTIME ERROR | TYPE …

This runtime error, 800A000D occurs when you execute a VBScript. My suggestion is that there is a VBScript statement that does not understand a keyword you are using in your script. Alternatively, you may not be running the script as an ordinary user and not as an Administrator.
From computerperformance.co.uk

NO CLUE.. OVERFLOW, MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A0006’

Because you are running Windows Server 2003 you may be affected by a fault in the C++ Runtime library and can download a hotfix from Microsoft. For further details, refer to Microsoft KB955536 – VBScript throws a floating-point exception when the C runtime returns a stale floating-point status flag in a Windows Server 2003 environment .
From techtalk7.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A004C’

User-146799434 posted. thanks guys for the replies, but i think you are missing the point of my question. i think i know what mappath is providing, i have stated that. i have already stated that i think the problem is with the permissions, i was asking if there could be anything else but that. if i have not made that clear i apologize for the misunderstanding, so i guess my …
From social.msdn.microsoft.com

HOW TO FIX THE «VBSCRIPT RUNTIME ERROR ‘800A0005′» — INVALID …

PDshop is built on Asp.Net, works with ALL Windows web hosts and Windows servers!
From pdshop.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A000D’

In my case this code is running on IIS6 fine. What I could check for now is that it’s related with the INET_NTOA () function from mysql, is convert a numeric ip address to a dotted ip address.It’s like IIS7.5 vb int size smaller than before, or something like this. Below a debug code which still cause error:
From social.msdn.microsoft.com

MICROSOFT VBSCRIPT RUNTIME ERROR ‘800A0035’ — TEK-TIPS

Using the following command in ASP code running on IIS: Set pfFile=fs.OpenTextFile(szFileName,1,false) Produces the following error: …
From tek-tips.com

VBSCRIPT RUNTIME ERROR ‘800A0046’ ON GETOBJECT( APPLICATIONPOOL )

This forum is closed. Thank you for your contributions. Ask a question Quick access
From social.msdn.microsoft.com

MICROSOFT VBSCRIPT RUNTIME (0X800A01F5)

<% hour = Request(«controlname») %> will yield the following error: Hour() is a builtin vbscript function. Do NOT use ambiguous words for variable names. Microsoft VBScript runtime (0x800A01F5) Illegal assignment: ‘hour’ This is why «hour» should not be used for the variable name. However, if I declare hour, then it is fine. No, it is not …
From bytes.com

Содержание

Ошибка windows script host как исправить
Причины появления ошибки windows script host:
Ошибка windows script host как исправить:
Шаг 1: Центр обновления
Шаг 2: Удаление ошибочных компонентов
Шаг 3: Подключение службы Обновлений
Шаг 4: Просматриваем установленные обновления
Шаг 5: Проверка готовности ОС к установке обновлений
Ошибка Windows Script Host при запуске Windows 10
Windows Script Host — Не удается найти файл сценария в Windows 10
1. Используйте проверку системных файлов
2. Сканирование ПК на наличие вредоносных программ
3. Установить значение по умолчанию для ключа .vbs
4. Устранение неполадок в состоянии чистой загрузки
5. Восстановление или сброс Windows 10
Сбой службы Windows Script Host. Ошибка. Как исправить ее простейшими методами?
Что означает сбой Windows Script Host
Windows Script Host. Ошибка. Как исправить (код 80070002)
Windows Script Host. Ошибка. Как исправить (код 800A0046)?
Вместо итога

Ошибка windows script host как исправить

Многие пользователи ОС Windows замечали, что после установки обновлений зачастую появляются различного рода ошибки. Одной из наиболее распространенных является ошибка windows script host. Зачастую, данное предупреждение об ошибке можно увидеть под номером « 80070002 ». Итак, на повестке дня ошибка windows script host как исправить.

» data-medium-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Screenshot_1-8.jpg?fit=556%2C526&ssl=1″ data-large-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Screenshot_1-8.jpg?fit=556%2C526&ssl=1″ loading=»lazy» src=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Screenshot_1-8.jpg?resize=556%2C526″ alt=»Ошибка windows script host как исправить» width=»556″ height=»526″ data-recalc-dims=»1″/>

Ошибка windows script host как исправить

Причины появления ошибки windows script host:

Как уже говорилось выше, данная ошибка в системе windows напрямую связана с обновлением. Возникает в двух случаях:
1. Возникли неполадки при загрузке обновлений;
2. Некорректно установлены обновления;

Ошибка windows script host как исправить:

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

Шаг 1: Центр обновления

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

» data-medium-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Administrirovanie.jpg?fit=1024%2C345&ssl=1″ data-large-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Administrirovanie.jpg?fit=800%2C270&ssl=1″ loading=»lazy» src=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Administrirovanie.jpg?resize=800%2C270″ alt=»Администрирование» width=»800″ height=»270″ srcset=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Administrirovanie.jpg?w=1024&ssl=1 1024w, https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Administrirovanie.jpg?resize=768%2C259&ssl=1 768w» sizes=»(max-width: 800px) 100vw, 800px» data-recalc-dims=»1″/>

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

» data-medium-file=»https://i0.wp.com/kelus.ru/wp-content/uploads/2016/07/Otkryvaem-Sluzhby.jpg?fit=873%2C490&ssl=1″ data-large-file=»https://i0.wp.com/kelus.ru/wp-content/uploads/2016/07/Otkryvaem-Sluzhby.jpg?fit=800%2C449&ssl=1″ loading=»lazy» src=»https://i0.wp.com/kelus.ru/wp-content/uploads/2016/07/Otkryvaem-Sluzhby.jpg?resize=800%2C449″ alt=»Открываем Службы» width=»800″ height=»449″ srcset=»https://i0.wp.com/kelus.ru/wp-content/uploads/2016/07/Otkryvaem-Sluzhby.jpg?w=873&ssl=1 873w, https://i0.wp.com/kelus.ru/wp-content/uploads/2016/07/Otkryvaem-Sluzhby.jpg?resize=768%2C431&ssl=1 768w» sizes=»(max-width: 800px) 100vw, 800px» data-recalc-dims=»1″/>

» data-medium-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Ostanovka-sluzhby-obnovleniya.jpg?fit=956%2C692&ssl=1″ data-large-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Ostanovka-sluzhby-obnovleniya.jpg?fit=800%2C579&ssl=1″ loading=»lazy» src=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Ostanovka-sluzhby-obnovleniya.jpg?resize=800%2C579″ alt=»Остановка службы обновления» width=»800″ height=»579″ srcset=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Ostanovka-sluzhby-obnovleniya.jpg?w=956&ssl=1 956w, https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/Ostanovka-sluzhby-obnovleniya.jpg?resize=768%2C556&ssl=1 768w» sizes=»(max-width: 800px) 100vw, 800px» data-recalc-dims=»1″/>

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

Шаг 2: Удаление ошибочных компонентов

Заходим в меню Пуск и открываем Компьютер, затем двойным кликом щелкаем по значку локального жесткого диска, на котором находится система, стандартно это диск С://. Переходим в папку ОС – Windows, после – Software Distribution. Удаляем все файлы, которые находятся в папке под названием «Data Store», то же проделываем и с папкой «Download».

» data-medium-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/SHag-2.jpg?fit=1024%2C501&ssl=1″ data-large-file=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/SHag-2.jpg?fit=800%2C391&ssl=1″ loading=»lazy» src=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/SHag-2.jpg?resize=800%2C391″ alt=»Удаление ошибочных файлов» width=»800″ height=»391″ srcset=»https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/SHag-2.jpg?w=1024&ssl=1 1024w, https://i1.wp.com/kelus.ru/wp-content/uploads/2016/07/SHag-2.jpg?resize=768%2C376&ssl=1 768w» sizes=»(max-width: 800px) 100vw, 800px» data-recalc-dims=»1″/>

Удаление ошибочных файлов

Шаг 3: Подключение службы Обновлений

В данном шаге нет ничего для вас нового, проделываем все тоже самое, как в шаге под номером «1», только теперь нам нужно вместо «Отключить» — подключить службу обратно.

Шаг 4: Просматриваем установленные обновления

Узнать какие обновления были загружены можно перейдя в Центре обновления на вкладку Установленных обновлений. Находится она: Пуск – Панель управления – Программы и компоненты, затем находите пункт Просмотр установленных обновлений.

» data-medium-file=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Prosmotr-ustanovlenyh-obnovlenij.jpg?fit=1024%2C421&ssl=1″ data-large-file=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Prosmotr-ustanovlenyh-obnovlenij.jpg?fit=800%2C329&ssl=1″ loading=»lazy» src=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Prosmotr-ustanovlenyh-obnovlenij.jpg?resize=800%2C329″ alt=»Просмотр установленых обновлений» width=»800″ height=»329″ srcset=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Prosmotr-ustanovlenyh-obnovlenij.jpg?w=1024&ssl=1 1024w, https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Prosmotr-ustanovlenyh-obnovlenij.jpg?resize=768%2C316&ssl=1 768w» sizes=»(max-width: 800px) 100vw, 800px» data-recalc-dims=»1″/>

Просмотр установленных обновлений

Шаг 5: Проверка готовности ОС к установке обновлений

Ошибка windows script host как исправить, если после проделанных шагов окошко с предупреждением не исчезло, можно применить еще один ход на пути решения. Данный шаг так же достаточно прост. Переходим в Центр обновлений и просто запускаем Проверку обновлений, после того как они будут загружены, согласиться на установку, следовать указаниям.

» data-medium-file=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Proverka-obnovlenij.jpg?fit=1024%2C355&ssl=1″ data-large-file=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Proverka-obnovlenij.jpg?fit=800%2C277&ssl=1″ loading=»lazy» src=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Proverka-obnovlenij.jpg?resize=800%2C277″ alt=»Проверка обновлений» width=»800″ height=»277″ srcset=»https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Proverka-obnovlenij.jpg?w=1024&ssl=1 1024w, https://i2.wp.com/kelus.ru/wp-content/uploads/2016/07/Proverka-obnovlenij.jpg?resize=768%2C266&ssl=1 768w» sizes=»(max-width: 800px) 100vw, 800px» data-recalc-dims=»1″/>

Надеюсь, вы нашли ответ на вопрос, при которой выходит ошибка windows script host как исправить. После установленных обновлений нужно перезагрузить ПК, и убедиться в отсутствии ошибки.

Ошибка Windows Script Host при запуске Windows 10

Сценарий: Не удается найти файл сценария.
«Путь сценария VBS»
Строка: х
Символ: x
Ошибка: описание ошибки.
Код: ххххххх
Источник: источник ошибки.

Windows Script Host — Не удается найти файл сценария в Windows 10

1. Используйте проверку системных файлов

Перезагрузите систему после завершения сканирования.

2. Сканирование ПК на наличие вредоносных программ

3. Установить значение по умолчанию для ключа .vbs

Нажмите комбинацию кнопок Win + R и введите regedit, чтобы открыть редактор реестра. Далее перейдите по пути:

HKEY_CLASSES_ROOT.vbs

4. Устранение неполадок в состоянии чистой загрузки

5. Восстановление или сброс Windows 10

Восстановление: Загрузитесь в дополнительные параметры и попробуйте «Восстановление при загрузке». Чтобы попасть туда, нужно перезагрузить компьютер 3 и более раз кнопкой Reset на ПК. Т.е. Вы загружаетесь до момента логотипа Windows (когда крутится колесико загрузки) и перезагружаете еще раз. И так три раза.

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

Сбой службы Windows Script Host. Ошибка. Как исправить ее простейшими методами?

Достаточно часто пользователи Windows-систем сталкиваются с проблемой того, что при попытке автоматической установки апдейтов система выдает предупреждение о сбое службы Windows Script Host (ошибка). Как исправить ее, сейчас и будет рассмотрено. Для этого можно использовать несколько основных методов.

Что означает сбой Windows Script Host

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

Например, при нарушении связи может появляться огромное количество сообщений с самыми разными кодами. Из всех возможных ситуаций наиболее часто встречаются сбои 80070002 и 800A0046 Windows Script Host (ошибка). Как исправить такую ситуацию?

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

Windows Script Host. Ошибка. Как исправить (код 80070002)

В самом простом случае нужно использовать раздел администрирования, где выбирается меню служб (проще всего запустить редактор служб через консоль «Выполнить», где прописывается команда services.msc).

Здесь нужно найти службу центра обновления и в меню правого клика использовать строку остановки процесса. Но для устранения сбоя это еще не все действия, поскольку снова может появиться сообщение о повреждении Windows Script Host (ошибка). Как исправить ситуацию?

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

Далее входим непосредственно в «Центр обновления» и запускаем ручной поиск апдейтов. Когда они будут найдены, их следует просто установить (возможно, потребуется перезагрузка системы).

Windows Script Host. Ошибка. Как исправить (код 800A0046)?

Встречается и еще одна неприятная ситуация. Возможен и другой вид сбоя Windows Script Host (ошибка). Как исправить проблемы при выдаче вышеуказанного кода? Для начала нужно понять природу неполадки.

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

Однако лучше использовать редактор политик безопасности (команда secpol.msc в меню «Выполнить»). Здесь нужно использовать узел политик безопасности, после чего с выбором раздела прав пользователя установить олицетворение клиента после проверки подлинности. Затем следует добавить пользователя или группу на вкладке локальных параметров безопасности в соответствующий список, сохранить изменения и перезагрузить компьютер.

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

Вместо итога

Ошибка сама по себе критичной не является и устраняется достаточно просто. В некоторых случаях может помочь даже такой простейший вариант, как просмотр и ручное удаление апдейтов (некоторые из них действительно могут вызывать сбои в системе). Делается это из того же «Центра обновления». На крайний случай, если юзер точно знает момент возникновения ошибки, можно использовать даже обычное восстановление системы, только при выборе точек нужно отобразить их все, после чего и произвести откат до заданного состояния. Но и вышеприведенные методы срабатывают.

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

Troubleshooting Code 800A0035 – File not found

Code 800A0035 is a straightforward error to solve. The secret is to read the Windows Script Error message carefully, then check the file path. Guy bet’s there is a typo.

Introduction to Error Code 800A0035

Code 800A0035 is runtime error more common with an .ASP file than a .VBS. The error is pointing to a file type or the wrong path rather than a pure scripting mistake.

The Symptoms You Get 800A0035

When you get a pop-up message box put on your detective hat, and pay close attention to the line number. My point is that its the line in the script and not the file name following Script:

The Cause of Error 800A0035

In the example above, Line 31: is the source of the error. Char 1: is not always very useful as the error could be anywhere on the line, and WSH still blames char 1.

The Solution

‡

Example 1: Script to map a printer

In this example, the actual file was called Input.txt.txt, thus either rename that to the more normal single .txt, else change the script!

‘ VBScript example snippet to demonstrate error 800A0035 .

‘ f1 is the Input file handle, so Set f1 = OPEN input Set f1 = fso.GetFile(«D:SMDRInput.txt»)

See More Windows Update Error Codes 8004 Series

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

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

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

Guy Recommends: WMI Monitor and It’s Free!

Download your free copy of WMI Monitor

Do you need additional help?

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

Give something back?

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

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

About The Author

Guy Thomas

Here is the script:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "rar.bat" , "rarp.bat"
'HideBat.vbs
CreateObject("Wscript.Shell").Run "rarp.bat", 0, True

The rar.bat file and the VBS script are in the same folder, that’s why I have used relative paths in the script. I cannot use absolute paths because I need to run the script on several computers.

I really think that what I need is really a simple script but apparently it’s pretty hard to get it working properly. I will be very grateful to those who help me.

Thank you a lot in advance.

Regards.

Страницы 1

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

1 2011-02-03 09:00:30 (изменено: Francyz, 2011-02-03 11:25:24)

Francyz
Участник
Неактивен

Рейтинг : [0|0]

Тема: VBS: Ошибка при запуске скрипта (команда DeleteFile)

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

Option Explicit ': On Error Resume Next
Dim objFSO, FolderX

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

RecourseDeleteByMask objFSO.GetFolder("c:"), Array("*.log","*.tmp","cache.*","LocalCache")

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Application Data1C1Cv82") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Application Data1C1Cv82"), Array("*.*")
    end if
Next

Set objFSO = Nothing
WScript.Quit 0

'=============================================================================
Sub RecourseDeleteByMask(objFolder, strMasks)
    Dim objSubFolder, strFullMask, strMask
    On Error Resume Next
    For each strMask in strMasks
        strFullMask = objFSO.BuildPath(objFolder.Path, strMask)
        objFSO.DeleteFile strFullMask, True
    Next

    Err.Clear
    For Each objSubFolder In objFolder.SubFolders
        If Err.Number = 0 Then
            RecourseDeleteByMask objSubFolder, strMasks
        Else
            Err.Clear 
        End If
    Next
End Sub
'=============================================================================

Это часть скрипта и ошибка ругается на строчку

        objFSO.DeleteFile strFullMask, True

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

2 Ответ от alexii 2011-02-03 12:27:13

alexii
Разработчик
Неактивен

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Очевидно, у них нет такого пути, нет доступа и т.п.

Francyz, чтобы мы тоже могли соображать «почему?», — скрипт должен точно соответствовать сообщению об ошибке, т.е., как минимум, должен быть воспроизводим: в приведённом Вами скрипте 35 строк, а сообщение об ошибке указывает на 40-ю строку.

3 Ответ от Francyz 2011-02-03 12:46:36 (изменено: Francyz, 2011-02-03 12:48:38)

Francyz
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Я убрал похожие строки с условием, чтобы не «мазолили» глаза. Вот полная версия:

Option Explicit ': On Error Resume Next
Dim objFSO, FolderX

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

RecourseDeleteByMask objFSO.GetFolder("c:"), Array("*.log","*.tmp","cache.*","LocalCache")

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsTemp") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsTemp"), Array("*.*")
    end if
Next
For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Application Data1C1Cv82") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Application Data1C1Cv82"), Array("*.*")
    end if
Next

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsApplication Data1C1Cv82") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsApplication Data1C1Cv82"), Array("*.*")
    end if
Next

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsTermorary Internet Files") then
    RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsTermorary Internet Files"), Array("*.*")
    end if
Next

Set objFSO = Nothing
WScript.Quit 0

'=============================================================================
Sub RecourseDeleteByMask(objFolder, strMasks)
    Dim objSubFolder, strFullMask, strMask
    On Error Resume Next
    For each strMask in strMasks
        strFullMask = objFSO.BuildPath(objFolder.Path, strMask)
        objFSO.DeleteFile strFullMask, True
    Next

    Err.Clear
    For Each objSubFolder In objFolder.SubFolders
        If Err.Number = 0 Then
            RecourseDeleteByMask objSubFolder, strMasks
        Else
            Err.Clear 
        End If
    Next
End Sub
'=============================================================================

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

4 Ответ от alexii 2011-02-03 16:23:04

alexii
Разработчик
Неактивен

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Пишите прохождение каждого вызова «RecourseDeleteByMask()» в файл, отслеживайте, что не проходит, ищите разницу.

5 Ответ от Francyz 2011-02-03 17:59:13

Francyz
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Я правильно понял, что можно добавить

Sub log(sData)
    Dim ts, ForAppending
    ForAppending = 8
    Set ts = fso.OpenTextFile("log.txt", ForAppending, True)
    ts.Write sData & chr(13) & chr(10)
    ts.Close
End Sub

А в свой цикл после RecourseDeleteByMask вставить вызов log( folder.Path ) ?

6 Ответ от Francyz 2011-02-04 15:49:02 (изменено: Francyz, 2011-02-04 15:51:37)

Francyz
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

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

Option Explicit ': On Error Resume Next
Dim objFSO, FolderX

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

RecourseDeleteByMask objFSO.GetFolder("c:"), Array("*.log","*.tmp","cache.*","LocalCache")

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsTemp") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsTemp"), Array("*.*")
    end if
Next
For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Application Data1C1Cv82") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Application Data1C1Cv82"), Array("*.*")
    end if
Next

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsApplication Data1C1Cv82") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsApplication Data1C1Cv82"), Array("*.*")
    end if
Next

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsTermorary Internet Files") then
    RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsTermorary Internet Files"), Array("*.*")
    end if
Next

Set objFSO = Nothing
WScript.Quit 0

'=============================================================================
Sub RecourseDeleteByMask(objFolder, strMasks)
    Dim objSubFolder, strFullMask, strMask, tf, fso
    On Error Resume Next
    For each strMask in strMasks
        strFullMask = objFSO.BuildPath(objFolder.Path, strMask)

'-----------Запись в файл-----------
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tf = fso.CreateTextFile("c:testfile.txt", True)
    tf.WriteLine(objFolder) 
    tf.Close
'----------------------------------------

        objFSO.DeleteFile strFullMask, True
    Next

    Err.Clear
    For Each objSubFolder In objFolder.SubFolders
        If Err.Number = 0 Then
            RecourseDeleteByMask objSubFolder, strMasks
        Else
            Err.Clear 
        End If
    Next
End Sub
'=============================================================================

7 Ответ от Francyz 2011-02-07 12:11:39

Francyz
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Сейчас выдалась опять эта ошибка, в текстовый записался пусть, на котором он остановился
C:Documents and SettingsAll UsersApplication DataKaspersky LabAVP60MP4DataUpdaterTemporary FilestemporaryFolderbasesidsForDiff

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

8 Ответ от pushok.88 2011-12-02 12:21:19

pushok.88
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

А кто нибудь может подсказать, можно ли в приведенном коде удалять файлы с заданным расширением, но только которые старше недели?

9 Ответ от alexii 2011-12-02 13:22:23

alexii
Разработчик
Неактивен

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Можно.

10 Ответ от pushok.88 2011-12-02 14:00:53 (изменено: alexii, 2011-12-02 14:03:22)

pushok.88
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Краткость-сестра таланта.))) Но хотелось бы еще понять, каким образом?

Вот допустим код:

Option Explicit ': On Error Resume Next
Dim objFSO, FolderX

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

RecourseDeleteByMask objFSO.GetFolder("c:"), Array("*.log","*.tmp","cache.*","LocalCache")

For Each FolderX In objFSO.GetFolder("c:Documents and Settings").SubFolders
    if objFSO.FolderExists(FolderX.Path&"Local SettingsTemp") then
        RecourseDeleteByMask objFSO.GetFolder(FolderX.Path &"Local SettingsTemp"), Array("*.*")
    end if
Next

Set objFSO = Nothing
WScript.Quit 0

'=============================================================================
Sub RecourseDeleteByMask(objFolder, strMasks)
    Dim objSubFolder, strFullMask, strMask, tf, fso
    On Error Resume Next
    For each strMask in strMasks
        strFullMask = objFSO.BuildPath(objFolder.Path, strMask)

   objFSO.DeleteFile strFullMask, True
    Next

    Err.Clear
    For Each objSubFolder In objFolder.SubFolders
        If Err.Number = 0 Then
            RecourseDeleteByMask objSubFolder, strMasks
        Else
            Err.Clear 
        End If
    Next
End Sub
'=============================================================================

Честно, всю голову сломал, но так и не понял каким образом воплотить данную идею.
Я понимаю, что надо использовать DateLastModified, но как это реализовать в данном коде не имею понятия.

11 Ответ от alexii 2011-12-02 14:48:58

alexii
Разработчик
Неактивен

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

pushok.88 пишет:

Краткость-сестра таланта.)))

Каков вопрос — таков ответ.

Я бы Вам предложил посмотреть в сторону LogParser’а:

LogParser.exe "SELECT LastWriteTime, Path FROM C:*.log, C:*.tmp, c:cache.*, c:LocalCache* WHERE SUB(TO_LOCALTIME(SYSTEM_TIMESTAMP()), LastWriteTime) > TIMESTAMP('7', 'd')" -i:FS -rtp:-1

Посмотрев, как сие работает, Вам останется только написать что-то наподобие:

for /f "delims=" %%i in ('LogParser.exe "SELECT Path FROM C:*.log, C:*.tmp, c:cache.*, c:LocalCache* WHERE SUB(TO_LOCALTIME(SYSTEM_TIMESTAMP()), LastWriteTime) > TIMESTAMP('7', 'd')" -i:FS -o:CSV -q:on -oDQuotes:on -oCodepage:866') do del /f /q "%%~i"

12 Ответ от pushok.88 2011-12-02 15:18:58

pushok.88
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

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

13 Ответ от alexii 2011-12-02 15:37:10

alexii
Разработчик
Неактивен

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Можно и подкорректировать.

Корректировать придётся следующее:

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

14 Ответ от pushok.88 2011-12-02 16:10:44

pushok.88
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Понятно, но тогда у меня другой вопрос. Как прописать, чтобы скрипт смотрел в папку по пути «C:Documents and SettingsТОЛЬКО ЗАЛОГИНЕНЫЙ ПОЛЬЗОВАТЕЛЬLocal SettingsApplication Data12»???

15 Ответ от alexii 2011-12-02 16:31:00

alexii
Разработчик
Неактивен

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Использовать переменную окружения «%UserProfile%…».

16 Ответ от stir 2011-12-05 10:23:21 (изменено: stir, 2011-12-05 10:29:30)

stir
Участник
Неактивен

Рейтинг : [0|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Лично я предположил сначала, что: 1. теряется связь с удаленной папкой (- пинг всегда между этими ПК постоянен?), 2. Пользователь не имеет нужных прав для осуществления операции (тогда что же делать с непостоянством ошибки??),
но это не так, т.к. прочитал весь скрипт и дошел до строки номер40.

т.к. 1С у меня нет — протестить скрипт наверное не получится у себя…

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

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

Вопрос: а зачем чистить временные файлы анивируса? Очень часто антивирус не дает права на их удаление..
Вопрос2: не проще ли было установить батник каждому на ПК с функией очистки нужных папок, это все делается локально — меньше сбоев при отработке? Батники также можно обновлять в системе и системно, если это предусмотреть заранее…

Любители построили Ковчег, а профессионалы — Титаник.

17 Ответ от BeS Yara 2011-12-08 15:00:58 (изменено: BeS Yara, 2011-12-08 15:02:27)

BeS Yara
Разработчик
Неактивен

Рейтинг : [2|0]

Re: VBS: Ошибка при запуске скрипта (команда DeleteFile)

Добрый день.

Francyz пишет:

Сейчас выдалась опять эта ошибка, в текстовый записался пусть, на котором он остановился
C:Documents and SettingsAll UsersApplication DataKaspersky LabAVP60MP4DataUpdaterTemporary FilestemporaryFolderbasesidsForDiff

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

Ошибка 800A0035, как и указано в описании, сообщает об отутствии файла. В стр. 40 происходит попытка удаления файла — лучше в лог писать именно полное имя файла(strFullMask) а не папки. У меня уже KES, но пути те же и в данной папке расположен единственный файл ah-0607g.xml.dif. Это имя не подпадает ни под одну из указанных при первом вызове процедуры масок. Что-то мне подсказывает, что ошибка происходит при
strFullMask = «C:Documents and SettingsAll UsersApplication DataKaspersky LabAVP60MP4DataUpdaterTemporary FilestemporaryFolderbasesidsForDiff*.log», т.е. ошибка при первом вызове процедуры(когда удаляются не все файлы, а по конкретной маске).
Возникновение ошибки вполне закономерно. Странно что игнорируется «On Error Resume Next»… Похожее поведение описано при использовании обработчика ошибок, но к «On Error Resume Next», как мне кажется, это не подходит. Однако, может быть стоит отключать игнорирование ошибок перед рекурсивным вызовом? Могу ошибаться, в «искусственных» условиях имитировать такое поведение для «On Error Resume Next» я не смог, но вдруг поможет?

Не пойму смысла этого фрагмента:


    Err.Clear
    For Each objSubFolder In objFolder.SubFolders
        If Err.Number = 0 Then
            RecourseDeleteByMask objSubFolder, strMasks
        Else
            Err.Clear
        End If
    Next

Сначала сбросили все ошибки, а потом проверяем «если ошибок нет, то …» — зачем? objFolder у нас имеется, и даже если подпапок там нет objFolder.SubFolders вернёт Folders а не ошибку.

Может быть заменить этот кусок на такой?


    Err.Clear
    On Error GoTo 0
    For Each objSubFolder In objFolder.SubFolders
            RecourseDeleteByMask objSubFolder, strMasks
    Next

Francyz пишет:

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

Чтобы логфайл не перезаписывался, нужно всё-таки использовать fso.OpenTextFile(как Вы изначально и писали), а не CreateTextFile(с учётом второго параметра он естественно создаётся поверх имеющегося). И наверное лучше открыть файл один раз, при старте скрипта, а дальше уже только писать туда. В конце работы скрипта файл закрыть.
Вместо «ts.Write sData & chr(13) & chr(10)» проще будет «ts.WriteLine sData». Также вместо «chr(13) & chr(10)» можно использовать vbCrLf.

pushok.88 пишет:

Честно, всю голову сломал, но так и не понял каким образом воплотить данную идею.
Я понимаю, что надо использовать DateLastModified, но как это реализовать в данном коде не имею понятия.

Пример работы с «возрастом» файла:


Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim File
For Each File in fso.GetFolder("d:aScriptsvbstmp").Files
  If DateDiff("d", File.DateLastModified, Now) > 7 then 'если возраст более 7 дней
    'удаляем/копируем/покоряем мир
  End If
Next

Разницу между «d» и «y» не понял — для файла 2009-го года и для файла текущего года оба варианта дают одинаковый результат. Похоже разницы нет:

To calculate the number of days between date1 and date2, you can use either Day of year («y») or Day («d»).

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

P.S. Учитывая вызов процедуры для конкретных папок профиля, я не вижу смысла в рекурсивной чистке начиная с корня диска. Лучше натравливать скрипт на известные места скопления временных файлов, чем обрабатывать весь диск, рискуя удалить что-то, что удалять не следует.
P.P.S. Наткнулся на сайт с описанием ошибок — Code 800 Errors in VBScript / WSH, может кому-то будет полезен. Ну и MSDN:Core Visual Basic Language Errors(это VB6, но думаю и для VBS они же будут).

Страницы 1

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

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

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

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

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

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

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

Заключение

Мы рады, что смогли помочь Вам в решении проблемы.

Помимо этой статьи, на сайте еще 12159 инструкций.
Добавьте сайт Lumpics. ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

Что означает сбой Windows Script Host

Windows Script Host. Ошибка. Как исправить (код 80070002)

Windows Script Host. Ошибка. Как исправить (код 800A0046)?

Однако лучше использовать редактор политик безопасности (команда secpol. msc в меню «Выполнить»). Здесь нужно использовать узел политик безопасности, после чего с выбором раздела прав пользователя установить олицетворение клиента после проверки подлинности. Затем следует добавить пользователя или группу на вкладке локальных параметров безопасности в соответствующий список, сохранить изменения и перезагрузить компьютер.

Вместо итога

Источники:

https://lumpics. ru/error-in-windows-script-host-how-to-fix-it/

https://fb. ru/article/277108/sboy-slujbyi-windows-script-host-oshibka-kak-ispravit-ee-prosteyshimi-metodami

Источник

Troubleshooting Code 800A0035 – File not found

Code 800A0035 is a straightforward error to solve. The secret is to read the Windows Script Error message carefully, then check the file path. Guy bet’s there is a typo.

Introduction to Error Code 800A0035

Code 800A0035 is runtime error more common with an .ASP file than a .VBS. The error is pointing to a file type or the wrong path rather than a pure scripting mistake.

The Symptoms You Get 800A0035

When you get a pop-up message box put on your detective hat, and pay close attention to the line number. My point is that its the line in the script and not the file name following Script:

The Cause of Error 800A0035

In the example above, Line 31: is the source of the error. Char 1: is not always very useful as the error could be anywhere on the line, and WSH still blames char 1.

The Solution

‡

Example 1: Script to map a printer

In this example, the actual file was called Input.txt.txt, thus either rename that to the more normal single .txt, else change the script!

‘ VBScript example snippet to demonstrate error 800A0035 .

‘ f1 is the Input file handle, so Set f1 = OPEN input Set f1 = fso.GetFile(«D:SMDRInput.txt»)

See More Windows Update Error Codes 8004 Series

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

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

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

Guy Recommends: WMI Monitor and It’s Free!

Download your free copy of WMI Monitor

Do you need additional help?

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

Give something back?

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

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

About The Author

Guy Thomas

INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

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

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

Microsoft VBScript runtime error ‘800a0035’

(OP)

4 Aug 08 12:18

Using the following command in ASP code running on IIS:

Set pfFile=fs.OpenTextFile(szFileName,1,false)

Produces the following error:

Microsoft VBScript runtime error ‘800a0035’

File not found

What is causing OpenTextFile to not be able to find this file?

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:

Talk 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

10 Years Ago

Hi all,

Basically, everything works fine with my app when I work on my own computer. However, when I put it on another computer, I get an error. The error occurs when it tries to instance a class coming from an exterior dll.

I tought that it somehow was not finding the path to the dll in question … but that’s not the case, it’s just that it doesn’t work properly on the other machine. (creating an instance of the COM component with CLSID {xxxxx} from the IClassFactory failed due to the following error: 800a0035) . But the dll is here …

Any help would be more than welcome … I have no clue on how to solve this …

Many many thanks,

Michael

All 3 Replies

thines01

Team Colleague

Featured Poster

10 Years Ago

Is it the same version of the DLL?
It looks like that is a File Not Found error.
Are there any problems with permissions for the current user to get to the file?

Edited

10 Years Ago
by thines01 because:

n/a

10 Years Ago

Is it the same version of the DLL?
It looks like that is a File Not Found error.
Are there any problems with permissions for the current user to get to the file?

Many thanks for your help

Yes, same version.

I don’t think it didn’t find the file because the ddl in question is here … And then, I’m quite suprised to not have an error when using Directory.SetCurrentDirectory(defaultDir); but when instancing a class …

10 Years Ago

800a0035 error for not found file so you need to register the com dll at the new machine use «regsrv32 FullPathComName.dll» command first

Reply to this topic

Be a part of the DaniWeb community

We’re a friendly, industry-focused community of developers, IT pros, digital marketers,
and technology enthusiasts meeting, networking, learning, and sharing knowledge.

10 Years Ago

Hi all,

Any help would be more than welcome … I have no clue on how to solve this …

Many many thanks,

Michael

All 3 Replies

thines01

Team Colleague

Featured Poster

10 Years Ago

Is it the same version of the DLL?
It looks like that is a File Not Found error.
Are there any problems with permissions for the current user to get to the file?

Edited

10 Years Ago
by thines01 because:

n/a

10 Years Ago

Is it the same version of the DLL?
It looks like that is a File Not Found error.
Are there any problems with permissions for the current user to get to the file?

Many thanks for your help

Yes, same version.

10 Years Ago

800a0035 error for not found file so you need to register the com dll at the new machine use «regsrv32 FullPathComName.dll» command first

Reply to this topic

Be a part of the DaniWeb community

We’re a friendly, industry-focused community of developers, IT pros, digital marketers,
and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Here is the script:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "rar.bat" , "rarp.bat"
'HideBat.vbs
CreateObject("Wscript.Shell").Run "rarp.bat", 0, True

The rar.bat file and the VBS script are in the same folder, that’s why I have used relative paths in the script. I cannot use absolute paths because I need to run the script on several computers.

I really think that what I need is really a simple script but apparently it’s pretty hard to get it working properly. I will be very grateful to those who help me.

Thank you a lot in advance.

Regards.

Skydiver_vrn

0 / 0 / 0

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

Сообщений: 14

VBS

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

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

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

Visual Basic

Set FSO = CreateObject("Scripting.FileSystemObject")
path="D:share123"
  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 разрешение отклонено

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

2617 / 547 / 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

[ТС]

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

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

2617 / 547 / 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

[ТС]

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

Bash

1 2	del D:Share123. /q /f C:cmdclear_share.vbs

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

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

0 / 0 / 0

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

Сообщений: 14

03.07.2014, 14:52

[ТС]

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

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

Dmitrii

2617 / 547 / 109

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

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

04.07.2014, 20:47

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

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

Visual Basic

Dim objFS, objFolder, objItem, strPath, strExclude, strLog, strTemp
 
strExclude = "Маркетинг;111;222;333;444;555;666;777;888;"
Set objFS = CreateObject("Scripting.FileSystemObject")
strPath = "D:share123"
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

ComSpec

3455 / 1993 / 635

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

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

04.07.2014, 22:27

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», «аркетинг», «ркетинг», «кетинг», «етинг», «тинг», «инг», «нг», «г».

17951 / 7587 / 889

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

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

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

05.07.2014, 14:21

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

Dmitrii

2617 / 547 / 109

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

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

06.07.2014, 21:37

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

Решение

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

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

Visual Basic

Dim objFS, objFolder, objItem, strPath, strExclude, strLog, strTemp
 
strExclude = "*Маркетинг*111*222*333*444*555*666*777*888*"
Set objFS = CreateObject("Scripting.FileSystemObject")
strPath = "D:share123"
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

0 / 0 / 0

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

Сообщений: 14

15.07.2014, 11:19

[ТС]

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

17951 / 7587 / 889

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

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

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

15.07.2014, 13:47

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

Вот сценарий:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "rar.bat" , "rarp.bat"
'HideBat.vbs
CreateObject("Wscript.Shell").Run "rarp.bat", 0, True

Заранее большое спасибо.

С уважением.

17 Years Ago

The data that is entered is creating the error page when I suibmit it ti the db. Can anyone help? :confused:

HTTP 500.100 — Internal Server Error — ASP error
Internet Information Services

———————————————————————————

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A0035)
File not found
/threecubePlus_IIS/formProcess.asp, line 31

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 181 bytes to /threecubePlus_IIS/formProcess.asp

POST Data:
myTitle=eryeryre&thefile=C%3A%5CDocuments+and+Settings%5CStuart.BLUEBEEN0DT01%5CDesktop%5Csite.png&myName=erreery&submit=Submit&myAddress1=&myAddress2=&myCity=&myCounty=&myPostCode=

Time:
Friday, May 06, 2005, 5:11:11 PM

More information:
Microsoft Support

do you have an include file or something? or is your page called formProcess.asp

post the page that might help but by my guess doest the dbase have a error if null field?

Be a part of the DaniWeb community

We’re a friendly, industry-focused community of developers, IT pros, digital marketers,
and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Remove From My Forums

Question
User-1279243669 posted

Hi,

I’m using the following code to return file_info into an asp page using Vis Web Dev Express:
```
Dim fs,f
        fs = Server.CreateObject("Scripting.FileSystemObject")
        f = fs.GetFile(".64.148.102eventmanagerEvent_Log.trc")
        Response.Write("Last update was: " & DateDiff("s", f.DateLastModified, Now) & " seconds ago")
        f = Nothing
        fs = Nothing
%>
    
    </asp:Label>
    </p>
    <p>
    <asp:Label ID="Label4" runat="server" Font-Bold="True" Font-Names="Arial" 
            ForeColor="#3366FF" >
```
___

The code runs when I run it as a local build, but does not run when I upload it to my website.

The file was recently removed, and a new one created. My local build still sees it, but the uploaded code on my website does not. Before the file was re-created, the code on the website saw the file. I believe all the file permissions are the same as
the previous file. I’ve tried using the ip-address and server-name, both give me the error:

__

Exception from HRESULT: 0x800A0035 (CTL_E_FILENOTFOUND)

Description:
An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.IO.FileNotFoundException: Exception from HRESULT: 0x800A0035 (CTL_E_FILENOTFOUND)

Source Error:

Line 37: Dim fs,f Line 38: fs = Server.CreateObject("Scripting.FileSystemObject") Line 39: f = fs.GetFile(".64.148.102eventmanagerEvent_Log.trc") Line 40: Response.Write("Event Log Last Updated: " & f.DateLastModified) Line 41: f = Nothing

___

But this error is not returned using a local build of the code.

Any help much appreciated.

Источник

INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

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

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

Microsoft VBScript runtime error ‘800a0035’

(OP)

4 Aug 08 12:18

Using the following command in ASP code running on IIS:

Set pfFile=fs.OpenTextFile(szFileName,1,false)

Produces the following error:

Microsoft VBScript runtime error ‘800a0035’

File not found

What is causing OpenTextFile to not be able to find this file?

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.

Troubleshooting Code 800A0035 – File not found

Introduction to Error Code 800A0035

The Symptoms You Get 800A0035

The Cause of Error 800A0035

The Solution

Example 1: Script to map a printer

See More Windows Update Error Codes 8004 Series

Guy Recommends: WMI Monitor and It’s Free!

About The Author

Guy Thomas

1. Используйте проверку системных файлов

2. Сканирование ПК на наличие вредоносных программ

3. Установить значение по умолчанию для ключа. vbs

4. Устранение неполадок в состоянии чистой загрузки

5. Восстановление или сброс Windows 10

Решение 1. Просканируйте свой компьютер на наличие вредоносных программ

Решение 2. Запустите сканирование SFC и DISM

Решение 3. Восстановите значение VBS по умолчанию через реестр

Решение 4. Отключите Windows Script Host через реестр

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

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

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

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

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

Заключение

Troubleshooting Code 800A0035 – File not found

Introduction to Error Code 800A0035

The Symptoms You Get 800A0035

The Cause of Error 800A0035

The Solution

Example 1: Script to map a printer

See More Windows Update Error Codes 8004 Series

About The Author

Guy Thomas

Contact US

Come Join Us!

Posting Guidelines

Microsoft VBScript runtime error ‘800a0035’

Microsoft VBScript runtime error ‘800a0035’

Red Flag Submitted

Join Tek-Tips® Today!

1 2010-11-12 13:35:43

Тема: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

2 Ответ от alexii 2010-11-12 14:29:23

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

3 Ответ от DnsIs 2010-11-12 19:31:11

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

4 Ответ от alexii 2010-11-12 19:32:09

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

5 Ответ от DnsIs 2010-11-12 19:38:54

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

6 Ответ от DnsIs 2010-11-12 19:48:44 (изменено: DnsIs, 2010-11-12 19:49:25)

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

7 Ответ от alexii 2010-11-12 20:01:30

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

8 Ответ от jite 2010-11-14 03:48:36 (изменено: jite, 2010-11-14 03:48:59)

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

9 Ответ от alexii 2010-11-14 06:53:24

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

10 Ответ от DnsIs 2010-11-14 20:54:27

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

11 Ответ от jite 2010-11-14 21:12:34 (изменено: jite, 2010-11-14 21:13:32)

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

12 Ответ от jite 2010-11-14 21:18:20

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

13 Ответ от DnsIs 2010-11-15 11:22:50 (изменено: DnsIs, 2010-11-15 11:56:00)

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

14 Ответ от DnsIs 2010-11-15 14:11:19 (изменено: DnsIs, 2010-11-15 14:15:22)

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

15 Ответ от alexii 2010-11-15 14:47:54

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

16 Ответ от DnsIs 2010-11-15 15:06:01

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

17 Ответ от jite 2010-11-15 22:52:36 (изменено: jite, 2010-11-15 22:53:59)

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

18 Ответ от DnsIs 2010-11-16 00:06:02

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

19 Ответ от jite 2010-11-16 00:53:02

Re: VBS, JS: Проблемы с CreateObject(«Shell.Application»).Windows().Count

20 Ответ от alexii 2010-11-16 03:58:15

Join Tek-Tips^® Today!