Содержание
- Активация Microsoft Office 2019 из командной строки
- Помогите разобраться с Microsoft Office 2010
- Настраиваем KMS активацию MS Office 2021/2019/2016 в корпоративной сети
- Требования к KMS серверу для MS Office 2021/2019/2016
- Установка KMS сервера для активации Office 2021/2019/2016
- Встроенная активация Office 2021/2019/2016 в домене Active Directory (ADBA)
- Настройка клиентов MS Office 2021/2019/2016 для активации на KMS сервере
- GVLK ключи для Microsoft Office 2021/2019/2016
- Ошибка 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 активирован и может использоваться для активации клиентов.
Источник
Hi team,
May someone help me on this error message?
Windows XP OS
—
C:temp>cscript d.vbs
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation. All rights reserved.
C:tempd.vbs(5, 1) (null): 0x80041017
d.vbs script file
—
strComputer = «.»
Set objWMIService = GetObject(«winmgmts:» & «{impersonationLevel=impersonate}!\» & strComputer & «rootcimv2»)
Set colItems = objWMIService.ExecQuery(«SELECT BootDevice, BuildNumber, BuildType, Caption, CodeSet, CountryCode, CreationClassName,
CSCreationClassName, CSDVersion, CSName, Description, Locale, Name, Organization, OSArchitecture, OtherTypeDescription, PlusProductID, PlusVersionNumber, RegisteredUser, SerialNumber, Status, SystemDevice, SystemDirectory, SystemDrive, Version, WindowsDirectory
from Win32_OperatingSystem»)
For Each objItem in colItems
Wscript.Echo objItem.BootDevice & «;» & objItem.BuildNumber & «;» & objItem.BuildType &
«;» & objItem.Caption & «;» & objItem.CodeSet & «;» & objItem.CountryCode & «;» & objItem.CreationClassName & «;» & objItem.CSCreationClassName & «;» & objItem.CSDVersion & «;» & objItem.CSName & «;»
& objItem.Description & «;» & objItem.Locale & «;» & objItem.Name & «;» & objItem.Organization & «;» & objItem.OSArchitecture & «;» & objItem.OtherTypeDescription & «;» & objItem.PlusProductID & «;» &
objItem.PlusVersionNumber & «;» & objItem.RegisteredUser & «;» & objItem.SerialNumber & «;» & objItem.Status & «;» & objItem.SystemDevice & «;» & objItem.SystemDirectory & «;» & objItem.SystemDrive & «;»
& objItem.Version & «;» & objItem.WindowsDirectory
Next
Also, it only occurs on Windows XP OS; Windows 7 runs it successfully!
Thanks,
J
Doria
I am having issue when running the vb script in windows 2008 server. Am running the below script from my windows vista machine by connecting using cscript command.
I have given the script below,
‘ Check command line parameters
On Error Resume Next
Set objWbemLocator = CreateObject _
(«WbemScripting.SWbemLocator»)
if Err.Number Then
WScript.Echo vbCrLf & «Error # » & _
» » & Err.Description
End If
On Error GoTo 0
On Error Resume Next
Select Case WScript.Arguments.Count
Case 1
strComputer = Wscript.Arguments(0)
Set wbemServices = objWbemLocator.ConnectServer _
(strComputer,»RootCIMV2″)
Case 3
strComputer = Wscript.Arguments(0)
strUsername = Wscript.Arguments(1)
strPassword = Wscript.Arguments(2)
Set wbemServices = objWbemLocator.ConnectServer _
(strComputer,»RootCIMV2″,strUsername,strPassword)
Case Else
strMsg = «Error # in parameters passed»
WScript.Echo strMsg
WScript.Quit(0)
End Select
if Err.Number Then
WScript.Echo vbCrLf & «Error # » & _
» » & Err.Description
WScript.Quit(0)
End If
On Error GoTo 0
On Error Resume Next
Set perf_instance1 = wbemServices.ExecQuery( «Select * from Win32_PerfRawData_PerfOS_Processor where Name!=’_Total’ «)
WScript.Sleep(2000)
if Err.Number Then
WScript.Echo vbCrLf & «Error # » & _
» » & Err.Description
End If
On Error GoTo 0
PercentProcessorTime=0
PercentUserTime=0
PercentPrivilegedTime=0
PercentIdleTime=0
InterruptsPerSec=0
logicalCPU=0
For Each objItem in perf_instance1
N1proc = objItem.PercentProcessorTime
N1user = objItem.PercentUserTime
N1priv = objItem.PercentPrivilegedTime
N1int = objItem.PercentInterruptTime
N1idle = objItem.PercentIdleTime
N1ips = objItem.InterruptsPerSec
D1 = objItem.TimeStamp_Sys100NS
D1ips = objItem.Timestamp_PerfTime
TBips = objItem.Frequency_PerfTime
Set perf_instance2 = wbemServices.ExecQuery( «Select * from Win32_PerfRawData_PerfOS_Processor where Name='»&objItem.Name&»‘»)
For Each objItem1 in perf_instance2
‘WScript.Echo «CPU_»&objItem1.Name
N2proc = objItem1.PercentProcessorTime
N2user = objItem1.PercentUserTime
N2priv = objItem1.PercentPrivilegedTime
N2int = objItem1.PercentInterruptTime
N2idle = objItem1.PercentIdleTime
D2 = objItem1.TimeStamp_Sys100NS
N2ips = objItem1.InterruptsPerSec
D2ips = objItem1.Timestamp_PerfTime
PercentProcessorTime = PercentProcessorTime+Abs((1 — ((N2proc — N1proc)/(D2-D1)))*100)
PercentUserTime = PercentUserTime+100*(N2user-N1user)/(D2-D1)
PercentPrivilegedTime = PercentPrivilegedTime+100*(N2priv-N1priv)/(D2-D1)
PercentInterruptTime = PercentInterruptTime+100*(N2int-N1int)/(D2-D1)
PercentIdleTime = PercentIdleTime+100*(N2idle-N1idle)/(D2-D1)
InterruptsPerSec = InterruptsPerSec+Int((N2ips — N1ips)/((D2ips-D1ips)/TBips))
Exit For
Next
logicalCPU=logicalCPU+1
Next
PercentProcessorTime=CheckMaxVal(Round(PercentProcessorTime/logicalCPU))
PercentUserTime=CheckMaxVal(Round(PercentUserTime/logicalCPU))
PercentPrivilegedTime=CheckMaxVal(Round(PercentPrivilegedTime/logicalCPU))
PercentInterruptTime=CheckMaxVal(Round(PercentInterruptTime/logicalCPU))
PercentIdleTime=CheckMaxVal(Round(PercentIdleTime/logicalCPU))
InterruptsPerSec=Round(InterruptsPerSec)
Wscript.Echo «%ProcessorTime=» & vbTab & PercentProcessorTime
Wscript.Echo «%UserTime=» & vbTab & PercentUserTime
Wscript.Echo «%PrivilegedTime=» & vbTab & PercentPrivilegedTime
Wscript.Echo «%InterruptTime=» & vbTab & PercentInterruptTime
Wscript.Echo «%IdleTime=» & vbTab & PercentIdleTime
Wscript.Echo «%InterruptsPerSec=» & vbTab & InterruptsPerSec
Get_ProcessorQueueLength()
‘Done
WScript.Quit(0)
Function CheckNull(value)
If(IsNull(value) or IsEmpty(value)) then
CheckNull=»-1″
Else
CheckNull=value
End If
End Function
Function Get_ProcessorQueueLength()
Set colOperatingSystems = wbemServices.ExecQuery _
(«Select * from Win32_PerfRawData_PerfOS_System»)
For Each objOperatingSystem in colOperatingSystems
WScript.Echo «ProcessorQueueLength: » & objOperatingSystem.ProcessorQueueLength
Next
End Function
Function CheckMaxVal(value)
value = CheckNull(value)
If (value > 100) Then
CheckMaxVal=100
Else
CheckMaxVal=value
End If
End Function
Script used to get the CPU utilization of windows 2008 server. But it failed with line number (64, 1) (null): 0x80041017. But it is working fine other windows version like windows xp, windows 7. I have checked the wmi property using wbemtest and all needed
properties are exist in remote server.
What might be the issue. Guide me.
I am having issue when running the vb script in windows 2008 server. Am running the below script from my windows vista machine by connecting using cscript command.
I have given the script below,
‘ Check command line parameters
On Error Resume Next
Set objWbemLocator = CreateObject _
(«WbemScripting.SWbemLocator»)
if Err.Number Then
WScript.Echo vbCrLf & «Error # » & _
» » & Err.Description
End If
On Error GoTo 0
On Error Resume Next
Select Case WScript.Arguments.Count
Case 1
strComputer = Wscript.Arguments(0)
Set wbemServices = objWbemLocator.ConnectServer _
(strComputer,»RootCIMV2″)
Case 3
strComputer = Wscript.Arguments(0)
strUsername = Wscript.Arguments(1)
strPassword = Wscript.Arguments(2)
Set wbemServices = objWbemLocator.ConnectServer _
(strComputer,»RootCIMV2″,strUsername,strPassword)
Case Else
strMsg = «Error # in parameters passed»
WScript.Echo strMsg
WScript.Quit(0)
End Select
if Err.Number Then
WScript.Echo vbCrLf & «Error # » & _
» » & Err.Description
WScript.Quit(0)
End If
On Error GoTo 0
On Error Resume Next
Set perf_instance1 = wbemServices.ExecQuery( «Select * from Win32_PerfRawData_PerfOS_Processor where Name!=’_Total’ «)
WScript.Sleep(2000)
if Err.Number Then
WScript.Echo vbCrLf & «Error # » & _
» » & Err.Description
End If
On Error GoTo 0
PercentProcessorTime=0
PercentUserTime=0
PercentPrivilegedTime=0
PercentIdleTime=0
InterruptsPerSec=0
logicalCPU=0
For Each objItem in perf_instance1
N1proc = objItem.PercentProcessorTime
N1user = objItem.PercentUserTime
N1priv = objItem.PercentPrivilegedTime
N1int = objItem.PercentInterruptTime
N1idle = objItem.PercentIdleTime
N1ips = objItem.InterruptsPerSec
D1 = objItem.TimeStamp_Sys100NS
D1ips = objItem.Timestamp_PerfTime
TBips = objItem.Frequency_PerfTime
Set perf_instance2 = wbemServices.ExecQuery( «Select * from Win32_PerfRawData_PerfOS_Processor where Name='»&objItem.Name&»‘»)
For Each objItem1 in perf_instance2
‘WScript.Echo «CPU_»&objItem1.Name
N2proc = objItem1.PercentProcessorTime
N2user = objItem1.PercentUserTime
N2priv = objItem1.PercentPrivilegedTime
N2int = objItem1.PercentInterruptTime
N2idle = objItem1.PercentIdleTime
D2 = objItem1.TimeStamp_Sys100NS
N2ips = objItem1.InterruptsPerSec
D2ips = objItem1.Timestamp_PerfTime
PercentProcessorTime = PercentProcessorTime+Abs((1 — ((N2proc — N1proc)/(D2-D1)))*100)
PercentUserTime = PercentUserTime+100*(N2user-N1user)/(D2-D1)
PercentPrivilegedTime = PercentPrivilegedTime+100*(N2priv-N1priv)/(D2-D1)
PercentInterruptTime = PercentInterruptTime+100*(N2int-N1int)/(D2-D1)
PercentIdleTime = PercentIdleTime+100*(N2idle-N1idle)/(D2-D1)
InterruptsPerSec = InterruptsPerSec+Int((N2ips — N1ips)/((D2ips-D1ips)/TBips))
Exit For
Next
logicalCPU=logicalCPU+1
Next
PercentProcessorTime=CheckMaxVal(Round(PercentProcessorTime/logicalCPU))
PercentUserTime=CheckMaxVal(Round(PercentUserTime/logicalCPU))
PercentPrivilegedTime=CheckMaxVal(Round(PercentPrivilegedTime/logicalCPU))
PercentInterruptTime=CheckMaxVal(Round(PercentInterruptTime/logicalCPU))
PercentIdleTime=CheckMaxVal(Round(PercentIdleTime/logicalCPU))
InterruptsPerSec=Round(InterruptsPerSec)
Wscript.Echo «%ProcessorTime=» & vbTab & PercentProcessorTime
Wscript.Echo «%UserTime=» & vbTab & PercentUserTime
Wscript.Echo «%PrivilegedTime=» & vbTab & PercentPrivilegedTime
Wscript.Echo «%InterruptTime=» & vbTab & PercentInterruptTime
Wscript.Echo «%IdleTime=» & vbTab & PercentIdleTime
Wscript.Echo «%InterruptsPerSec=» & vbTab & InterruptsPerSec
Get_ProcessorQueueLength()
‘Done
WScript.Quit(0)
Function CheckNull(value)
If(IsNull(value) or IsEmpty(value)) then
CheckNull=»-1″
Else
CheckNull=value
End If
End Function
Function Get_ProcessorQueueLength()
Set colOperatingSystems = wbemServices.ExecQuery _
(«Select * from Win32_PerfRawData_PerfOS_System»)
For Each objOperatingSystem in colOperatingSystems
WScript.Echo «ProcessorQueueLength: » & objOperatingSystem.ProcessorQueueLength
Next
End Function
Function CheckMaxVal(value)
value = CheckNull(value)
If (value > 100) Then
CheckMaxVal=100
Else
CheckMaxVal=value
End If
End Function
Script used to get the CPU utilization of windows 2008 server. But it failed with line number (64, 1) (null): 0x80041017. But it is working fine other windows version like windows xp, windows 7. I have checked the wmi property using wbemtest and all needed
properties are exist in remote server.
What might be the issue. Guide me.
Why did I get error 0x80041017?
Windows Update continous fails to search for Updates or cannot install them. The source of this problem could be various things as
> Windows Registry
> Windows Filesystem
> Internet access
> Windows Update service
> File corruption
> Misconfiguration
> Adware
> Virus and Malware
However, if you’re technically savvy, you can try the steps below:
1. Click Start and start typing on your keyboard for «services.msc»
2. In your search results «services.msc» should show up. Open it with a click.
3. A new windows will open containing all Windows services on your system.
4. Search for «Windows Update»
5. Right-click the «Windows Update» and then click Stop.
We will now clean the Windows Update temporary cache folder:
1. Hold your windows-key pressed and hit «R» key simultanous.
2. A small new windows will appear.
3. Type %windir%SoftwareDistributionDataStore in this new window and click OK.
4. This will open Windows Explorer on the correct location.
5. Delete all contents of this folder. (Hint: Use Ctrl + A to select all files and folders)
Now we will start the Windows Update Service again:
1. Switch back to the windows Services.
2. Locate Windows Update.
3. Right-click on it and choose Start.
If the problem still persists, you can run the System File Checker (SFC) utility. This handy in-built tool will check your filesystem.
1. Click Start and start typing on your keyboard for «cmd».
2. In your search results cmd should show up with an black icon.
3. Right-click it and select Run as administrator.
4. If you are prompted for the admin password, enter the password and click OK.
5. A new completely black windwos will open. You can type commands directly into this window.
6. Type sfc/scannow and press Enter.
7. This process will take a long time. You can minimize this black windows and work on.
Come back to the black window after a time and check if the process finished.
As soon as the SFC process finished, restart your computer. After the restart you search for Updates again.
You are still facing the same issue?
1. Restart your computer.
Next thing is to clean Windows Update download path. These steps are only for expirienced user! If you mess up your computer with Regedit, you could loose your files! Take care or use a professional tool to investiagte your computer.
1. Hold your windows-key pressed and hit «R» key simultanous.
2. A small new windows will appear.
3. Type regedit in this new windows and hit Enter.
4. In the new windows you have a navigation on the left side. Use it to navigate to
HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsWindowsUpdate
5. Once you found it, search for WUServer and WIStatusServer in the right hand pane.
6. If they are not listet we cannot clean the download path. Othwerwise delete both.
7. Restart your computer.
Try to search for new Updates again.
You are still facing this issue? I think this is not an usual problem and your computer should be checked by professional.
Try to look for a solution here or search further in the search box below.
Advanced information
The following Windows verisons are affected by this error:
> Windows Vista
> Windows 7
> Windows 8
> Windows 8.1
> Windows 10
> Windows 10 Redstone 2
> Windows 10 Creators Update
> Windows Server 2008 R2
> Windows Server 2012
> Windows Server 2016
error with script Description Query from below 2008 Windows command Invalid update syntactically valid Click servers STEP running server getting operation What evaluate SCCM Task Repair Nothing WBEMEINVALIDQUERY Failed Sequence steps when issue through Win32PerfRawDataPerfProcProcess Facility Number trying following Also vbscript Next SystemTools others link generated select instruction find could problem expression export cant call 19072016 system 80041017 means noticed tests sequences httpsmsdnmicrosoftcomenuslibrarywindowsdesktopaa39455928vvs8529aspx work doesnt 19062015 without process Lansing Location Extract 1233815 Christian specifying wmic namespacerootcimv2 namespace issuing were supply reported testing tried here done 98SE should Scan follow errortoolkitcom Tool Download 2000 several site WSUS failures Rating210httpswwwwinvistatipscomthreadserror0x80041017unabletoupdate261333 Cleanerbar Ready Tips Unable language Requested WBEMEALREADYEXISTS supported WBEMEINVALIDQUERYTYPE 2147749911 0x80041018 2147749912 2147749913 failing instance 24072013 Stack wbemChangeFlagCreateOnly 0x80041019 specified flag Microsoft connecting machine cscript using executing while vista having given CreateObject objWbemLocator MSDN Constants line Check Resume parameters created customer pretty 2012 post briefly Resolution Explanation standard wbemtestexe test button class includes generic conducted special sharing wmicolitm Explicit wmiExecQuerySelect GetObjectwinmgmtsrootcimv2 object think Option about Win32Processor recently 30072013 worth thought WScriptEcho Each fails itmName
Почему я получаю сообщение об ошибке:
Код объявления: 80041017
Источник: (null)
В этой строке:
For Each oItem In colItems
В этом VBScript:
strComputer = "."
Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\" _
& strComputer & "rootcimv2")
Set cItems = oWMI.ExecQuery("Select * from Win32_PerfFormattedData_PerfOS_Memory")
'wsh.echo cItems.Count
Display "Win32_PerfFormattedData_PerfOS_Memory", FillCol(cItems)
function FillCol(colItems)
Dim oItem, oProp, s
For Each oItem In colItems
For Each oProp In oItem.Properties_
s = s & oProp.Name & vbcrlf
's = s & oProp.Name & vbtab & oProp.Value & vbcrlf
Next 'oProp
Exit For
Next 'oItem
FillCol = s
End Function 'FillCol
Sub Display(sTitle, s)
'Display results in a scrollable window
height = 600 : width = 800
Set oIE = CreateObject("InternetExplorer.Application")
With oIE
.RegisterAsDropTarget = False
.Toolbar = False : menubar = False : statusbar = False
.Width = Width : .Height = Height
.Navigate "about:blank"
Do Until .ReadyState = 4 : WScript.Sleep 50 : Loop
With .Document
.Open
.Write "<xmp>" & s & "</xmp>"
.Close
.Title = sTitle
End With
.Visible = True
End With 'oIE
End Sub
Взято непосредственно из эту ссылку, за исключением того, что я изменил:
Win32_PrinterConfiguration
Кому:
Win32_PerfFormattedData_PerfOS_Memory
Только на одной из двух 64-битных рабочих станций с идентичной ОС (Windows 7, обе с текущими обновлениями) и идентичными характеристиками оборудования. Компьютеры почти идентичны, и только один из них выдает ошибку.
Я пробовал это исправление для восстановления поврежденной базы данных WMI:
Но когда я использую:
Win32_PrinterConfiguration
Вместо того:
Win32_PerfFormattedData_PerfOS_Memory
Я не получаю сообщения об ошибке.
Что происходит? Что мне нужно сделать, чтобы этот сценарий работал на рабочей станции, вызывающей ошибку?
EDIT1: я почти уверен, что ошибка буквально вызвана нулевым возвращаемым значением. Если да, то почему для RAM установлено нулевое значение? Так и должно быть. Верно?
EDIT2: прокомментируйте, что нужно попробовать или догадаться.
EDIT3: инструмент диагностики WMI (https://www.microsoft .com / en-us / download / details.aspx? id = 7684) говорит следующее:
28944 14:15:48 (1) !! ERROR: WMI GET operation errors reported: ........................................................................... 118 ERROR(S)!
28945 14:15:48 (0) ** - Root/CIMV2, Win32_PerfFormattedData_Counters_HTTPServiceRequestQueues, 0x0 - .
28946 14:15:48 (0) ** MOF Registration: 'WMI information not available (This could be the case for an external application or a third party WMI provider)'
28947 14:15:48 (0) ** - Root/CIMV2, Win32_PerfRawData_Counters_HTTPServiceRequestQueues, 0x0 - .
28948 14:15:48 (0) ** MOF Registration: 'WMI information not available (This could be the case for an external application or a third party WMI provider)'
28949 14:15:48 (0) ** - Root/CIMV2, Win32_PerfFormattedData_Counters_HTTPServiceUrlGroups, 0x0 - .
28950 14:15:48 (0) ** MOF Registration: 'WMI information not available (This could be the case for an external application or a third party WMI provider)'
28951 14:15:48 (0) ** - Root/CIMV2, Win32_PerfRawData_Counters_HTTPServiceUrlGroups, 0x0 - .
28952 14:15:48 (0) ** MOF Registration: 'WMI information not available (This could be the case for an external application or a third party WMI provider)'
…и т.д…
29069 14:15:48 (0) ** - Root/CIMV2, Win32_PerfFormattedData_PerfOS_Memory, 0x0 - .
29070 14:15:48 (0) ** MOF Registration: 'WMI information not available (This could be the case for an external application or a third party WMI provider)'
…и т.д…
Но пока не знаю, что с ними делать.
EDIT4: глядя на это исправление:
Здравствуй,
Пожалуйста, попробуйте следующие предложения по устранению неполадок, чтобы проверить результат:
Regsvr32% SystemRoot% System32 wbem wmidcprv.dll
cd / d% windir% system32 wbem
для% i в (* .dll) выполните RegSvr32 -s% i
для% i в (* .exe) выполните% i / RegServer
Может появиться окно Windows Management Instrumentation Tester, это нормально, и мы можем закрыть его.
Если это не сработает, я также предлагаю вам выполнить следующие команды для восстановления пространства имен WMI:
чистая остановка winmgmt
wmic / NAMESPACE: корневой путь «__namespace.name = ‘wmi'» удалить
mofcomp% windir% system32 wbem wmi.mof
чистый старт winmgmt
После этого перезагрузите компьютер, чтобы проверить результат. Если проблема не исчезнет, попробуйте также выполнить следующие действия:
Нажмите кнопку «Пуск», выберите «Все программы», «Стандартные»
Щелкните правой кнопкой мыши «Командная строка» и выберите «Запуск от имени администратора», примите приглашение UAC.
В командной строке введите следующую команду и нажмите Enter. Пожалуйста, вводите по одной команде каждый раз.
winmgmt / verifyrepository
winmgmt / salvagerepository
С Уважением,
Артур Ли
Из: https://social.technet.microsoft.com/Forums/windows/en-US/df00b2e4-3bab-4b46-ad5a-95e82617a039/wmi-errors?forum=winserverNIS
-
Hello,2 comunity,im trying to activate office 2016 prof. plus,but isnt posible.
ERROR CODE: 0x80041017
ERROR DESCRIPTION: Run the following: cscript ospp.vbs /ddescr:0x80041017 -
Activating by using what tool?
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
office 2013-2019 C2R install v6.3
-
@hsgtkpaul
Please run the following command to repair the WMI and try to activate again."C:WINDOWSsystem32WBEMmofcomp.exe" "C:Program FilesCommon FilesMicrosoft SharedOfficeSoftwareProtectionPlatformOSPPWMI.MOF"
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
hello,thank you.
run,try to activate again,but nothing.—=== Office 2013-2019 C2R Install v6.3 ===—
== Activating …
== KMS-Server OK.
—Processing—————————
—————————————
ERROR CODE: 0x80041017
ERROR DESCRIPTION: Run the following: cscript ospp.vbs /ddescr:0x80041017
—————————————
—Exiting—————————— -
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
with KMS_VL_ALL :
Activation mode : Manual
Windows edition do not support KMS activation…
Detected office 2010/2013/2016/2019 do not support KMS activation…
Retail products need to be converted to Volume first.Press any key to exit.
My OS is win 7 Professional.
Edit: Its office 2019 but i was thinking i have instaled 2016 wtf?
-
Conversion tool
Please post output of Check-Activation-Status.cmd as well.
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
Already used,but still same.
I read note txt,and said office 2019 its official blocked on win7.
I think its the problem. -
When installed using YAOCTRI, it will run and update on win 7.
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
Correct, but you try to activate office 2016?
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
i was thinking have instaled 2016,but now see carefuly and is 2019.
Need to uninstall all,and install via YAOCTRI?
-
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
-
howto enter directory on YAOCTRIR?
i already put same folder,but doesnt autodetectedit: mounted drive with virtual clone drive
-
Use YAOCTRI and not the one with R after it (YAOCTRIR is for retail usage).
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
Mount image file and run YAOCTRI elevated, from there on it´s pretty much self-explanatory
Stop hovering to collapse…
Click to collapse…
Hover to expand…
Click to expand…
-
its instaling with R one…i see one without R its for 2019,but i have 2016..shall i leave done install?