0x1a8 ошибка выполнения vbscript

kipriot	#1 Оставлено : 5 мая 2015 г. 17:17:05(UTC)
Статус: Новичок Группы: Участники Зарегистрирован: 03.07.2014(UTC) Сообщений: 8 Поблагодарили: 1 раз в 1 постах	Такая проблема при формировании сертификата — «Произошла ошибка при установке параметров запроса! Номер: 0х1A8 Источник: Ошибка выполнения Microsoft VBScript Источник: Требуется объект» Система Windows 8.1 x64, КриптоПро CSP 3.9.8227 Что делать? Пользователь kipriot прикрепил следующие файлы: Pic.png (146kb) загружен 57 раз(а). У Вас нет прав для просмотра или загрузки вложений. Попробуйте зарегистрироваться.

kipriot	#2 Оставлено : 6 мая 2015 г. 5:41:31(UTC)
Статус: Новичок Группы: Участники Зарегистрирован: 03.07.2014(UTC) Сообщений: 8 Поблагодарили: 1 раз в 1 постах	В режима отладки проверил, показывает: «SCRIPT5007: Не удалось задать свойство «KeyProtection» ссылки, значение которой не определено или является NULL» А поддержка всё молчит……

kipriot	#3 Оставлено : 6 мая 2015 г. 6:25:57(UTC)
Статус: Новичок Группы: Участники Зарегистрирован: 03.07.2014(UTC) Сообщений: 8 Поблагодарили: 1 раз в 1 постах	Путём манипуляций с настройками IE 11 (разрешением всего и вся в настройках безопасности), процесс пошёл, Крипто про подрубается, появляется «датчик случайных чисел» и….выскакивает: «Произошла ошибка при сохранении запроса в файл! Номер: 0х46 Источник: Ошибка выполнения Microsoft VBScript Источник: Разрешение отклонено» Кажется начинаю понимать где собака зарыта

kipriot	#4 Оставлено : 6 мая 2015 г. 7:20:51(UTC)
Статус: Новичок Группы: Участники Зарегистрирован: 03.07.2014(UTC) Сообщений: 8 Поблагодарили: 1 раз в 1 постах	В общем победил. Моя система win 8.1 x64, браузер IE 11, КриптоПро CSP 3.9. Итак. Отключаем антивирус, Заходим в панель управления — Свойства браузера — Вкладка Безопасность — Зона «Интернет» и «Местная Интрасеть», нажимаем «другой» и разрешаем ВСЁ по длинному списку, (главное «Элементы Activex и модули подключения» разрешить) — затем во вкладку «Дополнительно» и тут разрешаем ВСЁ — жмём ОК — вышли — перезагрузились. Теперь, если у вас нет доп. установленного меню пуск как в windows 7, идём в папку C:\Program Files\Internet Explorer И запускаем (правой кнопкой мыши) «запуск от имени администратора» iexplore.exe. В открывшемся браузере нажимаем Файл — Открыть — ваш файл offreq. Далее стандартно. PS. По всей видимости сей offreq был написан в незапамятные времена для windows 95 , поэтому на современных системах просто так не работает
1 пользователь поблагодарил kipriot за этот пост.	winnie-the-pooh оставлено 23.08.2016(UTC)

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

Guest

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

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

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

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

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

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

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

В открывшемся окне вставить ключ в соответствующую строку.

Хотя проблема решена, рано или поздно она появится снова. Уменьшить шанс можно, выставив повторную активацию продукта (реактивацию) каждые 10 дней. Но ключ все равно слетит, поскольку каждые 180 дней Windows проходит валидацию. Более того, колючи могут слететь при обновлении системы или обновлении безопасности Windows. Поэтому и программа, и инструкция еще могут пригодиться.

5 thoughts on “ Как убрать Сбой активации продукта Microsoft Office ”

КУПИТЕ НА ЭБЕЙЛЕ КЛЮЧИ И НЕ ПАРЬТЕ СЕБЕ МОЗГИ…АКТИВАТОРЫ -Г***О..ПОТОМ СИСТЕМА ПОДВИСАЕТ ТАК КАК ЩЕНТР БЕЗОПАСНОСТИ ПОСТОЯННО ПЫТАЕТСЯ ПРОВЕРИТЬ КЛЮЧ..САМ ВСЮ ЖИЗНЬ ПОЛЬЗОВАЛСЯ КРЯКАМИ..АКТИВАТОРАМИ…НО КУПИЛ НА ЭБЕЙЛЕ КЛЮЧ К 10 ЗА 170 Р!!И К ОФИСУ ЗА 200 Р….ЧЕТВЕРТЫЙ ГОД ПОЛЛЕТ НОРМАЛЬНЫЙ. И УДИВИТЕЛЬНО ЧТО ВИНДОВС СРАЗУ НЕ ПЫТАЕТСЯ БЕСКОНЦА КЛЮЧ ПРОВЕРИТЬ

Спасибо за совет. Все работает без мозго**ли. Ключ, правда подорожал: 300 р

А заглавными буквами это для особо тупых. или типа для особо упрямых, которые не хотят платить не понятно кому и не понятно за что 🙂 Что бы найти работающий способ, при котором ничего не слетает и все работает, надо меньше 20-минут, а потратив 30 минут можно уже стать экспертом 😀 — а говоришь: «платить»

Спасибо за подсказку. Я чуть не начал половой акт с ноутом по активации офиса.

При заказе афис 2016 пишет, к сожалению мы не можем предоставить наши услуги custo
На eBay

