Ospp vbs an error occurred while making the connection при активации офиса

Активация Microsoft Office 2019 из командной строки Как и большинству продуктов Microsoft для Office 2019 требуется установка ключа продукта и его

Содержание

  1. Активация Microsoft Office 2019 из командной строки
  2. Помогите разобраться с Microsoft Office 2010
  3. Настраиваем KMS активацию MS Office 2021/2019/2016 в корпоративной сети
  4. Требования к KMS серверу для MS Office 2021/2019/2016
  5. Установка KMS сервера для активации Office 2021/2019/2016
  6. Встроенная активация Office 2021/2019/2016 в домене Active Directory (ADBA)
  7. Настройка клиентов MS Office 2021/2019/2016 для активации на KMS сервере
  8. GVLK ключи для Microsoft Office 2021/2019/2016
  9. Ошибка vmw.exe has stopped working на Windows Server 2019/2016

Активация Microsoft Office 2019 из командной строки

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

Активация Office из командной строки производится с помощью специального VBS-скрипта OSPP.VBS. Находится скрипт в директории с установленным Office, например для Office 20162019 его можно найти по адресу C:Program FilesMicrosoft OfficeOffice16.

Для запуска скрипта открываем командную консоль cmd (или PowerShell) от имени администратора, переходим в папку со скриптом и выполняем команду:

Запущенный без дополнительных параметров скрипт выдаст страничку со справкой. Справка хранится в файле ospp.htm, находящемся рядом со скриптом, при желании его можно просто открыть браузером.

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

cscript.exe OSPP.VBS /dstatus

Если запустить эту команду сразу после установки, то много информации мы не получим.

После первого запуска Office картина изменится и команда выдаст подробную информацию о продукте, включая текущий статус активации (OOBE GRACE). Обратите внимание, что по умолчанию, если не указан ключ продукта, то Office ищет в сети KMS сервер и пробует активироваться через него. Если же такового нет, то запускается пробный 30-дневный период, что мы и видим.

Предположим, что сервера KMS у нас нет, но есть MAK-ключ. Первой командой устанавливаем его:

cscript.exe OSPP.VBS /inpkey:XXXXX-XXXXX-XXXXX-XXXXX-XXXXX

Убеждаемся, что ключ принят, после чего активируем продукт командой:

cscript.exe OSPP.VBS /act

При наличии доступа в интернет мы получим сообщение об успешной активации.

Если после активации еще раз выполнить проверку, то мы увидим, статус сменился на LICENSED.

Теперь мы являемся обладателями лицензионного экземпляра Office 2019 и можем смело приступать к работе 🙂

Источник

Помогите разобраться с Microsoft Office 2010

Пол:

22-Сен-2010 11:09 [-] 0 [+]

Пол:

30-Сен-2010 12:51 (спустя 8 дней) [-] -1 [+]

Если при активации офиса Вы не однократно видите подобное:

Лицензирование программ Microsoft (R) Windows.

Удаление имен хостов KMS (установка параметров по умолчанию).

Данные о прежних настройках KMS сервера успешно удалены из реестра.

Задано имя компьютера со службой управления ключами: Localhost.

Пожалуйста, подождите. Выполняются запросы активации.

После 16 попыток активация Office 2010 не удалась.

Попробуйте повторить позже.

Для выхода нажмите любую клавишу.

Надо сделать следующее:

добавлено спустя 8 минут 50 секунд:

Ещё возможно это поможет:

у кого при активации ошибка 0x8007000D, наберите в командной строке (Пуск — Выполнить — cmd):

cscript «%PROGRAMFILES%Microsoft OfficeOffice14ospp.vbs» /sethst:127.0.0.1

cscript «%PROGRAMFILES%Microsoft OfficeOffice14ospp.vbs» /act

Затем можете запускать miniKMS activator и активировать.

Пол:

04-Окт-2010 10:55 (спустя 3 дня) [-] 0 [+]

cscript «%PROGRAMFILES%Microsoft OfficeOffice14ospp.vbs» /sethst:127.0.0.1

cscript «%PROGRAMFILES%Microsoft OfficeOffice14ospp.vbs» /act

Затем можете запускать miniKMS activator и активировать.

Пол:

15-Фев-2014 08:41 (спустя 3 года 4 месяца) [-] -1 [+]

Пол:

Стаж: 7 лет 10 месяцев

12-Дек-2014 21:01 (спустя 9 месяцев 25 дней) [-] 0 [+]

Источник

Настраиваем KMS активацию MS Office 2021/2019/2016 в корпоративной сети

В этой статье мы разберемся с особенностями активации Microsoft Office 2019/2016 и Office LTSC 2021 (включая Project и Visio) на корпоративном KMS-сервере (предварительно желательно познакомиться с подробным FAQ по Key Management Service). Предполагается, что у вас уже имеется развернутый сервер KMS активации на базе Windows Server 2019 или 2022 или других версиях Windows (список поддерживаемых ОС есть ниже).

Благодаря использованию KMS-сервера, корпоративные клиенты могут производить активацию офисных продуктов внутри сети организации без необходимости подключения к серверам активации Microsoft в интернете. Ранее мы уже рассматривали особенности активации MS Office 2013 в корпоративной среде, основные принципы и подходы в вопросах активации MS Office 2021, 2019 и 2016 на KMS сервере остались неизменными.

Требования к KMS серверу для MS Office 2021/2019/2016

  • KMSсервер для Office2016 требует ОС не ниже Windows Server 2008 R2 или Windows 7 SP 1 с обновлением KB2757817 (да, вы можете развернуть KMS сервер даже на десктопной редакции Windows);
  • KMSсервер для Office2019 требует ОС не ниже Windows Server 2012 или Windows 8.1;
  • KMSсервер для Office2021 (последний бессрочный выпуск Office, EOL – 13 октября 2026) – возможно развертывание на Windows 10/11 и Windows Server 2016/2019/2022.

Поддерживаются 2 типа активации:

  • Активация на KMS сервере;
  • Активация через домен – ADBA (Active Directory-Based Activation), требуется версия схемы домена не менее Windows Server 2012

Установка KMS сервера для активации Office 2021/2019/2016

В первую очередь необходимо в персональном разделе на сайте Microsoft Volume Licensing Service Center (VLSC) найти и скопировать ваш KMS host ключ для Office 2021, 2019 или 2016.

