[Цитировать]

    dimo70
  • 17296
  • Стаж: 6 лет 3 месяца
  • Сообщений: 3990
  • Репутация:26

    [+] [-]
  • Откуда: BG
rezorustavi, спасибо за скрипт Ратиборуса. Подключу его тоже в TTL
aa

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
82980Подключу его тоже в TTL
Супер, дорогй друг! ay

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
Друзья! Тут https://get.msguides.com/office2019.txt нашел активатор для Office - батник, как его прикрутить к планировщику заданий, чтобы запускался этот батник в тихом режиме каждые 30 дней. Не плохо бы в догонку создать батник для добавления задачи, к примеру, если батник для активации будет хранится в папке C:\Windows, либо в C:\ProgramData
Источник с комментариями тут, не реклама https://www.youtube.com/watch?v=tTmOum5fapo%5B%2Furl%5D


Последний раз редактировалось: rezorustavi (2021-02-12 14:03), всего редактировалось 1 раз

[Цитировать]

    dimo70
  • 17296
  • Стаж: 6 лет 3 месяца
  • Сообщений: 3990
  • Репутация:26

    [+] [-]
  • Откуда: BG
rezorustavi, попробовал запустить, но ESET Antivirus сразу удалила команд файл.

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 2 месяца
  • Сообщений: 928
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
83226rezorustavi, попробовал запустить, но ESET Antivirus сразу удалила команд файл.
У меня тоже удаляет, это же активатор, надо его ввести в исключения антивируса az
А можно преобразовать в exe-шник и запаролить как в https://disk.yandex.ru/d/kdRMCL5c4jZCKQ Пароль 12345

[Цитировать]

    dimo70
  • 17296
  • Стаж: 6 лет 3 месяца
  • Сообщений: 3990
  • Репутация:26

    [+] [-]
  • Откуда: BG