Если вы только недавно перешли на Windows 10 с более ранней версии системы, то наверняка сразу же столкнулись с проблемой активации ОС (см. также Как бесплатно получить Windows 10 после 29.07.2016). Эта трудность существовала и в предыдущих версиях ОС от Майкрософт, но теперь, с выходом Виндовс 10, она буквально перешла на новый уровень. Как активировать систему после 29.07.2016, если не успели, какие наиболее популярные активаторы популярны в данный момент, как они работают и как настраиваются. Ответы на все эти вопросы я и постараюсь описать в данной статье.

Официальная активация Windows 10 в билде 1607

С 2015 года система активации Windows 10 позволяет активировать ОС по старому ключу 7, 8 или 8.1. С момента выхода Юбилейного обновления предполагалось, что активация с помощью такого решения будет недоступна. Тем не менее, ключи все еще переносятся на «десятку» с более ранних систем, даже для новых дистрибутивов версии 1607, установленных на чистый жесткий диск.

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

Такое решение позволит разрешить трудности с активацией, затрагивающие серьезные изменения аппаратной базы ПК (к примеру, при замене материнки).

В случае, если активировать Windows не удалось, в категории настроек «Безопасность и обновление» — «Активация» возникнет опция «Устранение неполадок во время активации», учитывающая вашу учетную запись, закрепленные за ней лицензии, и число персональных узлов, где задействуется данная лицензия.

Лицензия привязывается к основной учетной записи Microsoft на используемом вами ПК. Таким образом, в системе в указанном выше разделе параметров вы сможете увидеть сообщение, утверждающий, что «Операционная система была активирована посредством лицензии цифрового типа, которая была привязана к вашей учетной записи Microsoft». (см. Как создать учетную запись Microsoft).

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

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

Как активировать Windows 10 в случае изменения аппаратного оборудования

Существенная дилемма, интересующая многих пользователей:

Если мне понадобится заменить несколько ключевых компонентов ПК (материнскую плату или процессор), как будет функционировать прикрепленная к аппаратному железу активация?

Ответ прост: как я упомянул выше, с 1 августа 2016 года лицензию ОС, которая была получена во время бесплатного обновления системы, можно прикрепить к своей персональной учетной записи Microsoft. Такое решение было принято инженерами, дабы облегчить активацию системы во время изменения аппаратной базы ПК. В связке все эти компоненты функционируют весьма успешно, прозрачно и понятно. Привязав лицензию к учетной записи Майкрософт, вам удастся переместить активацию на целиком новое, только что установленное железо без проблем со сбросом ключа или отсутствия валидности лицензии.

Но это все касается лицензионной, официально купленной Виндовс. Или для тех, кто успел обновиться в течение года до 29.07.2016. А как же быть с загруженной из Интернета копией? К счастью, решить проблему активации такой ОС вполне возможно, и решение этой задачи – KMS-активация. О том, что это такое, и «с чем ее едят», читайте ниже.

Что такое KMS-активация и как она работает?

В сети можно найти достаточно много активаторов на любой вкус. Некоторые более простые и неприхотливые к предварительным настройкам, другие немного сложноваты в освоении и требуют к себе практичного выверенного подхода. Наиболее популярный из всех активаторов на данный момент – это KMS Auto NET. В Интернете можно найти достаточно много ссылок на него, но будьте осторожны: вместо активатора часто попадается очередной вирус или червь, избавиться от которого порой бывает не так уж и просто. Так что, доверяйте проверенным источникам. Также можете воспользоваться для скачивания приведенной выше ссылкой. Автор сих строк проверил ссылку на работоспособность и может заверить, что в этом файле вирусов нет, и он абсолютно чист.

Итак, вы скачали активатор Windows 10 2016 и готовы его запустить. Что же KMS Активатор вообще собой представляет и как работает? Активация KMS – это простой и доступный способ активации операционных систем, обычно применяемый в сети корпоративными клиентами, но так как в сеть обычно утекает множество дистрибутивов (Volume), то теперь он может быть использован и всеми нами. Главное преимущество KMS-активации заключается в том, что вам нет необходимости обзаводиться доступом в сеть или налаживать телефонную связь, чтобы активировать систему. Все, что нам нужно, — это подключение к серваку KMS, доступ к которому мы можем обеспечить благодаря эмулятору KMS Auto NET.

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

Установка эмулятора и применение активации

1. Запускаем приложение на исполнение в режиме админа. Самое первое, что бросается в глаза, — это форма приглашения и инструкция ReadMe (если вы разберетесь с ней, впоследствии вам будет гораздо легче понять все нюансы и детали работы эмулятора).

Также можно заметить две кнопки «Информация» и «Активация». Вы можете тотчас осуществить активацию офисных приложений или системы, не обращая внимания ни на какие настройки. Такой способ заключается в быстром переборе всех возможных вариантов, подборе лучшего из них, автоматической активации приложения и последующего удаления сервиса. Также вы можете установить несколько настроек, которые помогут вам успешно активировать систему в случае каких-либо неполадок с активацией.

2. Выбираем закладку «Система». Тут мы вправе удалить либо установить сервис, отдать предпочтение автоматическому или ручному методам установки сервиса, активировать ведение журнала, сгенерировать запланированную задачу в расписании либо инсталлировать ключ GVLK приложения. Более того, мы сможем также сбросить параметры по дефолту. Выбрав опцию WinDivert, программа инсталлирует сервис вместе с особым драйвером. Режим Hook подразумевает установку сервиса и подмену ряда системных объектов. Опция TAP устанавливает KMS вместе со вспомогательным виртуальным сетевым адаптером.