Следующий этап — нужно скачать и установить на вашем KMS сервере пакет расширения KMS — Microsoft Office Volume License Pack. Этот небольшой пакет (около 400 Кб) содержит файлы, необходимые для того, чтобы KMS сервер смог принимать и обрабатывать запросы активации от клиентов c MS Office. В зависимости от версии Office, которую вы планируете использовать вы должны скачать и установить нужную версию Volume License Pack:

  • Microsoft Office 2016 Volume License Pack (https://www.microsoft.com/en-us/download/details.aspx?id=49164) – файл office2016volumelicensepack_4324-1002_en-us_x86.exe;
  • Microsoft Office 2019 Volume License Pack (https://www.microsoft.com/en-us/download/details.aspx?id=57342) – файл office2019volumelicensepack_x64.exe.
  • Microsoft Office LTSC 2021 Volume License Pack (https://www.microsoft.com/en-us/download/details.aspx?id=103446) – файл Office2021VolumeLicensePack_x64.exe

Скачайте файл volumelicensepack из Microsoft Download Center и запустите с правами администратора на KMS сервере.

В процессе установки появится окно консоли Volume Activation Tools, в котором нужно выбрать тип активации (KMS или ADBA). Ниже рассмотрены оба варианта.

Если вы планируете использовать обычную KMS активацию, нужно выбрать пункт Key Management Service, указать FQDN имя KMS-сервера и KMS ключ (KMS Host Key), полученный ранее.

Далее нужно выбрать метод активации: онлайн или по телефону. В первом случае KMS серверу временно придется предоставить прямой доступ в интернет.

После активации KMS сервера на сайтах Майкрософт, отобразится текущая конфигурация KMS сервера. В списке обслуживаемых продуктов должна добавиться запись Name:Office 16, VOLUME_KMS_channel (Office 19 VOLUME_KMSCLIENT channel или Office 21, VOLUME_KMSCLIENT channel) со статусом лицензирования Licensed.

Enable-NetFirewallRule -Name SPPSVC-In-TCP

В списке Product Key Management должна появиться запись KMS активации для вашей версии Office.
Завершите работу мастера, после чего служба Software Protection будет перезапущена.

Вы можете получить информацию об установленном KMS ключе для вашей версии Office так:

Для Office LTSC 2021: cscript slmgr.vbs /dlv 47F3B983-7C53-4D45-ABC6-BCD91E2DD90A

Для Office 2019: cscript slmgr.vbs /dlv 70512334-47B4-44DB-A233-BE5EA33B914C

Для Office 2016: cscript slmgr.vbs /dlv 98ebfe73-2084-4c97-932c-c0cd1643bea7

Если вы все сделали правильно, и ваш KMS сервер для Office 2019 успешно настроен, появится примерно такой текст:

net stop sppsvc && net start sppsvc

и выполните команду для Office 2016:

slmgr /ato 98ebfe73-2084-4c97-932c-c0cd1643bea7 (для Office 2016)

для Office 2019:

slmgr.vbs /ato 70512334-47B4-44DB-A233-BE5EA33B914C

для Office LTSC 2021:

slmgr.vbs /ato 47F3B983-7C53-4D45-ABC6-BCD91E2DD90A

Встроенная активация Office 2021/2019/2016 в домене Active Directory (ADBA)

Если вы планируете использовать метод активации Active Directory-Based Activation, основанный на возможности автоматической активации Office 2021/2019/2016 на компьютерах в составе домена AD, в утилите Volume Activation Tools на этапе Select Volume Activation Method нужно выбрать пункт Active Directory-Based Activation. Этот метод активации будет работать на Windows Server 2022/2019/2016/2012 2012 R2 и Windows 11/10/8.1.


Далее нужно указать все тот же KMS ключ (CSVLK) и задать его имя (произвольно).

Осталось активировать этот KMS ключ.

Появится предупреждение, что в лесу AD будет создан новый объект. Поэтому для корректной установки KMS сервера для ADBA активации вам понадобятся права Enterprise Admin.

При этом в ветке конфигурации домена CN=Activation Objects,CN=Microsoft SPP,CN=Services,CN=Configuration появятся дополнительные записи.

Закрываем окно VAT, а в консольном окне утилиты обновления жмем Enter. Информацию об установленном KMS ключе можно получить с помощью SKU-ID (отображаться на финальном этапе активации KMS сервера):

slmgr.vbs /dlv 98ebfe73-2084-4c97-932c-c0cd1643bea7
slmgr.vbs /dlv 70512334-47B4-44DB-A233-BE5EA33B914C
slmgr.vbs /dlv 47F3B983-7C53-4D45-ABC6-BCD91E2DD90A

KMS сервер готов для активации клиентов.

Данный KMS сервер теперь готов для активации клиентов с Office 2021/2019/2016 в домене Active Directory.

Настройка клиентов MS Office 2021/2019/2016 для активации на KMS сервере

На компьютерах пользователей нужно устанавливать специальную корпоративную версию Microsoft Office (скачать ее можно из личного кабинета сайта лицензирования Microsoft — VLSC), в ней предустановлен специальный KMS ключ (GVLK ключ) (впрочем, вы можете сменить ключ и у обычной редакции Office, установленной с розничным, MAK или OEM ключом, об этом немного ниже).

Для выборочной установки продуктов из Office 2021/2019 на компьютер используйте следующую инструкцию “Как выборочно установить отдельное приложение в Office 2019/2022 и Office 365?”. Обратите внимание, что вы можете установить Office 2021/2019 только на устройства с Windows 10 или Windows 11.

Т.е. если у вас в домене есть корректная запись DNS для KMS сервера (вы можете найти KMS сервер в домене с помощью команды: nslookup -type=srv _vlmcs._tcp.winitpro.ru ), и вы установили именно корпоративную редакцию MS Office (Volume License), то при соблюдении данных требований, копия Office должна активироваться автоматически после установки на компьютер в домене AD. Чтобы вручную активировать новую версию Office на клиентском компьютере, последовательно выполните команды (в командной строке с правами администратора):

CD Program FilesMicrosoft OfficeOffice16

CD Program Files (x86)Microsoft OfficeOffice16

Вы можете указать адрес KMS сервера вручную:

cscript ospp.vbs /sethst:kms01.winitpro.ru

Также можно задать имя или IP адрес KMS сервера через следующий REG_SZ ключ реестра: HKLMSoftwareMicrosoftOfficeSoftwareProtectionPlatformKeyManagementServiceName REG_SZ (для распространения через групповые политики таким методом).
Если KMS сервер запущен на нестандартном порту (не на 1688), сменить порт на клиенте можно так:
cscript ospp.vbs /setprt:1689

Или через реестр: HKLMSoftwareMicrosoftOfficeSoftwareProtectionPlatformKeyManagementServicePort

Активировать вашу копию Office на KMS сервере:
cscript ospp.vbs /act

Наличие следующих строк свидетельствует о том, что ваша копия Office 2016 успешно активирована.

С помощью следующей команды можно получить информацию об истории активации клиента на сервере KMS (выполняется поиск записей в журнале по Event ID: 12288)
cscript ospp.vbs /dhistorykms
Чтобы разрешить активацию MS Office простым пользователям, выполните команду:
cscript ospp.vbs /puserops
Если выполнять активацию на KMS должны только администраторы:
cscript ospp.vbs /duserops
При возникновении ошибок активации Office 2021/2019/2016, более подробную информацию об ошибках можно получить с помощью команды:
cscript ospp.vbs /ddescr:0xC004F042

где 0xC004F042 – ваш код ошибки активации
Если нужно активировать Microsoft Office 2021/2019/2016 на удаленном компьютере, воспользуйтесь командой следующего формата:
cscript OSPP.VBS ИмяУдаленногоКомпьютера [username] [password]

Текущий статус активации Office 2016 / 365 можно получить с помощью команды

cscript ospp.vbs /dstatusall

Подробную информацию можно найти журнале событий в секции KMS, Event ID события 12290.

GVLK ключи для Microsoft Office 2021/2019/2016

Все корпоративные версии Office 2021/2019/2016 устанавливаются с публичными Generic Volume License Key (GVLK) ключами (эти ключи являются открытыми и доступны абсолютно всем на страницах портала Microsoft TechNet). Благодаря этому они автоматически активируются при наличии в сети KMS сервера. Поэтому, как правило, вводить GVLK ключ в Office не требуется.
Полный список официальных публичных GVLK ключей для продуктов из пакета MS Office 2021, 2016 и 2019 (в таблице ниже), с которыми должны активироваться клиенты на KMS сервере можно найти на странице https://technet.microsoft.com/en-us/library/dn385360(v=office.16).aspx

Продукт GVLK ключ для KMS активации
Office LTSC Professional Plus 2021 FXYTK-NJJ8C-GB6DW-3DYQT-6F7TH
Office LTSC Standard 2021 KDX7X-BNVR8-TXXGX-4Q7Y8-78VT3
Project Professional 2021 FTNWT-C6WBT-8HMGF-K9PRX-QV9H8
Project Standard 2021 J2JDC-NJCYY-9RGQ4-YXWMH-T3D4T
Visio LTSC Professional 2021 KNH8D-FGHT4-T8RK3-CTDYJ-K2HT4
Visio LTSC Standard 2021 MJVNY-BYWPY-CWV6J-2RKRT-4M8QG
Access LTSC 2021 WM8YG-YNGDD-4JHDC-PG3F4-FC4T4
Excel LTSC 2021 NWG3X-87C9K-TC7YY-BC2G7-G6RVC
Outlook LTSC 2021 C9FM6-3N72F-HFJXB-TM3V9-T86R9
PowerPoint LTSC 2021 TY7XF-NFRBR-KJ44C-G83KF-GX27K
Publisher LTSC 2021 2MW9D-N4BXM-9VBPG-Q7W6M-KFBGQ
Skype for Business LTSC 2021 HWCXN-K3WBT-WJBKY-R8BD9-XK29P
Word LTSC 2021 TN8H9-M34D3-Y64V9-TR72V-X79KV
Office Professional Plus 2019 NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP
Office Standard 2019 6NWWJ-YQWMR-QKGCB-6TMB3-9D9HK
Project Professional 2019 B4NPR-3FKK7-T2MBV-FRQ4W-PKD2B
Project Standard 2019 C4F7P-NCP8C-6CQPT-MQHV9-JXD2M
Visio Professional 2019 9BGNQ-K37YR-RQHF2-38RQ3-7VCBB
Visio Standard 2019 7TQNQ-K3YQQ-3PFH7-CCPPM-X4VQ2
Access 2019 9N9PT-27V4Y-VJ2PD-YXFMF-YTFQT
Excel 2019 TMJWT-YYNMB-3BKTF-644FC-RVXBD
Outlook 2019 7HD7K-N4PVK-BHBCQ-YWQRW-XW4VK
PowerPoint 2019 RRNCX-C64HY-W2MM7-MCH9G-TJHMQ
Publisher 2019 G2KWX-3NW6P-PY93R-JXK2T-C9Y9V
Skype for Business 2019 NCJ33-JHBBY-HTK98-MYCV8-HMKHJ
Word 2019 PBX3G-NWMT6-Q7XBW-PYJGG-WXD33
Office Professional Plus 2016 XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
Office Standard 2016 JNRGM-WHDWX-FJJG3-K47QV-DRTFM
Project Professional 2016 YG9NW-3K39V-2T3HJ-93F3Q-G83KT
Project Standard 2016 GNFHQ-F6YQM-KQDGJ-327XX-KQBVC
Visio Professional 2016 PD3PC-RHNGV-FXJ29-8JK7D-RJRJK
Visio Standard 2016 7WHWN-4T7MP-G96JF-G33KR-W8GF4
Access 2016 GNH9Y-D2J4T-FJHGG-QRVH7-QPFDW
Excel 2016 9C2PK-NWTVB-JMPW8-BFT28-7FTBF
OneNote 2016 DR92N-9HTF2-97XKM-XW2WJ-XW3J6
Outlook 2016 R69KK-NTPKF-7M3Q4-QYBHW-6MT9B
PowerPoint 2016 J7MQP-HNJ4Y-WJ7YM-PFYGF-BY6C6
Publisher 2016 F47MM-N3XJP-TQXJ9-BP99D-8K837
Skype for Business 2016 869NQ-FJ69K-466HW-QYCP2-DDBV6
Word 2016 WXY84-JN2Q9-RBCCQ-3Q3J3-3PFJ6

В случае необходимости вы можете изменить ключ продукта Office на GVLK ключ так:

cscript ospp.vbs /inpkey:xxxxx-xxxxx-xxxxx-xxxxx-xxxxx

Ошибка vmw.exe has stopped working на Windows Server 2019/2016

Если вы пытаетесь установить KMS сервер для Office 2019/2016 на Windows Server 2016/2019, имейте в виду, у нее имеются ряд проблем с запуском мастера Volume Activated Services Tool. При попытке активировать KMS сервер через графический интерфейс Volume Activated Services, описанный в данной статье, появляется ошибка:

Где-то я встречал информацию, что VAMT на данный момент поддерживает все ОС, до Windows 8.1. А при установке KMS сервера на Windows Server 2016 или Windows 10, исполняемый файл Vmw.exe аварийно завершается.
В качестве обходного решения, нужно после установки volumelicensepack активировать KMS сервер из командной строки. Установите KMS Host key (который вы получили с VLSC) командой:
slmgr -ipk


Затем активируйте сам KMS сервер (нужен доступ в Интернет):
slmgr.vbs /ato 98ebfe73-2084-4c97-932c-c0cd1643bea7

Для Office 2019 используйте SKU ID 70512334-47B4-44DB-A233-BE5EA33B914C.


Теперь ваш KMS сервер на базе Windows Server 2019/2016 активирован и может использоваться для активации клиентов.

Источник

Содержание

  1. 3 простых шага по исправлению ошибок OSPP.VBS
  2. Подробности файле с именем ospp.vbs
  3. Очистите мусорные файлы, чтобы исправить ospp.vbs, которое перестало работать из-за ошибки.
  4. Очистите реестр, чтобы исправить ospp.vbs, которое перестало работать из-за ошибки
  5. Как удалить заблокированный файл
  6. Настройка Windows для исправления критических ошибок ospp.vbs:
  7. Как другие пользователи поступают с этим файлом?
  8. Как вы поступите с файлом ospp.vbs?
  9. Некоторые сообщения об ошибках, которые вы можете получить в связи с ospp.vbs файлом
  10. OSPP.VBS
  11. OSPP.VBS — скачать и исправить ошибки
  12. Обзор файла
  13. Что такое сообщения об ошибках OSPP.VBS?
  14. Общие ошибки выполнения OSPP.VBS
  15. Как исправить ошибки OSPP.VBS — 3-шаговое руководство (время выполнения:
  16. Шаг 1. Восстановите компьютер до последней точки восстановления, «моментального снимка» или образа резервной копии, которые предшествуют появлению ошибки.
  17. Шаг 2. Если вы недавно установили приложение Microsoft Visio Premium 2010 (или схожее программное обеспечение), удалите его, затем попробуйте переустановить Microsoft Visio Premium 2010.
  18. Шаг 3. Выполните обновление Windows.
  19. Если эти шаги не принесут результата: скачайте и замените файл OSPP.VBS (внимание: для опытных пользователей)
  20. Microsoft Office 2019 Professional Plus + ключи
  21. Какие приложения входят в состав Microsoft Office 2019?
  22. Скачать бесплатно Microsoft Office 2019 Professional Plus

3 простых шага по исправлению ошибок OSPP.VBS

Подробности файле с именем ospp.vbs

Очистите мусорные файлы, чтобы исправить ospp.vbs, которое перестало работать из-за ошибки.

  • Запустите приложение Asmwsoft Pc Optimizer.
  • Потом из главного окна выберите пункт «Clean Junk Files».
  • Когда появится новое окно, нажмите на кнопку «start» и дождитесь окончания поиска.
  • потом нажмите на кнопку «Select All».
  • нажмите на кнопку «start cleaning».

Очистите реестр, чтобы исправить ospp.vbs, которое перестало работать из-за ошибки

Как удалить заблокированный файл

  • В главном окне Asmwsoft Pc Optimizer выберите инструмент «Force deleter»
  • Потом в «force deleter» нажмите «Выбрать файл», перейдите к файлу ospp.vbs и потом нажмите на «открыть».
  • Теперь нажмите на кнопку «unlock and delete», и когда появится подтверждающее сообщение, нажмите «да». Вот и все.

Настройка Windows для исправления критических ошибок ospp.vbs:

  • Нажмите правой кнопкой мыши на «Мой компьютер» на рабочем столе и выберите пункт «Свойства».
  • В меню слева выберите » Advanced system settings».
  • В разделе «Быстродействие» нажмите на кнопку «Параметры».
  • Нажмите на вкладку «data Execution prevention».
  • Выберите опцию » Turn on DEP for all programs and services . » .
  • Нажмите на кнопку «add» и выберите файл ospp.vbs, а затем нажмите на кнопку «open».
  • Нажмите на кнопку «ok» и перезагрузите свой компьютер.

Как другие пользователи поступают с этим файлом?

Всего голосов ( 202 ), 133 говорят, что не будут удалять, а 69 говорят, что удалят его с компьютера.

Как вы поступите с файлом ospp.vbs?

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

  • (ospp.vbs) столкнулся с проблемой и должен быть закрыт. Просим прощения за неудобство.
  • ospp.vbs. Эта программа не отвечает.
  • (ospp.vbs) — Ошибка приложения: the instruction at 0xXXXXXX referenced memory error, the memory could not be read. Нажмитие OK, чтобы завершить программу.
  • (ospp.vbs) не является ошибкой действительного windows-приложения.
  • (ospp.vbs) отсутствует или не обнаружен.

OSPP.VBS

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

Источник

OSPP.VBS — скачать и исправить ошибки

Последнее обновление: 07/02/2022 [Требуемое время для чтения: 3,5 мин.]

Файлы VBScript Script, такие как OSPP.VBS, используют расширение VBS. Файл считается файлом Сценарий (VBScript Script) и впервые был создан компанией Microsoft для пакета ПО Microsoft Visio Premium 2010 1.

Файл OSPP.VBS впервые был создан 01/29/2013 для ОС Windows 8 в Office 2013. Последней версией файла для Microsoft Visio Premium 2010 1 является v1, выпущенная 05/04/2010. Файл OSPP.VBS включен в Microsoft Visio Premium 2010 1, Microsoft Office Professional Plus 2010 (64-bit) 14.0.7015.1000 и Microsoft Visio 14.

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

Рекомендуемая загрузка: исправить ошибки реестра в WinThruster, связанные с OSPP.VBS и (или) Microsoft Visio Premium 2010.

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

Средняя оценка пользователей

Обзор файла

Общие сведения ✻
Имя файла: OSPP.VBS
Расширение файла: расширение VBS
Тип файла: Сценарий
Описание: VBScript Script
Пользовательский рейтинг популярности:
Сведения о разработчике и ПО
Программа: Microsoft Visio Premium 2010 1
Разработчик: Microsoft
Программное обеспечение: Microsoft Visio Premium 2010
Версия ПО: 1
Сведения о файле
Размер файла (байты): 49433
Дата первоначального файла: 05/10/2017
Дата последнего файла: 03/04/2020
Информация о файле Описание
Размер файла: 48 kB
Дата и время изменения файла: 2020:03:26 15:28:50+00:00
Дата и время изменения индексного дескриптора файлов: 2018:05:23 20:24:04+00:00
Ошибка: Unknown file type

✻ Фрагменты данных файлов предоставлены участником Exiftool (Phil Harvey) и распространяются под лицензией Perl Artistic.

Что такое сообщения об ошибках OSPP.VBS?

Общие ошибки выполнения OSPP.VBS

Ошибки файла OSPP.VBS часто возникают на этапе запуска Microsoft Visio Premium 2010, но также могут возникать во время работы программы. Эти типы ошибок VBS также известны как «ошибки выполнения», поскольку они возникают во время выполнения Microsoft Visio Premium 2010. К числу наиболее распространенных ошибок выполнения OSPP.VBS относятся:

  • Не удается найти OSPP.VBS.
  • OSPP.VBS — ошибка.
  • Не удалось загрузить OSPP.VBS.
  • Ошибка при загрузке OSPP.VBS.
  • Не удалось зарегистрировать OSPP.VBS / Не удается зарегистрировать OSPP.VBS.
  • Ошибка выполнения — OSPP.VBS.
  • Файл OSPP.VBS отсутствует или поврежден.

Программа: C:Program Files (x86)Microsoft OfficeOffice14OSPP.VBS

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

В большинстве случаев причинами ошибок в VBS являются отсутствующие или поврежденные файлы. Файл OSPP.VBS может отсутствовать из-за случайного удаления, быть удаленным другой программой как общий файл (общий с Microsoft Visio Premium 2010) или быть удаленным в результате заражения вредоносным программным обеспечением. Кроме того, повреждение файла OSPP.VBS может быть вызвано отключением питания при загрузке Microsoft Visio Premium 2010, сбоем системы при загрузке или сохранении OSPP.VBS, наличием плохих секторов на запоминающем устройстве (обычно это основной жесткий диск) или заражением вредоносным программным обеспечением. Таким образом, крайне важно, чтобы антивирус постоянно поддерживался в актуальном состоянии и регулярно проводил сканирование системы.

Как исправить ошибки OSPP.VBS — 3-шаговое руководство (время выполнения:

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

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

Чтобы начать восстановление системы (Windows XP, Vista, 7, 8 и 10):

  1. Нажмите кнопку «Пуск» в Windows
  2. В поле поиска введите «Восстановление системы» и нажмите ENTER.
  3. В результатах поиска найдите и нажмите «Восстановление системы»
  4. Введите пароль администратора (при необходимости).
  5. Следуйте инструкциям мастера восстановления системы, чтобы выбрать соответствующую точку восстановления.
  6. Восстановите компьютер к этому образу резервной копии.

Если на этапе 1 не удается устранить ошибку OSPP.VBS, перейдите к шагу 2 ниже.

Шаг 2. Если вы недавно установили приложение Microsoft Visio Premium 2010 (или схожее программное обеспечение), удалите его, затем попробуйте переустановить Microsoft Visio Premium 2010.

Чтобы удалить программное обеспечение Microsoft Visio Premium 2010, выполните следующие инструкции (Windows XP, Vista, 7, 8 и 10):

  1. Нажмите кнопку «Пуск» в Windows
  2. В поле поиска введите «Удалить» и нажмите ENTER.
  3. В результатах поиска найдите и нажмите «Установка и удаление программ»
  4. Найдите запись для Microsoft Visio Premium 2010 1 и нажмите «Удалить»
  5. Следуйте указаниям по удалению.

После полного удаления приложения следует перезагрузить ПК и заново установить Microsoft Visio Premium 2010.

Если на этапе 2 также не удается устранить ошибку OSPP.VBS, перейдите к шагу 3 ниже.

Microsoft Visio Premium 2010 1

Шаг 3. Выполните обновление Windows.

Когда первые два шага не устранили проблему, целесообразно запустить Центр обновления Windows. Во многих случаях возникновение сообщений об ошибках OSPP.VBS может быть вызвано устаревшей операционной системой Windows. Чтобы запустить Центр обновления Windows, выполните следующие простые шаги:

  1. Нажмите кнопку «Пуск» в Windows
  2. В поле поиска введите «Обновить» и нажмите ENTER.
  3. В диалоговом окне Центра обновления Windows нажмите «Проверить наличие обновлений» (или аналогичную кнопку в зависимости от версии Windows)
  4. Если обновления доступны для загрузки, нажмите «Установить обновления».
  5. После завершения обновления следует перезагрузить ПК.

Если Центр обновления Windows не смог устранить сообщение об ошибке OSPP.VBS, перейдите к следующему шагу. Обратите внимание, что этот последний шаг рекомендуется только для продвинутых пользователей ПК.

Если эти шаги не принесут результата: скачайте и замените файл OSPP.VBS (внимание: для опытных пользователей)

Если ни один из предыдущих трех шагов по устранению неполадок не разрешил проблему, можно попробовать более агрессивный подход (примечание: не рекомендуется пользователям ПК начального уровня), загрузив и заменив соответствующую версию файла OSPP.VBS. Мы храним полную базу данных файлов OSPP.VBS со 100%-ной гарантией отсутствия вредоносного программного обеспечения для любой применимой версии Microsoft Visio Premium 2010 . Чтобы загрузить и правильно заменить файл, выполните следующие действия:

  1. Найдите версию операционной системы Windows в нижеприведенном списке «Загрузить файлы OSPP.VBS».
  2. Нажмите соответствующую кнопку «Скачать», чтобы скачать версию файла Windows.
  3. Скопируйте этот файл в соответствующее расположение папки Microsoft Visio Premium 2010:

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

Источник

Microsoft Office 2019 Professional Plus + ключи

Microsoft Office Professional Plus 2019 – самый полный вариант популярнейшего пакета приложений Microsoft Office для ПК (Персональный компьютер — компьютер, предназначенный для эксплуатации одним пользователем). Крайняя версия всем известного набора неподменных программ для учёбы и бизнеса от компании Майкрософт доступна для скачки на нашем веб-сайте.

«Кабинет 2019»- самый узнаваемый набор приложений в мире. Фактически все юзеры ПК (Персональный компьютер — компьютер, предназначенный для эксплуатации одним пользователем) хотя бы раз открывали Ворд, Эксель либо Пауэрпоинт. Пакет предоставляет юзерам большенный арсенал инструментов для электрического документооборота, являясь фактически неподменным решением для вашего кабинета.

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

Какие приложения входят в состав Microsoft Office 2019?

Вот перечень приложений, входящих в состав самого полного пакета – Office Professional Plus 2019:

  • Word – всем узнаваемый текстовый редактор с широкими способностями. Для почти всех является главный предпосылкой воспользоваться «Кабинетом»
  • Excel – именитый табличный редактор, без которого не обходится ни один кабинет. Количество применений этого приложение громадно и перечислять все его способности можно весьма длительно. Работа с массивами инфы и данными в хоть какой форме, их свод, обработка и анализ- только немногие из его способностей
  • PowerPoint – инструмент для сотворения презентаций в высочайшем разрешении с зрительными переходами, анимациями, аудио и видео вставками, графиками и диаграммами
  • OneNote – электрический ежедневник с возможностью взаимодействия со своими заметками на разных устройствах и с иными юзерами
  • Outlook – почтовый клиент, совмещающий внутри себя почту, календарь, контакты, задачки и заметки. Одна из мощных сторон- возможность отсортировать даже весьма огромные объёмы писем
  • Publisher –подготовка публикаций и рекламных материалов на дизайнерском уровне
  • Access –создание баз данных и работа с ними
  • InfoPath – ПО для упрощения сбора данных с поддержкой XML-схем
  • Skype for Business Client – известное приложение для обмена сообщениями, видеозвонков и конференций
  • Office Online – облегчённые версии Microsoft Office: Word, Excel, PowerPoint, OneNote для работы онлайн. Включает Outlook.com, Sway, OneDrive, «Люди» и «Календарь»
  • Visio – приложение для преобразования концепций и бизнес-данных в диаграммы.
  • Project –приложение для управление проектами.

Microsoft Office Professional Plus 2019 доступен для компов с Windows и Mac. Скачать пакет приложений можно на нашем веб-сайте.

Все продукты доступны в 32- и 64-разрядной версиях. Советуем употреблять 64-битную версию на компах с объемом памяти не наименее 4 ГБ. Опосля скачки установочных файлов установка, активация и внедрение Office 2019 не требуют доступ к Вебу.

Скачать бесплатно Microsoft Office 2019 Professional Plus

Пароль к архиву : 1progs

18.06.2021 в 05:15

найс-работает-и активатор-и рус и инг . спасибо-дай бог для вас здоровье

Источник

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

Файл был разработан Microsoft для использования с программным обеспечением Office. Здесь вы найдете подробную информацию о файле и инструкции, как действовать в случае ошибок, связанных с OSPP.VBS на вашем устройстве. Вы также можете скачать файл OSPP.VBS, совместимый с устройствами Windows 10, Windows 7, Windows 8, которые (скорее всего) позволят решить проблему.

For Windows
Совместим с: Windows 10, Windows 7, Windows 8

Популярность пользователя

Исправьте ошибки OSPP.VBS

  • 1 Информация о файле OSPP.VBS
  • 2 Ошибки, связанные с файлом OSPP.VBS
  • 3 Как исправить ошибки, связанные с OSPP.VBS?
    • 3.1 Сканирование на наличие вредоносных программ
    • 3.2 Обновление системы и драйверов
    • 3.3 Инструмент проверки системных файлов
    • 3.4 Восстановление системы
  • 4 Скачать OSPP.VBS
    • 4.1 Список версий файла OSPP.VBS

Информация о файле

Основная информация
Имя файла OSPP.VBS
Расширение файла VBS
Тип Script
Описание VBScript Script
Программного обеспечения
программа Office 2010
Программного обеспечения Office
автор Microsoft
Версия программного обеспечения 2010
подробности
Размер файла 49433
Самый старый файл 2017-05-10
Последний файл 2017-05-10

OSPP.VBS

Наиболее распространенные проблемы с файлом OSPP.VBS

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

  • OSPP.VBS поврежден
  • OSPP.VBS не может быть расположен
  • Ошибка выполнения — OSPP.VBS
  • Ошибка файла OSPP.VBS
  • Файл OSPP.VBS не может быть загружен. Модуль не найден
  • невозможно зарегистрировать файл OSPP.VBS
  • Файл OSPP.VBS не может быть загружен
  • Файл OSPP.VBS не существует

OSPP.VBS

Error

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

OK

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

Как исправить ошибки OSPP.VBS всего за несколько шагов?

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

Шаг 1.. Сканирование компьютера на наличие вредоносных программ.

Virus Scan

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

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

Шаг 2.. Обновите систему и драйверы.

Windows Update

Установка соответствующих исправлений и обновлений Microsoft Windows может решить ваши проблемы, связанные с файлом OSPP.VBS. Используйте специальный инструмент Windows для выполнения обновления.

  1. Откройте меню «Пуск» в Windows.
  2. Введите «Центр обновления Windows» в поле поиска.
  3. Выберите подходящую программу (название может отличаться в зависимости от версии вашей системы)
  4. Проверьте, обновлена ​​ли ваша система. Если в списке есть непримененные обновления, немедленно установите их.
  5. После завершения обновления перезагрузите компьютер, чтобы завершить процесс.

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

Шаг 3.. Используйте средство проверки системных файлов (SFC).

System File Checker

Проверка системных файлов — это инструмент Microsoft Windows. Как следует из названия, инструмент используется для идентификации и адресации ошибок, связанных с системным файлом, в том числе связанных с файлом OSPP.VBS. После обнаружения ошибки, связанной с файлом %fileextension%, программа пытается автоматически заменить файл OSPP.VBS на исправно работающую версию. Чтобы использовать инструмент:

  1. Откройте меню «Пуск» в Windows.
  2. Введите «cmd» в поле поиска
  3. Найдите результат «Командная строка» — пока не запускайте его:
  4. Нажмите правую кнопку мыши и выберите «Запуск от имени администратора»
  5. Введите «sfc / scannow» в командной строке, чтобы запустить программу, и следуйте инструкциям.

Шаг 4. Восстановление системы Windows.

Windows Recovery

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

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

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

Загрузите и замените файл OSPP.VBS

Последнее решение — вручную загрузить и заменить файл OSPP.VBS в соответствующей папке на диске. Выберите версию файла, совместимую с вашей операционной системой, и нажмите кнопку «Скачать». Затем перейдите в папку «Загруженные» вашего веб-браузера и скопируйте загруженный файл OSPP.VBS.

Перейдите в папку, в которой должен находиться файл, и вставьте загруженный файл. Ниже приведен список путей к каталогу файлов OSPP.VBS.

  • Windows 10: C:Program FilesMicrosoft OfficeOffice15
  • Windows 7: C:Program Files (x86)Microsoft OfficeOffice14
  • Windows 8:

Если действия не помогли решить проблему с файлом OSPP.VBS, обратитесь к профессионалу. Существует вероятность того, что ошибка (и) может быть связана с устройством и, следовательно, должна быть устранена на аппаратном уровне. Может потребоваться новая установка операционной системы — неправильный процесс установки системы может привести к потере данных.

Список версий файлов

For Windows 10

Имя файла
OSPP.VBS

система
Windows 10

Размер файла
79360 bytes

Дата
2017-05-10

Подробности файла
MD5 bf41086c3c6a7be1e8d3af0323a05c42
SHA1 98d178d56102aa857c68750a16e1bfde22be848d
SHA256 77ab812ade8fd465eb47c91d2d8efbc62f25f467da11a50b83a10c7325f813af
CRC32 1314fa5c
Пример расположения файла C:Program FilesMicrosoft OfficeOffice15

For Windows 7

Имя файла
OSPP.VBS

система
Windows 7

Размер файла
49433 bytes

Дата
2017-05-10

Подробности файла
MD5 572e9a87757ac96c7677fd1b1b113c55
SHA1 9c8b96971997cd2dc0ed14f19dd9bc56d3348c3a
SHA256 008cf05944053116a095ad466561d3fd4be8a7de79e5ada7c5daab492f730465
CRC32 5f610f62
Пример расположения файла C:Program Files (x86)Microsoft OfficeOffice14

For Windows 8

Имя файла
OSPP.VBS

система
Windows 8

Размер файла
79360 bytes

Дата
2017-05-10

Подробности файла
MD5 bf41086c3c6a7be1e8d3af0323a05c42
SHA1 98d178d56102aa857c68750a16e1bfde22be848d
SHA256 77ab812ade8fd465eb47c91d2d8efbc62f25f467da11a50b83a10c7325f813af
CRC32 1314fa5c
Пример расположения файла

Пару недель назад столкнулся с одной интересной проблемой, о которой наконец-то собрался написать, хотя некоторые технические детали уже забылись. В общем, обратился ко мне клиент с очень простой просьбой: установить пакет Microsoft Office на его не так давно приобретенный ноутбук. На ноутбуке оказалась установленная производителем лицензионная Windows 10 Home, а также когда-то стояла ознакомительная версия MS Office 2016, которую клиент не совсем корректно удалил после окончания пробного периода.

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

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

После этого оставил попытки установить 2010 версию и заново поставил Office 2016. Проблемы начались при попытке активировать установленный пакет. К сожалению, не могу вспомнить текст получаемых сообщений и тем более коды ошибок, но факт в том, что все попытки активации заканчивались сообщением об ошибке. Для нахождения путей обхода проблемы были даже испробованы широко известные активаторы типа KMSAuto, KMSAutoNet, AAct разных версий, но и они не принесли желаемого результата. Абсолютно все активаторы выдавали сообщение об ошибке не только при попытке активации, но даже при считывании информации о текущем состоянии лицензирования установленного пакета. Номера ошибок, как вы уже поняли, я не запомнил (хотя если не поленюсь и посмотрю историю браузера на домашнем компьютере, то, возможно, внесу уточнения в статью).

В конце концов я добрался до командной строки и скрипта активации офиса, чтобы хоть как-то понять причину непонятного поведения компьютера. Кто еще не знает, активация пакета, получение информации об активации и другие действия возможны с помощью скрипта ospp.vbs, который обычно расположен в папке C:Program FilesMicrosoft OfficeOffice# или C:Program Files (x86)Microsoft OfficeOffice#. Вместо знака # в реальном пути будут стоять цифры, указывающие на установленную версию офиса (для офиса 2010 — 14, для 2013 — 15, для 2016 — 16).

Синтаксис команды запуска скрипта следующий:

cscript ospp.vbs [Option:Value] [ComputerName] [User] [Password]

Три последних параметра нас не интересуют, а список опций можно получить командой

cscript ospp.vbs /?

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

Поиск по номеру ошибки в интернете навел на мысль, что причиной может служить некая проблема с WMI. Технология WMI (Windows Management Instrumentation) создавалась для контроля различных частей компьютерной инфраструктуры под управлением Windows. Проблемы в работе этой службы и ее компонентах могут быть причиной самых неожиданных ошибок. К счастью, «все уже украдено до нас»: интернет дает готовые рецепты для устранения неполадок WMI.

Во-первых, стоит проверить наличие и работу службы Winmgmt (название службы — Windows Management Instrumentation или Инструментарий управления Windows). В моем случае служба присутствовала и была запущена. Далее для проверки работы службы можно использовать оболочку Powershell и попробовать в ней обратиться с любым запросом к WMI, например, командой

get-wmiobject Win32_OperatingSystem

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

Подробная диагностика службы WMI может быть выполнена официальной утилитой  WMIDiag от Microsoft. Это скрипт, который проверяет различные подсистемы WMI и записывает собранную информацию в лог-файл. В 64-битных версиях Windows скрипт нужно запускать командой

c:windowsSystem32cscript.exe wmidiag.vbs

иначе вы получите ошибку WMIDiag must be run from native 64-bit environment.

Впрочем, диагностика с помощью WMIDiag довольно сложна, поскольку требует анализа большого количества собранных данных. Гораздо проще выполнить несколько действий, позволяющих «сбросить и обновить» систему WMI. Начать стоит с более простого и безопасного варианта — перерегистрации нужных служб и dll, а также перекомпиляции файлов mof. Это можно сделать с помощью командного файла следующего содержания:

sc config winmgmt start=disabled
net stop winmgmt
cd %windir%system32wbem
for /f %%s in ('dir /b *.dll') do regsvr32 /s %%s
wmiprvse /regserver
winmgmt /regserver
sc config winmgmt start=auto
net start winmgmt
for /f %%s in ('dir /b *.mof') do mofcomp %%s
for /f %%s in ('dir /b *.mfl') do mofcomp %%s

Запускать командный файл следует с правами администратора. После завершения работы скрипта надо перезагрузить компьютер.

Если данный вариант не помог (мне он не помог), можно перейти к более сложному шагу — пересозданию репозитория WMI. Репозиторий (то есть хранилище) находится в каталоге %windir%System32WbemRepository и представляет собой базу данных, в которой содержится информация о метаданных и определениях WMI классов. Само собой разумеется, что при повреждении этой базы данных WMI может работать со сбоями. Однако пересоздание репозитория WMI может нарушить работу некоторых установленных программ, потому что все записи в базе WMI сбросятся до состояния чистой системы. В таком случае неработающие программы придется переустанавливать.

Начиная с Windows Vista, можно проверить целостность репозитория WMI  с помощью команды

winmgmt /verifyrepository

Если команда возвращает состояние INCONSISTENT, стоит попробовать команду «лечения» репозитория, после которой следует перезапустить службу Winmgmt:

Winmgmt /salvagerepository
net stop Winmgmt
net start Winmgmt

Если «лечение» не помогло, можно обнулить репозиторий:

Winmgmt /resetrepository

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

sc config winmgmt start=disabled 
net stop winmgmt 
cd %windir%system32wbem 
winmgmt /kill 
winmgmt /unregserver 
winmgmt /regserver 
winmgmt /resyncperf 
if exist RepBackup rd RepBackup /s /q 
rename Repository RepBackup 
regsvr32 /s %systemroot%system32scecli.dll 
regsvr32 /s %systemroot%system32userenv.dll 
for /f %%s in ('dir /b *.dll') do regsvr32 /s %%s 
for /f %%s in ('dir /b *.mof') do mofcomp %%s 
for /f %%s in ('dir /b *.mfl') do mofcomp %%s 
sc config winmgmt start=auto 
net start winmgmt 
wmiprvse /regserver

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

После полного пересоздания репозитория WMI мне наконец-то удалось запустить и успешно провести активацию установленного офисного пакета. Хочу заметить, что при просмотре содержимого папки C:WindowsSystem32WbemRepository в программе Total Commander я видел лишь пустую папку даже при включенном в программе отображении всех скрытых и системных файлов. Из-за этого я поначалу решил, что попытки пересоздать репозиторий ни к чему не привели. Однако оказалось, что папка на самом деле не пуста, а «Проводник» содержимое папки прекрасно отображает.

  • Remove From My Forums
  • Question

  • I’m having an issue getting MS Word 2016 activated using a MAK key.  Word 2016 is included and installed on our MDT image for deployment.  In previous versions of Word, it has always activated with no issues running the command line below in C:WindowsSetupScriptsSetupComplete.cmd

    cscript.exe "C:Program Files (x86)Microsoft Office[Office Version]OSPP.VBS" /act

    I’ve noticed after the image is deployed, going into Word it asks me to activate.  If I activate from the UI screens it activates normally, however, if I try to run the above command from the command prompt I get the following

    This is how we’ve always done it.  So that the activation is just handled and we can get the machine to the end user without any additional setup.  If there is a better or different way please let me know but can anyone tell me why it’s not activating?

    Also I can see in the MDT logs that Word 2016 is getting rearmed prior to capturing the image.

Answers

  • Hi MD2Tech,

    Based on your picture ,we can see the error code 0xC004B100. I do some research about this error code , I got the information as following:

    0xC004B100    The activation server determined that the computer could not be activated.

    Recommendations based on official documentation are as follows:

    To work around the errors that are listed earlier in this document, follow these steps:

    1.Click Start, click Run, type appwiz.cpl, and then click OK.

    2.Click to select the Office product that you installed, and then click Change.

    3.Click the Repair option, and then follow the prompts to complete the repair process.

    For more information , please refer to the article as following:

    Information about the error codes and corresponding descriptions of Microsoft Office activation process issues that can be repaired by using the Office Repair tool

    https://support.microsoft.com/en-us/help/982750/information-about-the-error-codes-and-corresponding-descriptions-of-mi

    Hope it’s helpful.

    Regards, Doug Xu TechNet Community Support

    Please remember to mark the replies as answers if they helped. If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com.

    • Proposed as answer by

      Monday, September 18, 2017 9:49 AM

    • Marked as answer by
      MD2Tech
      Tuesday, July 3, 2018 6:59 PM

‘Copyright (c) Microsoft Corporation. All rights reserved. ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// CONST wshOK =0 CONST VALUE_ICON_WARNING =16 CONST wshYesNoDialog =4 CONST VALUE_ICON_QUESTIONMARK =32 CONST VALUE_ICON_INFORMATION =64 CONST HKEY_LOCAL_MACHINE =&H80000002 CONST KEY_SET_VALUE =&H0002 CONST KEY_QUERY_VALUE =&H0001 CONST REG_SZ =1 CONST OfficeAppId = «0ff1ce15-a989-479d-af46-f275c6370663» CONST STR_SYS32PATH = «:WindowsSystem32» CONST STR_OSPPREARMPATH = «Microsoft OfficeOffice15OSPPREARM.EXE» CONST STR_OSPPREARMPATH_DEBUG = «Microsoft Office DebugOffice15OSPPREARM.EXE» CONST REG_OSPP = «SOFTWAREMicrosoftOfficeSoftwareProtectionPlatform» CONST REG_SPP = «SOFTWAREMicrosoftWindows NTCurrentVersionSoftwareProtectionPlatform» CONST VER_INFO = «Version Info: 2013 1.0 (RTM)» ‘//////////////////////////////////////////////////////////////////////////////////////// CONST MSG_NOREGRIGHTS = «Insufficient rights to perform operation.» CONST MSG_ISCMD_ELEVATED = «Ensure cmd.exe is elevated (right click > run as administrator).» CONST MSG_CREDENTIALFAILURE = «Connection failed with passed credentials.» CONST MSG_FILENOTFOUND = «File not found: « CONST MSG_SEPERATE = «—————————————« CONST MSG_PROCESSING = «—Processing—————————« CONST MSG_EXIT = «—Exiting——————————« CONST MSG_UNSUPPORTED = «Unsupported command passed.» CONST MSG_UNSUPPORTEDOPEROS7 = «The following command is supported on Windows 7 only: « CONST MSG_UNSUPPORTEDOPEROS8 = «The following command is supported on Windows 8 and above only: « CONST MSG_UNSUPPORTEDLOCAL = «The following command is supported on local machine only: « CONST MSG_CREDENTIALERR = «Passing credentials is not supported for this command.» CONST MSG_SUCCESS = «Successfully applied setting.» CONST MSG_NOKMSLICS = «No Office KMS licenses were found on the system.» CONST MSG_ACTATTEMPT = «Installed product key detected — attempting to activate the following product:» CONST MSG_TOKACTATTEMPT = «Installed product key detected — attempting to token activate the following product:» CONST MSG_NOKEYSINSTALLED = «<No installed product keys detected>» CONST MSG_UNINSTALLKEYSUCCESS = «<Product key uninstall successful>» CONST MSG_ACTSUCCESS = «<Product activation successful>» CONST MSG_OFFLINEACTSUCCESS = «<Offline product activation successful>» CONST MSG_KEYINSTALLSUCCESS = «<Product key installation successful>» CONST MSG_PARTIALKEY = «Last 5 characters of installed product key: « CONST MSG_UNINSTALLKEY = «Uninstalling product key for: « CONST MSG_UNRECOGFILE = «Unrecognized file. Office licenses have an .xrm-ms file extension.» CONST MSG_INSTALLLICENSE = «Installing Office license: « CONST MSG_INSTALLLICSUCCESS = «Office license installed successfully.» CONST MSG_SEARCHEVENTSKMS = «Searching for KMS activation events on machine: « CONST MSG_SEARCHEVENTSRET = «Searching for Internet activation failure events on machine: « CONST MSG_NOEVENTSSKMS = «No KMS activation events found on machine: « CONST MSG_NOEVENTSRET = «No failure events found on machine: « CONST MSG_OSPPSVC_NOINSTALL = «Error: The Software Protection Platform service is not installed.» CONST MSG_OSPPSVC_NORUN = «Error: The Software Protection Platform service is not running.» CONST MSG_ERRPARTIALKEY = «The last 5 characters of an installed product key are required to run this option. Run the /dstatus option to display the partial product key.» CONST MSG_KEYNOTFOUND = «<Product key not found>» CONST MSG_CMID = «Client Machine ID (CMID): « CONST MSG_NOLICENSEFOUND = «<No licenses found>» CONST MSG_AUTHERR = «Authorization Error: 0x» CONST MSG_REMILID = «Removed Token-based Activation License with License ID (ILID): « CONST MSG_NOTFOUNDILID = «License not found with License ID (ILID): « CONST MSG_KMSLOOKUP = «KMS Lookup Domain: « CONST MSG_INFO_ONLY = » (for information purposes only as the status is licensed)» ‘//////////////////////////////////////////////////////////////////////////////////////// CONST MSG_VLActivationType = «Activation Type Configuration: « ‘//////////////////////////////////////////////////////////////////////////////////////// CONST MSG_Act_Recent = «Most recent successful activation client information: « CONST MSG_KMS_DNS = «KMS machine name from DNS: « CONST MSG_KMS_DNS_ERR = «DNS auto-discovery: KMS name not available» CONST MSG_ADInfoAOName = «Activation Object name: « CONST MSG_ADInfoAODN = «AO DN: « CONST MSG_ADInfoExtendedPid = «AO extended PID: « CONST MSG_ADInfoActID = «AO activation ID: « CONST MSG_ACTIVATION_INTERVAL = «Activation Interval: « CONST MSG_RENEWAL_INTERVAL = «Renewal Interval: « CONST MSG_HOST_CACHING = «KMS host caching: « CONST MSG_HOST_REG_OVERRIDE = «KMS machine registry override defined: « CONST MSG_DEFAULT_PORT = «1688» ‘//////////////////////////////////////////////////////////////////////////////////////// CONST MSG_SKUID = «SKU ID: « CONST MSG_LICENSENAME = «LICENSE NAME: « CONST MSG_DESCRIPTION = «LICENSE DESCRIPTION: « CONST MSG_LICSTATUS = «LICENSE STATUS: « CONST MSG_LICENSED = » —LICENSED— « CONST MSG_UNLICENSED = » —UNLICENSED— « CONST MSG_OOBGRACE = » —OOB_GRACE— « CONST MSG_OOTGRACE = » —OOT_GRACE— « CONST MSG_NONGENGRACE = » —NON_GENUINE_GRACE— « CONST MSG_NOTIFICATION = » —NOTIFICATIONS— « CONST MSG_EXTENDEDGRACE = » —EXTENDED GRACE— « CONST MSG_LICUNKNOWN = » —UNKNOWN— « CONST MSG_REMAINGRACE = «REMAINING GRACE: « CONST MSG_LICEXPIRY = «BETA EXPIRATION: « CONST MSG_ERRCODE = «ERROR CODE: « CONST MSG_ERRDESC = «ERROR DESCRIPTION: « CONST MSG_ERRUNKNOWN = «An unknown error occurred.» CONST MSG_ERRCODEVALUE = «An error code must start with ‘0x’. Example: 0xC004F009» ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// On Error Resume Next Set WshShell = WSCript.CreateObject(«WSCript.Shell») Set objFSO = CreateObject(«Scripting.FileSystemObject») Set objNetwork = WSCript.CreateObject(«WSCript.Network») Dim globalResource, globalErr, foundSlUi, strSluiPath, strLocal, objWMI, objWMI1, wmiErr, productinstances, strValue, Win7, productClass, tokenClass, intIsKms, kmsCounter, isAdActivated globalResource = «» globalErr = «» foundSlUi = False Win7 = False kmsCounter = 0 isAdActivated = False currentDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, «»)) Select Case WSCript.Arguments.Count Case 0 verifyFileExists currentDir & «ospp.htm» showIePopUp currentDir & «ospp.htm» WScript.Quit Case 1 var1 = WSCript.Arguments(0) Case 2 var1 = WSCript.Arguments(0) var2 = WSCript.Arguments(1) Case 3 var1 = WSCript.Arguments(0) var2 = WSCript.Arguments(1) var3 = WSCript.Arguments(2) Case 4 var1 = WSCript.Arguments(0) var2 = WSCript.Arguments(1) var3 = WSCript.Arguments(2) var4 = WSCript.Arguments(3) Case Else End Select ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Call Main(var1,var2,var3,var4) ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Sub Main(strCommand,strMachine,strUser,strPassword) On Error Resume Next getEngine() pProcessing() getSlui() strLocal = objNetwork.ComputerName strCommand = LCase(strCommand) Select Case strCommand Case «/act», «/dstatus», «/dstatusall», «/dinstid», «/dtokils», _ «/remhst», «/stokflag», «/ctokflag», «/dcmid», «/dtokcerts», «/ckms-domain» connectWMI strMachine,strUser,strPassword,«» performLicAction strCommand,«»,«» Case «/dhistoryacterr», «/dhistorykms» connectWMI strMachine,strUser,strPassword,«» performLicAction strCommand,«»,strMachine Case «/puserops», «/duserops» connectWMI strMachine,strUser,strPassword,«reg» performRegAction strCommand Case «/osppsvcrestart», «/osppsvcauto» connectWMI strMachine,strUser,strPassword,«» performServiceAction strCommand Case «/help», «help», «?», «/?», «/?» verifyFileExists currentDir & «ospp.htm» showIePopUp currentDir & «ospp.htm» quitExit() Case «/regmof» registerMof «osppwmi.mof» Case «/rearm» If strMachine = «» Then reARM «» Else globalPopFailure MSG_UNSUPPORTEDLOCAL & vbCr & strCommand,True End If quitExit() Case «/version» globalPopSuccess VER_INFO,True Case Else pos = InStr(strCommand,«:») Select Case pos Case 7 getCommand = Left(strCommand,6) Case 8 getCommand = Left(strCommand,7) Case 13 getCommand = Left(strCommand,12) Case Else globalPopFailure MSG_UNSUPPORTED,True End Select Select Case getCommand Case «/skms-domain», «/actype», «/inpkey», «/unpkey», «/inslic», «/actcid», «/sethst», «/setprt», «/ddescr», «/rtokil», «/tokact», «/cachst», «/rearm» strValue = Replace(strCommand,getCommand & «:»,«») If strValue = «» Then globalPopFailure MSG_UNSUPPORTED & » A value is required for: « & strCommand,True End If If getCommand = «/ddescr» Then If Left(strValue,2) = «0x» Then getDescription strValue,«» Else WScript.Echo MSG_ERRCODEVALUE quitExit() End If ElseIf getCommand = «/rearm» Then If strMachine = «» Then reARM strValue Else globalPopFailure MSG_UNSUPPORTEDLOCAL & vbCr & strCommand,True End If quitExit() Else connectWMI strMachine,strUser,strPassword,«» performLicAction getCommand,strValue,«» End If Case Else globalPopFailure MSG_UNSUPPORTED,True End Select End Select End Sub ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function showIePopUp(strPath) On Error Resume Next Set objExplorer = CreateObject(«InternetExplorer.Application») With objExplorer .Navigate strPath .ToolBar = 0 .StatusBar = 0 .Width = 1000 .Height = 593 .Left = 1 .Top = 1 .Visible = 1 End With End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function getEngine() strEngine = LCase(Right(WScript.FullName,12)) If strEngine <> «cscript.exe» Then WshShell.Popup «Unable to perform operation. « & WSCript.ScriptName & » requires the cscript engine.» & _ vbCr & «Command line example: cscript ospp.vbs ?», _ ,WSCript.ScriptName, VALUE_ICON_WARNING WScript.Quit End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function WMIDateStringToDate(dtmEventDate) WMIDateStringToDate = CDate(Mid(dtmEventDate, 5, 2) & «/» & _ Mid(dtmEventDate, 7, 2) & «/» & Left(dtmEventDate, 4) _ & » « & Mid (dtmEventDate, 9, 2) & «:» & _ Mid(dtmEventDate, 11, 2) & «:» & Mid(dtmEventDate, _ 13, 2)) End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function getDescription(strSearch,cType) If foundSlUi <> True Then If cType <> «wmi» Then globalPopFailure «slui.exe not found.»,True quitExit() End If Else Set objScriptExec = WshShell.Exec (strSluiPath & » 0x2a « & strSearch) readOut = objScriptExec.StdOut.ReadAll quitExit() End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function checkRegRights(wmiObject,strKeyPath) On Error Resume next wmiObject.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_SET_VALUE, _ bHasAccessRight If bHasAccessRight = True Then ‘Success Else globalPopFailure MSG_NOREGRIGHTS & vbCr & MSG_ISCMD_ELEVATED,True End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function quitExit() Set WshShell = Nothing Set objFSO = Nothing Set objNetwork = Nothing Set objWMI = Nothing WScript.Echo MSG_SEPERATE WScript.Echo MSG_EXIT WSCript.Quit End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function verifyFileExists(file) If Not objFSO.FileExists(file) Then If file = currentDir & «slerror.xml» Then WScript.Echo «[« & MSG_FILENOTFOUND & file & » Unable to display error description.]» ElseIf file = currentDir & «ospp.htm» Then globalPopFailure MSG_FILENOTFOUND & vbCr & file,False quitExit() Else globalPopFailure MSG_FILENOTFOUND & vbCr & file,True End If End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function registerMof(strFile) For Each Drv In objFSO.Drives If Drv.DriveType=2 Then If objFSO.FileExists(Drv.DriveLetter & STR_SYS32PATH & «wbemmofcomp.exe») Then foundComp = True strMofExePath = Drv.DriveLetter & STR_SYS32PATH & «wbemmofcomp.exe» If objFSO.FileExists(Drv.DriveLetter & STR_SYS32PATH & «wbem» & strFile) Then foundMof = True strOWmi = Drv.DriveLetter & STR_SYS32PATH & «wbem» & strFile Set objScriptExec = WshShell.Exec (strMofExePath & » « & strOWmi) readOut = objScriptExec.StdOut.ReadAll WScript.Echo readOut quitExit() End If End If End If Next If foundComp <> True Then globalPopFailure MSG_FILENOTFOUND & Replace(STR_SYS32PATH,«:»,«») & «wbemmofcomp.exe»,True Else If foundMof <> True Then globalPopFailure MSG_FILENOTFOUND & Replace(STR_SYS32PATH,«:»,«») & «wbemosppwmi.mof»,True End If End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function pProcessing() WScript.Echo MSG_PROCESSING WScript.Echo MSG_SEPERATE End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function getSlui() For Each Drv In objFSO.Drives If Drv.DriveType=2 Then If objFSO.FileExists(Drv.DriveLetter & STR_SYS32PATH & «slui.exe») Then strSluiPath = Drv.DriveLetter & STR_SYS32PATH & «slui.exe» foundSlUi = True Exit For End If End If Next End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// ‘ Returns the encoding for a givven file. ‘ Possible return values: ascii, unicode, unicodeFFFE (big-endian), utf-8 Function GetFileEncoding(strFileName) Dim strData Dim strEncoding Set oStream = CreateObject(«ADODB.Stream») oStream.Type = 1 ‘adTypeBinary oStream.Open oStream.LoadFromFile(strFileName) ‘ Default encoding is ascii strEncoding = «ascii» strData = BinaryToString(oStream.Read(2)) ‘ Check for little endian (x86) unicode preamble If (Len(strData) = 2) and strData = (Chr(255) + Chr(254)) Then strEncoding = «unicode» Else oStream.Position = 0 strData = BinaryToString(oStream.Read(3)) ‘ Check for utf-8 preamble If (Len(strData) >= 3) and strData = (Chr(239) + Chr(187) + Chr(191)) Then strEncoding = «utf-8» End If End If oStream.Close GetFileEncoding = strEncoding End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// ‘ Converts binary data (VT_UI1 | VT_ARRAY) to a string (BSTR) Function BinaryToString(dataBinary) Dim i Dim str For i = 1 To LenB(dataBinary) str = str & Chr(AscB(MidB(dataBinary, i, 1))) Next BinaryToString = str End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// ‘ Returns string containing the whole text file data. ‘ Supports ascii, unicode (little-endian) and utf-8 encoding. Function ReadAllTextFile(strFileName) Dim strData Set oStream = CreateObject(«ADODB.Stream») oStream.Type = 2 ‘adTypeText oStream.Open oStream.Charset = GetFileEncoding(strFileName) oStream.LoadFromFile(strFileName) strData = oStream.ReadText(-1) ‘adReadAll oStream.Close ReadAllTextFile = strData End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function sppErrHandle(strCommand) globalErr = Hex(Err.Number) Select Case Err.Number Case 0 ‘Success Select Case strCommand Case «/act»,«/tokact» WScript.Echo MSG_ACTSUCCESS Case «/inpkey» WScript.Echo MSG_KEYINSTALLSUCCESS quitExit() Case «/inslic» WScript.Echo MSG_INSTALLLICSUCCESS quitExit() Case «/ckms-domain»,«/skms-domain»,«/actype»,«/sethst»,«/setprt»,«/remhst»,«/stokflag»,«/ctokflag»,«/cachst» WScript.Echo MSG_SUCCESS quitExit() Case «/rtokil» WScript.Echo MSG_REMILID & UCase(strValue) quitExit() Case «/unpkey» WScript.Echo MSG_UNINSTALLKEYSUCCESS quitExit() Case Else End Select Case Else verifyFileExists currentDir & «slerror.xml» getResource(«err» & «0x» & globalErr) If globalResource = «» Then If Len(globalErr) <> «8» Then WScript.Echo MSG_ERRDESC & MSG_ERRUNKNOWN Else If foundSlUi = True Then WScript.Echo MSG_ERRCODE & «0x» & globalErr WScript.Echo MSG_ERRDESC & «Run the following: cscript ospp.vbs /ddescr:0x» & globalErr Else WScript.Echo MSG_ERRCODE & «0x» & globalErr End If End If If strCommand <> «/act» Then quitExit() End If Else WScript.Echo MSG_ERRCODE & «0x» & globalErr Wscript.Echo MSG_ERRDESC & globalResource End If If strCommand = «/dtokcerts» Or strCommand = «/ignore» Then quitExit() End If End Select If globalErr = «C004F074» Then WScript.Echo «To view the activation event history run: cscript « & WScript.ScriptName & » /dhistorykms» End If globalResource = «» globalErr = «» Err.Clear End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function wmiErrHandle() Select Case Err.Number Case 0 ‘Successs Case 424 globalPopFailure MSG_ERRCODE & Err.Number & vbCr & MSG_ERRDESC & MSG_CREDENTIALFAILURE,True Case Else If Err.Description <> «» Then globalPopFailure MSG_ERRCODE & Err.Number & vbCr & MSG_ERRDESC & Err.Description,True Else globalPopFailure «An error occurred while making the connection.» & vbCr & MSG_ERRCODE & Err.Number,True End If End Select End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function setRegValue(wmiObject,opsValue,strValueName) On Error Resume Next Err.Clear() If Win7 = True Then strKeyPath = REG_OSPP Else strKeyPath = REG_SPP End If Select Case strValueName Case «UserOperations» wmiObject.CreateKey HKEY_LOCAL_MACHINE,strKeyPath wmiObject.SetDWORDValue HKEY_LOCAL_MACHINE,_ strKeyPath,strValueName,opsValue Case Else End Select wmiErrHandle() WScript.Echo MSG_SUCCESS quitExit() End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function getResource(resource) On Error Resume Next Set xmlDoc = CreateObject(«Msxml2.DOMDocument.6.0») xmlDoc.load(currentDir & «slerror.xml») Set ElemList = xmlDoc.getElementsByTagName(resource) resValue = ElemList.item(0).text globalResource = resValue End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function globalPopSuccess(strSuccess,boolQuit) If boolQuit = True Then WshShell.Popup strSuccess,,WScript.ScriptName, wshOK + VALUE_ICON_INFORMATION quitExit() Else WshShell.Popup strSuccess,,WScript.ScriptName, wshOK + VALUE_ICON_INFORMATION End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function globalPopFailure(strFailure,boolQuit) If boolQuit = True Then WshShell.Popup strFailure,,WScript.ScriptName, wshOK + VALUE_ICON_WARNING quitExit() Else WshShell.Popup strFailure,,WScript.ScriptName, wshOK + VALUE_ICON_WARNING End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function connectWMI(strMachine,strUser,strPassword,ctype) On Error Resume Next If ctype = «» Then If strMachine = «» Or LCase(strMachine) = LCase(strLocal) Then Set objWMI = GetObject(«winmgmts:» _ & «{impersonationLevel=impersonate}!\» & «.» & «rootcimv2») Else If strUser = «» And strPassword = «» Then Set objWMI = GetObject(«winmgmts:» _ & «{impersonationLevel=impersonate}!\» & strMachine & «rootcimv2») Else Set objSWbemLocator = CreateObject(«WbemScripting.SWbemLocator») Set objWMI = objSWbemLocator.ConnectServer _ (strMachine, «rootcimv2», strUser, strPassword) wmiErr = CStr(Hex(Err.Number)) If Len(wmiErr) = «8» Then getDescription «0x» & wmiErr,«wmi» End If objWMI.Security_.ImpersonationLevel = 3 End If End If Else If strUser <> «» Then globalPopFailure MSG_CREDENTIALERR,True End If If strMachine = «» Or LCase(strMachine) = LCase(strLocal) Then Set objWMI1 = GetObject(«winmgmts:» _ & «{impersonationLevel=impersonate}!\» & «.» & «rootdefault:StdRegProv») Set objWMI = GetObject(«winmgmts:» _ & «{impersonationLevel=impersonate}!\» & «.» & «rootcimv2») Else Set objWMI1 = GetObject(«winmgmts:» _ & «{impersonationLevel=impersonate}!\» & strMachine & «rootdefault:StdRegProv») Set objWMI = GetObject(«winmgmts:» _ & «{impersonationLevel=impersonate}!\» & strMachine & «rootcimv2») End If End If wmiErrHandle() isWin7OS() End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Private Function TkaGetSigner() On Error Resume Next If Win7 = True Then Set TkaGetSigner = WScript.CreateObject(«OSPPWMI.OSppWmiTokenActivationSigner») Else Set TkaGetSigner = WScript.CreateObject(«SPPWMI.SppWmiTokenActivationSigner») End If If Hex(Err.Number) = «80020009» Then globalPopFailure MSG_ERRCODE & «0x» & Hex(Err.Number) & vbCr & MSG_ERRDESC & Err.Description,True End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function TkaPrintCertificate(strThumbprint) arrParams = Split(strThumbprint, «|») WScript.Echo «Thumbprint: « & arrParams(0) WScript.Echo «Subject: « & arrParams(1) WScript.Echo «Issuer: « & arrParams(2) vf = FormatDateTime(CDate(arrParams(3)), vbShortDate) WScript.Echo «Valid From: « & vf vt = FormatDateTime(CDate(arrParams(4)), vbShortDate) WScript.Echo «Valid To: « & vt WScript.Echo MSG_SEPERATE End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function ExecuteQuery(strSelect,strWhere,strClass) Err.Clear If strWhere = «» Then Set productinstances = objWMI.ExecQuery(«SELECT « & strSelect & » FROM « & strClass) Else Set productinstances = objWMI.ExecQuery(«SELECT « & strSelect & » FROM « & strClass & » WHERE « & strWhere) End If sppErrHandle «» End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function performLicAction(strCommand,strValue,strMachine) On Error Resume Next If strCommand = «/dhistorykms» Or strCommand = «/dhistoryacterr» Then verifyFileExists currentDir & «slerror.xml» If strCommand = «/dhistorykms» Then ‘12288 = KMS Activation event id eventCode = «12288» strSrcEvents = MSG_SEARCHEVENTSKMS strNoEvents = MSG_NOEVENTSSKMS Else ‘8200 = Internet Activation event id eventCode = «8200» strSrcEvents = MSG_SEARCHEVENTSRET strNoEvents = MSG_NOEVENTSRET End If If strMachine <> «» Then WScript.Echo strSrcEvents & strMachine Else WScript.Echo strSrcEvents & strLocal End If WScript.Echo «Event ID: « & eventCode WScript.Echo vbCr Set objEvents = objWMI.ExecQuery _ («Select * from Win32_NTLogEvent Where Logfile = ‘Application’ and « _ & «EventCode = ‘» & eventCode & «‘») If objEvents.Count > 0 Then For each objEvent in objEvents If strCommand = «/dhistoryacterr» Then i = i + 1 dtmEventDate = objEvent.TimeWritten strTimeWritten = WMIDateStringToDate(dtmEventDate) WScript.Echo «Coordinated Universal Time Written: « & strTimeWritten strReplCrs = Replace(objEvent.Message,vbCrLf,«») WScript.Echo «MESSAGE: « & strReplCrs strhr10 = Right(strReplCrs,10) getResource(«err» & strhr10) If globalResource = «» Then If foundSlUi = True Then WScript.Echo MSG_ERRDESC & «Run the following: cscript ospp.vbs /ddescr:» & strhr10 Else WScript.Echo MSG_ERRDESC & «Not available.» End If Else Wscript.Echo MSG_ERRDESC & globalResource End If WScript.Echo MSG_SEPERATE Else strhr10 = Mid(objEvent.Message,90,10) strReplCrs = Replace(objEvent.Message,vbCrLf,«») If Right(strReplCrs,2) = » 5″ Then strReplStrs = Replace(strReplCrs,«The client has sent an activation request to the key management service machine.Info:»,«») dtmEventDate = objEvent.TimeWritten strTimeWritten = WMIDateStringToDate(dtmEventDate) WScript.Echo «Coordinated Universal Time Written: « & strTimeWritten intColon = InStr(strReplStrs,«:») strErrHost = Left(strReplStrs,intColon) strErrHost = Trim(strErrHost) strErrHost = Replace(strErrHost,«:»,«») WScript.Echo «ERROR/HOST: « & strErrHost Select Case strhr10 Case «0x00000000» WScript.Echo MSG_ERRDESC & «N/A» Case Else getResource(«err» & strhr10) If globalResource = «» Then If foundSlUi = True Then WScript.Echo MSG_ERRDESC & «Run the following: cscript ospp.vbs /ddescr:» & strhr10 Else WScript.Echo MSG_ERRDESC & «Not available.» End If Else Wscript.Echo MSG_ERRDESC & globalResource End If End Select WScript.Echo MSG_SEPERATE End If End If Next Else WScript.Echo MSG_SEPERATE If strMachine <> «» Then WScript.Echo strNoEvents & strMachine Else WScript.Echo strNoEvents & strLocal End If WScript.Echo MSG_SEPERATE End If quitExit() End If ‘Verify osppsvc service is installed for win7 case If Win7 = True Then Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service «) For Each objService in colListOfServices If objService.Name = «osppsvc» Then installed = True Exit For End If Next If installed <> True Then globalPopFailure MSG_OSPPSVC_NOINSTALL,True End If End If Select Case strCommand ‘The following operations are performed @ a service level Case «/inpkey», «/dcmid», «/inslic», «/cachst», «/stokflag», «/ctokflag», «/dstatus», «/dstatusall» If Win7 = True Then For Each objService in objWMI.InstancesOf(«OfficeSoftwareProtectionService») Set objOspp = objService Exit For Next Else ‘Win8 and beyond For Each objService in objWMI.InstancesOf(«SoftwareLicensingService») Set objOspp = objService Exit For Next End If Case Else End Select sppErrHandle «» If strCommand = «/inpkey» Then i = i + 1 Err.Clear objOspp.InstallProductKey(strValue) sppErrHandle(strCommand) ElseIf strCommand = «/cachst» Then i = i + 1 If strValue = «true» Then objOspp.DisableKeyManagementServiceHostCaching(False) sppErrHandle(strCommand) ElseIf strValue = «false» Then objOspp.DisableKeyManagementServiceHostCaching(True) sppErrHandle(strCommand) Else globalPopFailure MSG_UNSUPPORTED & » A TRUE or FALSE value is required for: « & strCommand,True End If ElseIf strCommand = «/dcmid» Then If objOspp.ClientMachineID <> «» Or objOspp.ClientMachineID <> Null Then WScript.Echo MSG_CMID & objOspp.ClientMachineID Else WScript.Echo MSG_CMID & «Not found.» End If quitExit() ElseIf strCommand = «/inslic» Then i = i + 1 If Right(strValue,7) = «.xrm-ms» Then verifyFileExists strValue WScript.Echo MSG_INSTALLLICENSE & strValue Else globalPopFailure MSG_UNRECOGFILE,True End If LicenseData = ReadAllTextFile(strValue) objOSpp.InstallLicense(LicenseData) SppErrHandle(strCommand) ElseIf strCommand = «/stokflag» Then i = i + 1 If Win7 = True Then objOspp.DisableKeyManagementServiceActivation(True) sppErrHandle(strCommand) Else ‘Unsupported — osppsvc only supports this. globalPopFailure MSG_UNSUPPORTEDOPEROS7 & vbCr & strCommand,True End If ElseIf strCommand = «/ctokflag» Then i = i + 1 If Win7 = True Then objOspp.DisableKeyManagementServiceActivation(False) SppErrHandle(strCommand) Else ‘Unsupported — osppsvc only supports this. globalPopFailure MSG_UNSUPPORTEDOPEROS7 & vbCr & strCommand,True End If ElseIf strCommand = «/dtokils» Then Err.Clear Set objWmiDate = CreateObject(«WBemScripting.SWbemDateTime») ExecuteQuery «ILID, ILVID, AuthorizationStatus, ExpirationDate, Description, AdditionalInfo»,«»,tokenClass For Each instance in productinstances sppErrHandle «» i = i + 1 WScript.Echo «License ID (ILID): « & instance.ILID WScript.Echo «Version ID (ILvID): « & instance.ILVID If Not IsNull(instance.ExpirationDate) Then objWmiDate.Value = instance.ExpirationDate If (objWmiDate.GetFileTime(false) <> 0) Then WScript.Echo «Expiry Date: « & objWmiDate.GetVarDate End If End If If Not IsNull(instance.AdditionalInfo) Then WScript.Echo «Additional Info: « & instance.AdditionalInfo End If If Not IsNull(instance.AuthorizationStatus) And instance.AuthorizationStatus <> 0 Then globalErr = CStr(Hex(instance.AuthorizationStatus)) WScript.Echo MSG_AUTHERR & globalErr quitExit() Else WScript.Echo «Description: « & instance.Description End If WScript.Echo MSG_SEPERATE Next If i = 0 Then WScript.Echo MSG_NOLICENSEFOUND End If quitExit() ElseIf strCommand = «/rtokil» Then Err.Clear ExecuteQuery «ILID, ID»,«»,tokenClass For Each instance in productinstances sppErrHandle «» i = i + 1 If LCase(strValue) = LCase(instance.ILID) Then instance.Uninstall SppErrHandle(strCommand) Else WScript.Echo MSG_NOTFOUNDILID & strValue & » Run /dtokils to display the ILID for installed licenses.» End If Next If i = 0 Then WScript.Echo MSG_NOLICENSEFOUND End If quitExit() ElseIf strCommand = «/dtokcerts» Then Err.Clear Set objSigner = TkaGetSigner() sppErrHandle(strCommand) ExecuteQuery «ID, Name, ApplicationId, PartialProductKey, Description, LicenseIsAddon «,«ApplicationId = ‘» & OfficeAppId & «‘ « & «AND PartialProductKey <> NULL « & «AND LicenseIsAddon = FALSE»,productClass For each instance in productinstances i = i + 1 sppErrHandle «» iRet = instance.GetTokenActivationGrants(arrGrants) If Err.Number = 0 Then arrThumbprints = objSigner.GetCertificateThumbprints(arrGrants) If Err.Number = 0 Then For Each strThumbprint in arrThumbprints TkaPrintCertificate strThumbprint Next Else sppErrHandle «» End If Else sppErrHandle «» End If WScript.Echo MSG_SEPERATE Err.Clear Next ElseIf strCommand = «/tokact» Then Err.Clear Set objSigner = TkaGetSigner() sppErrHandle «/ignore» pos1 = InStr(strValue,«:») If pos1 = 0 Then ‘PIN not passed strThumbprint = strValue Else ‘PIN passed strThumbprint = Left(strValue,pos1 1) strPin = Replace(strValue,strThumbprint & «:»,«») End If ExecuteQuery «ID, Name, ApplicationId, PartialProductKey, Description, LicenseIsAddon «,«ApplicationId = ‘» & OfficeAppId & «‘ « & «AND PartialProductKey <> NULL « & «AND LicenseIsAddon = FALSE»,productClass For each instance in productinstances i = i + 1 sppErrHandle «» WScript.Echo MSG_TOKACTATTEMPT WScript.Echo MSG_SKUID & instance.ID WScript.Echo MSG_LICENSENAME & instance.Name WScript.Echo MSG_DESCRIPTION & instance.Description WScript.Echo MSG_PARTIALKEY & instance.PartialProductKey iRet = instance.GenerateTokenActivationChallenge(strChallenge) If Err.Number = 0 Then strAuthInfo1 = objSigner.Sign(strChallenge, strThumbprint, strPin, strAuthInfo2) If Err.Number = 0 Then iRet = instance.DepositTokenActivationResponse(strChallenge, strAuthInfo1, strAuthInfo2) SppErrHandle(strCommand) Else sppErrHandle «» End If Else sppErrHandle «» End If WScript.Echo MSG_SEPERATE Next Else Err.Clear If strCommand = «/dstatus» Or strCommand = «/dstatusall» Then If Win7 = True Then ExecuteQuery «ID, ApplicationId, EvaluationEndDate, PartialProductKey, Description, Name, LicenseStatus, LicenseStatusReason, ProductKeyID, GracePeriodRemaining, DiscoveredKeyManagementServiceMachineName, DiscoveredKeyManagementServiceMachinePort, VLActivationInterval, VLRenewalInterval, KeyManagementServiceMachine, KeyManagementServicePort»,«ApplicationId = ‘» & OfficeAppId & «‘ «,productClass Else ExecuteQuery «ID, ApplicationId, EvaluationEndDate, PartialProductKey, Description, Name, LicenseStatus, LicenseStatusReason, ProductKeyID, GracePeriodRemaining, KeyManagementServiceLookupDomain, VLActivationType, ADActivationObjectName, ADActivationObjectDN, ADActivationCsvlkPid, ADActivationCsvlkSkuId, VLActivationTypeEnabled, DiscoveredKeyManagementServiceMachineName, DiscoveredKeyManagementServiceMachinePort, VLActivationInterval, VLRenewalInterval, KeyManagementServiceMachine, KeyManagementServicePort»,«ApplicationId = ‘» & OfficeAppId & «‘ «,productClass End If ElseIf strCommand = «/act» Then ExecuteQuery «ID, ApplicationId, PartialProductKey, Description, Name»,«ApplicationId = ‘» & OfficeAppId & «‘ « & «AND PartialProductKey <> NULL «,productClass ElseIf strCommand = «/unpkey» Then ExecuteQuery «ID, ApplicationId, Description, PartialProductKey, Name, ProductKeyID»,«ApplicationId = ‘» & OfficeAppId & «‘ « & «AND PartialProductKey <> NULL «,productClass ElseIf strCommand = «/dinstid» Or strCommand = «/actcid» Then ExecuteQuery «ID, ApplicationId, Description, PartialProductKey, Name, OfflineInstallationId»,«ApplicationId = ‘» & OfficeAppId & «‘ « & «AND PartialProductKey <> NULL «,productClass ElseIf strCommand = «/actype» Or strCommand = «/skms-domain» Or strCommand = «/ckms-domain» Then If Win7 = True Then ‘Unsupported — sppsvc only supports this. globalPopFailure MSG_UNSUPPORTEDOPEROS8 & vbCr & strCommand,True Else ExecuteQuery «ID, Description, PartialProductKey, ApplicationId «,«ApplicationId = ‘» & OfficeAppId & «‘ «,productClass End If ElseIf strCommand = «/sethst» Or strCommand = «/setprt» Or strCommand = «/remhst» Then ExecuteQuery «ID, Description, PartialProductKey, ApplicationId «,«ApplicationId = ‘» & OfficeAppId & «‘ «,productClass End If For Each instance in productinstances sppErrHandle «» If (LCase(instance.ApplicationId) = OfficeAppId) Then If instance.PartialProductKey <> «» Then i = i + 1 End If intIsKms = InStr(UCase(instance.Description),«KMS») If intIsKms <> 0 Then kmsCounter = kmsCounter + 1 End If Select Case strCommand Case «/actype» Select Case strValue Case «0»,«1»,«2»,«3» Case Else globalPopFailure MSG_UNSUPPORTED & » A value of» & vbCr & _ «0 (for all)» & vbCr & «1 (for AD)» & vbCr & «2 (for KMS» & vbCr & _ «3 (for Token)» & vbCr & «Is required for: « & strCommand,True End Select If intIsKms <> 0 Then If strValue <> 0 Then instance.SetVLActivationTypeEnabled(strValue) Else instance.ClearVLActivationTypeEnabled() End If End If sppErrHandle «» Case «/skms-domain» If intIsKms <> 0 Then instance.SetKeyManagementServiceLookupDomain(strValue) End If sppErrHandle «» Case «/ckms-domain» If intIsKms <> 0 Then instance.ClearKeyManagementServiceLookupDomain() End If sppErrHandle «» Case «/sethst» If intIsKms <> 0 Then instance.SetKeyManagementServiceMachine(strValue) End If sppErrHandle «» Case «/setprt» If intIsKms <> 0 Then instance.SetKeyManagementServicePort(strValue) End If sppErrHandle «» Case «/remhst» If intIsKms <> 0 Then instance.ClearKeyManagementServiceMachine() sppErrHandle «» instance.ClearKeyManagementServicePort() sppErrHandle «» End If Case «/act» WScript.Echo MSG_ACTATTEMPT WScript.Echo MSG_SKUID & instance.ID WScript.Echo MSG_LICENSENAME & instance.Name WScript.Echo MSG_DESCRIPTION & instance.Description WScript.Echo MSG_PARTIALKEY & instance.PartialProductKey instance.Activate SppErrHandle(strCommand) WScript.Echo MSG_SEPERATE Case «/unpkey» If Len(strValue) <> «5» Then globalPopFailure MSG_ERRPARTIALKEY,True End If If UCase(strValue) = instance.PartialProductKey Then y = y + 1 WScript.Echo MSG_UNINSTALLKEY & instance.Name instance.UninstallProductKey(instance.ProductKeyID) SppErrHandle(strCommand) End If Case «/dinstid» WScript.Echo «Installation ID for: « & instance.Name & «: « & instance.OfflineInstallationId WScript.Echo MSG_SEPERATE Case «/actcid» instance.DepositOfflineConfirmationId instance.OfflineInstallationId, strValue If Err.Number = 0 Then If telsuccess <> True Then WScript.Echo MSG_LICENSENAME & instance.Name WScript.Echo MSG_OFFLINEACTSUCCESS telsuccess = True End If Else WScript.Echo MSG_LICENSENAME & instance.Name sppErrHandle «» End If WScript.Echo MSG_SEPERATE Case «/dstatus», «/dstatusall» getInstalled = False verifyFileExists currentDir & «slerror.xml» licSr = Hex(instance.LicenseStatusReason) If strCommand = «/dstatusall» Then getInstalled = True WScript.Echo MSG_SKUID & instance.ID WScript.Echo MSG_LICENSENAME & instance.Name WScript.Echo MSG_DESCRIPTION & instance.Description Else If instance.ProductKeyID <> «» Then getInstalled = True WScript.Echo MSG_SKUID & instance.ID WScript.Echo MSG_LICENSENAME & instance.Name WScript.Echo MSG_DESCRIPTION & instance.Description ‘EvaluationEndDate always returns a value. When an expiry date is not defined «1/1/1601» is returned. ‘So avoid displaying this against RTM licenses as that date = no expiry defined. If instance.EvaluationEndDate <> «» Then Set objDate = CreateObject(«WBemScripting.SWbemDateTime») objDate.Value = instance.EvaluationEndDate If objDate.GetVarDate() <> «1/1/1601» Then WScript.Echo MSG_LICEXPIRY & objDate.GetVarDate() End If Set objDate = Nothing End If End If End If If getInstalled = True Then Select Case instance.LicenseStatus Case 0 WScript.Echo MSG_LICSTATUS & MSG_UNLICENSED Case 1 WScript.Echo MSG_LICSTATUS & MSG_LICENSED Case 2 WScript.Echo MSG_LICSTATUS & MSG_OOBGRACE Case 3 WScript.Echo MSG_LICSTATUS & MSG_OOTGRACE Case 4 WScript.Echo MSG_LICSTATUS & MSG_NONGENGRACE Case 5 WScript.Echo MSG_LICSTATUS & MSG_NOTIFICATION Case 6 WScript.Echo MSG_LICSTATUS & MSG_EXTENDEDGRACE Case Else WScript.Echo MSG_LICSTATUS & MSG_LICUNKNOWN End Select If licSr <> «0» Then If instance.LicenseStatus <> 1 Then WScript.Echo MSG_ERRCODE & «0x» & licSr Else WScript.Echo MSG_ERRCODE & «0x» & licSr & MSG_INFO_ONLY End If getResource(«err» & «0x» & licSr) If globalResource = «» Then If foundSlUi <> True Then WScript.Echo MSG_ERRDESC & «Not available.» Else WScript.Echo MSG_ERRDESC & «Run the following: cscript ospp.vbs /ddescr:0x» & licSr End if Else WScript.Echo MSG_ERRDESC & globalResource End If End If If instance.GracePeriodRemaining <> 0 Then dGrace = instance.GracePeriodRemaining / 60 / 24 rndDown = Int(dGrace) WScript.Echo MSG_REMAINGRACE & rndDown & » days « & » (« & instance.GracePeriodRemaining & » minute(s) before expiring» & «)» End If If instance.PartialProductKey <> «» Then WScript.Echo MSG_PARTIALKEY & instance.PartialProductKey ‘Display additional volume info for KMS licenses If intIsKms <> 0 Then ‘Display activation type set (Win8+). If Win7 <> True Then Select Case instance.VLActivationTypeEnabled Case 1 WScript.Echo MSG_VLActivationType & «AD» Case 2 WScript.Echo MSG_VLActivationType & «KMS» Case 3 WScript.Echo MSG_VLActivationType & «Token» Case Else WScript.Echo MSG_VLActivationType & «ALL» End Select ‘Check to see if last activated via AD- display object info (Win8+). If instance.VLActivationType = 1 Then isAdActivated = True WScript.Echo MSG_Act_Recent + «AD» WScript.Echo vbTab & MSG_ADInfoAOName & instance.ADActivationObjectName WScript.Echo vbTab & MSG_ADInfoAODN & instance.ADActivationObjectDN WScript.Echo vbTab & MSG_ADInfoExtendedPid & instance.ADActivationCsvlkPid WScript.Echo vbTab & MSG_ADInfoActID & instance.ADActivationCsvlkSkuId End If End If If isAdActivated = False Then strKms = instance.DiscoveredKeyManagementServiceMachineName strPort = instance.DiscoveredKeyManagementServiceMachinePort If IsNull(strKms) Or (strKms = «») Or IsNull(strPort) Or (strPort = 0) Then WScript.Echo vbTab & MSG_KMS_DNS_ERR Else WScript.Echo vbTab & MSG_KMS_DNS & strKMS & «:» & strPort End If ‘Check to see if registry override is defined strKms = instance.KeyManagementServiceMachine If strKms <> «» And Not IsNull(strKms) Then strPort = instance.KeyManagementServicePort If (strPort = 0) Then strPort = MSG_DEFAULT_PORT End If WScript.Echo vbTab & MSG_HOST_REG_OVERRIDE & strKms & «:» & strPort End If WScript.Echo vbTab & MSG_ACTIVATION_INTERVAL & instance.VLActivationInterval & » minutes» WScript.Echo vbTab & MSG_RENEWAL_INTERVAL & instance.VLRenewalInterval & » minutes» If (objOspp.KeyManagementServiceHostCaching = True) Then WScript.Echo vbTab & MSG_HOST_CACHING & «Enabled» Else WScript.Echo vbTab & MSG_HOST_CACHING & «Disabled» End If If Win7 <> True Then If instance.KeyManagementServiceLookupDomain <> «» Then WScript.Echo vbTab & MSG_KMSLOOKUP & instance.KeyManagementServiceLookupDomain End If End If End If End If End If WScript.Echo MSG_SEPERATE End If Case Else End Select End If Next End If Select Case strCommand Case «/unpkey» If y = 0 Then WScript.Echo MSG_KEYNOTFOUND quitExit() End If Case «/ckms-domain»,«/skms-domain»,«/actype»,«/sethst»,«/setprt»,«/remhst» If kmsCounter = 0 Then WScript.Echo MSG_NOKMSLICS quitExit() Else sppErrHandle(strCommand) End If Case Else End Select If i = 0 Then WScript.Echo MSG_NOKEYSINSTALLED WScript.Echo MSG_SEPERATE End If quitExit() End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function performRegAction(strCommand) On Error Resume Next If Win7 = True Then Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service «) For Each objService in colListOfServices If objService.Name = «osppsvc» Then installed = True Exit For End If Next If installed <> True Then globalPopFailure MSG_OSPPSVC_NOINSTALL,True End If checkRegRights objWMI1,REG_OSPP Else checkRegRights objWMI1,REG_SPP End If Select Case strCommand Case «/puserops» setRegValue objWMI1,«1»,«UserOperations» Case «/duserops» setRegValue objWMI1,«0»,«UserOperations» End Select End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function performServiceAction(strCommand) On Error Resume Next Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service «) For Each objService in colListOfServices If objService.Name = «osppsvc» Then installed = True Exit For End If Next If installed <> True Then globalPopFailure MSG_OSPPSVC_NOINSTALL,True End If Set objService = Nothing Set colListOfServices = Nothing If strCommand = «/osppsvcauto» Then Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service where StartMode = ‘Manual’ or StartMode = ‘Disabled'») For Each objService in colListOfServices If LCase(objService.Name) = «osppsvc» Then foundOsppNonAuto = True objService.Change , , , , «Automatic» WScript.Sleep(15000) Exit For End If Next If foundOsppNonAuto <> True Then WScript.Echo «Service startup type already set to automatic: Office Software Protection Platform» quitExit() End If Set objService = Nothing Set colListOfServices = Nothing Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service where StartMode = ‘Auto'») For Each objService in colListOfServices If LCase(objService.Name) = «osppsvc» Then foundOsppAuto = True WScript.Echo «Successfully set service startup to automatic:» & objService.DisplayName quitExit() End If Next If foundOsppAuto <> True Then WScript.Echo «Unsuccessful setting service startup to automatic. « & MSG_ISCMD_ELEVATED quitExit() End If Else Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service «) For Each objService in colListOfServices If LCase(objService.Name) = «osppsvc» Then Select Case LCase(objService.State) Case «running» objService.StopService() WScript.Sleep(15000) objService.StartService() WScript.Sleep(15000) Case Else objService.StartService() WScript.Sleep(15000) End Select Exit For End If Next Set objService = Nothing Set colListOfServices = Nothing Set colListOfServices = objWMI.ExecQuery _ («Select * from Win32_Service «) For Each objService in colListOfServices If LCase(objService.Name) = «osppsvc» Then If LCase(objService.State) = «running» Then WScript.Echo «Successfully restarted: « & objService.DisplayName quitExit() Else WScript.Echo «Unsuccessful restart: « & objService.DisplayName & «. Status: « _ & objService.State & «. « & MSG_ISCMD_ELEVATED quitExit() End If Exit For End If Next End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function reARM(skuid) progFiles = WshShell.ExpandEnvironmentStrings(«%ProgramFiles%») If objFSO.FileExists(progFiles & STR_OSPPREARMPATH) Then rearmPath = progFiles & STR_OSPPREARMPATH ElseIf objFSO.FileExists(progFiles & STR_OSPPREARMPATH_DEBUG) Then rearmPath = progFiles & STR_OSPPREARMPATH_DEBUG Else progFilesX86 = WshShell.ExpandEnvironmentStrings(«%ProgramFiles(x86)%») If objFSO.FileExists(progFilesX86 & STR_OSPPREARMPATH) Then rearmPath = progFilesX86 & STR_OSPPREARMPATH ElseIf objFSO.FileExists(progFilesX86 & STR_OSPPREARMPATH_DEBUG) Then rearmPath = progFilesX86 & STR_OSPPREARMPATH_DEBUG Else WScript.Echo MSG_FILENOTFOUND & «OSPPREARM.EXE» quitExit() End If End If If skuid = «» Then Set objScriptExec = WshShell.Exec (rearmPath) Else Set objScriptExec = WshShell.Exec (rearmPath & » « & skuid) End If readOut = objScriptExec.StdOut.ReadAll WScript.Echo readOut End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function isWin7OS() Set colOperatingSystems = objWMI.ExecQuery _ («Select * from Win32_OperatingSystem») For Each objOperatingSystem in colOperatingSystems Ver = Split(objOperatingSystem.Version, «.», 1, 1) ‘Win7 If (Ver(0) = «6» And Ver(1) = «1» And objOperatingSystem.ProductType = 1) Then Win7 = True Exit For End If ‘Server2008R2 If (Ver(0) = «6» And Ver(1) = «1» And (objOperatingSystem.ProductType = 2 Or objOperatingSystem.ProductType = 3)) Then Win7 = True Exit For End If Next setWmiClasses() End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// Function setWmiClasses() If Win7 = True Then productClass = «OfficeSoftwareProtectionProduct» tokenClass = «OfficeSoftwareProtectionTokenActivationLicense» Else productClass = «SoftwareLicensingProduct» tokenClass = «SoftwareLicensingTokenActivationLicense» End If End Function ‘//////////////////////////////////////////////////////////////////////////////////////// ‘//////////////////////////////////////////////////////////////////////////////////////// » SIG » Begin signature block » SIG » MIIhkgYJKoZIhvcNAQcCoIIhgzCCIX8CAQExDzANBglg » SIG » hkgBZQMEAgEFADB3BgorBgEEAYI3AgEEoGkwZzAyBgor » SIG » BgEEAYI3AgEeMCQCAQEEEE7wKRaZJ7VNj+Ws4Q8X66sC » SIG » AQACAQACAQACAQACAQAwMTANBglghkgBZQMEAgEFAAQg » SIG » zEwik1Z5edAj7+sqHGDiJNmSFwExtnAcWrZywByYrk+g » SIG » ggswMIIEuDCCA6CgAwIBAgITMwAAABYRBLSIOIy+wwAA » SIG » AAAAFjANBgkqhkiG9w0BAQsFADB+MQswCQYDVQQGEwJV » SIG » UzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMH » SIG » UmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBv » SIG » cmF0aW9uMSgwJgYDVQQDEx9NaWNyb3NvZnQgQ29kZSBT » SIG » aWduaW5nIFBDQSAyMDEwMB4XDTEyMDgzMDE3NDkwM1oX » SIG » DTEzMTEzMDE3NDkwM1owgYMxCzAJBgNVBAYTAlVTMRMw » SIG » EQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRt » SIG » b25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRp » SIG » b24xDTALBgNVBAsTBE1PUFIxHjAcBgNVBAMTFU1pY3Jv » SIG » c29mdCBDb3Jwb3JhdGlvbjCCASIwDQYJKoZIhvcNAQEB » SIG » BQADggEPADCCAQoCggEBAKBQnx1OlLoHCty+lknhPaAG » SIG » 75W++b1WKluc7x4RLsbW4S2yb8wzLZ4epLGCFspkMamK » SIG » JoH04y7yHg4cyOFZ4dQjPWV3/+rlt7ONCPYS129JV6SF » SIG » 4wQe0EKop7LbMAoV0ck1bX+8hl6lPraQZAUkHD6gcWgK » SIG » Mfd+1JXpLZvKZQV6FAIMCfaz3XFdJh9aCy8JumcybJwV » SIG » 2Jw8iehHOu+mFN9CPiEeuzHiLNFU9uqAkiuTNHdtkmcm » SIG » NsEqMdt4E0mrk5XcbKoMAHHAzc3dY+2RV5evjCqExd4N » SIG » dWWM4NEfQTu7tZLSaTl1mABMbEw9GEMDzmY7nF1OUXiR » SIG » Qjt+0FrgX0MCAwEAAaOCAScwggEjMB8GA1UdJQQYMBYG » SIG » CCsGAQUFBwMDBgorBgEEAYI3PQYBMB0GA1UdDgQWBBRr » SIG » 2fF2+KN4NKT3Rp4n8bC5bM82pjAfBgNVHSMEGDAWgBTm » SIG » /F97uyIAWORyTrX0IXQjMubvrDBWBgNVHR8ETzBNMEug » SIG » SaBHhkVodHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtp » SIG » L2NybC9wcm9kdWN0cy9NaWNDb2RTaWdQQ0FfMjAxMC0w » SIG » Ny0wNi5jcmwwWgYIKwYBBQUHAQEETjBMMEoGCCsGAQUF » SIG » BzAChj5odHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtp » SIG » L2NlcnRzL01pY0NvZFNpZ1BDQV8yMDEwLTA3LTA2LmNy » SIG » dDAMBgNVHRMBAf8EAjAAMA0GCSqGSIb3DQEBCwUAA4IB » SIG » AQBSQvO9uPl8uzKyi9ukLZAQqUK3SJ69+UtczCFgpL2A » SIG » l2MuKon2m9a8IpIBc56D+/KLa70wWuztMD7uyOF/qDcp » SIG » 90wfrd4j1yptJQrRMD5D8aq1RTirbkTj0KEDM9daNOUh » SIG » MSuOKC547WVyB4e1/rwWxKwvZMuizcnqB2p1YuvM5map » SIG » PMEyOcXRwGxr+gU8K22z+0f9urwcgF0ShtQr2tIsKDJ9 » SIG » VwWEJ4Ef8EFlUgHwaq95DbjtwGOnRNb5ngJVRQ54Xlzb » SIG » AHrpZSRzEni2UPk2JkiUBO3YQNXhPUM3H5hFnSzjNtpz » SIG » MFSXah4gXBP5DtiMMLbrPnWEpetjkgotSUu2MIIGcDCC » SIG » BFigAwIBAgIKYQxSTAAAAAAAAzANBgkqhkiG9w0BAQsF » SIG » ADCBiDELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp » SIG » bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoT » SIG » FU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjEyMDAGA1UEAxMp » SIG » TWljcm9zb2Z0IFJvb3QgQ2VydGlmaWNhdGUgQXV0aG9y » SIG » aXR5IDIwMTAwHhcNMTAwNzA2MjA0MDE3WhcNMjUwNzA2 » SIG » MjA1MDE3WjB+MQswCQYDVQQGEwJVUzETMBEGA1UECBMK » SIG » V2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwG » SIG » A1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSgwJgYD » SIG » VQQDEx9NaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBDQSAy » SIG » MDEwMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKC » SIG » AQEA6Q5kUHlntcTj/QkATJ6UrPdWaOpE2M/FWE+ppXZ8 » SIG » bUW60zmStKQe+fllguQX0o/9RJwI6GWTzixVhL99COMu » SIG » K6hBKxi3oktuSUxrFQfe0dLCiR5xlM21f0u0rwjYzIjW » SIG » axeUOpPOJj/s5v40mFfVHV1J9rIqLtWFu1k/+JC0K4N0 » SIG » yiuzO0bj8EZJwRdmVMkcvR3EVWJXcvhnuSUgNN5dpqWV » SIG » XqsogM3Vsp7lA7Vj07IUyMHIiiYKWX8H7P8O7YASNUwS » SIG » pr5SW/Wm2uCLC0h31oVH1RC5xuiq7otqLQVcYMa0Kluc » SIG » IxxfReMaFB5vN8sZM4BqiU2jamZjeJPVMM+VHwIDAQAB » SIG » o4IB4zCCAd8wEAYJKwYBBAGCNxUBBAMCAQAwHQYDVR0O » SIG » BBYEFOb8X3u7IgBY5HJOtfQhdCMy5u+sMBkGCSsGAQQB » SIG » gjcUAgQMHgoAUwB1AGIAQwBBMAsGA1UdDwQEAwIBhjAP » SIG » BgNVHRMBAf8EBTADAQH/MB8GA1UdIwQYMBaAFNX2VsuP » SIG » 6KJcYmjRPZSQW9fOmhjEMFYGA1UdHwRPME0wS6BJoEeG » SIG » RWh0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3Js » SIG » L3Byb2R1Y3RzL01pY1Jvb0NlckF1dF8yMDEwLTA2LTIz » SIG » LmNybDBaBggrBgEFBQcBAQROMEwwSgYIKwYBBQUHMAKG » SIG » Pmh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2Vy » SIG » dHMvTWljUm9vQ2VyQXV0XzIwMTAtMDYtMjMuY3J0MIGd » SIG » BgNVHSAEgZUwgZIwgY8GCSsGAQQBgjcuAzCBgTA9Bggr » SIG » BgEFBQcCARYxaHR0cDovL3d3dy5taWNyb3NvZnQuY29t » SIG » L1BLSS9kb2NzL0NQUy9kZWZhdWx0Lmh0bTBABggrBgEF » SIG » BQcCAjA0HjIgHQBMAGUAZwBhAGwAXwBQAG8AbABpAGMA » SIG » eQBfAFMAdABhAHQAZQBtAGUAbgB0AC4gHTANBgkqhkiG » SIG » 9w0BAQsFAAOCAgEAGnTvV08pe8QWhXi4UNMi/AmdrIKX » SIG » +DT/KiyXlRLl5L/Pv5PI4zSp24G43B4AvtI1b6/lf3mV » SIG » d+UC1PHr2M1OHhthosJaIxrwjKhiUUVnCOM/PB6T+DCF » SIG » F8g5QKbXDrMhKeWloWmMIpPMdJjnoUdD8lOswA8waX/+ » SIG » 0iUgbW9h098H1dlyACxphnY9UdumOUjJN2FtB91TGcun » SIG » 1mHCv+KDqw/ga5uV1n0oUbCJSlGkmmzItx9KGg5pqdfc » SIG » wX7RSXCqtq27ckdjF/qm1qKmhuyoEESbY7ayaYkGx0aG » SIG » ehg/6MUdIdV7+QIjLcVBy78dTMgW77Gcf/wiS0mKbhXj » SIG » pn92W9FTeZGFndXS2z1zNfM8rlSyUkdqwKoTldKOEdqZ » SIG » Z14yjPs3hdHcdYWch8ZaV4XCv90Nj4ybLeu07s8n07Ve » SIG » afqkFgQBpyRnc89NT7beBVaXevfpUk30dwVPhcbYC/GO » SIG » 7UIJ0Q124yNWeCImNr7KsYxuqh3khdpHM2KPpMmRM19x » SIG » HkCvmGXJIuhCISWKHC1g2TeJQYkqFg/XYTyUaGBS79ZH » SIG » maCAQO4VgXc+nOBTGBpQHTiVmx5mMxMnORd4hzbOTsNf » SIG » svU9R1O24OXbC2E9KteSLM43Wj5AQjGkHxAIwlacvyRd » SIG » UQKdannSF9PawZSOB3slcUSrBmrm1MbfI5qWdcUxghW6 » SIG » MIIVtgIBATCBlTB+MQswCQYDVQQGEwJVUzETMBEGA1UE » SIG » CBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEe » SIG » MBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSgw » SIG » JgYDVQQDEx9NaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBD » SIG » QSAyMDEwAhMzAAAAFhEEtIg4jL7DAAAAAAAWMA0GCWCG » SIG » SAFlAwQCAQUAoIHAMBkGCSqGSIb3DQEJAzEMBgorBgEE » SIG » AYI3AgEEMBwGCisGAQQBgjcCAQsxDjAMBgorBgEEAYI3 » SIG » AgEVMC8GCSqGSIb3DQEJBDEiBCD1TJpTGWrIm4napIKJ » SIG » YhzLZWUWjiXYdz5av5AAR9fYhjBUBgorBgEEAYI3AgEM » SIG » MUYwRKAigCAATQBpAGMAcgBvAHMAbwBmAHQAIABPAGYA » SIG » ZgBpAGMAZaEegBxodHRwOi8vb2ZmaWNlLm1pY3Jvc29m » SIG » dC5jb20gMA0GCSqGSIb3DQEBAQUABIIBAGu21FD/HaKe » SIG » x/u2c2W5ahMQfqtl1D7pmywem006AtumQmviOOafquMZ » SIG » mT/jJf9FrrR6tVKN2v8UfTJwIQi1lWlQAyYTA/bOGiI2 » SIG » Uepum9IQyFbbtbqu7RWwqeEGbpugGTHF1H/5nXWTwUfj » SIG » XGUcySYJhQI20/DcGw0G2TD2xPPT7JfbHviXvH0d2nRW » SIG » P/10Gi1AmAY7+Koe/jZ6Z7uhzw2TbL1oZpBrvlDzY/0t » SIG » PopVtLTWf8MMQLD81+oBkj9TcgG684Gu4oYWoXQ2VGxX » SIG » hxTwJJWmJ/Lk16pxtmfsTDKmbVZQKQq/Kfmot6mBhT+v » SIG » srzqUZmrI5fj8kmq27NRiYihghMyMIITLgYKKwYBBAGC » SIG » NwMDATGCEx4wghMaBgkqhkiG9w0BBwKgghMLMIITBwIB » SIG » AzEPMA0GCWCGSAFlAwQCAQUAMIIBPQYLKoZIhvcNAQkQ » SIG » AQSgggEsBIIBKDCCASQCAQEGCisGAQQBhFkKAwEwMTAN » SIG » BglghkgBZQMEAgEFAAQgaPCujLfd+uxBHGfJ4h+nFCAS » SIG » qeiGNAoy2HNoucsL2xUCBlBkYEUZ2hgTMjAxMjEwMDIw » SIG » MDA4NTEuMjQ3WjAHAgEBgAIB9KCBuaSBtjCBszELMAkG » SIG » A1UEBhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAO » SIG » BgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29m » SIG » dCBDb3Jwb3JhdGlvbjENMAsGA1UECxMETU9QUjEnMCUG » SIG » A1UECxMebkNpcGhlciBEU0UgRVNOOkI4RUMtMzBBNC03 » SIG » MTQ0MSUwIwYDVQQDExxNaWNyb3NvZnQgVGltZS1TdGFt » SIG » cCBTZXJ2aWNloIIOxzCCBnEwggRZoAMCAQICCmEJgSoA » SIG » AAAAAAIwDQYJKoZIhvcNAQELBQAwgYgxCzAJBgNVBAYT » SIG » AlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQH » SIG » EwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29y » SIG » cG9yYXRpb24xMjAwBgNVBAMTKU1pY3Jvc29mdCBSb290 » SIG » IENlcnRpZmljYXRlIEF1dGhvcml0eSAyMDEwMB4XDTEw » SIG » MDcwMTIxMzY1NVoXDTI1MDcwMTIxNDY1NVowfDELMAkG » SIG » A1UEBhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAO » SIG » BgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29m » SIG » dCBDb3Jwb3JhdGlvbjEmMCQGA1UEAxMdTWljcm9zb2Z0 » SIG » IFRpbWUtU3RhbXAgUENBIDIwMTAwggEiMA0GCSqGSIb3 » SIG » DQEBAQUAA4IBDwAwggEKAoIBAQCpHQ28dxGKOiDs/BOX » SIG » 9fp/aZRrdFQQ1aUKAIKF++18aEssX8XD5WHCdrc+Zitb » SIG » 8BVTJwQxH0EbGpUdzgkTjnxhMFmxMEQP8WCIhFRDDNdN » SIG » uDgIs0Ldk6zWczBXJoKjRQ3Q6vVHgc2/JGAyWGBG8lhH » SIG » hjKEHnRhZ5FfgVSxz5NMksHEpl3RYRNuKMYa+YaAu99h » SIG » /EbBJx0kZxJyGiGKr0tkiVBisV39dx898Fd1rL2KQk1A » SIG » UdEPnAY+Z3/1ZsADlkR+79BL/W7lmsqxqPJ6Kgox8NpO » SIG » BpG2iAg16HgcsOmZzTznL0S6p/TcZL2kAcEgCZN4zfy8 » SIG » wMlEXV4WnAEFTyJNAgMBAAGjggHmMIIB4jAQBgkrBgEE » SIG » AYI3FQEEAwIBADAdBgNVHQ4EFgQU1WM6XIoxkPNDe3xG » SIG » G8UzaFqFbVUwGQYJKwYBBAGCNxQCBAweCgBTAHUAYgBD » SIG » AEEwCwYDVR0PBAQDAgGGMA8GA1UdEwEB/wQFMAMBAf8w » SIG » HwYDVR0jBBgwFoAU1fZWy4/oolxiaNE9lJBb186aGMQw » SIG » VgYDVR0fBE8wTTBLoEmgR4ZFaHR0cDovL2NybC5taWNy » SIG » b3NvZnQuY29tL3BraS9jcmwvcHJvZHVjdHMvTWljUm9v » SIG » Q2VyQXV0XzIwMTAtMDYtMjMuY3JsMFoGCCsGAQUFBwEB » SIG » BE4wTDBKBggrBgEFBQcwAoY+aHR0cDovL3d3dy5taWNy » SIG » b3NvZnQuY29tL3BraS9jZXJ0cy9NaWNSb29DZXJBdXRf » SIG » MjAxMC0wNi0yMy5jcnQwgaAGA1UdIAEB/wSBlTCBkjCB » SIG » jwYJKwYBBAGCNy4DMIGBMD0GCCsGAQUFBwIBFjFodHRw » SIG » Oi8vd3d3Lm1pY3Jvc29mdC5jb20vUEtJL2RvY3MvQ1BT » SIG » L2RlZmF1bHQuaHRtMEAGCCsGAQUFBwICMDQeMiAdAEwA » SIG » ZQBnAGEAbABfAFAAbwBsAGkAYwB5AF8AUwB0AGEAdABl » SIG » AG0AZQBuAHQALiAdMA0GCSqGSIb3DQEBCwUAA4ICAQAH » SIG » 5ohRDeLG4Jg/gXEDPZ2joSFvs+umzPUxvs8F4qn++ldt » SIG » GTCzwsVmyWrf9efweL3HqJ4l4/m87WtUVwgrUYJEEvu5 » SIG » U4zM9GASinbMQEBBm9xcF/9c+V4XNZgkVkt070IQyK+/ » SIG » f8Z/8jd9Wj8c8pl5SpFSAK84Dxf1L3mBZdmptWvkx872 » SIG » ynoAb0swRCQiPM/tA6WWj1kpvLb9BOFwnzJKJ/1Vry/+ » SIG » tuWOM7tiX5rbV0Dp8c6ZZpCM/2pif93FSguRJuI57BlK » SIG » cWOdeyFtw5yjojz6f32WapB4pm3S4Zz5Hfw42JT0xqUK » SIG » loakvZ4argRCg7i1gJsiOCC1JeVk7Pf0v35jWSUPei45 » SIG » V3aicaoGig+JFrphpxHLmtgOR5qAxdDNp9DvfYPw4Ttx » SIG » Cd9ddJgiCGHasFAeb73x4QDf5zEHpJM692VHeOj4qEir » SIG » 995yfmFrb3epgcunCaw5u+zGy9iCtHLNHfS4hQEegPsb » SIG » iSpUObJb2sgNVZl6h3M7COaYLeqN4DMuEin1wC9UJyH3 » SIG » yKxO2ii4sanblrKnQqLJzxlBTeCG+SqaoxFmMNO7dDJL » SIG » 32N79ZmKLxvHIa9Zta7cRDyXUHHXodLFVeNp3lfB0d4w » SIG » wP3M5k37Db9dT+mdHhk4L7zPWAUu7w2gUDXa7wknHNWz » SIG » fjUeCLraNtvTX4/edIhJEjCCBNEwggO5oAMCAQICCmEH » SIG » 1FUAAAAAAA4wDQYJKoZIhvcNAQELBQAwfDELMAkGA1UE » SIG » BhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNV » SIG » BAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBD » SIG » b3Jwb3JhdGlvbjEmMCQGA1UEAxMdTWljcm9zb2Z0IFRp » SIG » bWUtU3RhbXAgUENBIDIwMTAwHhcNMTIwMTA5MjEzNTMx » SIG » WhcNMTMwNDA5MjE0NTMxWjCBszELMAkGA1UEBhMCVVMx » SIG » EzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1Jl » SIG » ZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jwb3Jh » SIG » dGlvbjENMAsGA1UECxMETU9QUjEnMCUGA1UECxMebkNp » SIG » cGhlciBEU0UgRVNOOkI4RUMtMzBBNC03MTQ0MSUwIwYD » SIG » VQQDExxNaWNyb3NvZnQgVGltZS1TdGFtcCBTZXJ2aWNl » SIG » MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA » SIG » weiiiavCaSU5yAO7J7LMoFhyzUv4QGcC85Sl6EdWInsg » SIG » nJ4/uPz92BPkJqKQ7+S9iEplO1iwcoUEiARNaVXKHaxz » SIG » g/vjTPVeJrFRZwdt7mDhCISPS/Jmzo1gPxiQ89ySBo5u » SIG » 9eCyW35wKULrQhWmxVXzHr3ZvcsT2eqwdL97m4xWCbmI » SIG » ZSSUTMqApPPv8se3fU23u6A/U6J5jWzxubjJ5HXUXttd » SIG » reRWpTihDFQ7KcsEyB4MrRJP8qXec6sZ9HUC0HTUB+GR » SIG » WWqbJRiYCyjH13ViaapBfos7kYb/pPTqtveVi5nDphrs » SIG » i+jxsygf7gyFNBKBUwfIyW9vAqZ86Be0DwIDAQABo4IB » SIG » GzCCARcwHQYDVR0OBBYEFMbW5nU1U+/wnbjYtEvuXlMB » SIG » CGPZMB8GA1UdIwQYMBaAFNVjOlyKMZDzQ3t8RhvFM2ha » SIG » hW1VMFYGA1UdHwRPME0wS6BJoEeGRWh0dHA6Ly9jcmwu » SIG » bWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3RzL01p » SIG » Y1RpbVN0YVBDQV8yMDEwLTA3LTAxLmNybDBaBggrBgEF » SIG » BQcBAQROMEwwSgYIKwYBBQUHMAKGPmh0dHA6Ly93d3cu » SIG » bWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljVGltU3Rh » SIG » UENBXzIwMTAtMDctMDEuY3J0MAwGA1UdEwEB/wQCMAAw » SIG » EwYDVR0lBAwwCgYIKwYBBQUHAwgwDQYJKoZIhvcNAQEL » SIG » BQADggEBAI0KBSOJ6bP7QV7OBc3Qqr9NuRE/A3XEtCto » SIG » Oz7ZTYBcGswSypS0o+c2jD54GkUSz8eNIK/HNwpipKCv » SIG » Yqp9KTUgw66SS/r2uF5LX3RmrPKhLXA4cdGYNlu/BuX+ » SIG » LeyJ2KXql1BCgrU1+xB4fxhe7baUWx9o5rN8N2/4P8L5 » SIG » b4Wlw2clhOvZuKCjtO5YJqk6yH0ESwyoE0ZtnsZaYOcI » SIG » cZEblJidE2CtM702fe0IaCLIMOffLMQr9T+4gVlPq+1s » SIG » vCAGEQVMMDkoR1BU37nOc9+Q82n/qBMTgnvQG9ogqcFQ » SIG » 5skb/6SCon+aXmEWujxcUQfTqh0ixjkd346o0uBTH9yh » SIG » ggN5MIICYQIBATCB46GBuaSBtjCBszELMAkGA1UEBhMC » SIG » VVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcT » SIG » B1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw » SIG » b3JhdGlvbjENMAsGA1UECxMETU9QUjEnMCUGA1UECxMe » SIG » bkNpcGhlciBEU0UgRVNOOkI4RUMtMzBBNC03MTQ0MSUw » SIG » IwYDVQQDExxNaWNyb3NvZnQgVGltZS1TdGFtcCBTZXJ2 » SIG » aWNloiUKAQEwCQYFKw4DAhoFAAMVAIMU1+AB1G7ZyJUz » SIG » KxZvn3EmZVMnoIHCMIG/pIG8MIG5MQswCQYDVQQGEwJV » SIG » UzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMH » SIG » UmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBv » SIG » cmF0aW9uMQ0wCwYDVQQLEwRNT1BSMScwJQYDVQQLEx5u » SIG » Q2lwaGVyIE5UUyBFU046QjAyNy1DNkY4LTFEODgxKzAp » SIG » BgNVBAMTIk1pY3Jvc29mdCBUaW1lIFNvdXJjZSBNYXN0 » SIG » ZXIgQ2xvY2swDQYJKoZIhvcNAQEFBQACBQDUFAnFMCIY » SIG » DzIwMTIxMDAxMTIyMzMzWhgPMjAxMjEwMDIxMjIzMzNa » SIG » MHcwPQYKKwYBBAGEWQoEATEvMC0wCgIFANQUCcUCAQAw » SIG » CgIBAAICCfICAf8wBwIBAAICF3EwCgIFANQVW0UCAQAw » SIG » NgYKKwYBBAGEWQoEAjEoMCYwDAYKKwYBBAGEWQoDAaAK » SIG » MAgCAQACAxbjYKEKMAgCAQACAwehIDANBgkqhkiG9w0B » SIG » AQUFAAOCAQEAR/OueYR+g/HRIidEawooT2diG+SL852l » SIG » aPKtFYpQ2evbBhC6mrWYwfJJh7+so1dptvEQ5oCjx2Ko » SIG » /MSkTqsyLn2cfgT160PMyOeabh4/jMgUGU/C1YnkM4R2 » SIG » K4ShNBu3H6cGxTJMFv3edD+5tEZjPFJvdfJkewL2u+4T » SIG » Jzbbo/SZ2Mp0mYYNnYlXBbwXy27ZtKeQqwdZO5oqyNlg » SIG » NwYktOW1REwe9+1YIHfw9IhLPmAjF+ag7+FmKZG1ou1J » SIG » R95O7apQeOrLONDdraALCmb4JgNntqwy+x+RgmXdnUgo » SIG » 7mZF2oiDM/NqIWB/mN1ILdPF/ckEXOtLutVGHcEKpdpb » SIG » EzGCAuMwggLfAgEBMIGKMHwxCzAJBgNVBAYTAlVTMRMw » SIG » EQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRt » SIG » b25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRp » SIG » b24xJjAkBgNVBAMTHU1pY3Jvc29mdCBUaW1lLVN0YW1w » SIG » IFBDQSAyMDEwAgphB9RVAAAAAAAOMA0GCWCGSAFlAwQC » SIG » AQUAoIIBKTAaBgkqhkiG9w0BCQMxDQYLKoZIhvcNAQkQ » SIG » AQQwLwYJKoZIhvcNAQkEMSIEIMVDfBvNNWKr5LBboTVX » SIG » gRlLtx9uanEUsfPaJoM5/ZbLMIHZBgsqhkiG9w0BCRAC » SIG » DDGByTCBxjCBwzCBqAQUgxTX4AHUbtnIlTMrFm+fcSZl » SIG » UycwgY8wgYCkfjB8MQswCQYDVQQGEwJVUzETMBEGA1UE » SIG » CBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEe » SIG » MBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSYw » SIG » JAYDVQQDEx1NaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0Eg » SIG » MjAxMAIKYQfUVQAAAAAADjAWBBRjIEaoyFA06dGB75Ys » SIG » NATncLtMNDANBgkqhkiG9w0BAQsFAASCAQBvTI/fQJ7r » SIG » /bKY6hyQc46TuKX4MBG5kc4j3qwYY9hBWAfZtebgojiU » SIG » N4sDMmAQ9RJo6/tAXqtoc2hh/hn3nwJmXbpDzEj50wmB » SIG » zMnOyo+YNcTkGhV9z3DfdIzLJ6iglM6y3kyy8ySjdXw3 » SIG » X9b4UlqeEetg6mb4S7FtLRnBGPNB9wXLt2Cw3tSSLWbt » SIG » hLeGi6Xh5AkWaNMz/2SZZIj7vVj/S01BZsGxGpV6BmXP » SIG » 0UW1gEJSNbqBKPuUsTD1I6aMH7hp57XL9q3np5DHU/Ae » SIG » q45jBLGD0mx3n73y//7FnQiFKpoRM8l33KGaUkkYHDIM » SIG » 5XalKnWa59yf/0L8Ls6Bzflz » SIG » End signature block

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

Читайте также:

  • Oriel 960 ошибка ash
  • Ospp vbs an error occurred while making the connection error code 2147217406
  • Oriel 790 ошибка ash как исправить
  • Ospp vbs an error occurred while making the connection error code 2147023838
  • Osloader exe 0xc0000428 windows 7 при запуске как исправить

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

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