Репаки для проверки активации и активации офиса и винды:
  • ActStatus - обновление скрипта.
  • MAS 1.4 (Microsoft Activation Scripts) - Windows & Office Activator. Автор.

  • _________________
    Подпись отключена за нарушение правил форума

    [Цитировать]

      dimo70
    • 17296
    • Стаж: 6 лет 3 месяца
    • Сообщений: 3990
    • Репутация:26

      [+] [-]
    • Откуда: BG
    Обновил ActOfs и WinAct в шапку.

    _________________
    Подпись отключена за нарушение правил форума

    [Цитировать]

      loban_ser
    • 17796
    • Стаж: 6 лет 1 месяц
    • Сообщений: 578
    • Репутация:24

      [+] [-]
    Году в 14-15 делал батничек.
    @echo off
    title Windows end Office status Activation!
    echo ------------------------------------------------------------------------------------
    cscript //nologo "%windir%\system32\slmgr.vbs" /dlv
    echo ------------------------------------------------------------------------------------
    pause >nul
    for /f "tokens=3" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "CurrentVersion"') do set winnum=%%a
    if %winnum% LSS 6.2 (set spp=OfficeSoftwareProtectionProduct) else (set spp=SoftwareLicensingProduct)
    wmic path %spp% get LicenseFamily |find "Office" 2>nul 1>&2 && goto :offstat
    goto :EOF
    :offstat
    cls
    if %winnum% LSS 6.2.9200 (goto :W7Officestatus) else (goto :W8Officestatus)
    :W8Officestatus
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (PartialProductKey^>0 And Name Like '%%Office%%') get PartialProductKey /format:list"') do call :nam %%a
    :nam
    cls
    if "%~1" == "" goto :EOF
    for /f "tokens=2 delims==" %%i in ('"wmic path %spp% Where PartialProductKey='%~1' get Name /format:list"') do set Office=%%i
    echo ----------------------------------------------
    echo %Office%
    echo ----------------------------------------------
    for /f "tokens=2 delims==" %%i in ('"wmic path %spp% Where PartialProductKey='%~1' get ID /format:list"') do call :status %%i && exit /b
    :W7Officestatus
    cls
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (ProductKeyID IS NOT NULL And Name Like '%%Office%%') get Name /format:list"') do call :status7 "%%a"
    goto :EOF
    :status7
    set Name=%~1
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (Name Like '%~1') get ID /format:list"') do set ID=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (Name Like '%~1') get DESCRIPTION /format:list"') do set DESCRIPTION=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (Name Like '%~1') get LicenseStatus /format:list"') do set LicenseStatus=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (Name Like '%~1') get PartialProductKey /format:list"') do set PartialProductKey=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (Name Like '%~1') get ProductKeyID /format:list"') do set ProductKeyID=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (Name Like '%~1') get OfflineInstallationId /format:list"') do set OfflineInstallationId=%%a
    If %LicenseStatus%==1 (set "Status=Имеет лицензию.")
    If %LicenseStatus%==0 (set "Status=Нелицензированный.")
    If %LicenseStatus%==2 (set "Status=Начальный льготный период.")
    If %LicenseStatus%==3 (set "Status=Истек срок действия лицензии.")
    If %LicenseStatus%==4 (set "Status=Льготный период для неподлинной версии.")
    If %LicenseStatus%==5 (set "Status=Уведомление.")
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (KeyManagementServiceMachine IS NOT NULL And Name Like '%~1') get GracePeriodRemaining /format:list"') do set Period=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (KeyManagementServiceMachine IS NOT NULL And Name Like '%~1') get KeyManagementServiceMachine /format:list"') do set ServiceMachine=%%a
    for /f "tokens=2 delims==" %%a in ('"wmic path %spp% Where (KeyManagementServiceMachine IS NOT NULL And Name Like '%~1') get KeyManagementServiceProductKeyID /format:list"') do set ProductKeyID1=%%a
    set /a Period=%Period%/60/24
    If "%ProductKeyID1%"=="" (
    echo.
    echo ---------------------------------------------------------------------------------
    echo Имя: %Name%
    echo Описание: %DESCRIPTION%
    echo Идентификатор активации: %ID%
    echo Расширенный PID: %ProductKeyID%
    echo Состояние лицензии: %Status%
    echo Частичный ключ продукта: %PartialProductKey%
    echo Идентификатор установки: %OfflineInstallationId%
    echo ---------------------------------------------------------------------------------
    echo.
    ) else (
    echo.
    echo ---------------------------------------------------------------------------------
    echo Имя: %Name%
    echo Описание: %DESCRIPTION%
    echo Идентификатор активации: %ID%
    echo Состояние лицензии: %Status%
    echo Частичный ключ продукта: %PartialProductKey%
    echo Срок активации корпоративных лицензий истечет через: %Period% [дней]
    echo IP-адрес компьютера KMS:  %ServiceMachine%
    echo Расширенный PID компьютера KMS:  %ProductKeyID1%
    echo ---------------------------------------------------------------------------------
    echo.
    )
    pause >nul
    Exit /B 0
    :status
    cscript //nologo "%windir%\system32\slmgr.vbs" /dlv %~1
    echo ------------------------------------------------------------------------------------
    pause >nul
    exit /b 0
    а вообще вот ведь
    [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", "Служба лицензирования программного обеспечения определила, что лицензия недействительна. Лицензия содержит переопределения поли

    [Цитировать]

      dimo70
    • 17296
    • Стаж: 6 лет 3 месяца
    • Сообщений: 3990
    • Репутация:26

      [+] [-]
    • Откуда: BG
    loban_ser, что то не понял. Второй код решил проверить, ничего не произходит.

    _________________
    Подпись отключена за нарушение правил форума

    [Цитировать]

      loban_ser
    • 17796
    • Стаж: 6 лет 1 месяц
    • Сообщений: 578
    • Репутация:24

      [+] [-]
    dimo70, vbs

    [Цитировать]

      dimo70
    • 17296
    • Стаж: 6 лет 3 месяца
    • Сообщений: 3990
    • Репутация:26

      [+] [-]
    • Откуда: BG
    loban_ser, кажеться код неполный. Глянь что вылезает:

    _________________
    Подпись отключена за нарушение правил форума

    [Цитировать]

      loban_ser
    • 17796
    • Стаж: 6 лет 1 месяц
    • Сообщений: 578
    • Репутация:24

      [+] [-]
    dimo70, ну да, скопипастил видно не весь вставился, буду дома исправлю
    Кстати я его выкладывал здесь на форуме, есть желание поищи или подожди

    [Цитировать]

      dimo70
    • 17296
    • Стаж: 6 лет 3 месяца
    • Сообщений: 3990
    • Репутация:26

      [+] [-]
    • Откуда: BG
    loban_ser, ay

    _________________
    Подпись отключена за нарушение правил форума

    [Цитировать]

      loban_ser
    • 17796
    • Стаж: 6 лет 1 месяц
    • Сообщений: 578
    • Репутация:24

      [+] [-]
    dimo70,
    https://disk.yandex.ru/d/-HxVLZlW99CljA
    https://usbtor.ru/viewtopic.php?p=63325#63325

    [Цитировать]

      bighead
    • 29484
    • Стаж: 2 года 4 месяца
    • Сообщений: 348
    • Репутация:21

      [+] [-]
    dimo70, MAS15 выпиливает дефендер при активации?

    Страница 4 из 5


    Показать сообщения:    

    Текущее время: 29-Мар 01:53

    Часовой пояс: UTC + 3


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