Выбрав режим Auto, вы зададите установку сервиса, используя один из обозначенных выше вариантов, или же в ручном режиме (окончательный выбор зависит от того, какую систему вы собираетесь активировать). Используя опцию NoAuto, сервис попросту будет инсталлирован без каких-либо вспомогательных изменений и добавлений в ОС – ей мы и отдадим предпочтение, поскольку все остальные предназначаются исключительно для Win 8.1 и редакции Server 2012 R2.

3. Итак, когда все настройки и параметры выставлены, код активации Windows 10 и ваш компьютер превратится в полноценный KMS-сервер. Переходим снова на закладку «Система» и жмем контрол «Установить KMS-Сервис».

Когда процесс инсталляции окажется завершенным, вы сможете узнать об этом из информационного сообщения «В системе инсталлирован KMS-Service». Программу можно закрывать, установка сервиса завершена.

Lite KMS-Активатор и его применение

Lite-версия активатора KMS Auto для Windows 10 работает схожим образом. Здесь вы можете найти все те же настройки, что и в более старшей редакции приложения. Сама функция активации находится на первой закладке под названием «Главное окно». Здесь же можно задействовать планировщик, чтобы сгенерировать задачу автоматической переактивации через заданный промежуток времени, либо установить GVLK-ключ.

Все остальные настройки сконцентрированы на вкладке «Настройки»: это и установка KMS-сервиса для эмуляции сервера, его порт, временные диапазоны AI и RI, позволяющие задействовать повторную переактивацию на сервере, а также WinPID-идентификатор и опциональное ведение лога процесса активации. Главное отличие portable lite-версии KMS-активатора от его полноценной развернутой версии – это дополнительные утилиты. Прямо в окне активатора вы можете изменить редакцию операционки на более приемлемую для вас. Это может быть любое издание Win 10 или 8.1. Выбрав редакцию во втором поле в разделе «Изменение редакции Виндовс», попросту нажмите контрол «Изменить редакцию ОС» и издание системы будет изменено.

Также весьма полезным является инструмент для удаления неиспользуемых обновлений Office. Очень уместным он окажется, если вам придется почистить систему от тех обновлений, которые не приносят особой пользы офисному комплекту программ. Также одним нажатием можно сбросить статус операционки на невалидную, если вы хотите поэкспериментировать с различными параметрами, задаваемыми перед активацией. Более того, воспользовавшись Lite KMS-сервисом, можно сохранить статус активации и в любой момент восстановить ее, если после задания некоторых новых ключей активации Windows 10, успешно активировать Виндовс более не представляется возможным, а при первой попытке все получилось великолепно.

Другие активаторы Windows 10

Хотя KMSAuto и пользуется наибольшей популярностью среди всех активаторов «десятки», в сети можно найти и несколько других программ, справляющихся с возложенной на них задачей. Первая из них – это Re-Loader Activator, автоматический активатор любой системы линейки Виндовс, который также подходит и для офисных продуктов. Работает он весьма просто и понятно: достаточно запустить исполняемый EXE-файл и на экране появится главная форма приложения. Выбираем продукт, который желаем активировать (Windows или Office) и кликаем на кнопке «Активация».

Вот и все, — просто, как часы. Настройки менять вовсе не обязательно, но, если вы все же решите посмотреть, какие опции припасены для нас разработчиками, для этого служит дискретная закладка. Между прочим, программа использует тот же самый алгоритм KMS, что и KMSAuto, поэтому особых различий в параметрах в сравнении с выше упомянутой софтиной вы здесь не найдете. Для работы с активатором требуется установленный набор библиотек .NET Framework 4.0, имейте это в виду.

Еще один полезный полнофункциональный активатор – это KMSpico. В сети можно найти как портативную версию активатора, так и setup-дистрибутив. Главная фишка KMSpico – это его яркий привлекательный дизайн. К примеру, для запуска процедуры активации служит яркая красная кнопка, а еще одна пиктограммка с изображенным на ней знаком восклицания – это кнопка информационного характера, по нажатии которой на дисплее отображается статус системы и сведения о валидности лицензии.

Сервис KMS Auto на сегодняшний день является, бесспорно лучшим механизмом для активации Windows 10, других операционных систем линейки Виндовс, а также офисных продуктов. Разобравшись досконально один раз со всеми деталями и нюансами приложения, вы избавите себя от массы проблем с активацией системы в дальнейшем, и обеспечите себя массой времени, проводимого за стабильной работой в ОС Виндовс любого издания, кроме Виндовс 7. К сожалению, в «семерке» KMS-сервис оказывается полностью бесполезен, и если вы пользуетесь именно этой операционкой, придется подыскать другой инструмент для активации (к примеру, Chew-WGA). Другие активаторы также придутся весьма кстати, если вы хотите обеспечить себе качественную и полностью рабочую активацию последней ОС от Майкрософт.

KMS активатор Windows 10 – это программа, которая помогает активировать наиболее распространенные продукты от Microsoft.

Речь идет о самой операционной системы Виндовс, а также офисном пакете Office.

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

Как происходит данный процесс, мы разберем далее. Будет интересно! Так что готовьте пельмешки, чай и начнем.

Принцип работы простым языком

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

Дело в том, что Виндовс имеет функцию регулярной проверки своей лицензии.

Происходит это так: она связывается с серверами Microsoft и запрашивает, действительна ли ее лицензия.

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

ОС ни с кем не связывается и ничего не проверяет.

Чтобы понять, как это работает, необходимо изучить само понятие «Key Management Server». Именно этот элемент системы и отвечает за проверку лицензии. Примерная схема его работы показана на рисунке 1.

