Автоактивация Windows и Office

[code]Private Const C_Global_Data = "*"
Private Const C_Q_Global = "SoftwareLicensingProduct"
Private Const C_Q_Office = "OfficeSoftwareProtectionProduct"
Private Const C_Q_Global_Servise = "SoftwareLicensingService"
Private Const C_Q_Office_Servise = "OfficeSoftwareProtectionService"
Private Const C_PG_Windows = "Windows"
Private Const C_PG_Office = "Office"
Const C_KMSclient = "VOLUME_KMSCLIENT"
Const C_KMSserver = "VOLUME_KMS"
private const ProductIsPrimarySkuSelectClause = "ID, ApplicationId, PartialProductKey, Description, Name"
Private Const WindowsAppId = "55c92734-d682-4d71-983e-d6ec3f16059f"
Private Const PartialProductKeyNonNullWhereClause = "PartialProductKey <> null"
Private Const EmptyWhereClause = ""
Private objLocator
Private objWMIService
Private WshShell
Private displayDate
iQuiteCode = 0
OutLine = String(46, "=")
private const DefaultPort = "1688"
private const HR_S_OK = 0
private const HR_ERROR_FILE_NOT_FOUND = &H80070002
private const HR_SL_E_GRACE_TIME_EXPIRED = &HC004F009
private const HR_SL_E_NOT_GENUINE = &HC004F200
private const HR_SL_E_PKEY_NOT_INSTALLED = &HC004F014
private const HR_INVALID_ARG = &H80070057
private const HR_ERROR_DS_NO_SUCH_OBJECT = &H80072030
g_EchoString = ""
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
Set WshShell = CreateObject("WScript.Shell")
Set collItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each i in collItems
strVersion = i.Version
Name = i.Caption
Next
Version = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
If InStr(Name, "Microsoft") > 0 Then
Name = Replace(Name, "Microsoft ", "")
ElseIf InStr(Name, "Майкрософт") > 0 Then
Name = Replace(Name, "Майкрософт ", "")
End If
ChecVersion()
WScript.Quit(iQuiteCode)
' Display Prouduct Processing
Private Sub QuerySting (Servise, ProductClass)
Dim Products
Dim Product
On Error Resume Next
For Each Product in GetProductCollection(ProductIsPrimarySkuSelectClause, PartialProductKeyNonNullWhereClause, ProductClass)
LineOut "Версия службы лицензирования программного обеспечения: " & GetServiceObject("Version", Servise).Version
LineOut ""
LineOut OutLine
LineOut "Имя: " & Product.Name
LineOut "Описание: " & Product.Description
LineOut "Идентификатор активации: " & Product.ID
LineOut "Идентификатор приложения: " & Product.ApplicationID
Set objProduct = GetProductObject(ProductIsPrimarySkuSelectClause, "ID='" & Product.ID & "'", ProductClass)
For Each Product1 in GetProductCollection(C_Global_Data, "ID='" & Product.ID & "'", ProductClass)
Select Case Product1.LicenseStatus
Case 0 strLicenseStatus = "Нелицензированный."
Case 1 strLicenseStatus = "Имеет лицензию."
Case 2 strLicenseStatus = "Начальный льготный период."
Case 3 strLicenseStatus = "Дополнительный льготный период (срок действия лицензии KMS истек, или конфигурация оборудования компьютера не соответствует допустимой)."
Case 4 strLicenseStatus = "Льготный период для неподлинной версии."
Case 5 strLicenseStatus = "Уведомление."
Case 6 strLicenseStatus = "Расширенный льготный период."
Case Else strLicenseStatus = "Состояние лицензии неизвестно."
End Select
bTBL = IsTBL(Product1.Description)
bAVMA = IsAVMA(Product1.Description)
bKmsClient = IsProductKMS(Product1.Description)
bKmsHost = IsProductKMShost(Product1.Description)
LS = Product1.LicenseStatus
If Product1.GenuineStatus = 0 Then
GenuineStatus = "Подлинная версия."
Else
GenuineStatus = "Не имеет лицензии"
End If
LineOut "Расширенный PID: " & Product1.ProductKeyID
If (Version > "6.1") Then
LineOut "Канал ключей продуктов: " & Product1.ProductKeyChannel
End If
LineOut "Идентификатор установки: " & Product1.OfflineInstallationId
If (NOT bKmsClient) AND (NOT bAVMA) Then
strUrl = Product1.ProcessorURL
If strUrl <> "" Then
LineOut "URL-адрес сертификата процессора: " & strUrl
End If
strUrl = Product1.MachineURL
If strUrl <> "" Then
LineOut "URL-адрес сертификата компьютера: " & strUrl
End If
strUrl = Product1.UseLicenseURL
If strUrl <> "" Then
LineOut "Используйте URL-адрес лицензии: " & strUrl
End If
strUrl = Product1.ProductKeyURL
If strUrl <> "" Then
LineOut "URL-адрес сертификата ключа продукта: " & strUrl
End If
strUrl = Product1.ValidationURL
If strUrl <> "" Then
LineOut "URL-адрес проверки: " & strUrl
End If
End If
If Product1.PartialProductKey <> "" Then
LineOut "Частичный ключ продукта: " & Product1.PartialProductKey
Else
LineOut "Лицензия не используется."
End If
LineOut "Статус лицензии: " & GenuineStatus
LineOut "Состояние лицензии: " & strLicenseStatus
If LS = 0 Then
Set displayDate = CreateObject("WBemScripting.SWbemDateTime")
displayDate.Value = Product1.EvaluationEndDate
LineOut "Дата окончания пробного периода: " & displayDate.GetVarDate
ElseIf LS = 1 Then
gpMin = Product1.GracePeriodRemaining
gpDay = GetDaysFromMins(gpMin)
If Product1.GracePeriodRemaining <> 0 Then
If bTBL Then
LineOut "Срок истечения активации по времени: " & DateAdd("n",Product1.GracePeriodRemaining, Now) & " " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
ElseIf bAVMA Then
LineOut "Срок действия автоматической активации виртуальной машины истекает: " & DateAdd("n",Product1.GracePeriodRemaining, Now) & " " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
ElseIf bKmsClient Then
LineOut "Срок активации корпоративных лицензий истечет : " & DateAdd("n",Product1.GracePeriodRemaining, Now)
LineOut "Срок активации корпоративных лицензий истечет через: " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
End If
End If
ElseIf LS = 2 Then
gpMin = Product1.GracePeriodRemaining
gpDay = GetDaysFromMins(gpMin)
LineOut "Срок окончания начального льготного периода: " & DateAdd("n",Product1.GracePeriodRemaining, Now) & " " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
ElseIf LS = 3 Then
gpMin = Product1.GracePeriodRemaining
gpDay = GetDaysFromMins(gpMin)
LineOut "Срок окончания дополнительного льготного периода: " & DateAdd("n",Product1.GracePeriodRemaining, Now) & " " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
ElseIf LS = 4 Then
gpMin = Product1.GracePeriodRemaining
gpDay = GetDaysFromMins(gpMin)
LineOut "Срок окончания льготного периода для неподлинной версии: " & DateAdd("n",Product1.GracePeriodRemaining, Now) & " " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
ElseIf LS = 5 Then
If Product1.LicenseStatusReason <> 0 Then
LineOut "Причина режима уведомления: " & "("&"0x" & CStr(Hex(Product1.LicenseStatusReason))&")" & " " & ReadResources(CStr(Hex(Product1.LicenseStatusReason)))
End If
ElseIf LS = 6 Then
gpMin = Product1.GracePeriodRemaining
gpDay = GetDaysFromMins(gpMin)
LineOut "Срок окончания расширенного льготного периода: " & DateAdd("n",Product1.GracePeriodRemaining, Now) & " " & gpMin & " " & "мин" & " (" & gpDay & " дн." & ")"
End If
If (InStr(Product1.Name, C_PG_Windows) > 0) Then
LineOut "Оставшееся число возвращений к исходному состоянию активации Windows: " & GetServiceObject("RemainingWindowsReArmCount", Servise).RemainingWindowsReArmCount
If (Version > "6.1") And (InStr(Product1.Name, C_PG_Windows) > 0) Then
LineOut "Оставшееся число возвратов к исходному состоянию активации SKU: " & Product1.RemainingSkuReArmCount
End If
ElseIf (InStr(ProductClass, "SoftwareLicensingProduct") > 0) And (InStr(Product.Name, C_PG_Office) > 0) Then
LineOut "Оставшееся число возвращений к исходному состоянию активации приложения: " & Product1.RemainingAppReArmCount
LineOut "Оставшееся число возвратов к исходному состоянию активации SKU: " & Product1.RemainingSkuReArmCount
End If
Set displayDate = CreateObject("WBemScripting.SWbemDateTime")
displayDate.Value = Product1.TrustedTime
LineOut "Доверенное время: " & displayDate.GetVarDate
If (Version > "6.1") Then
If (Product1.VLActivationTypeEnabled = 1) Then
LineOut "Настроенный тип активации: Active Directory"
ElseIf (Product1.VLActivationTypeEnabled = 2) Then
LineOut "Настроенный тип активации: сервер управления ключами"
ElseIf (Product1.VLActivationTypeEnabled = 3) Then
LineOut "Настроенный тип активации: маркеры"
Else
LineOut "Настроенный тип активации: все"
End If
End If
If bKmsClient Then
gpMin = Product1.GracePeriodRemaining
gpDay = GetDaysFromMins(gpMin)
strKms = Product1.KeyManagementServiceMachine
if strKms <> "" And Not IsNull(strKms) Then
strPort = Product1.KeyManagementServicePort
If (strPort = 0) Then
strPort = DefaultPort
End If
Else
strKms = objProduct1.DiscoveredKeyManagementServiceMachineName
strPort = objProduct1.DiscoveredKeyManagementServiceMachinePort
end if
strIpAddress = Product1.DiscoveredKeyManagementServiceMachineIpAddress
LineOut vbCrLf & "Сведения о последней активации:"
LineOut "Сведения о клиенте службы управления ключами"
LineOut " Идентификатор клиентского компьютера (CMID): " & GetServiceObject("ClientMachineID", Servise).ClientMachineID
If IsNull(strIpAddress) Or (strIpAddress = "") Then
LineOut " Автообнаружение DNS: имя KMS отсутствует"
strIpAddress = "недоступен"
Else
LineOut " Зарегистрированное имя компьютера KMS: " & strKms & ":" & strPort
End If
LineOut " IP-адрес компьютера KMS: " & strIpAddress
LineOut " Расширенный PID компьютера KMS: " & Product1.KeyManagementServiceProductKeyID
LineOut " Интервал активации (в мин.): " & Product1.VLActivationInterval
LineOut " Интервал обновления (в мин.): " & Product1.VLRenewalInterval
If (Version > "6.1" or InStr(Product1.Name, C_PG_Windows) > 0) Then
if (GetServiceObject("KeyManagementServiceHostCaching", Servise).KeyManagementServiceHostCaching) Then
LineOut " Кэширование узла KMS включено"
else
LineOut " Кэширование узла KMS выключено"
end if
End If
End If
If bKmsHost Then
LineOut vbCrLf & "На этом компьютере включена служба управления ключами"
LineOut " Текущий счетчик: " & Product1.KeyManagementServiceCurrentCount
If 0 = GetServiceObject("KeyManagementServiceListeningPort", Servise).KeyManagementServiceListeningPort Then
LineOut " Прослушивание порта: " & DefaultPort
Else
LineOut " Прослушивание порта: " & GetServiceObject("KeyManagementServiceListeningPort", Servise).KeyManagementServiceListeningPort
End If
If (GetServiceObject("KeyManagementServiceDnsPublishing", Servise).KeyManagementServiceDnsPublishing) Then
LineOut " Публикация DNS включена"
Else
LineOut " Публикация DNS выключена"
End If
If (GetServiceObject("KeyManagementServiceLowPriority", Servise).KeyManagementServiceLowPriority) Then
LineOut " Приоритет KMS: Низкий"
Else
LineOut " Приоритет KMS: Обычный"
End If
LineOut vbCrLf & "Полученные от клиентов совокупные запросы службы управления ключами"
LineOut " Всего получено запросов: " & Product1.RequiredClientCount
LineOut " Получено невыполненных запросов: " & Product1.KeyManagementServiceTotalRequests
LineOut " Запросов с состоянием лицензии ""Не лицензировано"" : " & Product1.KeyManagementServiceUnlicensedRequests
LineOut " Запросов с состоянием лицензии ""Лицензировано"" : " & Product1.KeyManagementServiceLicensedRequests
LineOut " Запросов с состоянием лицензии ""Начальный льготный период"" : " & Product1.KeyManagementServiceOOBGraceRequests
LineOut " Запросов с состоянием лицензии ""Истек срок действия лицензии"" или ""Конфигурация оборудования компьютера не соответствует допустимой"" : " & Product1.KeyManagementServiceOOTGraceRequests
LineOut " Запросов с состоянием лицензии ""Льготный период для неподлинной версии"" : " & Product1.KeyManagementServiceNonGenuineGraceRequests
LineOut " Запросов с состоянием лицензии ""Режим уведомления"" : " & Product1.KeyManagementServiceNotificationRequests
End If
LineOut OutLine
LineFlush()
Next
Next
End Sub
Private Sub LineFlush()
WScript.Echo g_EchoString
g_EchoString = ""
End Sub
' Check if Product has KMS Host channel
Private Function IsProductKMShost(strDescription)
If IsProductKMS(strDescription) Then
IsProductKMShost = False
Else
If InStr(strDescription, C_KMSserver) > 0 Then
IsProductKMShost = True
Else
IsProductKMShost = False
End If
End If
End Function
' Check if Product has KMS Client channel
Private Function IsProductKMS(strDescription)
If InStr(strDescription, C_KMSclient) > 0 Then
IsProductKMS = True
Else
IsProductKMS = False
End If
End Function
' Out string line
Private Sub OutLinen(OutStr)
WScript.Echo OutStr
End Sub
Private Function ChecVersion()
Clas = "SoftwareLicensingProduct"
DisplayVersion(Clas)
QuerySting C_Q_Global_Servise, Clas
if Version <= "6.1" Then
Clas = "OfficeSoftwareProtectionProduct"
WScript.Sleep 500
OutLinen("Для проверки Office выбран Class: " & Clas)
QuerySting C_Q_Office_Servise, Clas
End If
End Function
' A Copy of Err from the point of origin
Class CErr
Public Number
Public Description
Public Source
Private Sub Class_Initialize
Number = Err.Number
Description = Err.Description
Source = Err.Source
End Sub
End Class
Function NewCErr(number, source, description)
Dim objError
Set objError = new CErr
objError.Number = CLng(number)
objError.Source = source
objError.Description = description
Set NewCErr = objError
End Function
' Query End Display Windows Version
Private Function DisplayVersion(Clas)
s = len(Clas)
p = Clas
tString = (InStr(p, SoftwareLicensingProduct)) Or (InStr(p, OfficeSoftwareProtectionProduct))
parName = Mid(p, tString, s)
if parName = Clas Then
OutLinen(OutLine & VbCrLf & "Имя: " & Name & VbCrLf & "Версия Windows: " & strVersion & VbCrLf & "Выбран Class: " & parName & VbCrLf & OutLine)
Else
QuitIfError()
End If
End Function
Private Function GetDaysFromMins(iMins)
Dim iMinsInADay
iMinsInADay = 24 * 60
GetDaysFromMins = Int((iMins + iMinsInADay - 1) / iMinsInADay)
End Function
Private Function IsTBL(strDescription)
If InStr(strDescription, "TIMEBASED_") > 0 Then
IsTBL = True
Else
IsTBL = False
End If
End Function
Private Function IsAVMA(strDescription)
If InStr(strDescription, "VIRTUAL_MACHINE_ACTIVATION") > 0 Then
IsAVMA = True
Else
IsAVMA = False
End If
End Function
Function GetServiceObject(strQuery, ServiceClass)
Dim objService
Dim colServices
On Error Resume Next
Set colServices = objWMIService.ExecQuery("SELECT " & strQuery & " FROM " & ServiceClass)
QuitIfError()
For each objService in colServices
QuitIfError()
Exit For
Next
QuitIfError()
set GetServiceObject = objService
End Function
Function GetProductCollection(strSelect, strWhere, ProductClass)
Dim colProducts
Dim objProduct
On Error Resume Next
If strWhere = EmptyWhereClause Then
Set colProducts = objWMIService.ExecQuery("SELECT " & strSelect & " FROM " & ProductClass)
Else
Set colProducts = objWMIService.ExecQuery("SELECT " & strSelect & " FROM " & ProductClass & " WHERE " & strWhere)
End If
For each objProduct in colProducts
If Err.Number = 0 Then
Exit For
Else
QuitIfError()
End If
Next
Set GetProductCollection = colProducts
End Function
Private Sub QuitIfError()
QuitIfError2 "L_MsgErrorText"
End Sub
Private Sub QuitIfError2(strMessage)
Dim objErr
If Err.Number <> HR_S_OK Then
Set objErr = new CErr
ShowError ReadResources(strMessage), objErr
ExitScript objErr.Number
End If
End Sub
Private Sub ShowError(ByVal strMessage, ByVal objErr)
Dim strDescription
Dim strNumber
' Convert error number to text. Use hexadecimal format for negative values such as HRESULT errors.
If objErr.Number >= HR_S_OK Then
strNumber = CStr(objErr.Number)
Else
strNumber = "0x" & Hex(objErr.Number)
End If
strDescription = ReadResources(Hex(objErr.Number))
If strDescription = "" Then
If objErr.Description = "" Then
strDescription = Replace(ReadResources("L_MsgErrorText_6"), "0x%ERRCODE%", strNumber)
ElseIf objErr.Source = "" Then
strDescription = objErr.Description
Else
strDescription = objErr.Description & " (" & objErr.Source & ")"
End If
End If
If 0 = InStr(strMessage, "0x%ERRCODE%") Then
strMessage = strMessage & "0x%ERRCODE%"
End If
If 0 = InStr(strMessage, "%ERRTEXT%") Then
strMessage = strMessage & "%ERRTEXT%"
End If
strMessage = Replace(strMessage, "0x%ERRCODE%", strNumber)
strMessage = Replace(strMessage, "%ERRTEXT%", strDescription)
LineOut strMessage
End Sub
Function GetProductObject(strSelect, strWhere, ProductClass)
Dim objProduct
Dim colProducts
Dim iProductsFound
On Error Resume Next
iProductsFound = 0
Set colProducts = GetProductCollection(strSelect, strWhere, ProductClass)
For each objProduct in colProducts
QuitIfError()
iProductsFound = iProductsFound + 1
Next
'OutLinen(iProductsFound)
'There should be exactly one product returned by the query. If there are none
'assume the product key and/or licenses are missing. If there are more than one
'then fail with invalid arguments.
If iProductsFound = 0 Then
LineOut ReadResources("L_MsgErrorPKey")
Err.Number = HR_SL_E_PKEY_NOT_INSTALLED
ElseIf iProductsFound <> 1 Then
LineOut ReadResources("L_MsgErrorPar")
Err.Number = HR_INVALID_ARG
End If
QuitIfError()
'Return the first (and only) element in the collection
For each objProduct in colProducts
QuitIfError()
Exit For
Next
set GetProductObject = objProduct
End Function
Private Sub LineOut(str)
g_EchoString = g_EchoString & str & vbCrLf
End Sub
Private Sub ExitScript(retval)
if (g_EchoString <> "") Then
WScript.Echo g_EchoString
End If
WScript.Quit retval
End Sub
Private Function ReadResources(stream)
Set Dict = CreateObject("Scripting.Dictionary")
Dict.Add "C004B001", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B002", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B003", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B004", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B005", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B006", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B007", "Сервер активации сообщил, что компьютер не может подключиться к серверу активации"
Dict.Add "C004B008", "Сервер активации определил, что компьютер не может быть активирован"
Dict.Add "C004B009", "Сервер активации определил, что лицензия недействительна"
Dict.Add "C004B011", "Сервер активации определил, что ваше время часы компьютера это не правильно. Вы должны исправить свои часы, прежде чем вы можете активировать"
Dict.Add "C004B100", "Сервер активации определил, что компьютер не может быть активирован"
Dict.Add "C004C001", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C002", "Сервер активации определил, есть проблема с указанный ключ продукта"
Dict.Add "C004C003", "Сервер активации определил, что указанный ключ продукта был заблокирован"
Dict.Add "C004C004", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C005", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C006", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C007", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C008", "Сервер активации определил, что указанный ключ продукта не может быть использованы"
Dict.Add "C004C009", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C00A", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C00B", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C00C", "Сервер активации произошла ошибка"
Dict.Add "C004C00D", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C00E", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C00F", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C010", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C011", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C012", "Сервер активации испытали ошибка сети"
Dict.Add "C004C013", "Сервер активации произошла ошибка"
Dict.Add "C004C014", "Сервер активации произошла ошибка"
Dict.Add "C004C020", "Сервер активации сообщил, что ключа многократной активации превышен предел"
Dict.Add "C004C021", "Сервер активации сообщил, что превышен многократной активации предел ключ расширения"
Dict.Add "C004C022", "Сервер активации сообщил, что предел Перевыпуск не был найден"
Dict.Add "C004C023", "Сервер активации сообщил, что запрос коррекции не был найден"
Dict.Add "C004C016", "Сервер активации сообщил, что указанный ключ продукта не может быть использован для активации продукта"
Dict.Add "C004C017", "Сервер активации определил, что указанный ключ продукта был заблокирован для этого географического расположения"
Dict.Add "C004C015", "Сервер активации произошла ошибка"
Dict.Add "C004C050", "Сервер активации испытал общая ошибка"
Dict.Add "C004C030", "Сервер активации сообщил, что время активации на основе попытки до даты начала."
Dict.Add "C004C031", "Сервер активации сообщил, что время активации на основе попытки после даты окончания."
Dict.Add "C004C032", "Сервер активации сообщил, что новое время на основе активации недоступен"
Dict.Add "C004C033", "Сервер активации сообщил, что время ключ продукта на основе не подходит для активации."
Dict.Add "C004C04F", "Сервер активации сообщил, что не бизнес-правила, доступные не активировать указанный ключ продукта"
Dict.Add "C004C700", "Сервер активации сообщил, что бизнес-правило cound не нашли нужный вход"
Dict.Add "C004C750", "Сервер активации сообщил, что NULL значение, указанное для имени бизнес-недвижимости и Ид"
Dict.Add "C004C751", "Сервер активации сообщил, что имя свойство определяет неизвестное свойство"
Dict.Add "C004C752", "Сервер активации сообщил, что свойство Id определяет неизвестное свойство"
Dict.Add "C004C755", "Сервер активации сообщил, что не удалось обновить ключ продукта"
Dict.Add "C004C756", "Сервер активации сообщил, что он не смог вставить ключ продукта"
Dict.Add "C004C757", "Сервер активации сообщил, что он не может удалить ключ продукта"
Dict.Add "C004C758", "Сервер активации сообщил, что не удалось обработать входной XML для продукта"
Dict.Add "C004C75A", "Сервер активации сообщил, что он не смог вставить ключ продукта"
Dict.Add "C004C75B", "Сервер активации сообщил, что не удалось обновить ключ продукта"
Dict.Add "C004C75C", "Сервер активации сообщил, что он не может удалить ключ продукта"
Dict.Add "C004C764", "Сервер активации сообщил, что тип ключа продукта неизвестно"
Dict.Add "C004C770", "Сервер активации сообщил, что тип ключа продукта используется другим пользователем"
Dict.Add "C004C780", "Сервер активации сообщил, что он не смог вставить ключ продукта"
Dict.Add "C004C781", "Сервер активации сообщил, что не удалось обновить ключ продукта"
Dict.Add "C004C401", "Виста Genuine Advantage Сервис определил, что установка не является подлинной"
Dict.Add "C004C600", "Виста Genuine Advantage Сервис определил, что установка не является подлинной"
Dict.Add "C004C801", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C802", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C803", "Сервер активации определил, что указанный ключ продукта был отозван"
Dict.Add "C004C804", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C805", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C810", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C811", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C812", "Сервер активации определил, что указанный ключ продукта превысил счетчик активаций"
Dict.Add "C004C813", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C814", "Сервер активации определил, указанный ключ продукта недопустим"
Dict.Add "C004C815", "Сервер активации определил, лицензия недействительна"
Dict.Add "C004C816", "Сервер активации сообщил, что указанный ключ продукта не может быть использован для активации продукта"
Dict.Add "C004E001", "Служба лицензирования программного обеспечения определила, что указанный контекст неправилен."
Dict.Add "C004E002", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий содержит противоречивые данные"
Dict.Add "C004E003", "Служба лицензирования программного обеспечения сообщила, что произошла ошибка при проверке лицензии"
Dict.Add "C004E004", "Служба лицензирования программного обеспечения сообщила, что эта лицензия не проверена"
Dict.Add "C004E005", "Служба лицензирования программного обеспечения сообщила, что эта лицензия не активирована"
Dict.Add "C004E006", "Служба лицензирования программного обеспечения сообщила, что лицензия содержит неверные данные"
Dict.Add "C004E007", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий не содержит требуемой лицензии"
Dict.Add "C004E008", "Служба лицензирования программного обеспечения сообщила, что свойство лицензия недействительна"
Dict.Add "C004E009", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий не инициализируется"
Dict.Add "C004E00A", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий уже инициализирован"
Dict.Add "C004E00B", "Служба лицензирования программного обеспечения сообщила, что свойство лицензия недействительна"
Dict.Add "C004E00C", "Служба лицензирования программного обеспечения сообщила, что лицензия не может быть создана или открыта"
Dict.Add "C004E00D", "Служба лицензирования программного обеспечения сообщила, что лицензия не может быть написано"
Dict.Add "C004E00E", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий не может прочитать файл лицензии"
Dict.Add "C004E00F", "Служба лицензирования программного обеспечения сообщила, что свойство Лицензия повреждена"
Dict.Add "C004E010", "Служба лицензирования программного обеспечения сообщила, что свойство лицензия отсутствует"
Dict.Add "C004E011", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий содержит недопустимый файл лицензии"
Dict.Add "C004E012", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий не удалось запустить синхронизацию должным образом"
Dict.Add "C004E013", "Служба лицензирования программного обеспечения сообщила, что хранилище лицензий не смогли должным образом синхронизировать"
Dict.Add "C004E014", "Служба лицензирования программного обеспечения сообщила, что свойство лицензия недействительна"
Dict.Add "C004E015", "Служба лицензирования программного обеспечения сообщила, что потребление лицензия удалось"
Dict.Add "C004E016", "Служба лицензирования программного обеспечения сообщила, что ключ продукта является недействительным"
Dict.Add "C004E017", "Служба лицензирования программного обеспечения сообщила, что ключ продукта является недействительным"
Dict.Add "C004E018", "Служба лицензирования программного обеспечения сообщила, что ключ продукта является недействительным"
Dict.Add "C004E019", "Служба лицензирования программного обеспечения определила, что проверку указанного ключа продукта не удалось"
Dict.Add "C004E01A", "Служба лицензирования программного обеспечения сообщила, что была признана недействительной Информация о дополнении"
Dict.Add "C004E01B", "Служба лицензирования программного обеспечения сообщила, что не вся информация аппаратный могут быть собраны"
Dict.Add "C004E01C", "Этот ознакомительный ключ продукта более не является допустимым"
Dict.Add "C004E01D", "Новый ключ продукта не могут быть использованы на этой установке Windows. Введите другой ключ продукта. (CD-AB)"
Dict.Add "C004E01E", "Новый ключ продукта не может быть использован на этой установке Windows. Введите другой ключ продукта. (AB-AB)"
Dict.Add "C004E01F", "Новый ключ продукта не могут быть использованы на этой установке Windows. Введите другой ключ продукта. (AB-CD)"
Dict.Add "C004E020", "Служба лицензирования программного обеспечения сообщила, что есть несоответствие между значением политики и информации, хранящейся в разделе OtherInfo"
Dict.Add "C004E021", "Служба лицензирования программного обеспечения сообщила, что Подлинная информация, содержащаяся в лицензии, не соответствует"
Dict.Add "C004E022", "Служба лицензирования программного обеспечения сообщила, что значение идентификатора Secure Store в лицензии не совпадает с текущим значением"
Dict.Add "8004E101", "Служба лицензирования программного обеспечения сообщила, что версия файла маркеров магазин является недействительным"
Dict.Add "8004E102", "Служба лицензирования программного обеспечения сообщила, что маркер магазин содержит недопустимый таблицу дескрипторов"
Dict.Add "8004E103", "Служба лицензирования программного обеспечения сообщила, что маркер магазин содержит маркер с недействительными верхнего / нижнего колонтитула"
Dict.Add "8004E104", "Служба лицензирования программного обеспечения сообщила, что маркер маркер магазин имеет недопустимое имя"
Dict.Add "8004E105", "Служба лицензирования программного обеспечения сообщила, что маркер маркер магазин имеет недопустимое расширение"
Dict.Add "8004E106", "Служба лицензирования программного обеспечения сообщила, что маркер магазин содержит дубликат маркер"
Dict.Add "8004E107", "Служба лицензирования программного обеспечения сообщила, что маркер в сети Token Store, имеет размер несоответствие"
Dict.Add "8004E108", "Служба лицензирования программного обеспечения сообщила, что маркер в сети Token Store, содержит недопустимый хэш"
Dict.Add "8004E109", "Служба лицензирования программного обеспечения сообщила, что маркер магазин был не в состоянии читать маркер"
Dict.Add "8004E10A", "Служба лицензирования программного обеспечения сообщила, что маркер магазин был не в состоянии написать маркер"
Dict.Add "8004E10B", "Служба лицензирования программного обеспечения сообщила, что маркер магазин попытались недопустимую операцию файла"
Dict.Add "8004E10C", "Служба лицензирования программного обеспечения сообщила, что нет активной транзакции"
Dict.Add "8004E10D", "Служба лицензирования программного обеспечения сообщила, что заголовок файла магазин маркера является недействительным"
Dict.Add "8004E10E", "Служба лицензирования программного обеспечения сообщила, что маркер магазин маркер дескриптор недействительным"
Dict.Add "C004F001", "Служба лицензирования программного обеспечения сообщила о внутренней ошибке"
Dict.Add "C004F002", "Служба лицензирования программного обеспечения сообщила, что потребление прав не удалось"
Dict.Add "C004F003", "Служба лицензирования программного обеспечения сообщила, что требуемая лицензия не может быть найдена"
Dict.Add "C004F004", "Служба лицензирования программного обеспечения сообщила, что ключ продукта не соответствует диапазону, определенному в лицензии"
Dict.Add "C004F005", "Служба лицензирования программного обеспечения сообщила, что ключ продукта не совпадает с ключом продукта для лицензии"
Dict.Add "C004F006", "Служба лицензирования программного обеспечения сообщила, что файл подписи для лицензию не доступен"
Dict.Add "C004F007", "Служба лицензирования программного обеспечения сообщила, что лицензия не может быть найдена"
Dict.Add "C004F008", "Служба лицензирования программного обеспечения сообщила, что лицензия не может быть найдена"
Dict.Add "C004F009", "Служба лицензирования программного обеспечения сообщила, что льготный период истек"
Dict.Add "C004F00A", "Служба лицензирования программного обеспечения сообщила, что идентификатор приложения не соответствует идентификатор приложения для лицензии"
Dict.Add "C004F00B", "Служба лицензирования программного обеспечения сообщила, что идентификационные данные этого продукта отсутствуют"
Dict.Add "4004F00C", "Служба лицензирования программного обеспечения сообщила, что приложение работает в пределах допустимого льготного периода"
Dict.Add "4004F00D", "Служба лицензирования программного обеспечения сообщила, что приложение выполняется в рамках допустимого отклонения от льготного периода"
Dict.Add "C004F00E", "Служба лицензирования программного обеспечения определила, что лицензия не может быть использован в текущей версии компонента процессора безопасности"
Dict.Add "C004F00F", "Служба лицензирования программного обеспечения сообщает, что идентификатор привязки оборудования выходит за границы допустимого отклонения"
Dict.Add "C004F010", "Служба лицензирования программного обеспечения сообщила, что ключ продукта является недействительным"
Dict.Add "C004F011", "Служба лицензирования программного обеспечения сообщила, что файл лицензии не установлен"
Dict.Add "C004F012", "Служба лицензирования программного обеспечения сообщила, что произошла ошибка вызова, так как не найдено значение введенного ключа"
Dict.Add "C004F013", "Служба лицензирования программного обеспечения определила, что нет разрешения на запуск программного обеспечения"
Dict.Add "C004F014", "Служба лицензирования программного обеспечения сообщила, что этот ключ продукта недоступен"
Dict.Add "C004F015", "Служба лицензирования программного обеспечения сообщила, что лицензия не установлена"
Dict.Add "C004F016", "Служба лицензирования программного обеспечения определила, что запрос не поддерживается"
Dict.Add "C004F017", "Служба лицензирования программного обеспечения сообщила, что лицензия не установлена"
Dict.Add "C004F018", "Служба лицензирования программного обеспечения сообщила, что лицензия не содержит действительные данные о местоположении для сервера активации"
Dict.Add "C004F019", "Служба лицензирования программного обеспечения определила, что просил событие ID является недействительным"
Dict.Add "C004F01A", "Служба лицензирования программного обеспечения определила, что запрошенное событие не зарегистрировано для этой службы"
Dict.Add "C004F01B", "Служба лицензирования программного обеспечения сообщила, что идентификатор события уже зарегистрированы"
Dict.Add "C004F01C", "Служба лицензирования программного обеспечения сообщила, что лицензия не установлена"
Dict.Add "C004F01D", "Служба лицензирования программного обеспечения сообщила, что проверка лицензии не удалось"
Dict.Add "C004F01E", "Служба лицензирования программного обеспечения определила, что тип входных данных не соответствует типу данных в лицензии"
Dict.Add "C004F01F", "Служба лицензирования программного обеспечения определила, что лицензия недействительна"
Dict.Add "C004F020", "Служба лицензирования программного обеспечения определила, что пакет лицензия недействительна"
Dict.Add "C004F021", "Служба лицензирования программного обеспечения сообщила, что срок действия лицензии истек"
Dict.Add "C004F022", "Служба лицензирования программного обеспечения сообщила, что разрешение лицензия удалось"
Dict.Add "C004F023", "Служба лицензирования программного обеспечения сообщила, что лицензия недействительна"
Dict.Add "C004F024", "Служба лицензирования программного обеспечения сообщила, что лицензия недействительна"
Dict.Add "C004F025", "Служба лицензирования программного обеспечения сообщила, что действие требует привилегий администратора"
Dict.Add "C004F026", "Служба лицензирования программного обеспечения сообщила, что необходимые данные не найдены"
Dict.Add "C004F027", "Служба лицензирования программного обеспечения сообщила, что лицензия подделаны"
Dict.Add "C004F028", "Служба лицензирования программного обеспечения сообщила, что кэш политика является недействительным"
Dict.Add "C004F029", "Служба лицензирования программного обеспечения не может быть запущен в текущем режиме OS"
Dict.Add "C004F02A", "Служба лицензирования программного обеспечения сообщила, что лицензия недействительна"
Dict.Add "C004F02C", "Служба лицензирования программного обеспечения сообщила, что формат данных автономной активации неправильный"
Dict.Add "C004F02D", "Служба лицензирования программного обеспечения определила, что версия идентификатора подтверждения автономной активации неправильна"
Dict.Add "C004F02E", "Служба лицензирования программного обеспечения определила, что версия форума идентификатора подтверждения (CID) не поддерживается"
Dict.Add "C004F02F", "Служба лицензирования программного обеспечения определила, что длина идентификатора подтверждения автономной активации неправильна"
Dict.Add "C004F030", "Служба лицензирования программного обеспечения определила, что этот идентификатор установки (IID) идентификатора подтверждения (CID) автономной активации не может быть сохранен"
Dict.Add "C004F031", "Идентификатор установки (IID) не соответствует идентификатору подтверждения (СЮ). Необходимо подтвердить идентификатор установки и, возможно, получить новый идентификатор подтверждения"
Dict.Add "C004F032", "Служба лицензирования программного обеспечения определила, что связывание данных является недействительным"
Dict.Add "C004F033", "Служба лицензирования программного обеспечения сообщила, что ключ продукта не могут быть установлены. Пожалуйста, обратитесь журнал событий для получения подробной информации"
Dict.Add "C004F034", "Служба лицензирования программного обеспечения сообщила, что лицензия не может быть найден или неверен"
Dict.Add "C004F035", "Служба лицензирования программного обеспечения сообщила, что компьютер не может быть активирован с помощью ключа корпоративной лицензии. Лицензированную системы требуют обновления с отборочного операционной системы. Обратитесь к системному администратору или использовать другой тип ключа"
Dict.Add "C004F038", "Служба лицензирования программного обеспечения сообщила, что компьютер не может быть активирован. Количество сообщили вашей службой управления ключами (KMS), недостаточно. Пожалуйста, обратитесь к системному администратору"
Dict.Add "C004F039", "Служба лицензирования программного обеспечения сообщила, что компьютер не может быть активирован. Служба управления ключами (KMS) не включен"
Dict.Add "4004F040", "Служба лицензирования программного обеспечения сообщила, что компьютер был включен, но владелец должен проверить права на использование продукта"
Dict.Add "C004F041", "Служба лицензирования программного обеспечения определила, что служба управления ключами (KMS) не активирована. KMS необходимо активировать. Пожалуйста, свяжитесь с системным администратором"
Dict.Add "C004F042", "Служба лицензирования программного обеспечения обнаружила, что указанная служба управления ключами (KMS) не может быть использована"
Dict.Add "C004F047", "Служба лицензирования программного обеспечения сообщила, что прокси-политика не была обновлена"
Dict.Add "C004F04D", "Служба лицензирования программного обеспечения определила, что Installation ID, (IID) или код подтверждения (CID) является недействительным"
Dict.Add "C004F04F", "Служба лицензирования программного обеспечения сообщила, что информация по управлению лицензиями не был найден в лицензиях"
Dict.Add "C004F050", "Служба лицензирования программного обеспечения сообщила, что ключ продукта является недействительным"
Dict.Add "C004F051", "Служба лицензирования программного обеспечения сообщила, что ключ продукта заблокирован"
Dict.Add "C004F052", "Служба лицензирования программного обеспечения сообщила, что лицензии продублированы свойства"
Dict.Add "C004F053", "Служба лицензирования программного обеспечения определила, что лицензия недействительна. Лицензия содержит переопределения поли