office365officemicrosoft365microsoftmassgravelmassgravewindows-11kms38windows-10kmswindowshwidpowershellactivatorohook
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
239 lines
9.4 KiB
239 lines
9.4 KiB
@setlocal DisableDelayedExpansion |
|
@echo off |
|
@cls |
|
|
|
|
|
:: ================================================== |
|
:: Check-Activation-Status-Alternative.cmd |
|
:: Written by @abbodi1406 (MDL) |
|
:: https://forums.mydigitallife.net/posts/838808 |
|
:: ================================================== |
|
|
|
|
|
|
|
|
|
|
|
|
|
color 07 |
|
title Check Activation Status [wmic] |
|
set wspp=SoftwareLicensingProduct |
|
set wsps=SoftwareLicensingService |
|
set ospp=OfficeSoftwareProtectionProduct |
|
set osps=OfficeSoftwareProtectionService |
|
set winApp=55c92734-d682-4d71-983e-d6ec3f16059f |
|
set o14App=59a52881-a989-479d-af46-f275c6370663 |
|
set o15App=0ff1ce15-a989-479d-af46-f275c6370663 |
|
for %%# in (spp_get,ospp_get,cW1nd0ws,sppw,c0ff1ce15,sppo,osppsvc,ospp14,ospp15) do set "%%#=" |
|
for /f "tokens=6 delims=[]. " %%# in ('ver') do set winbuild=%%# |
|
set "spp_get=Description, DiscoveredKeyManagementServiceMachineName, DiscoveredKeyManagementServiceMachinePort, EvaluationEndDate, GracePeriodRemaining, ID, KeyManagementServiceMachine, KeyManagementServicePort, KeyManagementServiceProductKeyID, LicenseStatus, LicenseStatusReason, Name, PartialProductKey, ProductKeyID, VLActivationInterval, VLRenewalInterval" |
|
set "ospp_get=%spp_get%" |
|
if %winbuild% geq 9200 set "spp_get=%spp_get%, DiscoveredKeyManagementServiceMachineIpAddress, KeyManagementServiceLookupDomain, ProductKeyChannel, VLActivationTypeEnabled" |
|
|
|
set "SysPath=%Windir%\System32" |
|
if exist "%Windir%\Sysnative\reg.exe" (set "SysPath=%Windir%\Sysnative") |
|
set "Path=%SysPath%;%Windir%;%SysPath%\Wbem;%SysPath%\WindowsPowerShell\v1.0\" |
|
set "line2=************************************************************" |
|
set "line3=____________________________________________________________" |
|
|
|
call :casWpkey %wspp% %winApp% cW1nd0ws sppw |
|
if %winbuild% geq 9200 call :casWpkey %wspp% %o15App% c0ff1ce15 sppo |
|
wmic path %osps% get Version 1>nul 2>nul && ( |
|
call :casWpkey %ospp% %o14App% osppsvc ospp14 |
|
if %winbuild% lss 9200 call :casWpkey %ospp% %o15App% osppsvc ospp15 |
|
) |
|
|
|
echo %line2% |
|
echo *** Windows Status *** |
|
echo %line2% |
|
if not defined cW1nd0ws ( |
|
echo: |
|
echo Error: product key not found. |
|
goto :casWcon |
|
) |
|
set winID=1 |
|
for /f "tokens=2 delims==" %%# in ('"wmic path %wspp% where (ApplicationID='%winApp%' and PartialProductKey is not null) get ID /value"') do ( |
|
set "chkID=%%#" |
|
call :casWdet "%wspp%" "%wsps%" "%spp_get%" |
|
call :casWout |
|
echo %line3% |
|
echo: |
|
) |
|
|
|
:casWcon |
|
set winID=0 |
|
set verbose=1 |
|
if not defined c0ff1ce15 ( |
|
if defined osppsvc goto :casWospp |
|
goto :casWend |
|
) |
|
echo %line2% |
|
echo *** Office Status *** |
|
echo %line2% |
|
for /f "tokens=2 delims==" %%# in ('"wmic path %wspp% where (ApplicationID='%o15App%' and PartialProductKey is not null) get ID /value"') do ( |
|
set "chkID=%%#" |
|
call :casWdet "%wspp%" "%wsps%" "%spp_get%" |
|
call :casWout |
|
echo %line3% |
|
echo: |
|
) |
|
set verbose=0 |
|
if defined osppsvc goto :casWospp |
|
goto :casWend |
|
|
|
:casWospp |
|
if %verbose%==1 ( |
|
echo %line2% |
|
echo *** Office Status *** |
|
echo %line2% |
|
) |
|
if defined ospp15 for /f "tokens=2 delims==" %%# in ('"wmic path %ospp% where (ApplicationID='%o15App%' and PartialProductKey is not null) get ID /value"') do ( |
|
set "chkID=%%#" |
|
call :casWdet "%ospp%" "%osps%" "%ospp_get%" |
|
call :casWout |
|
echo %line3% |
|
echo: |
|
) |
|
if defined ospp14 for /f "tokens=2 delims==" %%# in ('"wmic path %ospp% where (ApplicationID='%o14App%' and PartialProductKey is not null) get ID /value"') do ( |
|
set "chkID=%%#" |
|
call :casWdet "%ospp%" "%osps%" "%ospp_get%" |
|
call :casWout |
|
echo %line3% |
|
echo: |
|
) |
|
goto :casWend |
|
|
|
:casWpkey |
|
wmic path %1 where (ApplicationID='%2' and PartialProductKey is not null) get ID /value 2>nul | findstr /i ID 1>nul && (set %3=1&set %4=1) |
|
exit /b |
|
|
|
:casWdet |
|
for %%# in (%~3) do set "%%#=" |
|
if %~1 equ %ospp% for %%# in (DiscoveredKeyManagementServiceMachineIpAddress, KeyManagementServiceLookupDomain, ProductKeyChannel, VLActivationTypeEnabled) do set "%%#=" |
|
set "cKmsClient=" |
|
set "cTblClient=" |
|
set "cAvmClient=" |
|
set "ExpireMsg=" |
|
set "_xpr=" |
|
for /f "tokens=* delims=" %%# in ('"wmic path %~1 where ID='%chkID%' get %~3 /value" ^| findstr ^=') do set "%%#" |
|
|
|
set /a _gpr=(GracePeriodRemaining+1440-1)/1440 |
|
echo %Description%| findstr /i VOLUME_KMSCLIENT 1>nul && (set cKmsClient=1&set _mTag=Volume) |
|
echo %Description%| findstr /i TIMEBASED_ 1>nul && (set cTblClient=1&set _mTag=Timebased) |
|
echo %Description%| findstr /i VIRTUAL_MACHINE_ACTIVATION 1>nul && (set cAvmClient=1&set _mTag=Automatic VM) |
|
cmd /c exit /b %LicenseStatusReason% |
|
set "LicenseReason=%=ExitCode%" |
|
set "LicenseMsg=Time remaining: %GracePeriodRemaining% minute(s) (%_gpr% day(s))" |
|
if %_gpr% GEQ 1 for /f "tokens=* delims=" %%# in ('powershell "$([DateTime]::Now.addMinutes(%GracePeriodRemaining%)).ToString('yyyy-MM-dd HH:mm:ss')" 2^>nul') do set "_xpr=%%#" |
|
|
|
if %LicenseStatus% EQU 0 ( |
|
set "License=Unlicensed" |
|
set "LicenseMsg=" |
|
) |
|
if %LicenseStatus% EQU 1 ( |
|
set "License=Licensed" |
|
set "LicenseMsg=" |
|
if %GracePeriodRemaining% EQU 0 ( |
|
if %winID% EQU 1 (set "ExpireMsg=The machine is permanently activated.") else (set "ExpireMsg=The product is permanently activated.") |
|
) else ( |
|
set "LicenseMsg=%_mTag% activation expiration: %GracePeriodRemaining% minute(s) (%_gpr% day(s))" |
|
if defined _xpr set "ExpireMsg=%_mTag% activation will expire %_xpr%" |
|
) |
|
) |
|
if %LicenseStatus% EQU 2 ( |
|
set "License=Initial grace period" |
|
if defined _xpr set "ExpireMsg=Initial grace period ends %_xpr%" |
|
) |
|
if %LicenseStatus% EQU 3 ( |
|
set "License=Additional grace period (KMS license expired or hardware out of tolerance)" |
|
if defined _xpr set "ExpireMsg=Additional grace period ends %_xpr%" |
|
) |
|
if %LicenseStatus% EQU 4 ( |
|
set "License=Non-genuine grace period." |
|
if defined _xpr set "ExpireMsg=Non-genuine grace period ends %_xpr%" |
|
) |
|
if %LicenseStatus% EQU 6 ( |
|
set "License=Extended grace period" |
|
if defined _xpr set "ExpireMsg=Extended grace period ends %_xpr%" |
|
) |
|
if %LicenseStatus% EQU 5 ( |
|
set "License=Notification" |
|
if "%LicenseReason%"=="C004F200" (set "LicenseMsg=Notification Reason: 0xC004F200 (non-genuine)." |
|
) else if "%LicenseReason%"=="C004F009" (set "LicenseMsg=Notification Reason: 0xC004F009 (grace time expired)." |
|
) else (set "LicenseMsg=Notification Reason: 0x%LicenseReason%" |
|
) |
|
) |
|
if %LicenseStatus% GTR 6 ( |
|
set "License=Unknown" |
|
set "LicenseMsg=" |
|
) |
|
if not defined cKmsClient exit /b |
|
|
|
if %KeyManagementServicePort%==0 set KeyManagementServicePort=1688 |
|
set "KmsReg=Registered KMS machine name: %KeyManagementServiceMachine%:%KeyManagementServicePort%" |
|
if "%KeyManagementServiceMachine%"=="" set "KmsReg=Registered KMS machine name: KMS name not available" |
|
|
|
if %DiscoveredKeyManagementServiceMachinePort%==0 set DiscoveredKeyManagementServiceMachinePort=1688 |
|
set "KmsDns=KMS machine name from DNS: %DiscoveredKeyManagementServiceMachineName%:%DiscoveredKeyManagementServiceMachinePort%" |
|
if "%DiscoveredKeyManagementServiceMachineName%"=="" set "KmsDns=DNS auto-discovery: KMS name not available" |
|
|
|
for /f "tokens=* delims=" %%# in ('"wmic path %~2 get ClientMachineID, KeyManagementServiceHostCaching /value" ^| findstr ^=') do set "%%#" |
|
if /i %KeyManagementServiceHostCaching%==True (set KeyManagementServiceHostCaching=Enabled) else (set KeyManagementServiceHostCaching=Disabled) |
|
|
|
if %winbuild% lss 9200 exit /b |
|
if %~1 equ %ospp% exit /b |
|
|
|
if "%DiscoveredKeyManagementServiceMachineIpAddress%"=="" set "DiscoveredKeyManagementServiceMachineIpAddress=not available" |
|
|
|
if "%KeyManagementServiceLookupDomain%"=="" set "KeyManagementServiceLookupDomain=" |
|
|
|
if %VLActivationTypeEnabled% EQU 3 ( |
|
set VLActivationType=Token |
|
) else if %VLActivationTypeEnabled% EQU 2 ( |
|
set VLActivationType=KMS |
|
) else if %VLActivationTypeEnabled% EQU 1 ( |
|
set VLActivationType=AD |
|
) else ( |
|
set VLActivationType=All |
|
) |
|
exit /b |
|
|
|
:casWout |
|
echo: |
|
echo Name: %Name% |
|
echo Description: %Description% |
|
echo Activation ID: %ID% |
|
echo Extended PID: %ProductKeyID% |
|
if defined ProductKeyChannel echo Product Key Channel: %ProductKeyChannel% |
|
echo Partial Product Key: %PartialProductKey% |
|
echo License Status: %License% |
|
if defined LicenseMsg echo %LicenseMsg% |
|
if not %LicenseStatus%==0 if not %EvaluationEndDate:~0,8%==16010101 echo Evaluation End Date: %EvaluationEndDate:~0,4%-%EvaluationEndDate:~4,2%-%EvaluationEndDate:~6,2% %EvaluationEndDate:~8,2%:%EvaluationEndDate:~10,2% UTC |
|
if not defined cKmsClient ( |
|
if defined ExpireMsg echo:&echo: %ExpireMsg% |
|
exit /b |
|
) |
|
if defined VLActivationTypeEnabled echo Configured Activation Type: %VLActivationType% |
|
echo: |
|
if not %LicenseStatus%==1 ( |
|
echo Please activate the product in order to update KMS client information values. |
|
exit /b |
|
) |
|
echo Most recent activation information: |
|
echo Key Management Service client information |
|
echo: Client Machine ID (CMID): %ClientMachineID% |
|
echo: %KmsDns% |
|
echo: %KmsReg% |
|
if defined DiscoveredKeyManagementServiceMachineIpAddress echo: KMS machine IP address: %DiscoveredKeyManagementServiceMachineIpAddress% |
|
echo: KMS machine extended PID: %KeyManagementServiceProductKeyID% |
|
echo: Activation interval: %VLActivationInterval% minutes |
|
echo: Renewal interval: %VLRenewalInterval% minutes |
|
echo: KMS host caching: %KeyManagementServiceHostCaching% |
|
if defined KeyManagementServiceLookupDomain echo: KMS SRV record lookup domain: %KeyManagementServiceLookupDomain% |
|
if defined ExpireMsg echo:&echo: %ExpireMsg% |
|
exit /b |
|
|
|
:casWend |
|
echo: |
|
echo Press any key to exit. |
|
pause >nul |
|
exit /b |