Рис. 1. Схема работы Key Management Server

Key Management Server – это система управления ключами. В ней используется архитектура «клиент-сервер». Понятно, что клиент («KMS Client» на схеме) – это ваш компьютер. Он связывается с сервером, то есть «KMS Host» через DNS, чтобы проверить свою лицензию. На сервере есть своя информация о правильности ключей – «Volume License Agreement». Также он связывается со специальным сервисом Microsoft, который выполняет самую главную задачу. Речь идет об элементе «Microsoft Hosted Activation Service».

Как-то заменить сервер невозможно. Перехватить соединение тоже практически невозможно.

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

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

На самом деле это попросту не происходит. Вот так все просто.

Более подробно о том, как работает активатор

KMS активатор, фактически, изменяет сам алгоритм проверки лицензии.

Как мы рассматривали выше, с компьютера клиента отправляется запрос на серверы Microsoft.

От них приходит ответ – положительный или отрицательный.

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

Система перед отправкой запроса проверяет, куда его нужно отправлять.

Делает она это, опираясь на определенные параметры.

Активатор создает на компьютере клиента такой же сервер с теми же параметрами (почти с теми же).

И система, отправляя запрос на проверку, находит ближайший сервер.

А это именно тот, который создала наша программа.

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

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

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

Что может делать активатор

Вот полный список возможностей рассматриваемого программного обеспечения:

1 Бесплатная активация Windows 7, 8, 1 и 10. На ХР она работать не будет. То есть нелицензионная копия быстро превращается в лицензионную. Также поддерживается функция активации Windows Server, что весьма полезно. Разрядность при этом не важна – может быть 32х или 64х.

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

3 Бесплатная активация Microsoft Office 2010, 2013 и 2016.

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

Это относится как к ОС, так и к офисному пакету.

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

Что нужно для работы программы

Системные требования, в принципе, понятны.

Это версия Виндовс, начиная с семерки, или же версия офисного пакета, начиная с 2010.

Кроме того, для работы активатора понадобится установить на компьютер пакет .NET Framework 4.5.

Это нужно для правильной работы рассматриваемой нами программы. Загрузить этот пакет можно на официальном сайте microsoft.com.

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

Если возникнут какие-то проблемы или активатор просто не будет работать, вероятно, проблема именно в .NET Framework.

Тогда уже устанавливайте его и снова запускайте активатор.

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

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

Использование ПО пошагово

Чтобы активировать Виндовс, сделайте вот что:

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

Рис. 2. Кнопка «Активация» в КМС

2. Дальше появятся две новые кнопки – «Активировать Windows» и «Активировать Office». Нам нужен первый вариант, поэтому жмите на него.

Рис. 3. Кнопка «Активировать Windows» в КМС

3. Появится новое окно. В нем необходимо будет ввести ключ продукта. Разумеется, у нас его нет, но следует обратить внимание на поле «Частичный ключ». Там отображается часть лицензионного ключа, который требуется. Формат требуемого ключа такой: ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ. То есть 5 блоков по 5 символов. Введите абсолютно любой ключ, но с той частью, которая отображается как частичная. Например, в нашем случае частичный ключ: PTMXQ. Мы можем ввести такой код: PTMXQ-PTMXQ-PTMXQ-PTMXQ-PTMXQ или же PTMXQ-XXXXX-XXXXX-XXXXX-XXXXX или любые другие символы, но только чтобы там было PTMXQ. Нажмите «Продолжить».

Рис. 4. Окно ввода ключа Виндовс

4. Почти такое же окно появится еще раз. Там в поле «Частичный ключ» уже будет показан полный ключ, который нужно ввести. Введите его таким же образом. На этом активация завершена!

Как видите, все предельно просто.

В программе также есть некоторые настройки.

Они находятся во вкладке «Система».

Разберем их более подробно:

• В блоке «KMS-Sercive» находятся две кнопки – установки и удаления. Они предназначены для того, чтобы создать ярлык данного ПО в системе. Если этого не сделать, потребуется каждый раз запускать скачанный ярлык.
• Ниже находится блок способов активации. Лучше там оставить отметку на надписи «Auto», чтобы ПО самостоятельно определяло, что лучше.
• Правее можно видеть еще два параметра – «Вести Лог файл» и «Определять IP-адрес». Эти параметры можно установить или убрать по желанию.
• В блоке «Планировщик» указываются задачи, которые будет выполнять программа. Например, можно выполнять повторную активацию один раз в 10 дней.
• Блок «Установка GVLK ключа» понадобится в тех случаях, которая программа не сможет активировать ОС или офисный пакет. Это, если говорить просто, более мощный способ активации.
• Внизу можно изменить язык программы.

Рис. 5. Окно настроек КМС

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

Где скачать

Интересно, что существует сайт kms-auto.pro, который может показаться официальным.

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

Вот список сайтов, где можно найти полностью рабочую версию КМС:

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

Послесловие

При использовании данного ПО стоит учитывать несколько моментов, а конкретно:

1. Необходимо время от времени реактивировать систему и офис, то есть активировать их повторно. Как бы вы это ни делали раньше, ОС все равно как-то «поймет», что все это подстава. На этот случай в активаторе есть функция постоянной реактивации – каждые 10 дней.

2. Через 180 дней максимум любая активация перестанет действовать. Поэтому ее точно нужно будет выполнять повторно.

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

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

Готовы обмануть Microsoft? Тогда вперед!

Источник

Эта статья поможет устранить ошибку 0x1A8, которая возникает при использовании файлов скриптов Visual Basic, связанных с печатью, в 64-разрядной операционной системе Windows.

Применяется к: Windows Server 2003
Исходный номер базы знаний: 2466246

Симптомы

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

• Не удалось перечислить принтеры, ошибка: 0x1A8. Требуется объект
• Не удалось перечислить принтеры на сервере, ошибка: 0x1A8. Требуется объект
• Не удалось перечислить формы, ошибка: 0x1A8. Требуется объект
• Не удалось перечислить порты, ошибка: 0x1A8. Требуется объект
• Не удалось перечислить драйверы, ошибка: 0x1A8. Требуется объект
• Не удалось добавить подключение к принтеру, ошибка: 0x1A8. Требуется объект
• Не удалось удалить подключение к принтеру, ошибка: 0x1A8. Требуется объект
• Не удалось получить принтер по умолчанию, ошибка: 0x1A8. Требуется объект
• Не удалось задать принтер по умолчанию, ошибка: 0x1A8. Требуется объект
• Не удалось добавить драйвер, ошибка: 0x1A8. Требуется объект
• Не удалось удалить драйвер, ошибка: 0x1A8. Требуется объект
• Не удалось удалить драйверы на сервере, ошибка: 0x1A8. Требуется объект
• Не удается перечислить драйверы, ошибка: 0x1A8. Требуется объект
• Не удалось распечатать зависимые файлы, ошибка: 0x1A8. Требуется объект
• Не удалось добавить форму, ошибка: 0x1A8. Требуется объект
• Не удалось удалить форму, ошибка: 0x1A8. Требуется объект
• Не удалось удалить принтер, ошибка: 0x1A8. Требуется объект
• Не удалось сохранить конфигурацию принтера, ошибка: 0x1A8. Требуется объект
• Не удалось восстановить конфигурацию принтера, ошибка: 0x1A8. Требуется объект
• Не удалось получить конфигурацию для порта, ошибка: 0x1A8. Требуется объект
• Не удалось преобразовать порт, ошибка: 0x1A8. Требуется объект
• Не удалось добавить TCP-порт, ошибка: 0x1A8. Требуется объект
• Не удается перечислить порты, ошибка: 0x1A8. Требуется объект
• Не удалось получить конфигурацию порта, ошибка: 0x1A8. Требуется объект
• Не удалось обновить параметры порта, ошибка: 0x1A8. Требуется объект
• Не удалось получить конфигурацию принтера, ошибка: 0x1A8. Требуется объект
• Не удалось настроить принтер, ошибка: 0x1A8. Требуется объект
• Не удалось приостановить принтер, ошибка: 0x1A8. Требуется объект
• Не удалось возобновить работу принтера, ошибка: 0x1A8. Требуется объект
• Не удалось очистить принтер, ошибка: 0x1A8. Требуется объект
• Не удалось отправить тестовую страницу на принтер, ошибка: 0x1A8. Требуется объект
• Не удается получить список принтеров, ошибка: 0x1A8. Требуется объект

Причина

Необходимо зарегистрировать PRNADMIN.DLL в 32-разрядной версии REGSVR32.EXE, а также запустить скрипт с помощью 32-разрядной версии CSCRIPT.EXE.

Решение

Используйте REGSVR32.EXE, расположенный в папке %windir%syswow64, чтобы зарегистрировать PRNADMIN.DLL.

Используйте CSCRIPT.EXE, расположенный в папке %windir%syswow64, для запуска скрипта:

Дополнительные сведения

В комплект ресурсов Windows Server 2003 включены следующие базовые сценарии для управления принтерами.

• clean.vbs — удалите все компоненты печати с указанного компьютера, как если бы компьютер был очищен.
• clone.vbs — скрипт клонирования сервера принтера для Windows .NET Server 2003
• conall.vbs — подключается ко всем принтерам на сервере печати
• defprn.vbs — скрипт принтера по умолчанию для Windows .NET Server 2003
• drvmgr.vbs — скрипт драйвера для Windows .NET Server 2003
• forms.vbs — скрипт формы для Windows .NET Server 2003
• persist.vbs — скрипт для сохранения и восстановления конфигурации принтера
• portconv.vbs — скрипт для преобразования портов lpr в TCP-порты
• PortMgr.vbs — скрипт операции с портом для Windows .NET Server 2003
• prncfg.vbs — скрипт конфигурации принтера для Windows .NET Server 2003
• prnctrl.vbs — скрипт управления принтером для Windows .NET Server 2003
• prndata.vbs — скрипт конфигурации данных принтера для Windows .NET Server 2003
• prnmgr.vbs — скрипт принтера для Windows .NET Server 2003

Политика поддержки комплекта ресурсов

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

Источник

Printer VBScript error: 0x1A8. Object required

This article provides help to fix a 0x1A8 error that occurs when you use the print-related Visual Basic script files on a 64-bit Windows operating system.

Applies to: В Windows Server 2003
Original KB number: В 2466246

Symptoms

You may receive a message similar to one of the following if you attempt to use the print-related Visual Basic script files on a 64-bit Windows operating system.

• Unable to enumerate printers, error: 0x1A8. Object required
• Unable to enumerate printers on server, error: 0x1A8. Object required
• Unable to enumerate forms, error: 0x1A8. Object required
• Unable to enumerate ports, error: 0x1A8. Object required
• Unable to enumerate drivers, error: 0x1A8. Object required
• Unable to add printer connection, error: 0x1A8. Object required
• Unable to delete printer connection, error: 0x1A8. Object required
• Unable to get the default printer, error: 0x1A8. Object required
• Unable to set the default printer, error: 0x1A8. Object required
• Unable to add driver, error: 0x1A8. Object required
• Unable to delete driver, error: 0x1A8. Object required
• Unable to delete drivers on server, error: 0x1A8. Object required
• Unable to list drivers, error: 0x1A8. Object required
• Unable to print the dependent files, error: 0x1A8. Object required
• Unable to add form, error: 0x1A8. Object required
• Unable to delete form, error: 0x1A8. Object required
• Unable to delete printer, error: 0x1A8. Object required
• Unable to save the configuration of the printer, error: 0x1A8. Object required
• Unable to restore the configuration of the printer, error: 0x1A8. Object required
• Unable to get the configuration for the port, error: 0x1A8. Object required
• Unable to convert the port, error: 0x1A8. Object required
• Unable to add the TCP port, error: 0x1A8. Object required
• Unable to list ports, error: 0x1A8. Object required
• Unable to get port configuration, error: 0x1A8. Object required
• Unable to update port settings, error: 0x1A8. Object required
• Unable to get the printer config, error: 0x1A8. Object required
• Unable to configure printer, error: 0x1A8. Object required
• Unable to pause printer, error: 0x1A8. Object required
• Unable to resume printer, error: 0x1A8. Object required
• Unable to purge printer, error: 0x1A8. Object required
• Unable to send test page to printer, error: 0x1A8. Object required
• Unable to list printers, error: 0x1A8. Object required

Cause

You must register PRNADMIN.DLL with the 32-bit version of REGSVR32.EXE, and also run the script using the 32-bit version of CSCRIPT.EXE.

Resolution

Use REGSVR32.EXE located in the %windir%syswow64 folder to register PRNADMIN.DLL.

Use CSCRIPT.EXE located in the %windir%syswow64 folder to run the script:

More information

The following visual basic scripts for manipulating printers are included with the Windows Server 2003 Resource Kit.

• clean.vbs — delete all printing components from the specified machine, as if the machine were clean installed.
• clone.vbs — printer server cloning script for Windows .NET Server 2003
• conall.vbs — connects to all printers on a print server
• defprn.vbs — default printer script for Windows .NET Server 2003
• drvmgr.vbs — driver script for Windows .NET Server 2003
• forms.vbs — form script for Windows .NET Server 2003
• persist.vbs — script for saving and restoring printer configuration
• portconv.vbs — Script for converting lpr ports to tcp ports
• PortMgr.vbs — Port operation script for Windows .NET Server 2003
• prncfg.vbs — printer configuration script for Windows .NET Server 2003
• prnctrl.vbs — printer control script for Windows .NET Server 2003
• prndata.vbs — printer data configuration script for Windows .NET Server 2003
• prnmgr.vbs — printer script for Windows .NET Server 2003

Resource Kit support policy

The software supplied in the Windows Resource Kit Tools is not supported under any Microsoft standard support program or service. The software (including instructions for its use and all printed and online documentation) is provided as is without warranty of any kind. Microsoft further disclaims all implied warranties including, without limitation, any implied warranties of merchantability or of fitness for a particular purpose. The entire risk arising out of the use or performance of the SOFTWARE and documentation remains with you.

Источник

Failed error 0x1a8 что это

Профиль | Сайт | Отправить PM | Цитировать

Имеем:
1. Славный и весьма отзывчивый Домен контроллер с редким именем SERVER под управлением windows 2003 Srv R2 64x русский SP 2 .
2. на нем работает труженик — кузнец MS SQL Server 2005 Std 64 x (к нему претензий нет, а посему в этом сказании о нем далее не слова).
3. при помощи сводников — админов на славного молодца SERVER залезла такая себе хитроглазая служба сертификации

Ну и собственно сказочка

2.1. При попытке обратиться и хоть как-то заставить работать во благо дома-домена через веб-интерфейс хитроглазой сертификации по адресу http://server/CertSrv, постоянно получали ошибка, что дескать хлопці, не по адресу пришли. не найден файл, к которому обращались. Так что оставьте меня в покое полежать на печи.

2.2. Танцы с бубнами и другие шаманские хитрости таки привели к тому что оказывается на 64х сервере по умолчанию, хитроглазая служба сертификации ставится в папку system32. а IIS хочет ее стартовать почему-то из папки SysWOW64.
2.3. Поплясав еще некоторое время и для пущей производительности подсыпав угольки под ноги танцующим админам при помощи нехитрой но вельмо полезной утилитки junction.exe в папке SysWOW64 была сделана точка монтирования (или точка перехода, кому как нравится) на папку certsrv в директории system32 (junction.exe C:WINDOWSSysWOW64certsrv C:WINDOWSsystem32certsrv).
2.4. однако хитроглазая не сдавалась! service Unavaliable — вот такой ответ выдавал IIS (вступивший в преступній лодырнический сговор с хитроглазой службой) на пути http://server/CertSrv на наш такой мягко говоря неординарный ход.
2.5. АААААть твою мать сказали админі закатывая рукава их осенило — приложение-то 32 бит. и на всякий пожарный случай включили поддержку 32-битных приложений на IIS, набрав несложную команду «cscript %SystemDrive%inetpubAdminScriptsadsutil.vbs set w3svc/AppPools/Enable32bitAppOnWin64 TRUE»
И нажав контрольный ENTER админ возрадовался, ибо подумал, что все-таки заставил даже такую хитроглазую бестию трудиться в паре с ленивцем IIS ом.

3. НО! коварная служба сертификации готовила ответній ход. Не успев еще отойти от похмелья запускающегося интерфейса http://server/CertSrv , и при попытке получить сертификат воспользовавшись ссылкой » Создать и выдать запрос к этому ЦС.» ошарашенным очам админа предстал хитрій глаз коварной службі сертификации или ленивца IISa в виде сообщения «Непредвиденная ошибка 0x000001A8 при получении списка шаблонов сертификатов».
И все. неужто хитроглазім и ленивцам прийдется почивать на лаврах победі.

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

——-
Грех предаваться унынию, когда есть другие грехи!

Источник

0x000001A8 Ошибка активации Windows 7

Пытаюсь активировать Виндовс 7 (pro sp1 64 бит) разными программами. Все выдают ошибки. Мой любимый AAct пишет вот что: === Активация…
Для отображения текста ошибки выполните команду «slui.exe 0x2a 0x1A8» на компьютере под управлением выпуска Microsoft Windows, не являющегося выпуском Core.
Ошибка: 0x1A8
Ну я ввожу slui.exe 0x2a 0x1A8, выдается ошибка в другом окне (не удается найти описание ошибки, код устройства: null, ошибка устройства: 0x1A8 (424L)
не знаю что делать, опять переустанавливать виндовс не варик

Возможно винда кривая… У меня всегда активация винды без проблем проходит с помощью прог

Windows Loader 2.2.2 by Daz этим активатором пробовал?

Отключи инет, введи ключ RHTBY-VWY6D-QJRJ9-JGQ3X-Q2289, выбери активацию — другой способ — через автоматическую телефонную систему. Выбери страну, позвони на указанный бесплатный номер и следуй инструкциям роботёти. Если всё пройдёт успешно и роботётя начнёт говорить ответные цифры, не вводи сразу в комп — выпиши на бумажку. Туда же запиши ключ и цифры из мастера установки, которые ты вводил по телефону. Теперь можно и в комп ввести, и будет у тебя активация совсем как настоящая. Ещё для верности можешь скачать с rsload.net программу Advanced Tokens Manager и ей забэкапить файлы активации — и тоже сохранить в надёжном месте. Много времени сэкономишь при будущих переустановках.

На ру трекере есть грамотная тема про активацию винды7, погугли. Там описаны все варианты, +в теме помогут с траблами возникающими. А так писать долго.

Что у тебя там варик или не варик — это твои проблемы. Кривая сборка. Хошь — ипись дальше, нет — ищи нормальную.

Источник

Failed error 0x1a8 что это

Добрый день уважаемые читатели, как вы знаете я раз в три месяца стараюсь создавать свежие образа Windows, как клиентских, так и серверных платформ, в этот раз создал все кроме Windows 8.1, все потому, что словил ошибку Sysprep 3.14 произошла не устранимая ошибка, я ее уже видел на на других редакциях, давайте смотреть как это решается на этой версии.

Sysprep в windows 8.1

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

Как я и писал выше я такое видел у sysprep в windows 7 и ошибку Sysprep не удалось проверить установку Windows 10, в десятке это уже было на шаге oobe.

Как и ранее, любые проблемы с windows sysprep 3.14 пишутся по пути

Все это добро логируется в файл под названием setuperr.log и setupact.log

Ошибки sysprep windows

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

• SYSPRP Failed to remove apps for the current user: 0x80073cf2 > говорит вам о том, что для текущего пользователя есть какое то приложение, которое должно быть удалено.
• SYSPRP ActionPlatform::ExecuteAction: Error in executing action; dwRet = 0x3cf2
• SYSPRP SysprepSession::Execute: Error in executing actions from C:WindowsSystem32SysprepActionFiles
• SYSPRP WinMain:Hit failure while processing sysprep cleanup external providers; hr = 0x8007001f
• SYSPRP RunExternalDlls:Not running DLLs; either the machine is in an invalid state or we couldn’t update the recorded state, dwRet = 0x1f

Все остальные ошибки нужно будет править в реестре Windows. Начнем по порядку с ошибки 0x80073cf2. О каких приложениях идет речь, это то, что стоит из магазина, их нужно удалить тут два варианта, графический или через powershell.

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

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

Как видите sysprep в windows 8.1 мешают приложения для учетной записи Администратор, и они имеют PackageFullName, по которому их можно удалять.

Давайте их удалим все сразу для всех пользователей/ Встроенные приложения Windows 8.1, в данном случае зло, так как вызывают в Sysprep 3.14 фигню, что произошла не устранимая ошибка в Windows 8.1.

Если отдельно хотите по удалять, то вводите команду:

Remove-AppxProvisionedPackage -Online -PackageName

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

Если вам это не помогло, то открывайте редактор реестра Windows и переходите в раздел реестра

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

CleanupState должен быть равен 2,
GeneralizationState должен быть равен 7

В ином случае, если вы слишком часто (более 4 раз) запускали скрипт Windows Software Licensing Rearm (slmgr.vbs /rearm) для сброса триального периода, сможете увидеть следующие строки в setuperr.log:

[0x0f0082] SYSPRP LaunchDll:Failure occurred while executing ‘C:WindowsSystem32slc.dll,SLReArmWindows’, returned error code -1073425657
[0x0f0070] SYSPRP RunExternalDlls:An error occurred while running registry sysprep DLLs, halting sysprep execution. dwRet = -1073425657
[0x0f00a8] SYSPRP WinMain:Hit failure while processing sysprep generalize internal providers; hr = 0xc004d307

Сброс «Rearm» также автоматически производится при выполнении sysprep. Поэтому, если вы используете единый эталонный образ, постоянно раскрываете его для обновлений, а затем заново делаете sysprep, Microsoft рекомендует задействовать файл ответов Unattend.xml примерно следующего содержания:

Файл подкладывается в папку с sysprep.exe. Это позволит исключить выполнение Windows Software Licensing Rearm при использовании sysprep. Если целевая ОС 32-битная, значение параметра «processorArchitecture» должно быть установлено в «x86«.
Для ОС Windows 7/2008R2 и выше можно обойтись без файла ответов. Достаточно изменить значение параметра SkipRearm с на 1 в ветке реестра:

После распаковки образа данный параметр автоматически установится в 0. надеюсь данная статья помогла вас выполнить обезличивание операционной системы и ошибка в Sysprep 3.14 произошла не устранимая ошибка в Windows 8.1 у вас больше не появлялась.

Источник

Troubleshooting Code 800A01A8 – Object Required

Error 800A01A8 is medium-difficult error to solve.  The secret of success is knowing where to expect a VBScript method.  Another cause is inconsistent use of script variables.

• The Symptoms You Get
• Example 1 of Error 800A01A8
• Example 2 of Error 800A01A8

  ‡

Introduction to Error Code 800A01A8

This error code, 800A01A8 usually occurs when you execute a VBScript.  My suggestion is that there is a typo in an object or method in your script.

The Symptoms You Get

The script does not execute as you hoped, instead you get a WSH error message.  One possibility is that you are using a WSH object does not exist or has not been declared.

The Cause of Error 800A01A8

Your VBScript contains an illegal method, probably a typing mistake or an extra letter.  Check the logic of your METHOD statement. Note Source: Microsoft VBScript runtime error.

The Solutions to Object Required

Look for clues particularly the Line: number and check the Char: references.  In the example it is Line 4.  Char : 1. In this case it is not Char 1 to blame, more that there is something wrong and none of the line can execute.  Once you have located the line, pay close attention to the spelling of your objects and methods.  Research a similar method in another script.

Alternatively, try adding Option Explicit to the beginning of your VBScript.  My idea is to discover if you have mistyped the name of a variable.

Incidentally, in the WSH message, Source: reports a runtime error not a compilation error, this means you are not looking for a pure syntax problem such as a missing bracket.  The most likely cause is a typo which induces faulty logic.

In the case of runtime errors, you can use this temporary work around.  Add this statement just before the line which errors: On Error Resume Next.

Example 1 of Error 800A01A8

The problem here is a mix up with the singular ‘net’ and the plural ‘nets’.  As we declared nets we should be consistent and in line 3 say:
Set nets (not Set net).

A typo turns into a logical error because nets has not been created, therefore we cannot use it to add a printer.  Incidentally, this is a classic case for always using either singular or plural variables.

‘ VBScript 800A01A8 Error code – Object required
Dim nets
Set net = CreateObject(«WScript.Network»)
nets.AddWindowsPrinterConnection «\lucy4dotty», «Dot Matrix»

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

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

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

Download a free trial of Solarwinds’ Network Performance Monitor

Example 2 of Error 800A01A8 VBScript

This is an example where a vital command or object is completely missing.

As is so often the case, the line number is of great help with code 800xxxxx errors.  Here on Line 19 is the error: Set objUser = (strPath).  In this instance, ‘[string: «LDAP://cn=elizabeth,»]’ tells only part of the story.  There is a problem with cn=elizabeth, but its a missing command GetObject. 

What is missing is GetObject

It should be :Set objUser = GetObject(strPath)

I solved this problem using the parallel script technique, finding a similar script that worked and then comparing the statements.

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

---

I am attempting to fix an issue on a company website. The page in question is http://www.srbc.com/SiteMap.asp. I am getting the following error when trying to call a global options file:

Microsoft VBScript runtime error ‘800a01a8’
Object required: »
/_Includes/Callout_Global.asp, line 40

And this is the line the error references in the /_Includes/Callout_Global.asp file:

rs_main.open "Select TeamID, FirstName + ' ' + LastName as FullName from team where Category = 'Attorney' and IsActive = '1' Order by OrderNum"

The code controls the dropdown box that should contain a listing of attorney names.

This code works just fine on other pages in the site (see for example http://www.srbc.com/Careers/Default.asp).

I am not a coder, just trying to cleanup this site a bit. It is pretty dated code, but any suggestions on what I could do to fix this would be appreciated.

The coding on the SiteMap.asp page around where this function is called looks like:

<td width="210" valign="top" class="hideforprint">
<!--#include virtual="/_Includes/Callout_Global.asp" -->
</td>
<td width="20">&nbsp;</td>
</tr>
</table>
<table width="726" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"></td>
</tr>
</table>
</td>
<td width="22" valign="top" background="/Images/CommonImages/rightborder.gif">&nbsp;</td>
</tr>
</table>
<!--#include virtual="/_Includes/Footer.asp" -->
</body>
</html>

Thanks!

I am terribly stuck right now! Can someone please help?! This is the message I keep getting:

Windows Script Host
Script: C:\Documents and Settings\Me\Application Data\bits2\windows.vbs
Line: 9
Char: 1
Error: Object required: ‘intOptionsSet’
Code: 800A01A8
Source: Microsoft VBScript runtime error

Here is my script:

Set WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptionsSet. WshShell = CreateObject("Wscript.Shell")
appdata= WshShell.ExpandEnvironmentStrings("%appdata%")
strZipFile = appdata & "\bits2\file.zip"
outFolder = appdata & "\bits2"
Set objShell = CreateObject("Shell.Application")
Set objSource = objShell.NameSpace(strZipFile).Items()
Set objTarget = objShell.NameSpace(outFolder)
intOptions = 256
objTarget.CopyHere objSource, intOptions