1.6

5 files changed, 0 insertions, 4949 deletions

diff --git a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/Activate.cmd b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/Activate.cmd
deleted file mode 100644
index 9f50910..0000000
--- a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/Activate.cmd
+++ /dev/null
@@ -1,4943 +0,0 @@
-<!-- : Begin batch script

-@setlocal DisableDelayedExpansion

-@echo off

-

-

-

-::=================================================================================================

-::

-::  Online KMS Script is a fork of @abbodi1406's KMS_VL_ALL  forums.mydigitallife.net/posts/838808

-::  

-::  This fork's purpose is to avoid having any KMS binary files and activate Windows/Office using 

-::  only transparent batch script with online public KMS servers.

-::_____________________________________

-::

-::  Online KMS Activation Script is a part of 'Microsoft Activation Scripts' (MAS) project.

-::  

-::  Homepage: windowsaddict.ml

-::     Email: [email protected]

-::  

-::=================================================================================================

-

-

-

-

-::========================================================================================================================================

-

-:: Re-launch the script with x64 process if it was initiated by x86 process on x64 bit Windows

-:: or with ARM64 process if it was initiated by x86/ARM32 process on ARM64 Windows

-

-if exist %SystemRoot%\Sysnative\cmd.exe (

-set "_cmdf=%~f0"

-setlocal EnableDelayedExpansion

-start %SystemRoot%\Sysnative\cmd.exe /c ""!_cmdf!" %*"

-exit /b

-)

-

-:: Re-launch the script with ARM32 process if it was initiated by x64 process on ARM64 Windows

-

-if exist %SystemRoot%\SysArm32\cmd.exe if %PROCESSOR_ARCHITECTURE%==AMD64 (

-set "_cmdf=%~f0"

-setlocal EnableDelayedExpansion

-start %SystemRoot%\SysArm32\cmd.exe /c ""!_cmdf!" %*"

-exit /b

-)

-

-::  Set Path variable, it helps if it is misconfigured in the system

-

-set "SysPath=%SystemRoot%\System32"

-if exist "%SystemRoot%\Sysnative\reg.exe" (set "SysPath=%SystemRoot%\Sysnative")

-set "Path=%SysPath%;%SystemRoot%;%SysPath%\Wbem;%SysPath%\WindowsPowerShell\v1.0\"

-

-::========================================================================================================================================

-

-cls

-color 07

-title  Online KMS Activation [KMS_VL_ALL Fork]

-

-set WMI_VBS=0

-set _Debug=0

-set Silent=0

-set Logger=0

-

-set AutoR2V=1

-set SkipKMS38=1

-set ActWindows=1

-set ActOffice=1

-

-set _uni=

-set _args=

-set _elev=

-set _renetask=

-set _deskmenu=

-set _renacttask=

-set _unattended=

-

-

-set _args=%*

-if defined _args set _args=%_args:"=%

-if defined _args (

-set _unattended=1

-if "%_args%"=="-el"  set _unattended=

-

-for %%A in (%_args%) do (

-if /i "%%A"=="-el"  (set _elev=1

-) else if /i "%%A"=="/rt"  (set _renetask=1

-) else if /i "%%A"=="/rat" (set _renacttask=1

-) else if /i "%%A"=="/dcm" (set _deskmenu=1

-) else if /i "%%A"=="/uni" (set _uni=1

-) else if /i "%%A"=="/w"   (set ActWindows=1&set ActOffice=0

-) else if /i "%%A"=="/o"   (set ActWindows=0&set ActOffice=1

-) else if /i "%%A"=="/wo"  (set ActWindows=1&set ActOffice=1

-) else if /i "%%A"=="/nc"  (set AutoR2V=0

-) else if /i "%%A"=="/x"   (set SkipKMS38=0

-) else if /i "%%A"=="/d"   (set _Debug=1

-) else if /i "%%A"=="/l"   (set Logger=1&set Silent=1

-)

-)

-)

-

-::========================================================================================================================================

-

-set winbuild=1

-set "nul=>nul 2>&1"

-set "_psc=%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe"

-for /f "tokens=6 delims=[]. " %%G in ('ver') do set winbuild=%%G

-

-set _NCS=1

-if %winbuild% LSS 10586 set _NCS=0

-if %winbuild% GEQ 10586 reg query "HKCU\Console" /v ForceV2 2>nul | find /i "0x0" 1>nul && (set _NCS=0)

-

-call :_colorprep

-set "_buf={$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"

-

-set "nceline=echo. &echo ==== ERROR ==== &echo."

-set "eline=echo. &call :_color %Red% "==== ERROR ====" &echo."

-if %_Debug% EQU 1 set _unattended=1

-

-::========================================================================================================================================

-

-if %winbuild% LSS 7600 (

-%nceline%

-echo Unsupported OS version detected.

-echo Project is supported for Windows 7/8/8.1/10/11 and their Server equivalent.

-goto Done

-)

-

-if not exist "%_psc%" (

-%nceline%

-echo Powershell is not installed in the system.

-echo Aborting...

-goto Done

-)

-

-::========================================================================================================================================

-

-::  Fix for the special characters limitation in path name

-

-set "_work=%~dp0"

-if "%_work:~-1%"=="\" set "_work=%_work:~0,-1%"

-

-set "_batf=%~f0"

-set "_batp=%_batf:'=''%"

-

-set "_PSarg="""%~f0""" -el %_args%"

-

-set "_ttemp=%temp%"

-

-setlocal EnableDelayedExpansion

-

-::========================================================================================================================================

-

-echo "!_batf!" | find /i "!_ttemp!" 1>nul && (

-%nceline%

-echo Script is launched from the temp folder,

-echo Most likely you are running the script directly from the archive file.

-echo.

-echo Extract the archive file and launch the script from the extracted folder.

-goto Done

-)

-

-::========================================================================================================================================

-

-::  Elevate script as admin and pass arguments and preventing loop

-

-%nul% reg query HKU\S-1-5-19 || (

-if not defined _elev %nul% %_psc% "start cmd.exe -arg '/c \"!_PSarg:'=''!\"' -verb runas" && exit /b

-%nceline%

-if "!_batf!"=="%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" (

-echo Unable to elevate the script as admin.

-echo Try to manually run the file as admin - "%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd"

-) else (

-echo This script require administrator privileges.

-echo To do so, right click on this script and select 'Run as administrator'.

-)

-goto Done

-)

-

-::========================================================================================================================================

-

-if "!_batf!"=="%SystemRoot%\Temp\__MAS\Activate.cmd" (set "_exitmsg=Go back") else (set "_exitmsg=Exit")

-

-::  Check not x86 Windows

-

-set notx86=

-for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b

-if /i not "%arch%"=="x86" set notx86=1

-

-::========================================================================================================================================

-

-if defined _uni goto _Complete_Uninstall

-

-if defined _renacttask set ActTask=1&goto:RenTask

-if defined _renetask set ActTask=&goto:RenTask

-if defined _deskmenu goto:RenContextMenu

-

-::========================================================================================================================================

-

-if "!_batf!"=="%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" (

-set "_title=[%ProgramData%\Online_KMS_Activation]   [KMS_VL_ALL Fork]"

-) else (

-set "_title=Online KMS Activation [KMS_VL_ALL Fork]"

-)

-

-set _gui=

-

-:_KMS_Menu

-

-set _tskinstalled=

-if exist "%ProgramData%\Online_KMS_Activation\Activate_tsk.cmd" (

-find /i "Ver:1.5" "%ProgramData%\Online_KMS_Activation\Activate_tsk.cmd" 1>nul && (

-reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && (

-set _tskinstalled=1

-)

-)

-)

-

-set _dskinstalled=

-if exist "%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" (

-find /i "Ver:1.5" "%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" 1>nul && (

-reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% && (

-set _dskinstalled=1

-)

-)

-)

-

-set _oldtsk=

-if not defined _tskinstalled (

-reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && (

-set _oldtsk=1

-)

-)

-

-set _olddsk=

-if not defined _dskinstalled (

-reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% && (

-set _olddsk=1

-)

-)

-

-if defined _unattended (

-call :Activation_Start

-goto Done

-)

-

-cls

-set _gui=1

-title  %_title%

-mode con: cols=76 lines=33

-

-echo.

-echo.

-echo.       ______________________________________________________________

-echo.

-echo.              [1] Activate - Windows

-echo.              [2] Activate - Office

-echo.              [3] Activate - All

-echo.

-if defined _tskinstalled call :_color2 %_White% "              [I] Activation Auto-Renewal   " %_Green% "[Installed]"

-if defined _oldtsk       call :_color2 %_White% "              [I] Activation Auto-Renewal   " %_Red% "[Old Installed]"

-if not defined _tskinstalled if not defined _oldtsk echo.              [I] Activation Auto-Renewal   [Not Installed]

-

-if defined _dskinstalled call :_color2 %_White% "              [M] Desktop Context Menu      " %_Green% "[Installed]"

-if defined _olddsk       call :_color2 %_White% "              [M] Desktop Context Menu      " %_Red% "[Old Installed]"

-if not defined _dskinstalled if not defined _olddsk echo.              [M] Desktop Context Menu      [Not Installed]

-echo.              [U] Uninstall Completely

-echo.              _______________________________________________  

-echo.

-echo.                  Configure Activation:

-echo.

-if %_Debug%==0 (

-echo.              [D] Enable Debug Mode         [No]

-) else (

-call :_color2 %_White% "              [D] Enable Debug Mode         " %_Red% "[Yes]"

-)

-

-if %AutoR2V%==1 (

-echo.              [C] Convert Office C2R-R2V    [Yes]

-) else (

-call :_color2 %_White% "              [C] Convert Office C2R-R2V    " %_Yellow% "[No]"

-)

-

-if %winbuild% GEQ 14393 (

-if %SkipKMS38%==1 (

-echo.              [X] Skip Windows 10 KMS38     [Yes]

-) else (

-call :_color2 %_White% "              [X] Skip Windows 10 KMS38     " %_Yellow% "[No]"

-)

-)

-echo.              _______________________________________________      

-echo.

-echo.              [V] Check Activation Status   [vbs]

-echo.              [W] Check Activation Status   [wmi]

-echo.              _______________________________________________      

-echo.

-echo.              [R] Read Me

-echo.              [9] %_exitmsg%

-echo.       ______________________________________________________________

-echo.

-call :_color2 %_White% "             " %_Green% "Enter a menu option in the Keyboard :"

-choice /C:123IMUDCXVWR9 /N

-set _el=%errorlevel%

-

-if %_el%==13 exit /b

-if %_el%==12 start https://windowsaddict.ml/readme-online-kms   &goto _KMS_Menu

-if %_el%==11 cls&setlocal&call :_Check_Status_wmi&endlocal&cls&goto _KMS_Menu

-if %_el%==10 cls&setlocal&call :_Check_Status_vbs&endlocal&cls&goto _KMS_Menu

-if %_el%==9 (if %winbuild% GEQ 14393 (if %SkipKMS38%==0 (set SkipKMS38=1) else (set SkipKMS38=0))) &goto _KMS_Menu

-if %_el%==8 (if %AutoR2V%==0 (set AutoR2V=1) else (set AutoR2V=0)) &goto _KMS_Menu

-if %_el%==7 (if %_Debug%==0 (set _Debug=1) else (set _Debug=0)) &goto _KMS_Menu

-if %_el%==6 call:_Complete_Uninstall&cls&goto _KMS_Menu

-if %_el%==5 call:RenContextMenu&goto _KMS_Menu

-if %_el%==4 set ActTask=&call:RenTask&goto _KMS_Menu

-if %_el%==3 cls&setlocal&set "ActWindows=1"&set "ActOffice=1"&call :Activation_Start&endlocal&cls&goto _KMS_Menu

-if %_el%==2 cls&setlocal&set "ActWindows=0"&set "ActOffice=1"&call :Activation_Start&endlocal&cls&goto _KMS_Menu

-if %_el%==1 cls&setlocal&set "ActWindows=1"&set "ActOffice=0"&call :Activation_Start&endlocal&cls&goto _KMS_Menu

-goto _KMS_Menu

-

-::========================================================================================================================================

-

-:Done

-

-if defined _unattended exit /b

-

-echo.

-echo Press any key to exit...

-pause >nul

-exit /b

-

-:=========================================================================================================================================

-

-:Activation_Start

-

-@setlocal DisableDelayedExpansion

-

-set "_Null=1>nul 2>nul"

-set KMS_Port=1688

-if %_Debug% EQU 1 set _unattended=1

-set "_run=nul"

-if %Logger% EQU 1 set _run="%~dpn0_Silent.log"

-

-set "SysPath=%SystemRoot%\System32"

-if exist "%SystemRoot%\Sysnative\reg.exe" (set "SysPath=%SystemRoot%\Sysnative")

-set "Path=%SysPath%;%SystemRoot%;%SysPath%\Wbem;%SysPath%\WindowsPowerShell\v1.0\"

-set "_bit=64"

-set "_wow=1"

-if /i "%PROCESSOR_ARCHITECTURE%"=="amd64" set "xBit=x64"&set "xOS=x64"

-if /i "%PROCESSOR_ARCHITECTURE%"=="arm64" set "xBit=x86"&set "xOS=A64"

-if /i "%PROCESSOR_ARCHITECTURE%"=="x86" if "%PROCESSOR_ARCHITEW6432%"=="" set "xBit=x86"&set "xOS=x86"&set "_wow=0"&set "_bit=32"

-if /i "%PROCESSOR_ARCHITEW6432%"=="amd64" set "xBit=x64"&set "xOS=x64"

-if /i "%PROCESSOR_ARCHITEW6432%"=="arm64" set "xBit=x86"&set "xOS=A64"

-

-set "_Local=%LocalAppData%"

-set "_temp=%SystemRoot%\Temp"

-set "_log=%~dpn0"

-set "_work=%~dp0"

-if "%_work:~-1%"=="\" set "_work=%_work:~0,-1%"

-set _UNC=0

-if "%_work:~0,2%"=="\\" set _UNC=1

-for /f "skip=2 tokens=2*" %%a in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop') do call set "_dsk=%%b"

-if exist "%PUBLIC%\Desktop\desktop.ini" set "_dsk=%PUBLIC%\Desktop"

-set "_mO21a=Detected Office 2021 C2R Retail is activated"

-set "_mO19a=Detected Office 2019 C2R Retail is activated"

-set "_mO16a=Detected Office 2016 C2R Retail is activated"

-set "_mO15a=Detected Office 2013 C2R Retail is activated"

-set "_mO21c=Detected Office 2021 C2R Retail could not be converted to Volume"

-set "_mO19c=Detected Office 2019 C2R Retail could not be converted to Volume"

-set "_mO16c=Detected Office 2016 C2R Retail could not be converted to Volume"

-set "_mO15c=Detected Office 2013 C2R Retail could not be converted to Volume"

-set "_mO14c=Detected Office 2010 C2R Retail is not supported by KMS_VL_ALL"

-set "_mO14m=Detected Office 2010 MSI Retail is not supported by KMS_VL_ALL"

-set "_mO15m=Detected Office 2013 MSI Retail is not supported by KMS_VL_ALL"

-set "_mO16m=Detected Office 2016 MSI Retail is not supported by KMS_VL_ALL"

-set "_mOuwp=Detected Office 365/2016 UWP is not supported by KMS_VL_ALL"

-set DO16Ids=ProPlus,ProjectPro,VisioPro,Standard,ProjectStd,VisioStd,Access,SkypeforBusiness,Excel,Outlook,PowerPoint,Publisher,Word

-set LV16Ids=Mondo,ProPlus,ProjectPro,VisioPro,Standard,ProjectStd,VisioStd,Access,SkypeforBusiness,OneNote,Excel,Outlook,PowerPoint,Publisher,Word

-set LR16Ids=%LV16Ids%,Professional,HomeBusiness,HomeStudent,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud

-set "ESUEditions=Enterprise,EnterpriseE,EnterpriseN,Professional,ProfessionalE,ProfessionalN,Ultimate,UltimateE,UltimateN"

-if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (

-set "ESUEditions=ServerDatacenter,ServerDatacenterCore,ServerDatacenterV,ServerDatacenterVCore,ServerStandard,ServerStandardCore,ServerStandardV,ServerStandardVCore,ServerEnterprise,ServerEnterpriseCore,ServerEnterpriseV,ServerEnterpriseVCore"

-)

-for /f "tokens=6 delims=[]. " %%G in ('ver') do set winbuild=%%G

-set "_csq=cscript.exe //NoLogo //Job:WmiQuery "%~nx0?.wsf""

-set "_csm=cscript.exe //NoLogo //Job:WmiMethod "%~nx0?.wsf""

-set "_csp=cscript.exe //NoLogo //Job:WmiPKey "%~nx0?.wsf""

-set "_csd=cscript.exe //NoLogo //Job:MPS "%~nx0?.wsf""

-if %winbuild% GEQ 22483 set WMI_VBS=1

-if %WMI_VBS% EQU 0 (

-set "_zz1=wmic path"

-set "_zz2=where"

-set "_zz3=get"

-set "_zz4=/value"

-set "_zz5=("

-set "_zz6=)"

-set "_zz7="wmic path"

-set "_zz8=/value""

-) else (

-set "_zz1=%_csq%"

-set "_zz2="

-set "_zz3="

-set "_zz4="

-set "_zz5=""

-set "_zz6=""

-set "_zz7=%_csq%"

-set "_zz8="

-)

-set _WSH=1

-reg query "HKCU\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled 2>nul | find /i "0x0" 1>nul && (set _WSH=0)

-reg query "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled 2>nul | find /i "0x0" 1>nul && (set _WSH=0)

-

-setlocal EnableDelayedExpansion

-pushd "!_work!"

-

-if not defined _unattended (

-mode con cols=98 lines=31

-%nul% %_psc% "&%_buf%"

-title  %_title%

-) else (

-title  Online KMS Activation [KMS_VL_ALL Fork]

-)

-

-if defined _gui if %_Debug%==1 mode con cols=98 lines=30

-

-if %_Debug% EQU 0 (

-  set "_Nul1=1>nul"

-  set "_Nul2=2>nul"

-  set "_Nul6=2^>nul"

-  set "_Nul3=1>nul 2>nul"

-  set "_Pause=pause >nul"

-  if %Silent% EQU 0 (call :Begin) else (call :Begin >!_run! 2>&1)

-) else (

-  set "_Nul1="

-  set "_Nul2="

-  set "_Nul6="

-  set "_Nul3="

-  set "_log=!_dsk!\%~n0"

-  if %Silent% EQU 0 (

-  echo.

-  echo Running in Debug Mode...

-  if not defined _args (echo The window will be closed when finished) else (echo please wait...)

-  echo.

-  echo Writing debug log to:

-  echo "!_log!_Debug.log"

-  )

-  @echo on

-  @prompt $G

-  @call :Begin >"!_log!_tmp.log" 2>&1 &cmd /u /c type "!_log!_tmp.log">"!_log!_Debug.log"&del "!_log!_tmp.log"

-)

-@echo off

-if defined _gui if %_Debug%==1 (

-echo.

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-)

-@exit /b

-

-:Begin

-

-::========================================================================================================================================

-

-set act_failed=0

-set /a act_attempt=0

-

-echo.

-echo Initializing...

-

-if %_WSH% EQU 0 if %WMI_VBS% NEQ 0 (

-%eline%

-echo Windows Script Host is disabled.

-echo It is required for this script to work.

-if %_Debug%==1 exit /b

-if defined _unattended exit /b

-echo:

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-)

-

-:: Check Internet connection. Works even if ICMP echo is disabled.

-

-call :setserv

-for %%a in (%srvlist%) do (

-for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do (

-if not [%%#]==[] goto IntConnected

-)

-)

-

-nslookup dns.msftncsi.com 2>nul | find "131.107.255.255" 1>nul

-if [%errorlevel%]==[0] goto IntConnected

-

-cls

-if %_Debug%==1 (

-echo Error: Internet is not connected.

-exit /b

-)

-

-if defined _unattended (

-echo.

-call :_color %_Red% "Internet is not connected, continuing the process anyway."

-) else (

-%eline%

-echo Internet is not connected.

-echo:

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-)

-

-:IntConnected

-

-call :getserv

-

-::========================================================================================================================================

-

-set "_wApp=55c92734-d682-4d71-983e-d6ec3f16059f"

-set "_oApp=0ff1ce15-a989-479d-af46-f275c6370663"

-set "_oA14=59a52881-a989-479d-af46-f275c6370663"

-set "IFEO=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options"

-set "OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform"

-set "SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform"

-set SSppHook=0

-for /f %%A in ('dir /b /ad %SysPath%\spp\tokens\skus') do (

-  if %winbuild% GEQ 9200 if exist "%SysPath%\spp\tokens\skus\%%A\*GVLK*.xrm-ms" set SSppHook=1

-  if %winbuild% LSS 9200 if exist "%SysPath%\spp\tokens\skus\%%A\*VLKMS*.xrm-ms" set SSppHook=1

-  if %winbuild% LSS 9200 if exist "%SysPath%\spp\tokens\skus\%%A\*VL-BYPASS*.xrm-ms" set SSppHook=1

-)

-set OsppHook=1

-sc query osppsvc %_Nul3%

-if %errorlevel% EQU 1060 set OsppHook=0

-

-set ESU_KMS=0

-if %winbuild% LSS 9200 for /f %%A in ('dir /b /ad %SysPath%\spp\tokens\channels') do (

-  if exist "%SysPath%\spp\tokens\channels\%%A\*VL-BYPASS*.xrm-ms" set ESU_KMS=1

-)

-if %ESU_KMS% EQU 1 (set "adoff=and LicenseDependsOn is NULL"&set "addon=and LicenseDependsOn is not NULL") else (set "adoff="&set "addon=")

-set ESU_EDT=0

-if %ESU_KMS% EQU 1 for %%A in (%ESUEditions%) do (

-  if exist "%SysPath%\spp\tokens\skus\Security-SPP-Component-SKU-%%A\*.xrm-ms" set ESU_EDT=1

-)

-:: if %ESU_EDT% EQU 1 set SSppHook=1

-set ESU_ADD=0

-

-if %winbuild% GEQ 9200 (

-  set OSType=Win8

-  set SppVer=SppExtComObj.exe

-) else if %winbuild% GEQ 7600 (

-  set OSType=Win7

-  set SppVer=sppsvc.exe

-) else (

-  goto :UnsupportedVersion

-)

-if %OSType% EQU Win8 reg query "%IFEO%\sppsvc.exe" %_Nul3% && (

-reg delete "%IFEO%\sppsvc.exe" /f %_Nul3%

-call :StopService sppsvc

-)

-

-if %ActWindows% EQU 0 if %ActOffice% EQU 0 set ActWindows=1

-set _AUR=1

-if %winbuild% GEQ 9600 (

-  reg add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform" /v NoGenTicket /t REG_DWORD /d 1 /f %_Nul3%

-  if %winbuild% EQU 14393 reg add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform" /v NoAcquireGT /t REG_DWORD /d 1 /f %_Nul3%

-)

-call :StopService sppsvc

-if %OsppHook% NEQ 0 call :StopService osppsvc

-

-:ReturnHook

-call :UpdateOSPPEntry osppsvc.exe

-

-SET Win10Gov=0

-SET "EditionWMI="

-SET "EditionID="

-IF %winbuild% LSS 14393 if %SSppHook% NEQ 0 GOTO :Main

-SET "RegKey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"

-SET "Pattern=Microsoft-Windows-*Edition~31bf3856ad364e35"

-SET "EditionPKG=FFFFFFFF"

-FOR /F "TOKENS=8 DELIMS=\" %%A IN ('REG QUERY "%RegKey%" /f "%Pattern%" /k %_Nul6% ^| FIND /I "CurrentVersion"') DO (

-  REG QUERY "%RegKey%\%%A" /v "CurrentState" %_Nul2% | FIND /I "0x70" %_Nul1% && (

-    FOR /F "TOKENS=3 DELIMS=-~" %%B IN ('ECHO %%A') DO SET "EditionPKG=%%B"

-  )

-)

-IF /I "%EditionPKG:~-7%"=="Edition" (

-SET "EditionID=%EditionPKG:~0,-7%"

-) ELSE (

-FOR /F "TOKENS=3 DELIMS=: " %%A IN ('DISM /English /Online /Get-CurrentEdition %_Nul6% ^| FIND /I "Current Edition :"') DO SET "EditionID=%%A"

-)

-net start sppsvc /y %_Nul3%

-set "_qr=%_zz7% SoftwareLicensingProduct %_zz2% %_zz5%ApplicationID='%_wApp%' %adoff% AND PartialProductKey is not NULL%_zz6% %_zz3% LicenseFamily %_zz8%"

-FOR /F "TOKENS=2 DELIMS==" %%A IN ('%_qr% %_Nul6%') DO SET "EditionWMI=%%A"

-IF "%EditionWMI%"=="" (

-IF %winbuild% GEQ 17063 FOR /F "SKIP=2 TOKENS=2*" %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%B"

-IF %winbuild% LSS 14393 (

-  FOR /F "SKIP=2 TOKENS=2*" %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%B"

-  GOTO :Main

-  )

-)

-IF NOT "%EditionWMI%"=="" SET "EditionID=%EditionWMI%"

-IF /I "%EditionID%"=="IoTEnterprise" SET "EditionID=Enterprise"

-IF /I "%EditionID%"=="IoTEnterpriseS" SET "EditionID=EnterpriseS"

-IF /I "%EditionID%"=="ProfessionalSingleLanguage" SET "EditionID=Professional"

-IF /I "%EditionID%"=="ProfessionalCountrySpecific" SET "EditionID=Professional"

-IF /I "%EditionID%"=="EnterpriseG" SET Win10Gov=1

-IF /I "%EditionID%"=="EnterpriseGN" SET Win10Gov=1

-

-:Main

-if defined EditionID (set "_winos=Windows %EditionID% edition") else (set "_winos=Detected Windows")

-for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName %_Nul6%') do if not errorlevel 1 set "_winos=%%b"

-set "nKMS=does not support KMS activation..."

-set "nEval=Evaluation Editions cannot be activated. Please install full Windows OS."

-if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" set _eval=1

-if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalEdition~*.mum" set "nEval=Server Evaluation cannot be activated. Please convert to full Server OS."

-if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalCorEdition~*.mum" set _eval=1&set "nEval=Server Evaluation cannot be activated. Please convert to full Server OS."

-set "_C16R="

-reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (

-reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set "_C16R=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"

-)

-if not defined _C16R reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (

-reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set "_C16R=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration"

-)

-set "_C15R="

-reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (

-reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && call set "_C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration"

-if not defined _C15R reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && call set "_C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag"

-)

-set "_C14R="

-if %_wow%==0 (reg query HKLM\SOFTWARE\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set "_C14R=1") else (reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set "_C14R=1")

-for %%A in (14,15,16,19,21) do call :officeLoc %%A

-if %_O14MSI% EQU 1 set "_C14R="

-

-set S_OK=1

-call :RunSPP

-if %ActOffice% NEQ 0 call :RunOSPP

-if %ActOffice% EQU 0 (echo.&echo Office activation is OFF...)

-

-if exist "!_temp!\crv*.txt" del /f /q "!_temp!\crv*.txt"

-if exist "!_temp!\*chk.txt" del /f /q "!_temp!\*chk.txt"

-if exist "!_temp!\slmgr.vbs" del /f /q "!_temp!\slmgr.vbs"

-call :StopService sppsvc

-if %OsppHook% NEQ 0 call :StopService osppsvc

-

-sc start sppsvc trigger=timer;sessionid=0 %_Nul3%

-

-goto TheEnd

-

-:RunSPP

-set spp=SoftwareLicensingProduct

-set sps=SoftwareLicensingService

-set W1nd0ws=1

-set WinPerm=0

-set WinVL=0

-set Off1ce=0

-set RunR2V=0

-set aC2R21=0

-set aC2R19=0

-set aC2R16=0

-set aC2R15=0

-if %winbuild% GEQ 9200 if %ActOffice% NEQ 0 call :sppoff

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%Description like '%%KMSCLIENT%%' %_zz6% %_zz3% Name %_zz4%"

-%_qr% %_Nul2% | findstr /i Windows %_Nul1% && (set WinVL=1)

-if %WinVL% EQU 0 (

-if %ActWindows% EQU 0 (

-  echo.&echo Windows activation is OFF...

-  ) else (

-  if %SSppHook% EQU 0 (

-    echo.&echo %_winos% %nKMS%

-    if defined _eval echo %nEval%

-    ) else (

-    echo.&echo Failed checking KMS Activation ID^(s^) for Windows.&echo See Read Me for troubleshooting.

-    exit /b

-    )

-  )

-)

-if %WinVL% EQU 0 if %Off1ce% EQU 0 exit /b

-set _gvlk=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%"

-if %winbuild% GEQ 10240 %_qr% %_Nul2% | findstr /i Windows %_Nul1% && (set _gvlk=1)

-set gpr=0

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% GracePeriodRemaining %_zz8%"

-if %winbuild% GEQ 10240 if %SkipKMS38% NEQ 0 if %_gvlk% EQU 1 for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set "gpr=%%A"

-set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL" %_zz3% LicenseFamily %_zz4%"

-if %gpr% NEQ 0 if %gpr% GTR 259200 (

-set W1nd0ws=0

-%_qr% %_Nul2% | findstr /i EnterpriseG %_Nul1% && (call set W1nd0ws=1)

-)

-set "_qr=%_zz7% %sps% %_zz3% Version %_zz8%"

-for /f "tokens=2 delims==" %%A in ('%_qr%') do set slsv=%%A

-reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" %_Nul3%

-reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%

-if %winbuild% GEQ 9200 (

-if not %xOS%==x86 (

-reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32 %_Nul3%

-reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" /reg:32 %_Nul3%

-reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32 %_Null%

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32 %_Nul3%

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" /reg:32 %_Nul3%

-)

-reg delete "HKLM\%SPPk%\%_oApp%" /f %_Null%

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" %_Nul3%

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%

-)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' %_zz6% %_zz3% ID %_zz8%"

-if %W1nd0ws% EQU 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :sppchkwin)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' %adoff% %_zz6% %_zz3% ID %_zz8%"

-if %W1nd0ws% EQU 1 if %ActWindows% NEQ 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :sppchkwin)

-:: set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' %addon% %_zz6% %_zz3% ID %_zz8%"

-:: if %ESU_EDT% EQU 1 if %ActWindows% NEQ 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :esuchk)

-if %W1nd0ws% EQU 1 if %ActWindows% EQU 0 (echo.&echo Windows activation is OFF...)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' and Description like '%%KMSCLIENT%%' %_zz6% %_zz3% ID %_zz8%"

-if %Off1ce% EQU 1 if %ActOffice% NEQ 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :sppchkoff)

-reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing %_Null%

-reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching %_Null%

-exit /b

-

-:sppoff

-set OffUWP=0

-if %winbuild% GEQ 10240 reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msoxmled.exe" %_Nul3% && (

-dir /b "%ProgramFiles%\WindowsApps\Microsoft.Office.Desktop*" %_Nul3% && set OffUWP=1

-if not %xOS%==x86 dir /b "%ProgramW6432%\WindowsApps\Microsoft.Office.Desktop*" %_Nul3% && set OffUWP=1

-)

-rem nothing installed

-if %loc_off21% EQU 0 if %loc_off19% EQU 0 if %loc_off16% EQU 0 if %loc_off15% EQU 0 (

-if %OffUWP% EQU 0 (echo.&echo No Installed Office 2013-2021 Product Detected...) else (echo.&echo %_mOuwp%)

-exit /b

-)

-set Off1ce=1

-set _sC2R=sppoff

-set _fC2R=ReturnSPP

-set vol_off15=0&set vol_off16=0&set vol_off19=0&set vol_off21=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%Description like '%%KMSCLIENT%%' AND NOT Name like '%%MondoR_KMS_Automation%%' %_zz6% %_zz3% Name %_zz4%"

-%_qr% > "!_temp!\sppchk.txt" 2>&1

-find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off21=1)

-find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off19=1)

-find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off16=1)

-find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off15=1)

-for %%A in (15,16,19,21) do if !loc_off%%A! EQU 0 set vol_off%%A=0

-set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%'" %_zz3% LicenseFamily %_zz4%"

-if %vol_off16% EQU 1 find /i "Office16MondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (

-%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off16=0)

-)

-set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%'" %_zz3% LicenseFamily %_zz4%"

-if %vol_off15% EQU 1 find /i "OfficeMondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (

-%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off15=0)

-)

-set ret_off15=0&set ret_off16=0&set ret_off19=0&set ret_off21=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND NOT Name like '%%O365%%' %_zz6% %_zz3% Name %_zz4%"

-%_qr% > "!_temp!\sppchk.txt" 2>&1

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 21" %_Nul1% && (set ret_off21=1)

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 19" %_Nul1% && (set ret_off19=1)

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 16" %_Nul1% && (set ret_off16=1)

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 15" %_Nul1% && (set ret_off15=1)

-if %ret_off21% EQU 1 if %_O16MSI% EQU 0 set vol_off21=0

-if %ret_off19% EQU 1 if %_O16MSI% EQU 0 set vol_off19=0

-if %ret_off16% EQU 1 if %_O16MSI% EQU 0 set vol_off16=0

-if %ret_off15% EQU 1 if %_O15MSI% EQU 0 set vol_off15=0

-set run_off16=0

-if defined _C16R if %loc_off16% EQU 1 if %vol_off16% EQU 0 if %ret_off16% EQU 1 (

-for %%a in (%DO16Ids%) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  )

-for %%a in (Professional) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  if %vol_off21% EQU 1 find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  if %vol_off19% EQU 1 find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  )

-for %%a in (HomeBusiness,HomeStudent) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  if %vol_off21% EQU 1 find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  if %vol_off19% EQU 1 find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  )

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%' %_zz6% %_zz3% LicenseFamily %_zz4%"

-if defined _C16R if %loc_off16% EQU 1 if %run_off16% EQU 0 %_qr% %_Nul2% | find /i "O365" %_Nul1% && (

-find /i "Office16MondoVL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-)

-set vol_offgl=1

-if %vol_off21% EQU 0 if %vol_off19% EQU 0 if %vol_off16% EQU 0 if %vol_off15% EQU 0 set vol_offgl=0

-rem mixed Volume + Retail

-if %loc_off21% EQU 1 if %vol_off21% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-if %loc_off19% EQU 1 if %vol_off19% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-if defined _C16R if %loc_off16% EQU 1 if %vol_off16% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 if %run_off16% EQU 1 goto :C2RR2V

-if defined _C15R if %loc_off15% EQU 1 if %vol_off15% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-if %loc_off16% EQU 0 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if %OffUWP% EQU 1 (echo.&echo %_mOuwp%)

-rem all supported Volume + message for unsupported

-if %vol_offgl% EQU 1 (

-if %ret_off16% EQU 1 if %_O16MSI% EQU 1 (echo.&echo %_mO16m%)

-if %ret_off15% EQU 1 if %_O15MSI% EQU 1 (echo.&echo %_mO15m%)

-exit /b

-)

-set Off1ce=0

-rem Retail C2R

-if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-:ReturnSPP

-rem Retail MSI/C2R or failed C2R-R2V

-if %loc_off21% EQU 1 if %vol_off21% EQU 0 (

-if %aC2R21% EQU 1 (echo.&echo %_mO21a%) else (echo.&echo %_mO21c%)

-)

-if %loc_off19% EQU 1 if %vol_off19% EQU 0 (

-if %aC2R19% EQU 1 (echo.&echo %_mO19a%) else (echo.&echo %_mO19c%)

-)

-if %loc_off16% EQU 1 if %vol_off16% EQU 0 (

-if defined _C16R (if %aC2R16% EQU 1 (echo.&echo %_mO16a%) else (echo.&echo %_mO16c%)) else if %_O16MSI% EQU 1 (if %ret_off16% EQU 1 echo.&echo %_mO16m%)

-)

-if %loc_off15% EQU 1 if %vol_off15% EQU 0 (

-if defined _C15R (if %aC2R15% EQU 1 (echo.&echo %_mO15a%) else (echo.&echo %_mO15c%)) else if %_O15MSI% EQU 1 (if %ret_off15% EQU 1 echo.&echo %_mO15m%)

-)

-exit /b

-

-:sppchkoff

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz4%"

-%_qr% > "!_temp!\sppchk.txt"

-find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off15% EQU 0 exit /b)

-find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off16% EQU 0 exit /b)

-find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off19% EQU 0 exit /b)

-find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off21% EQU 0 exit /b)

-set _officespp=1

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"

-%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"

-for /f "tokens=3 delims==, " %%G in ('%_qr%') do set OffVer=%%G

-call :offchk%OffVer%

-exit /b

-

-:sppchkwin

-set _officespp=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%"

-if %winbuild% GEQ 14393 if %WinPerm% EQU 0 if %_gvlk% EQU 0 %_qr% %_Nul2% | findstr /i Windows %_Nul1% && (set _gvlk=1)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% LicenseStatus %_zz4%"

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (echo.&call :activate&exit /b)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"

-%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)

-if %winbuild% GEQ 14393 if %_gvlk% EQU 1 exit /b

-if %WinPerm% EQU 1 exit /b

-if %winbuild% LSS 10240 (call :winchk&exit /b)

-for %%A in (

-b71515d9-89a2-4c60-88c8-656fbcca7f3a,af43f7f0-3b1e-4266-a123-1fdb53f4323b,075aca1f-05d7-42e5-a3ce-e349e7be7078

-11a37f09-fb7f-4002-bd84-f3ae71d11e90,43f2ab05-7c87-4d56-b27c-44d0f9a3dabd,2cf5af84-abab-4ff0-83f8-f040fb2576eb

-6ae51eeb-c268-4a21-9aae-df74c38b586d,ff808201-fec6-4fd4-ae16-abbddade5706,34260150-69ac-49a3-8a0d-4a403ab55763

-4dfd543d-caa6-4f69-a95f-5ddfe2b89567,5fe40dd6-cf1f-4cf2-8729-92121ac2e997,903663f7-d2ab-49c9-8942-14aa9e0a9c72

-2cc171ef-db48-4adc-af09-7c574b37f139,5b2add49-b8f4-42e0-a77c-adad4efeeeb1

-) do (

-if /i '%app%' EQU '%%A' exit /b

-)

-if not defined EditionID (call :winchk&exit /b)

-if %winbuild% LSS 14393 (call :winchk&exit /b)

-if /i '%app%' EQU '32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee' if /i %EditionID% NEQ EnterpriseS exit /b

-if /i '%app%' EQU 'ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69' if /i %EditionID% NEQ CloudEdition exit /b

-if /i '%app%' EQU 'd30136fc-cb4b-416e-a23d-87207abc44a9' if /i %EditionID% NEQ CloudEditionN exit /b

-if /i '%app%' EQU '0df4f814-3f57-4b8b-9a9d-fddadcd69fac' if /i %EditionID% NEQ CloudE exit /b

-if /i '%app%' EQU 'e0c42288-980c-4788-a014-c080d2e1926e' if /i %EditionID% NEQ Education exit /b

-if /i '%app%' EQU '73111121-5638-40f6-bc11-f1d7b0d64300' if /i %EditionID% NEQ Enterprise exit /b

-if /i '%app%' EQU '2de67392-b7a7-462a-b1ca-108dd189f588' if /i %EditionID% NEQ Professional exit /b

-if /i '%app%' EQU '3f1afc82-f8ac-4f6c-8005-1d233e606eee' if /i %EditionID% NEQ ProfessionalEducation exit /b

-if /i '%app%' EQU '82bbc092-bc50-4e16-8e18-b74fc486aec3' if /i %EditionID% NEQ ProfessionalWorkstation exit /b

-if /i '%app%' EQU '3c102355-d027-42c6-ad23-2e7ef8a02585' if /i %EditionID% NEQ EducationN exit /b

-if /i '%app%' EQU 'e272e3e2-732f-4c65-a8f0-484747d0d947' if /i %EditionID% NEQ EnterpriseN exit /b

-if /i '%app%' EQU 'a80b5abf-76ad-428b-b05d-a47d2dffeebf' if /i %EditionID% NEQ ProfessionalN exit /b

-if /i '%app%' EQU '5300b18c-2e33-4dc2-8291-47ffcec746dd' if /i %EditionID% NEQ ProfessionalEducationN exit /b

-if /i '%app%' EQU '4b1571d3-bafb-4b40-8087-a961be2caf65' if /i %EditionID% NEQ ProfessionalWorkstationN exit /b

-if /i '%app%' EQU '58e97c99-f377-4ef1-81d5-4ad5522b5fd8' if /i %EditionID% NEQ Core exit /b

-if /i '%app%' EQU 'cd918a57-a41b-4c82-8dce-1a538e221a83' if /i %EditionID% NEQ CoreSingleLanguage exit /b

-if /i '%app%' EQU 'ec868e65-fadf-4759-b23e-93fe37f2cc29' if /i %EditionID% NEQ ServerRdsh exit /b

-if /i '%app%' EQU 'e4db50ea-bda1-4566-b047-0ca50abc6f07' if /i %EditionID% NEQ ServerRdsh exit /b

-set "_qr=%_zz1% %spp% %_zz2% "Description like '%%KMSCLIENT%%'" %_zz3% ID %_zz4%"

-if /i "%app%" EQU "e4db50ea-bda1-4566-b047-0ca50abc6f07" (

-%_qr% | findstr /i "ec868e65-fadf-4759-b23e-93fe37f2cc29" %_Nul3% && (exit /b)

-)

-call :winchk

-exit /b

-

-:winchk

-if not defined tok (if %winbuild% GEQ 9200 (set "tok=4") else (set "tok=7"))

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%LicenseStatus='1' and Description like '%%KMSCLIENT%%' %adoff% %_zz6% %_zz3% Name %_zz4%"

-%_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && (exit /b)

-echo.

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%LicenseStatus='1' and GracePeriodRemaining='0' %adoff% and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%"

-%_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && (

-set WinPerm=1

-)

-set WinOEM=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Name %_zz4%"

-if %WinPerm% EQU 0 %_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && set WinOEM=1

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Description %_zz8%"

-if %WinOEM% EQU 1 (

-for /f "tokens=%tok% delims=, " %%G in ('%_qr%') do set "channel=%%G"

-for %%A in (VOLUME_MAK, RETAIL, OEM_DM, OEM_SLP, OEM_COA, OEM_COA_SLP, OEM_COA_NSLP, OEM_NONSLP, OEM) do if /i "%%A"=="!channel!" set WinPerm=1

-)

-if %WinPerm% EQU 0 (

-copy /y %SysPath%\slmgr.vbs "!_temp!\slmgr.vbs" %_Nul3%

-cscript //nologo "!_temp!\slmgr.vbs" /xpr %_Nul2% | findstr /i "permanently" %_Nul3% && set WinPerm=1

-)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Name %_zz8%"

-if %WinPerm% EQU 1 (

-for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x

-echo Product is Permanently Activated.

-exit /b

-)

-call :insKey

-exit /b

-

-:esuchk

-set _officespp=0

-set ESU_ADD=1

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% LicenseStatus %_zz4%"

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (echo.&call :activate&exit /b)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='77db037b-95c3-48d7-a3ab-a9c6d41093e0'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "3fcc2df2-f625-428d-909a-1f76efc849b6" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='0e00c25d-8795-4fb7-9572-3803d91b6880'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "dadfcd24-6e37-47be-8f7f-4ceda614cece" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='4220f546-f522-46df-8202-4d07afd26454'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "0c29c85e-12d7-4af8-8e4d-ca1e424c480c" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='553673ed-6ddf-419c-a153-b760283472fd'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "f2b21bfc-a6b0-4413-b4bb-9f06b55f2812" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='04fa0286-fa74-401e-bbe9-fbfbb158010d'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "bfc078d0-8c7f-475c-8519-accc46773113" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='16c08c85-0c8b-4009-9b2b-f1f7319e45f9'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "23c6188f-c9d8-457e-81b6-adb6dacb8779" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='8e7bfb1e-acc1-4f56-abae-b80fce56cd4b'%_zz6% %_zz3% LicenseStatus %_zz4%"

-if /i "%app%" EQU "e7cce015-33d6-41c1-9831-022ba63fe1da" (

-%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"

-%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)

-call :insKey

-exit /b

-

-:RunOSPP

-set spp=OfficeSoftwareProtectionProduct

-set sps=OfficeSoftwareProtectionService

-set Off1ce=0

-set RunR2V=0

-set aC2R21=0

-set aC2R19=0

-set aC2R16=0

-set aC2R15=0

-if %winbuild% LSS 9200 (set "aword=2010-2021") else (set "aword=2010")

-if %OsppHook% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b)

-if %winbuild% GEQ 9200 if %loc_off14% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b)

-set err_offsvc=0

-net start osppsvc /y %_Nul3% || (

-sc start osppsvc %_Nul3%

-if !errorlevel! EQU 1053 set err_offsvc=1

-)

-if %err_offsvc% EQU 1 (echo.&echo Error: osppsvc service is not running...&exit /b)

-if %winbuild% GEQ 9200 call :win8off

-if %winbuild% LSS 9200 call :win7off

-if %Off1ce% EQU 0 exit /b

-set "vPrem="&set "vProf="

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='OfficeVisioPrem-MAK'%_zz6% %_zz3% LicenseStatus %_zz8%"

-if %loc_off14% EQU 1 for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set vPrem=%%A

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='OfficeVisioPro-MAK'%_zz6% %_zz3% LicenseStatus %_zz8%"

-if %loc_off14% EQU 1 for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set vProf=%%A

-set "_qr=%_zz7% %sps% %_zz3% Version %_zz8%"

-for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set slsv=%%A

-reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" %_Nul3%

-reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%Description like '%%KMSCLIENT%%' %_zz6% %_zz3% ID %_zz8%"

-for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :osppchk)

-reg delete "HKLM\%OPPk%" /f /v DisableDnsPublishing %_Null%

-reg delete "HKLM\%OPPk%" /f /v DisableKeyManagementServiceHostCaching %_Null%

-exit /b

-

-:win8off

-set "_qr=%_zz1% %spp% %_zz3% Description %_zz4%"

-%_qr% %_Nul2% | findstr /i KMSCLIENT %_Nul1% && (

-set Off1ce=1

-exit /b

-)

-set ret_off14=0

-%_qr% %_Nul2% | findstr /i channel %_Nul1% && (set ret_off14=1)

-if defined _C14R (echo.&echo %_mO14c%) else if %_O14MSI% EQU 1 (if %ret_off14% EQU 1 echo.&echo %_mO14m%)

-exit /b

-

-:win7off

-rem nothing installed

-if %loc_off21% EQU 0 if %loc_off19% EQU 0 if %loc_off16% EQU 0 if %loc_off15% EQU 0 if %loc_off14% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b)

-set Off1ce=1

-set _sC2R=win7off

-set _fC2R=ReturnOSPP

-set vol_off14=0&set vol_off15=0&set vol_off16=0&set vol_off19=0&set vol_off21=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%Description like '%%KMSCLIENT%%' AND NOT Name like '%%MondoR_KMS_Automation%%' %_zz6% %_zz3% Name %_zz4%"

-%_qr% > "!_temp!\sppchk.txt" 2>&1

-find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off21=1)

-find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off19=1)

-find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off16=1)

-find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off15=1)

-find /i "Office 14" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off14=1)

-for %%A in (14,15,16,19,21) do if !loc_off%%A! EQU 0 set vol_off%%A=0

-set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%'" %_zz3% LicenseFamily %_zz4%"

-if %vol_off16% EQU 1 find /i "Office16MondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (

-%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off16=0)

-)

-set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%'" %_zz3% LicenseFamily %_zz4%"

-if %vol_off15% EQU 1 find /i "OfficeMondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (

-%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off15=0)

-)

-set ret_off14=0&set ret_off15=0&set ret_off16=0&set ret_off19=0&set ret_off21=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND NOT Name like '%%O365%%' %_zz6% %_zz3% Name %_zz4%"

-%_qr% > "!_temp!\sppchk.txt" 2>&1

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 21" %_Nul1% && (set ret_off21=1)

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 19" %_Nul1% && (set ret_off19=1)

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 16" %_Nul1% && (set ret_off16=1)

-find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 15" %_Nul1% && (set ret_off15=1)

-if %ret_off21% EQU 1 if %_O16MSI% EQU 0 set vol_off21=0

-if %ret_off19% EQU 1 if %_O16MSI% EQU 0 set vol_off19=0

-if %ret_off16% EQU 1 if %_O16MSI% EQU 0 set vol_off16=0

-if %ret_off15% EQU 1 if %_O15MSI% EQU 0 set vol_off15=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oA14%'%_zz6% %_zz3% Description %_zz4%"

-if %vol_off14% EQU 0 %_qr% %_Nul2% | findstr /i channel %_Nul1% && (set ret_off14=1)

-set run_off16=0

-if defined _C16R if %loc_off16% EQU 1 if %vol_off16% EQU 0 if %ret_off16% EQU 1 (

-for %%a in (%DO16Ids%) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  )

-for %%a in (Professional) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  if %vol_off21% EQU 1 find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  if %vol_off19% EQU 1 find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  )

-for %%a in (HomeBusiness,HomeStudent) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  if %vol_off21% EQU 1 find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  if %vol_off19% EQU 1 find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-  )

-)

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%' %_zz6% %_zz3% LicenseFamily %_zz4%"

-if defined _C16R if %loc_off16% EQU 1 if %run_off16% EQU 0 %_qr% %_Nul2% | find /i "O365" %_Nul1% && (

-find /i "Office16MondoVL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1

-)

-set vol_offgl=1

-if %vol_off21% EQU 0 if %vol_off19% EQU 0 if %vol_off16% EQU 0 if %vol_off15% EQU 0 if %vol_off14% EQU 0 set vol_offgl=0

-rem mixed Volume + Retail

-if %loc_off21% EQU 1 if %vol_off21% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-if %loc_off19% EQU 1 if %vol_off19% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-if defined _C16R if %loc_off16% EQU 1 if %vol_off16% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 if %run_off16% EQU 1 goto :C2RR2V

-if defined _C15R if %loc_off15% EQU 1 if %vol_off15% EQU 0 if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-rem all supported Volume + message for unsupported

-if %vol_offgl% EQU 1 (

-if %ret_off16% EQU 1 if %_O16MSI% EQU 1 (echo.&echo %_mO16m%)

-if %ret_off15% EQU 1 if %_O15MSI% EQU 1 (echo.&echo %_mO15m%)

-if %loc_off14% EQU 1 if %vol_off14% EQU 0 (if defined _C14R (echo.&echo %_mO14c%) else if %_O14MSI% EQU 1 (if %ret_off14% EQU 1 echo.&echo %_mO14m%))

-exit /b

-)

-set Off1ce=0

-rem Retail C2R

-if %RunR2V% EQU 0 if %AutoR2V% EQU 1 goto :C2RR2V

-:ReturnOSPP

-rem Retail MSI/C2R or failed C2R-R2V

-if %loc_off21% EQU 1 if %vol_off21% EQU 0 (

-if %aC2R21% EQU 1 (echo.&echo %_mO21a%) else (echo.&echo %_mO21c%)

-)

-if %loc_off19% EQU 1 if %vol_off19% EQU 0 (

-if %aC2R19% EQU 1 (echo.&echo %_mO19a%) else (echo.&echo %_mO19c%)

-)

-if %loc_off16% EQU 1 if %vol_off16% EQU 0 (

-if defined _C16R (if %aC2R16% EQU 1 (echo.&echo %_mO16a%) else (echo.&echo %_mO16c%)) else if %_O16MSI% EQU 1 (if %ret_off16% EQU 1 echo.&echo %_mO16m%)

-)

-if %loc_off15% EQU 1 if %vol_off15% EQU 0 (

-if defined _C15R (if %aC2R15% EQU 1 (echo.&echo %_mO15a%) else (echo.&echo %_mO15c%)) else if %_O15MSI% EQU 1 (if %ret_off15% EQU 1 echo.&echo %_mO15m%)

-)

-if %loc_off14% EQU 1 if %vol_off14% EQU 0 (

-if defined _C14R (echo.&echo %_mO14c%) else if %_O14MSI% EQU 1 (if %ret_off14% EQU 1 echo.&echo %_mO14m%)

-)

-exit /b

-

-:osppchk

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz4%"

-%_qr% > "!_temp!\sppchk.txt"

-find /i "Office 14" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off14% EQU 0 exit /b)

-find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off15% EQU 0 exit /b)

-find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off16% EQU 0 exit /b)

-find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off19% EQU 0 exit /b)

-find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off21% EQU 0 exit /b)

-set _officespp=0

-set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"

-%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"

-for /f "tokens=3 delims==, " %%G in ('%_qr%') do set OffVer=%%G

-call :offchk%OffVer%

-exit /b

-

-:offchk

-set ls=0

-set ls2=0

-set ls3=0

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='Office%~1'%_zz6% %_zz3% LicenseStatus %_zz8%"

-for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set /a ls=%%A

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='Office%~3'%_zz6% %_zz3% LicenseStatus %_zz8%"

-if /i not "%~3"=="" for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set /a ls2=%%A

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='Office%~5'%_zz6% %_zz3% LicenseStatus %_zz8%"

-if /i not "%~5"=="" for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set /a ls3=%%A

-if "%ls3%"=="1" (

-echo Checking: %~6

-echo Product is Permanently Activated.

-exit /b

-)

-if "%ls2%"=="1" (

-echo Checking: %~4

-echo Product is Permanently Activated.

-exit /b

-)

-if "%ls%"=="1" (

-echo Checking: %~2

-echo Product is Permanently Activated.

-exit /b

-)

-call :insKey

-exit /b

-

-:offchk21

-if /i '%app%' EQU 'f3fb2d68-83dd-4c8b-8f09-08e0d950ac3b' exit /b

-if /i '%app%' EQU '76093b1b-7057-49d7-b970-638ebcbfd873' exit /b

-if /i '%app%' EQU 'a3b44174-2451-4cd6-b25f-66638bfb9046' exit /b

-if /i '%app%' EQU 'fbdb3e18-a8ef-4fb3-9183-dffd60bd0984' (

-call :offchk "21ProPlus2021VL_MAK_AE1" "Office ProPlus 2021" "21ProPlus2021VL_MAK_AE2"

-exit /b

-)

-if /i '%app%' EQU '080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3' (

-call :offchk "21Standard2021VL_MAK_AE" "Office Standard 2021"

-exit /b

-)

-if /i '%app%' EQU '76881159-155c-43e0-9db7-2d70a9a3a4ca' (

-call :offchk "21ProjectPro2021VL_MAK_AE1" "Project Pro 2021" "21ProjectPro2021VL_MAK_AE2"

-exit /b

-)

-if /i '%app%' EQU '6dd72704-f752-4b71-94c7-11cec6bfc355' (

-call :offchk "21ProjectStd2021VL_MAK_AE" "Project Standard 2021"

-exit /b

-)

-if /i '%app%' EQU 'fb61ac9a-1688-45d2-8f6b-0674dbffa33c' (

-call :offchk "21VisioPro2021VL_MAK_AE" "Visio Pro 2021"

-exit /b

-)

-if /i '%app%' EQU '72fce797-1884-48dd-a860-b2f6a5efd3ca' (

-call :offchk "21VisioStd2021VL_MAK_AE" "Visio Standard 2021"

-exit /b

-)

-call :insKey

-exit /b

-

-:offchk19

-if /i '%app%' EQU '0bc88885-718c-491d-921f-6f214349e79c' exit /b

-if /i '%app%' EQU 'fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9' exit /b

-if /i '%app%' EQU '500f6619-ef93-4b75-bcb4-82819998a3ca' exit /b

-if /i '%app%' EQU '85dd8b5f-eaa4-4af3-a628-cce9e77c9a03' (

-call :offchk "19ProPlus2019VL_MAK_AE" "Office ProPlus 2019"

-exit /b

-)

-if /i '%app%' EQU '6912a74b-a5fb-401a-bfdb-2e3ab46f4b02' (

-call :offchk "19Standard2019VL_MAK_AE" "Office Standard 2019"

-exit /b

-)

-if /i '%app%' EQU '2ca2bf3f-949e-446a-82c7-e25a15ec78c4' (

-call :offchk "19ProjectPro2019VL_MAK_AE" "Project Pro 2019"

-exit /b

-)

-if /i '%app%' EQU '1777f0e3-7392-4198-97ea-8ae4de6f6381' (

-call :offchk "19ProjectStd2019VL_MAK_AE" "Project Standard 2019"

-exit /b

-)

-if /i '%app%' EQU '5b5cf08f-b81a-431d-b080-3450d8620565' (

-call :offchk "19VisioPro2019VL_MAK_AE" "Visio Pro 2019"

-exit /b

-)

-if /i '%app%' EQU 'e06d7df3-aad0-419d-8dfb-0ac37e2bdf39' (

-call :offchk "19VisioStd2019VL_MAK_AE" "Visio Standard 2019"

-exit /b

-)

-call :insKey

-exit /b

-

-:offchk16

-if /i '%app%' EQU 'd450596f-894d-49e0-966a-fd39ed4c4c64' (

-call :offchk "16ProPlusVL_MAK" "Office ProPlus 2016"

-exit /b

-)

-if /i '%app%' EQU 'dedfa23d-6ed1-45a6-85dc-63cae0546de6' (

-call :offchk "16StandardVL_MAK" "Office Standard 2016"

-exit /b

-)

-if /i '%app%' EQU '4f414197-0fc2-4c01-b68a-86cbb9ac254c' (

-call :offchk "16ProjectProVL_MAK" "Project Pro 2016"

-exit /b

-)

-if /i '%app%' EQU 'da7ddabc-3fbe-4447-9e01-6ab7440b4cd4' (

-call :offchk "16ProjectStdVL_MAK" "Project Standard 2016"

-exit /b

-)

-if /i '%app%' EQU '6bf301c1-b94a-43e9-ba31-d494598c47fb' (

-call :offchk "16VisioProVL_MAK" "Visio Pro 2016"

-exit /b

-)

-if /i '%app%' EQU 'aa2a7821-1827-4c2c-8f1d-4513a34dda97' (

-call :offchk "16VisioStdVL_MAK" "Visio Standard 2016"

-exit /b

-)

-if /i '%app%' EQU '829b8110-0e6f-4349-bca4-42803577788d' (

-call :offchk "16ProjectProXC2RVL_MAKC2R" "Project Pro 2016 C2R"

-exit /b

-)

-if /i '%app%' EQU 'cbbaca45-556a-4416-ad03-bda598eaa7c8' (

-call :offchk "16ProjectStdXC2RVL_MAKC2R" "Project Standard 2016 C2R"

-exit /b

-)

-if /i '%app%' EQU 'b234abe3-0857-4f9c-b05a-4dc314f85557' (

-call :offchk "16VisioProXC2RVL_MAKC2R" "Visio Pro 2016 C2R"

-exit /b

-)

-if /i '%app%' EQU '361fe620-64f4-41b5-ba77-84f8e079b1f7' (

-call :offchk "16VisioStdXC2RVL_MAKC2R" "Visio Standard 2016 C2R"

-exit /b

-)

-call :insKey

-exit /b

-

-:offchk15

-if /i '%app%' EQU 'b322da9c-a2e2-4058-9e4e-f59a6970bd69' (

-call :offchk "ProPlusVL_MAK" "Office ProPlus 2013"

-exit /b

-)

-if /i '%app%' EQU 'b13afb38-cd79-4ae5-9f7f-eed058d750ca' (

-call :offchk "StandardVL_MAK" "Office Standard 2013"

-exit /b

-)

-if /i '%app%' EQU '4a5d124a-e620-44ba-b6ff-658961b33b9a' (

-call :offchk "ProjectProVL_MAK" "Project Pro 2013"

-exit /b

-)

-if /i '%app%' EQU '427a28d1-d17c-4abf-b717-32c780ba6f07' (

-call :offchk "ProjectStdVL_MAK" "Project Standard 2013"

-exit /b

-)

-if /i '%app%' EQU 'e13ac10e-75d0-4aff-a0cd-764982cf541c' (

-call :offchk "VisioProVL_MAK" "Visio Pro 2013"

-exit /b

-)

-if /i '%app%' EQU 'ac4efaf0-f81f-4f61-bdf7-ea32b02ab117' (

-call :offchk "VisioStdVL_MAK" "Visio Standard 2013"

-exit /b

-)

-call :insKey

-exit /b

-

-:offchk14

-if /i '%app%' EQU '6f327760-8c5c-417c-9b61-836a98287e0c' (

-call :offchk "ProPlus-MAK" "Office ProPlus 2010" "ProPlusAcad-MAK" "Office Professional Academic 2010"

-exit /b

-)

-if /i '%app%' EQU '9da2a678-fb6b-4e67-ab84-60dd6a9c819a' (

-call :offchk "Standard-MAK" "Office Standard 2010" "StandardAcad-MAK"  "Office Standard Academic 2010"

-exit /b

-)

-if /i '%app%' EQU 'ea509e87-07a1-4a45-9edc-eba5a39f36af' (

-call :offchk "SmallBusBasics-MAK" "Office Small Business Basics 2010"

-exit /b

-)

-if /i '%app%' EQU 'df133ff7-bf14-4f95-afe3-7b48e7e331ef' (

-call :offchk "ProjectPro-MAK" "Project Pro 2010"

-exit /b

-)

-if /i '%app%' EQU '5dc7bf61-5ec9-4996-9ccb-df806a2d0efe' (

-call :offchk "ProjectStd-MAK" "Project Standard 2010" "ProjectStd-MAK2" "Project Standard 2010"

-exit /b

-)

-if /i '%app%' EQU '92236105-bb67-494f-94c7-7f7a607929bd' (

-call :offchk "VisioPrem-MAK" "Visio Premium 2010" "VisioPro-MAK" "Visio Pro 2010"

-exit /b

-)

-if defined vPrem exit /b

-if /i '%app%' EQU 'e558389c-83c3-4b29-adfe-5e4d7f46c358' (

-call :offchk "VisioPro-MAK" "Visio Pro 2010" "VisioStd-MAK" "Visio Standard 2010"

-exit /b

-)

-if defined vProf exit /b

-if /i '%app%' EQU '9ed833ff-4f92-4f36-b370-8683a4f13275' (

-call :offchk "VisioStd-MAK" "Visio Standard 2010"

-exit /b

-)

-call :insKey

-exit /b

-

-:officeLoc

-set loc_off%1=0

-set _O%1MSI=0

-if %1 EQU 19 (

-if defined _C16R reg query %_C16R% /v ProductReleaseIds %_Nul2% | findstr 2019 %_Nul1% && set loc_off%1=1

-exit /b

-)

-if %1 EQU 21 (

-if defined _C16R reg query %_C16R% /v ProductReleaseIds %_Nul2% | findstr 2021 %_Nul1% && set loc_off%1=1

-exit /b

-)

-

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\%1.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" (

-set loc_off%1=1

-set _O%1MSI=1

-)

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\%1.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" (

-set loc_off%1=1

-set _O%1MSI=1

-)

-

-if %1 EQU 16 if defined _C16R (

-for /f "skip=2 tokens=2*" %%a in ('reg query %_C16R% /v ProductReleaseIds') do echo %%b> "!_temp!\c2rchk.txt"

-for %%a in (%LV16Ids%,ProjectProX,ProjectStdX,VisioProX,VisioStdX) do (

-  findstr /I /C:"%%aVolume" "!_temp!\c2rchk.txt" %_Nul1% && set loc_off%1=1

-  )

-for %%a in (%LR16Ids%) do (

-  findstr /I /C:"%%aRetail" "!_temp!\c2rchk.txt" %_Nul1% && set loc_off%1=1

-  )

-exit /b

-)

-

-if %1 EQU 15 if defined _C15R (

-set loc_off%1=1

-exit /b

-)

-

-if exist "%ProgramFiles%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1

-if not %xOS%==x86 if exist "%ProgramW6432%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1

-if not %xOS%==x86 if exist "%ProgramFiles(x86)%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1

-exit /b

-

-:insKey

-set S_OK=1

-echo.

-set "_key="

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"

-if %ESU_ADD% EQU 0 for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Installing Key: %%x

-if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Installing Key: %%x

-set ESU_ADD=0

-call :keys %app%

-if "%_key%"=="" (echo No associated KMS Client key found&exit /b)

-set "_qr=wmic path %sps% where Version='%slsv%' call InstallProductKey ProductKey="%_key%""

-if %WMI_VBS% NEQ 0 set "_qr=%_csp% %sps% "%_key%""

-%_qr% %_Nul3%

-set ERRORCODE=%ERRORLEVEL%

-if %ERRORCODE% NEQ 0 (

-cmd /c exit /b %ERRORCODE%

-echo Failed: 0x!=ExitCode!

-set S_OK=0

-exit /b

-)

-set "_qr=wmic path %sps% where Version='%slsv%' call RefreshLicenseStatus"

-if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%sps%.Version='%slsv%'" RefreshLicenseStatus"

-if %sps% EQU SoftwareLicensingService %_qr% %_Nul3%

-

-:activate

-set S_OK=1

-if %sps% EQU SoftwareLicensingService (

-if %_officespp% EQU 0 (reg delete "HKLM\%SPPk%\%_wApp%\%app%" /f %_Null%) else (reg delete "HKLM\%SPPk%\%_oApp%\%app%" /f %_Null%)

-) else (

-reg delete "HKLM\%OPPk%\%_oA14%\%app%" /f %_Null%

-reg delete "HKLM\%OPPk%\%_oApp%\%app%" /f %_Null%

-)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"

-if %W1nd0ws% EQU 0 if %_officespp% EQU 0 if %sps% EQU SoftwareLicensingService (

-reg add "HKLM\%SPPk%\%_wApp%\%app%" /f /v KeyManagementServiceName /t REG_SZ /d "127.0.0.2" %_Nul3%

-reg add "HKLM\%SPPk%\%_wApp%\%app%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%

-for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x

-echo Product is KMS 2038 Activated.

-set _keepkms38=1

-exit /b

-)

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"

-if %act_attempt% LSS 1 (

-if %ESU_ADD% EQU 0 for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Activating: %%x

-if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Activating: %%x

-)

-

-set ESU_ADD=0

-set "_qr=wmic path %spp% where ID='%app%' call Activate"

-if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%spp%.ID='%app%'" Activate"

-%_qr% %_Nul3%

-call set ERRORCODE=%ERRORLEVEL%

-if %ERRORCODE% EQU -1073418187 (

-echo Product Activation Failed: 0xC004F035

-if %OSType% EQU Win7 echo Windows 7 cannot be KMS-activated on this computer due to unqualified OEM BIOS.

-echo See Read Me for details.

-exit /b

-)

-if %ERRORCODE% EQU -1073417728 (

-echo Product Activation Failed: 0xC004F200

-echo Windows needs to rebuild the activation-related files.

-echo See KB2736303 for details.

-exit /b

-)

-if %ERRORCODE% NEQ 0 (

-if %sps% EQU SoftwareLicensingService (call :StopService sppsvc) else (call :StopService osppsvc)

-%_qr% %_Nul3%

-call set ERRORCODE=!ERRORLEVEL!

-)

-set gpr=0

-set gpr2=0

-set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% GracePeriodRemaining %_zz8%"

-for /f "tokens=2 delims==" %%x in ('%_qr%') do (set gpr=%%x&set /a "gpr2=(%%x+1440-1)/1440")

-if %ERRORCODE% EQU 0 if %gpr% EQU 0 (

-echo Product Activation succeeded, but Remaining Period failed to increase.

-if %OSType% EQU Win7 echo This could be related to the error described in KB4487266

-exit /b

-)

-set Act_OK=0

-if %gpr% EQU 43200 if %_officespp% EQU 0 if %winbuild% GEQ 9200 set Act_OK=1

-if %gpr% EQU 64800 set Act_OK=1

-if %gpr% GTR 259200 if %Win10Gov% EQU 1 set Act_OK=1

-if %gpr% EQU 259200 set Act_OK=1

-

-if %ERRORCODE% EQU 0 if %Act_OK% EQU 1 (

-call :_color %_Green% "Product Activation Successful"

-echo Remaining Period: %gpr2% days ^(%gpr% minutes^)

-set /a act_attempt=0

-exit /b

-)

-

-if not !server_num! gtr %max_servers% (

-if %act_attempt% LSS 4 (

-set /a act_attempt+=1

-call :getserv

-%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!"

-%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!"

-if %winbuild% GEQ 9200 (

-%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!"

-if defined notx86 (

-%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" /reg:32

-%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" /reg:32

-)

-)

-goto :activate

-)

-)

-

-cmd /c exit /b %ERRORCODE%

-if %ERRORCODE% NEQ 0 (

-call :_color %_Red% "Product Activation Failed: 0x!=ExitCode!"

-) else (

-call :_color %_Red% "Product Activation Failed"

-)

-echo Remaining Period: %gpr2% days ^(%gpr% minutes^)

-set S_OK=0

-set act_failed=1

-set /a act_attempt=0

-exit /b

-

-:StopService

-sc query %1 | find /i "STOPPED" %_Nul1% || net stop %1 /y %_Nul3%

-sc query %1 | find /i "STOPPED" %_Nul1% || sc stop %1 %_Nul3%

-goto :eof

-

-:UpdateOSPPEntry

-if /i %1 EQU osppsvc.exe (

-reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" %_Nul3%

-reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%

-)

-goto :eof

-

-:CheckFR

-

-set E_WMI=0

-for /f "skip=2 tokens=2*" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Services\WinMgmt /v Start %_Nul6%') do if /i %%b equ 0x4 set E_WMI=1

-set "_qr=%_zz1% Win32_ComputerSystem %_zz3% CreationClassName %_zz4%"

-%_qr% %_Nul2% | find /i "computersystem" %_Nul1%

-if %errorlevel% NEQ 0 set E_WMI=1

-set "_qr=%_zz1% SoftwareLicensingService %_zz3% Version %_zz4%"

-%_qr% %_Nul2% | find /i "." %_Nul1%

-if %errorlevel% NEQ 0 set E_WMI=1

-if %E_WMI% EQU 1 (

-echo Failed running WMI query check.

-echo.

-echo Verify that these services are working correctly:

-echo Windows Management Instrumentation [WinMgmt]

-echo Software Protection [sppsvc]

-echo.

-)

-

-goto :eof

-

-:C2RR2V

-set RunR2V=1

-set "_SLMGR=%SysPath%\slmgr.vbs"

-if %_Debug% EQU 0 (

-set "_cscript=cscript //Nologo //B"

-) else (

-set "_cscript=cscript //Nologo"

-)

-set _LTSC=0

-set "_tag="&set "_ons= 2016"

-sc query ClickToRunSvc %_Nul3%

-set error1=%errorlevel%

-sc query OfficeSvc %_Nul3%

-set error2=%errorlevel%

-if %error1% EQU 1060 if %error2% EQU 1060 (

-goto :%_fC2R%

-)

-set _Office16=0

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (

-  set _Office16=1

-)

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (

-  set _Office16=1

-)

-set _Office15=0

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (

-  set _Office15=1

-)

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (

-  set _Office15=1

-)

-if %_Office16% EQU 0 if %_Office15% EQU 0 (

-goto :%_fC2R%

-)

-

-:Reg16istry

-if %_Office16% EQU 0 goto :Reg15istry

-set "_InstallRoot="

-set "_ProductIds="

-set "_GUID="

-set "_Config="

-set "_PRIDs="

-set "_LicensesPath="

-set "_Integrator="

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do (set "_InstallRoot=%%b\root")

-if not "%_InstallRoot%"=="" (

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v PackageGUID" %_Nul6%') do (set "_GUID=%%b")

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_ProductIds=%%b")

-  set "_Config=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"

-  set "_PRIDs=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs"

-) else (

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do (set "_InstallRoot=%%b\root")

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v PackageGUID" %_Nul6%') do (set "_GUID=%%b")

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_ProductIds=%%b")

-  set "_Config=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration"

-  set "_PRIDs=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\ProductReleaseIDs"

-)

-set "_LicensesPath=%_InstallRoot%\Licenses16"

-set "_Integrator=%_InstallRoot%\integration\integrator.exe"

-for /f "skip=2 tokens=2*" %%a in ('"reg query %_PRIDs% /v ActiveConfiguration" %_Nul6%') do set "_PRIDs=%_PRIDs%\%%b"

-if "%_ProductIds%"=="" (

-if %_Office15% EQU 0 (goto :%_fC2R%) else (goto :Reg15istry)

-)

-if not exist "%_LicensesPath%\ProPlus*.xrm-ms" (

-if %_Office15% EQU 0 (goto :%_fC2R%) else (goto :Reg15istry)

-)

-if not exist "%_Integrator%" (

-if %_Office15% EQU 0 (goto :%_fC2R%) else (goto :Reg15istry)

-)

-if exist "%_LicensesPath%\Word2019VL_KMS_Client_AE*.xrm-ms" (set "_tag=2019"&set "_ons= 2019")

-if exist "%_LicensesPath%\Word2021VL_KMS_Client_AE*.xrm-ms" (set _LTSC=1)

-if %winbuild% LSS 10240 if !_LTSC! EQU 1 (set "_tag=2021"&set "_ons= 2021")

-if %_Office15% EQU 0 goto :CheckC2R

-

-:Reg15istry

-set "_Install15Root="

-set "_Product15Ids="

-set "_Con15fig="

-set "_PR15IDs="

-set "_OSPP15Ready="

-set "_Licenses15Path="

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do (set "_Install15Root=%%b\root")

-if not "%_Install15Root%"=="" (

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_Product15Ids=%%b")

-  set "_Con15fig=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds"

-  set "_PR15IDs=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\ProductReleaseIDs"

-  set "_OSPP15Ready=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration"

-) else (

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do (set "_Install15Root=%%b\root")

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_Product15Ids=%%b")

-  set "_Con15fig=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds"

-  set "_PR15IDs=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\ProductReleaseIDs"

-  set "_OSPP15Ready=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\Configuration"

-)

-set "_OSPP15ReadT=REG_SZ"

-if "%_Product15Ids%"=="" (

-reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && (

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid" %_Nul6%') do (set "_Product15Ids=%%b")

-  set "_Con15fig=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid"

-  set "_OSPP15Ready=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun"

-  set "_OSPP15ReadT=REG_DWORD"

-  )

-reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && (

-  for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid" %_Nul6%') do (set "_Product15Ids=%%b")

-  set "_Con15fig=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid"

-  set "_OSPP15Ready=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun"

-  set "_OSPP15ReadT=REG_DWORD"

-  )

-)

-set "_Licenses15Path=%_Install15Root%\Licenses"

-if exist "%ProgramFiles%\Microsoft Office\Office15\OSPP.VBS" (

-  set "_OSPP15VBS=%ProgramFiles%\Microsoft Office\Office15\OSPP.VBS"

-) else if exist "%ProgramW6432%\Microsoft Office\Office15\OSPP.VBS" (

-  set "_OSPP15VBS=%ProgramW6432%\Microsoft Office\Office15\OSPP.VBS"

-) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\OSPP.VBS" (

-  set "_OSPP15VBS=%ProgramFiles(x86)%\Microsoft Office\Office15\OSPP.VBS"

-)

-if "%_Product15Ids%"=="" (

-if %_Office16% EQU 0 (goto :%_fC2R%) else (goto :CheckC2R)

-)

-if not exist "%_Licenses15Path%\ProPlus*.xrm-ms" (

-if %_Office16% EQU 0 (goto :%_fC2R%) else (goto :CheckC2R)

-)

-if %winbuild% LSS 9200 if not exist "%_OSPP15VBS%" (

-if %_Office16% EQU 0 (goto :%_fC2R%) else (goto :CheckC2R)

-)

-

-:CheckC2R

-set _OMSI=0

-if %_Office16% EQU 0 (

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1

-)

-if %_Office15% EQU 0 (

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1

-)

-if %winbuild% GEQ 9200 (

-set _spp=SoftwareLicensingProduct

-set _sps=SoftwareLicensingService

-set "_vbsi=%_SLMGR% /ilc "

-) else (

-set _spp=OfficeSoftwareProtectionProduct

-set _sps=OfficeSoftwareProtectionService

-set _vbsi="!_OSPP15VBS!" /inslic:

-)

-set "_wmi="

-set "_qr=%_zz7% %_sps% %_zz3% Version %_zz8%"

-for /f "tokens=2 delims==" %%# in ('%_qr%') do set _wmi=%%#

-if "%_wmi%"=="" (

-goto :%_fC2R%

-)

-set _Identity=0

-set _vNext=0

-set sub_O365=0

-set sub_proj=0

-set sub_vis=0

-dir /b /s /a:-d "!_Local!\Microsoft\Office\Licenses\*1*" %_Nul3% && set _Identity=1

-dir /b /s /a:-d "!ProgramData!\Microsoft\Office\Licenses\*1*" %_Nul3% && set _Identity=1

-set kNext=HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext

-if %_Identity% EQU 1 reg query %kNext% /v MigrationToV5Done %_Nul2% | find /i "0x1" %_Nul1% && set _vNext=1

-if %_vNext% EQU 1 (

-reg query %kNext% | findstr /i /r ".*retail" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x2" %_Nul1% && (set sub_O365=1)

-reg query %kNext% | findstr /i /r ".*retail" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x3" %_Nul1% && (set sub_O365=1)

-reg query %kNext% | findstr /i /r ".*volume" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x2" %_Nul1% && (set sub_O365=1)

-reg query %kNext% | findstr /i /r ".*volume" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x3" %_Nul1% && (set sub_O365=1)

-reg query %kNext% | findstr /i /r "project.*" %_Nul2% | find /i "0x2" %_Nul1% && set sub_proj=1

-reg query %kNext% | findstr /i /r "project.*" %_Nul2% | find /i "0x3" %_Nul1% && set sub_proj=1

-reg query %kNext% | findstr /i /r "visio.*" %_Nul2% | find /i "0x2" %_Nul1% && set sub_vis=1

-reg query %kNext% | findstr /i /r "visio.*" %_Nul2% | find /i "0x3" %_Nul1% && set sub_vis=1

-)

-set _Retail=0

-set "_ocq=ApplicationID='%_oApp%' AND LicenseStatus='1' AND PartialProductKey is not NULL"

-if %WMI_VBS% EQU 0 wmic path %_spp% where (%_ocq%) get Description %_Nul2% |findstr /V /R "^$" >"!_temp!\crvRetail.txt"

-set "_qr=%_csq% %_spp% "%_ocq%" Description"

-if %WMI_VBS% NEQ 0 %_qr% %_Nul2% >"!_temp!\crvRetail.txt"

-find /i "RETAIL channel" "!_temp!\crvRetail.txt" %_Nul1% && set _Retail=1

-find /i "RETAIL(MAK) channel" "!_temp!\crvRetail.txt" %_Nul1% && set _Retail=1

-find /i "TIMEBASED_SUB channel" "!_temp!\crvRetail.txt" %_Nul1% && set _Retail=1

-set "_copp="

-if exist "%SysPath%\msvcr100.dll" (

-set _copp=1

-) else if exist "!_InstallRoot!\vfs\System\msvcr100.dll" (

-set _copp="!_InstallRoot!\vfs\System"

-) else if exist "!_Install15Root!\vfs\System\msvcr100.dll" (

-set _copp="!_Install15Root!\vfs\System"

-) else if exist "%SystemRoot%\SysWOW64\msvcr100.dll" (

-set _copp=1

-set xBit=x86

-) else if exist "!_InstallRoot!\vfs\SystemX86\msvcr100.dll" (

-set _copp="!_InstallRoot!\vfs\SystemX86"

-set xBit=x86

-) else if exist "!_Install15Root!\vfs\SystemX86\msvcr100.dll" (

-set _copp="!_Install15Root!\vfs\SystemX86"

-set xBit=x86

-)

-if not exist "!_work!\bin\cleanospp%xBit%.exe" (

-set "_copp="

-)

-if %_Identity% EQU 0 if %_Retail% EQU 0 if %_OMSI% EQU 0 if defined _copp (

-if "!_copp!"=="1" (

-%_Nul3% "!_work!\bin\cleanospp%xBit%.exe" -Licenses

-) else (

-pushd %_copp%

-%_Nul3% copy /y "!_work!\bin\cleanospp%xBit%.exe" cleanospp.exe

-%_Nul3% cleanospp.exe -Licenses

-%_Nul3% del /f /q cleanospp.exe

-popd

-  )

-)

-set _O16O365=0

-set _C16Msg=0

-set _C15Msg=0

-set "_qr=%_csq% %_spp% "%_ocq%" LicenseFamily"

-if %_Retail% EQU 1 if %WMI_VBS% EQU 0 wmic path %_spp% where (%_ocq%) get LicenseFamily %_Nul2% |findstr /V /R "^$" >"!_temp!\crvRetail.txt"

-if %_Retail% EQU 1 if %WMI_VBS% NEQ 0 %_qr% %_Nul2% >"!_temp!\crvRetail.txt"

-set "_qr=%_csq% %_spp% "ApplicationID='%_oApp%'" LicenseFamily"

-if %WMI_VBS% EQU 0 wmic path %_spp% where "ApplicationID='%_oApp%'" get LicenseFamily %_Nul2% |findstr /V /R "^$" >"!_temp!\crvVolume.txt" 2>&1

-if %WMI_VBS% NEQ 0 %_qr% %_Nul2% >"!_temp!\crvVolume.txt" 2>&1

-

-if %_Office16% EQU 0 goto :R15V

-

-set _O21Ids=ProPlus2021,ProjectPro2021,VisioPro2021,Standard2021,ProjectStd2021,VisioStd2021,Access2021,SkypeforBusiness2021

-set _O19Ids=ProPlus2019,ProjectPro2019,VisioPro2019,Standard2019,ProjectStd2019,VisioStd2019,Access2019,SkypeforBusiness2019

-set _O16Ids=ProjectPro,VisioPro,Standard,ProjectStd,VisioStd,Access,SkypeforBusiness

-set _A21Ids=Excel2021,Outlook2021,PowerPoint2021,Publisher2021,Word2021

-set _A19Ids=Excel2019,Outlook2019,PowerPoint2019,Publisher2019,Word2019

-set _A16Ids=Excel,Outlook,PowerPoint,Publisher,Word

-set _V21Ids=%_O21Ids%,%_A21Ids%

-set _V19Ids=%_O19Ids%,%_A19Ids%

-set _V16Ids=Mondo,%_O16Ids%,%_A16Ids%,OneNote

-set _R16Ids=%_V16Ids%,Professional,HomeBusiness,HomeStudent,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud

-set _RetIds=%_V21Ids%,Professional2021,HomeBusiness2021,HomeStudent2021,%_V19Ids%,Professional2019,HomeBusiness2019,HomeStudent2019,%_R16Ids%

-set _Suites=Mondo,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud,ProPlus,Standard,Professional,HomeBusiness,HomeStudent,ProPlus2019,Standard2019,Professional2019,HomeBusiness2019,HomeStudent2019,ProPlus2021,Standard2021,Professional2021,HomeBusiness2021,HomeStudent2021

-set _PrjSKU=ProjectPro,ProjectStd,ProjectPro2019,ProjectStd2019,ProjectPro2021,ProjectStd2021

-set _VisSKU=VisioPro,VisioStd,VisioPro2019,VisioStd2019,VisioPro2021,VisioStd2021

-

-echo %_ProductIds%>"!_temp!\crvProductIds.txt"

-for %%a in (%_RetIds%,ProPlus) do (

-set _%%a=0

-)

-for %%a in (%_RetIds%) do (

-findstr /I /C:"%%aRetail" "!_temp!\crvProductIds.txt" %_Nul1% && set _%%a=1

-)

-if !_LTSC! EQU 0 for %%a in (%_V21Ids%) do (

-set _%%a=0

-)

-if !_LTSC! EQU 1 for %%a in (%_V21Ids%) do (

-findstr /I /C:"%%aVolume" "!_temp!\crvProductIds.txt" %_Nul1% && (

-  find /i "Office21%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)

-  )

-)

-for %%a in (%_V19Ids%) do (

-findstr /I /C:"%%aVolume" "!_temp!\crvProductIds.txt" %_Nul1% && (

-  find /i "Office19%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)

-  )

-)

-for %%a in (%_V16Ids%) do (

-findstr /I /C:"%%aVolume" "!_temp!\crvProductIds.txt" %_Nul1% && (

-  find /i "Office16%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)

-  )

-)

-reg query %_PRIDs%\ProPlusRetail.16 %_Nul3% && (

-  find /i "Office16ProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)

-)

-reg query %_PRIDs%\ProPlusVolume.16 %_Nul3% && (

-  find /i "Office16ProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)

-)

-if %_Retail% EQU 1 for %%a in (%_RetIds%) do (

-findstr /I /C:"%%aRetail" "!_temp!\crvProductIds.txt" %_Nul1% && (

-  find /i "Office16%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aR_Sub" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aR_PIN" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aE5R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aEDUR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aCO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office16%%aXC2RVL_MAKC2R" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)

-  find /i "Office19%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)

-  find /i "Office19%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)

-  find /i "Office19%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)

-  find /i "Office19%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)

-  find /i "Office21%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)

-  find /i "Office21%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)

-  find /i "Office21%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)

-  find /i "Office21%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)

-  )

-)

-if %_Retail% EQU 1 reg query %_PRIDs%\ProPlusRetail.16 %_Nul3% && (

-  find /i "Office16ProPlusR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)

-  find /i "Office16ProPlusR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)

-  find /i "Office16ProPlusMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)

-  find /i "Office16ProPlusVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)

-)

-set "_qr=%_zz1% %_spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%'" %_zz3% LicenseFamily %_zz4%"

-find /i "Office16MondoVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (

-%_qr% %_Nul2% | find /i "O365" %_Nul1% && (

-  for %%a in (O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud) do set _%%a=0

-  )

-)

-if %sub_O365% EQU 1 (

-  for %%a in (%_Suites%) do set _%%a=0

-echo.

-echo Microsoft 365 product is activated with a subscription.

-)

-if %sub_proj% EQU 1 (

-  for %%a in (%_PrjSKU%) do set _%%a=0

-echo.

-echo Microsoft Project is activated with a subscription.

-)

-if %sub_vis% EQU 1 (

-  for %%a in (%_VisSKU%) do set _%%a=0

-echo.

-echo Microsoft Visio is activated with a subscription.

-)

-

-for %%a in (%_RetIds%,ProPlus) do if !_%%a! EQU 1 (

-set _C16Msg=1

-)

-if %_C16Msg% EQU 1 (

-echo.

-echo Converting Office C2R Retail-to-Volume:

-)

-if %_C16Msg% EQU 0 (if %_Office15% EQU 1 (goto :R15V) else (goto :GVLKC2R))

-

-if !_Mondo! EQU 1 (

-call :InsLic Mondo

-)

-if !_O365ProPlus! EQU 1 (

-echo O365ProPlus 2016 Suite ^<-^> Mondo 2016 Licenses

-call :InsLic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK

-if !_Mondo! EQU 0 call :InsLic Mondo

-)

-if !_O365Business! EQU 1 if !_O365ProPlus! EQU 0 (

-set _O365ProPlus=1

-echo O365Business 2016 Suite ^<-^> Mondo 2016 Licenses

-call :InsLic O365Business NCHRJ-3VPGW-X73DM-6B36K-3RQ6B

-if !_Mondo! EQU 0 call :InsLic Mondo

-)

-if !_O365SmallBusPrem! EQU 1 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (

-set _O365ProPlus=1

-echo O365SmallBusPrem 2016 Suite ^<-^> Mondo 2016 Licenses

-call :InsLic O365SmallBusPrem 3FBRX-NFP7C-6JWVK-F2YGK-H499R

-if !_Mondo! EQU 0 call :InsLic Mondo

-)

-if !_O365HomePrem! EQU 1 if !_O365SmallBusPrem! EQU 0 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (

-set _O365ProPlus=1

-echo O365HomePrem 2016 Suite ^<-^> Mondo 2016 Licenses

-call :InsLic O365HomePrem 9FNY8-PWWTY-8RY4F-GJMTV-KHGM9

-if !_Mondo! EQU 0 call :InsLic Mondo

-)

-if !_O365EduCloud! EQU 1 if !_O365HomePrem! EQU 0 if !_O365SmallBusPrem! EQU 0 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (

-set _O365ProPlus=1

-echo O365EduCloud 2016 Suite ^<-^> Mondo 2016 Licenses

-call :InsLic O365EduCloud 8843N-BCXXD-Q84H8-R4Q37-T3CPT

-if !_Mondo! EQU 0 call :InsLic Mondo

-)

-if !_O365ProPlus! EQU 1 set _O16O365=1

-if !_Mondo! EQU 1 if !_O365ProPlus! EQU 0 (

-echo Mondo 2016 Suite

-call :InsLic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK

-if %_Office15% EQU 1 (goto :R15V) else (goto :GVLKC2R)

-)

-if !_ProPlus2021! EQU 1 if !_O365ProPlus! EQU 0 (

-echo ProPlus 2021 Suite

-call :InsLic ProPlus2021

-)

-if !_ProPlus2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 (

-echo ProPlus 2019 Suite -^> ProPlus%_ons% Licenses

-call :InsLic ProPlus%_tag%

-)

-if !_ProPlus! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 (

-echo ProPlus 2016 Suite -^> ProPlus%_ons% Licenses

-call :InsLic ProPlus%_tag%

-)

-if !_Professional2021! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 (

-echo Professional 2021 Suite -^> ProPlus 2021 Licenses

-call :InsLic ProPlus2021

-)

-if !_Professional2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 (

-echo Professional 2019 Suite -^> ProPlus%_ons% Licenses

-call :InsLic ProPlus%_tag%

-)

-if !_Professional! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 (

-echo Professional 2016 Suite -^> ProPlus%_ons% Licenses

-call :InsLic ProPlus%_tag%

-)

-if !_Standard2021! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 (

-echo Standard 2021 Suite

-call :InsLic Standard2021

-)

-if !_Standard2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 (

-echo Standard 2019 Suite -^> Standard%_ons% Licenses

-call :InsLic Standard%_tag%

-)

-if !_Standard! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 (

-echo Standard 2016 Suite -^> Standard%_ons% Licenses

-call :InsLic Standard%_tag%

-)

-for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a2021! EQU 1 (

-  echo %%a 2021 SKU

-  call :InsLic %%a2021

-)

-for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a2019! EQU 1 (

-if !_%%a2021! EQU 0 (

-  echo %%a 2019 SKU -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a! EQU 1 (

-if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (

-  echo %%a 2016 SKU -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (HomeBusiness,HomeStudent) do if !_%%a2021! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 (

-  set _Standard2021=1

-  echo %%a 2021 Suite -^> Standard 2021 Licenses

-  call :InsLic Standard2021

-  )

-)

-for %%a in (HomeBusiness,HomeStudent) do if !_%%a2019! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 (

-  set _Standard2019=1

-  echo %%a 2019 Suite -^> Standard%_ons% Licenses

-  call :InsLic Standard%_tag%

-  )

-)

-for %%a in (HomeBusiness,HomeStudent) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (

-  set _Standard=1

-  echo %%a 2016 Suite -^> Standard%_ons% Licenses

-  call :InsLic Standard%_tag%

-  )

-)

-for %%a in (%_A21Ids%,OneNote) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 (

-  echo %%a App

-  call :InsLic %%a

-  )

-)

-for %%a in (%_A16Ids%) do if !_%%a2019! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 (

-  echo %%a 2019 App -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (%_A16Ids%) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (

-  echo %%a 2016 App -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (Access) do if !_%%a2021! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 (

-  echo %%a 2021 App

-  call :InsLic %%a2021

-  )

-)

-for %%a in (Access) do if !_%%a2019! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_%%a2021! EQU 0 (

-  echo %%a 2019 App -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (Access) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (

-  echo %%a 2016 App -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (SkypeforBusiness) do if !_%%a2021! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 (

-  echo %%a 2021 App

-  call :InsLic %%a2021

-  )

-)

-for %%a in (SkypeforBusiness) do if !_%%a2019! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_%%a2021! EQU 0 (

-  echo %%a 2019 App -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-for %%a in (SkypeforBusiness) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (

-  echo %%a 2016 App -^> %%a%_ons% Licenses

-  call :InsLic %%a%_tag%

-  )

-)

-if %_Office15% EQU 1 (goto :R15V) else (goto :GVLKC2R)

-

-:R15V

-for %%# in ("!_Licenses15Path!\client-issuance-*.xrm-ms") do (

-%_cscript% %_vbsi%"!_Licenses15Path!\%%~nx#"

-)

-%_cscript% %_vbsi%"!_Licenses15Path!\pkeyconfig-office.xrm-ms"

-

-set _O15Ids=Standard,ProjectPro,VisioPro,ProjectStd,VisioStd,Access,Lync

-set _A15Ids=Excel,Groove,InfoPath,OneNote,Outlook,PowerPoint,Publisher,Word

-set _R15Ids=SPD,Mondo,%_O15Ids%,%_A15Ids%,Professional,HomeBusiness,HomeStudent,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem

-set _V15Ids=Mondo,%_O15Ids%,%_A15Ids%

-

-echo %_Product15Ids%>"!_temp!\crvProduct15s.txt"

-for %%a in (%_R15Ids%,ProPlus) do (

-set _%%a=0

-)

-for %%a in (%_R15Ids%) do (

-findstr /I /C:"%%aRetail" "!_temp!\crvProduct15s.txt" %_Nul1% && set _%%a=1

-)

-for %%a in (%_V15Ids%) do (

-findstr /I /C:"%%aVolume" "!_temp!\crvProduct15s.txt" %_Nul1% && (

-  find /i "Office%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)

-  )

-)

-reg query %_PR15IDs%\Active\ProPlusRetail\x-none %_Nul3% && (

-  find /i "OfficeProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)

-)

-reg query %_PR15IDs%\Active\ProPlusVolume\x-none %_Nul3% && (

-  find /i "OfficeProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)

-)

-if %_Retail% EQU 1 for %%a in (%_R15Ids%) do (

-findstr /I /C:"%%aRetail" "!_temp!\crvProduct15s.txt" %_Nul1% && (

-  find /i "Office%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aR_Sub" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aR_PIN" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aCO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  find /i "Office%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)

-  )

-)

-if %_Retail% EQU 1 reg query %_PR15IDs%\Active\ProPlusRetail\x-none %_Nul3% && (

-  find /i "OfficeProPlusR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)

-  find /i "OfficeProPlusR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)

-  find /i "OfficeProPlusMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)

-  find /i "OfficeProPlusVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)

-)

-set "_qr=%_zz1% %_spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%'" %_zz3% LicenseFamily %_zz4%"

-find /i "OfficeMondoVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (

-%_qr% %_Nul2% | find /i "O365" %_Nul1% && (

-  for %%a in (O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem) do set _%%a=0

-  )

-)

-

-for %%a in (%_R15Ids%,ProPlus) do if !_%%a! EQU 1 (

-set _C15Msg=1

-)

-if %_C15Msg% EQU 1 if %_C16Msg% EQU 0 (

-echo.

-echo Converting Office C2R Retail-to-Volume:

-)

-if %_C15Msg% EQU 0 goto :GVLKC2R

-

-if !_Mondo! EQU 1 (

-call :Ins15Lic Mondo

-)

-if !_O365ProPlus! EQU 1 if !_O16O365! EQU 0 (

-echo O365ProPlus 2013 Suite ^<-^> Mondo 2013 Licenses

-call :Ins15Lic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK

-if !_Mondo! EQU 0 call :Ins15Lic Mondo

-)

-if !_O365SmallBusPrem! EQU 1 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (

-set _O365ProPlus=1

-echo O365SmallBusPrem 2013 Suite ^<-^> Mondo 2013 Licenses

-call :Ins15Lic O365SmallBusPrem 3FBRX-NFP7C-6JWVK-F2YGK-H499R

-if !_Mondo! EQU 0 call :Ins15Lic Mondo

-)

-if !_O365HomePrem! EQU 1 if !_O365SmallBusPrem! EQU 0 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (

-set _O365ProPlus=1

-echo O365HomePrem 2013 Suite ^<-^> Mondo 2013 Licenses

-call :Ins15Lic O365HomePrem 9FNY8-PWWTY-8RY4F-GJMTV-KHGM9

-if !_Mondo! EQU 0 call :Ins15Lic Mondo

-)

-if !_O365Business! EQU 1 if !_O365HomePrem! EQU 0 if !_O365SmallBusPrem! EQU 0 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (

-set _O365ProPlus=1

-echo O365Business 2013 Suite ^<-^> Mondo 2013 Licenses

-call :Ins15Lic O365Business MCPBN-CPY7X-3PK9R-P6GTT-H8P8Y

-if !_Mondo! EQU 0 call :Ins15Lic Mondo

-)

-if !_Mondo! EQU 1 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (

-echo Mondo 2013 Suite

-call :Ins15Lic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK

-goto :GVLKC2R

-)

-if !_SPD! EQU 1 if !_Mondo! EQU 0 if !_O365ProPlus! EQU 0 (

-echo SharePoint Designer 2013 App -^> Mondo 2013 Licenses

-call :Ins15Lic Mondo

-goto :GVLKC2R

-)

-if !_ProPlus! EQU 1 if !_O365ProPlus! EQU 0 (

-echo ProPlus 2013 Suite

-call :Ins15Lic ProPlus

-)

-if !_Professional! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 (

-echo Professional 2013 Suite -^> ProPlus 2013 Licenses

-call :Ins15Lic ProPlus

-)

-if !_Standard! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 (

-echo Standard 2013 Suite

-call :Ins15Lic Standard

-)

-for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a! EQU 1 (

-echo %%a 2013 SKU

-call :Ins15Lic %%a

-)

-for %%a in (HomeBusiness,HomeStudent) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 if !_Standard! EQU 0 (

-  set _Standard=1

-  echo %%a 2013 Suite -^> Standard 2013 Licenses

-  call :Ins15Lic Standard

-  )

-)

-for %%a in (%_A15Ids%) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 if !_Standard! EQU 0 (

-  echo %%a 2013 App

-  call :Ins15Lic %%a

-  )

-)

-for %%a in (Access) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 (

-  echo %%a 2013 App

-  call :Ins15Lic %%a

-  )

-)

-for %%a in (Lync) do if !_%%a! EQU 1 (

-if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 (

-  echo SkypeforBusiness 2015 App

-  call :Ins15Lic %%a

-  )

-)

-goto :GVLKC2R

-

-:InsLic

-set "_ID=%1Volume"

-set "_pkey="

-if not "%2"=="" (

-set "_ID=%1Retail"

-set "_pkey=PidKey=%2"

-)

-reg delete %_Config% /f /v %_ID%.OSPPReady %_Nul3%

-"!_Integrator!" /I /License PRIDName=%_ID%.16 %_pkey% PackageGUID="%_GUID%" PackageRoot="!_InstallRoot!" %_Nul1%

-reg add %_Config% /f /v %_ID%.OSPPReady /t REG_SZ /d 1 %_Nul1%

-reg query %_Config% /v ProductReleaseIds | findstr /I "%_ID%" %_Nul1%

-if %errorlevel% NEQ 0 (

-for /f "skip=2 tokens=2*" %%a in ('reg query %_Config% /v ProductReleaseIds') do reg add %_Config% /v ProductReleaseIds /t REG_SZ /d "%%b,%_ID%" /f %_Nul1%

-)

-exit /b

-

-:Ins15Lic

-set "_ID=%1Volume"

-set "_patt=%1VL_"

-set "_pkey="

-if not "%2"=="" (

-set "_ID=%1Retail"

-set "_patt=%1R_"

-set "_pkey=%2"

-)

-reg delete %_OSPP15Ready% /f /v %_ID%.OSPPReady %_Nul3%

-for %%# in ("!_Licenses15Path!\%_patt%*.xrm-ms") do (

-%_cscript% %_vbsi%"!_Licenses15Path!\%%~nx#"

-)

-set "_qr=wmic path %_sps% where Version='%_wmi%' call InstallProductKey ProductKey="%_pkey%""

-if %WMI_VBS% NEQ 0 set "_qr=%_csp% %_sps% "%_pkey%""

-if defined _pkey %_qr% %_Nul3%

-reg add %_OSPP15Ready% /f /v %_ID%.OSPPReady /t %_OSPP15ReadT% /d 1 %_Nul1%

-reg query %_Con15fig% %_Nul2% | findstr /I "%_ID%" %_Nul1%

-if %errorlevel% NEQ 0 (

-for /f "skip=2 tokens=2*" %%a in ('reg query %_Con15fig% %_Nul6%') do reg add %_Con15fig% /t REG_SZ /d "%%b,%_ID%" /f %_Nul1%

-)

-exit /b

-

-:GVLKC2R

-if %_Office16% EQU 1 (

-for %%a in (%_RetIds%,ProPlus) do set "_%%a="

-)

-if %_Office15% EQU 1 (

-for %%a in (%_R15Ids%,ProPlus) do set "_%%a="

-)

-set "_qr=wmic path %_sps% where version='%_wmi%' call RefreshLicenseStatus"

-if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%_sps%.Version='%_wmi%'" RefreshLicenseStatus"

-if %winbuild% GEQ 9200 %_qr% %_Nul3%

-if exist "%SysPath%\spp\store_test\2.0\tokens.dat" if defined _copp (

-%_cscript% %_SLMGR% /rilc

-)

-goto :%_sC2R%

-

-:keys

-if "%~1"=="" exit /b

-goto :%1 %_Nul2%

-

-:: Windows 11 [Co]

-:ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69

-set "_key=37D7F-N49CB-WQR8W-TBJ73-FM8RX" &:: SE {Cloud}

-exit /b

-

-:d30136fc-cb4b-416e-a23d-87207abc44a9

-set "_key=6XN7V-PCBDC-BDBRH-8DQY7-G6R44" &:: SE N {Cloud N}

-exit /b

-

-:: Windows 10 [RS5]

-:32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee

-set "_key=M7XTQ-FN8P6-TTKYV-9D4CC-J462D" &:: Enterprise LTSC 2019

-exit /b

-

-:7103a333-b8c8-49cc-93ce-d37c09687f92

-set "_key=92NFX-8DJQP-P6BBQ-THF9C-7CG2H" &:: Enterprise LTSC 2019 N

-exit /b

-

-:ec868e65-fadf-4759-b23e-93fe37f2cc29

-set "_key=CPWHC-NT2C7-VYW78-DHDB2-PG3GK" &:: Enterprise for Virtual Desktops

-exit /b

-

-:0df4f814-3f57-4b8b-9a9d-fddadcd69fac

-set "_key=NBTWJ-3DR69-3C4V8-C26MC-GQ9M6" &:: Lean

-exit /b

-

-:: Windows 10 [RS3]

-:82bbc092-bc50-4e16-8e18-b74fc486aec3

-set "_key=NRG8B-VKK3Q-CXVCJ-9G2XF-6Q84J" &:: Pro Workstation

-exit /b

-

-:4b1571d3-bafb-4b40-8087-a961be2caf65

-set "_key=9FNHH-K3HBT-3W4TD-6383H-6XYWF" &:: Pro Workstation N

-exit /b

-

-:e4db50ea-bda1-4566-b047-0ca50abc6f07

-set "_key=7NBT4-WGBQX-MP4H7-QXFF8-YP3KX" &:: Enterprise Remote Server

-exit /b

-

-:: Windows 10 [RS2]

-:e0b2d383-d112-413f-8a80-97f373a5820c

-set "_key=YYVX9-NTFWV-6MDM3-9PT4T-4M68B" &:: Enterprise G

-exit /b

-

-:e38454fb-41a4-4f59-a5dc-25080e354730

-set "_key=44RPN-FTY23-9VTTB-MP9BX-T84FV" &:: Enterprise G N

-exit /b

-

-:: Windows 10 [RS1]

-:2d5a5a60-3040-48bf-beb0-fcd770c20ce0

-set "_key=DCPHK-NFMTC-H88MJ-PFHPY-QJ4BJ" &:: Enterprise 2016 LTSB

-exit /b

-

-:9f776d83-7156-45b2-8a5c-359b9c9f22a3

-set "_key=QFFDN-GRT3P-VKWWX-X7T3R-8B639" &:: Enterprise 2016 LTSB N

-exit /b

-

-:3f1afc82-f8ac-4f6c-8005-1d233e606eee

-set "_key=6TP4R-GNPTD-KYYHQ-7B7DP-J447Y" &:: Pro Education

-exit /b

-

-:5300b18c-2e33-4dc2-8291-47ffcec746dd

-set "_key=YVWGF-BXNMC-HTQYQ-CPQ99-66QFC" &:: Pro Education N

-exit /b

-

-:: Windows 10 [TH]

-:58e97c99-f377-4ef1-81d5-4ad5522b5fd8

-set "_key=TX9XD-98N7V-6WMQ6-BX7FG-H8Q99" &:: Home

-exit /b

-

-:7b9e1751-a8da-4f75-9560-5fadfe3d8e38

-set "_key=3KHY7-WNT83-DGQKR-F7HPR-844BM" &:: Home N

-exit /b

-

-:cd918a57-a41b-4c82-8dce-1a538e221a83

-set "_key=7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH" &:: Home Single Language

-exit /b

-

-:a9107544-f4a0-4053-a96a-1479abdef912

-set "_key=PVMJN-6DFY6-9CCP6-7BKTT-D3WVR" &:: Home China

-exit /b

-

-:2de67392-b7a7-462a-b1ca-108dd189f588

-set "_key=W269N-WFGWX-YVC9B-4J6C9-T83GX" &:: Pro

-exit /b

-

-:a80b5abf-76ad-428b-b05d-a47d2dffeebf

-set "_key=MH37W-N47XK-V7XM9-C7227-GCQG9" &:: Pro N

-exit /b

-

-:e0c42288-980c-4788-a014-c080d2e1926e

-set "_key=NW6C2-QMPVW-D7KKK-3GKT6-VCFB2" &:: Education

-exit /b

-

-:3c102355-d027-42c6-ad23-2e7ef8a02585

-set "_key=2WH4N-8QGBV-H22JP-CT43Q-MDWWJ" &:: Education N

-exit /b

-

-:73111121-5638-40f6-bc11-f1d7b0d64300

-set "_key=NPPR9-FWDCX-D2C8J-H872K-2YT43" &:: Enterprise

-exit /b

-

-:e272e3e2-732f-4c65-a8f0-484747d0d947

-set "_key=DPH2V-TTNVB-4X9Q3-TJR4H-KHJW4" &:: Enterprise N

-exit /b

-

-:7b51a46c-0c04-4e8f-9af4-8496cca90d5e

-set "_key=WNMTR-4C88C-JK8YV-HQ7T2-76DF9" &:: Enterprise 2015 LTSB

-exit /b

-

-:87b838b7-41b6-4590-8318-5797951d8529

-set "_key=2F77B-TNFGY-69QQF-B8YKP-D69TJ" &:: Enterprise 2015 LTSB N

-exit /b

-

-:: Windows Server 2022 [Fe]

-:9bd77860-9b31-4b7b-96ad-2564017315bf

-set "_key=VDYBN-27WPP-V4HQT-9VMD4-VMK7H" &:: Standard

-exit /b

-

-:ef6cfc9f-8c5d-44ac-9aad-de6a2ea0ae03

-set "_key=WX4NM-KYWYW-QJJR4-XV3QB-6VM33" &:: Datacenter

-exit /b

-

-:8c8f0ad3-9a43-4e05-b840-93b8d1475cbc

-set "_key=6N379-GGTMK-23C6M-XVVTC-CKFRQ" &:: Azure Core

-exit /b

-

-:f5e9429c-f50b-4b98-b15c-ef92eb5cff39

-set "_key=67KN8-4FYJW-2487Q-MQ2J7-4C4RG" &:: Standard ACor

-exit /b

-

-:39e69c41-42b4-4a0a-abad-8e3c10a797cc

-set "_key=QFND9-D3Y9C-J3KKY-6RPVP-2DPYV" &:: Datacenter ACor

-exit /b

-

-:: Windows Server 2019 [RS5]

-:de32eafd-aaee-4662-9444-c1befb41bde2

-set "_key=N69G4-B89J2-4G8F4-WWYCC-J464C" &:: Standard

-exit /b

-

-:34e1ae55-27f8-4950-8877-7a03be5fb181

-set "_key=WMDGN-G9PQG-XVVXX-R3X43-63DFG" &:: Datacenter

-exit /b

-

-:a99cc1f0-7719-4306-9645-294102fbff95

-set "_key=FDNH6-VW9RW-BXPJ7-4XTYG-239TB" &:: Azure Core

-exit /b

-

-:73e3957c-fc0c-400d-9184-5f7b6f2eb409

-set "_key=N2KJX-J94YW-TQVFB-DG9YT-724CC" &:: Standard ACor

-exit /b

-

-:90c362e5-0da1-4bfd-b53b-b87d309ade43

-set "_key=6NMRW-2C8FM-D24W7-TQWMY-CWH2D" &:: Datacenter ACor

-exit /b

-

-:034d3cbb-5d4b-4245-b3f8-f84571314078

-set "_key=WVDHN-86M7X-466P6-VHXV7-YY726" &:: Essentials

-exit /b

-

-:8de8eb62-bbe0-40ac-ac17-f75595071ea3

-set "_key=GRFBW-QNDC4-6QBHG-CCK3B-2PR88" &:: ServerARM64

-exit /b

-

-:19b5e0fb-4431-46bc-bac1-2f1873e4ae73

-set "_key=NTBV8-9K7Q8-V27C6-M2BTV-KHMXV" &:: Azure Datacenter - ServerTurbine

-exit /b

-

-:: Windows Server 2016 [RS4]

-:43d9af6e-5e86-4be8-a797-d072a046896c

-set "_key=K9FYF-G6NCK-73M32-XMVPY-F9DRR" &:: ServerARM64

-exit /b

-

-:: Windows Server 2016 [RS3]

-:61c5ef22-f14f-4553-a824-c4b31e84b100

-set "_key=PTXN8-JFHJM-4WC78-MPCBR-9W4KR" &:: Standard ACor

-exit /b

-

-:e49c08e7-da82-42f8-bde2-b570fbcae76c

-set "_key=2HXDN-KRXHB-GPYC7-YCKFJ-7FVDG" &:: Datacenter ACor

-exit /b

-

-:: Windows Server 2016 [RS1]

-:8c1c5410-9f39-4805-8c9d-63a07706358f

-set "_key=WC2BQ-8NRM3-FDDYY-2BFGV-KHKQY" &:: Standard

-exit /b

-

-:21c56779-b449-4d20-adfc-eece0e1ad74b

-set "_key=CB7KF-BWN84-R7R2Y-793K2-8XDDG" &:: Datacenter

-exit /b

-

-:3dbf341b-5f6c-4fa7-b936-699dce9e263f

-set "_key=VP34G-4NPPG-79JTQ-864T4-R3MQX" &:: Azure Core

-exit /b

-

-:2b5a1b0f-a5ab-4c54-ac2f-a6d94824a283

-set "_key=JCKRF-N37P4-C2D82-9YXRT-4M63B" &:: Essentials

-exit /b

-

-:7b4433f4-b1e7-4788-895a-c45378d38253

-set "_key=QN4C6-GBJD2-FB422-GHWJK-GJG2R" &:: Cloud Storage

-exit /b

-

-:: Windows 8.1

-:fe1c3238-432a-43a1-8e25-97e7d1ef10f3

-set "_key=M9Q9P-WNJJT-6PXPY-DWX8H-6XWKK" &:: Core

-exit /b

-

-:78558a64-dc19-43fe-a0d0-8075b2a370a3

-set "_key=7B9N3-D94CG-YTVHR-QBPX3-RJP64" &:: Core N

-exit /b

-

-:c72c6a1d-f252-4e7e-bdd1-3fca342acb35

-set "_key=BB6NG-PQ82V-VRDPW-8XVD2-V8P66" &:: Core Single Language

-exit /b

-

-:db78b74f-ef1c-4892-abfe-1e66b8231df6

-set "_key=NCTT7-2RGK8-WMHRF-RY7YQ-JTXG3" &:: Core China

-exit /b

-

-:ffee456a-cd87-4390-8e07-16146c672fd0

-set "_key=XYTND-K6QKT-K2MRH-66RTM-43JKP" &:: Core ARM

-exit /b

-

-:c06b6981-d7fd-4a35-b7b4-054742b7af67

-set "_key=GCRJD-8NW9H-F2CDX-CCM8D-9D6T9" &:: Pro

-exit /b

-

-:7476d79f-8e48-49b4-ab63-4d0b813a16e4

-set "_key=HMCNV-VVBFX-7HMBH-CTY9B-B4FXY" &:: Pro N

-exit /b

-

-:096ce63d-4fac-48a9-82a9-61ae9e800e5f

-set "_key=789NJ-TQK6T-6XTH8-J39CJ-J8D3P" &:: Pro with Media Center

-exit /b

-

-:81671aaf-79d1-4eb1-b004-8cbbe173afea

-set "_key=MHF9N-XY6XB-WVXMC-BTDCT-MKKG7" &:: Enterprise

-exit /b

-

-:113e705c-fa49-48a4-beea-7dd879b46b14

-set "_key=TT4HM-HN7YT-62K67-RGRQJ-JFFXW" &:: Enterprise N

-exit /b

-

-:0ab82d54-47f4-4acb-818c-cc5bf0ecb649

-set "_key=NMMPB-38DD4-R2823-62W8D-VXKJB" &:: Embedded Industry Pro

-exit /b

-

-:cd4e2d9f-5059-4a50-a92d-05d5bb1267c7

-set "_key=FNFKF-PWTVT-9RC8H-32HB2-JB34X" &:: Embedded Industry Enterprise

-exit /b

-

-:f7e88590-dfc7-4c78-bccb-6f3865b99d1a

-set "_key=VHXM3-NR6FT-RY6RT-CK882-KW2CJ" &:: Embedded Industry Automotive

-exit /b

-

-:e9942b32-2e55-4197-b0bd-5ff58cba8860

-set "_key=3PY8R-QHNP9-W7XQD-G6DPH-3J2C9" &:: with Bing

-exit /b

-

-:c6ddecd6-2354-4c19-909b-306a3058484e

-set "_key=Q6HTR-N24GM-PMJFP-69CD8-2GXKR" &:: with Bing N

-exit /b

-

-:b8f5e3a3-ed33-4608-81e1-37d6c9dcfd9c

-set "_key=KF37N-VDV38-GRRTV-XH8X6-6F3BB" &:: with Bing Single Language

-exit /b

-

-:ba998212-460a-44db-bfb5-71bf09d1c68b

-set "_key=R962J-37N87-9VVK2-WJ74P-XTMHR" &:: with Bing China

-exit /b

-

-:e58d87b5-8126-4580-80fb-861b22f79296

-set "_key=MX3RK-9HNGX-K3QKC-6PJ3F-W8D7B" &:: Pro for Students

-exit /b

-

-:cab491c7-a918-4f60-b502-dab75e334f40

-set "_key=TNFGH-2R6PB-8XM3K-QYHX2-J4296" &:: Pro for Students N

-exit /b

-

-:: Windows Server 2012 R2

-:b3ca044e-a358-4d68-9883-aaa2941aca99

-set "_key=D2N9P-3P6X9-2R39C-7RTCD-MDVJX" &:: Standard

-exit /b

-

-:00091344-1ea4-4f37-b789-01750ba6988c

-set "_key=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9" &:: Datacenter

-exit /b

-

-:21db6ba4-9a7b-4a14-9e29-64a60c59301d

-set "_key=KNC87-3J2TX-XB4WP-VCPJV-M4FWM" &:: Essentials

-exit /b

-

-:b743a2be-68d4-4dd3-af32-92425b7bb623

-set "_key=3NPTF-33KPT-GGBPR-YX76B-39KDD" &:: Cloud Storage

-exit /b

-

-:: Windows 8

-:c04ed6bf-55c8-4b47-9f8e-5a1f31ceee60

-set "_key=BN3D2-R7TKB-3YPBD-8DRP2-27GG4" &:: Core

-exit /b

-

-:197390a0-65f6-4a95-bdc4-55d58a3b0253

-set "_key=8N2M2-HWPGY-7PGT9-HGDD8-GVGGY" &:: Core N

-exit /b

-

-:8860fcd4-a77b-4a20-9045-a150ff11d609

-set "_key=2WN2H-YGCQR-KFX6K-CD6TF-84YXQ" &:: Core Single Language

-exit /b

-

-:9d5584a2-2d85-419a-982c-a00888bb9ddf

-set "_key=4K36P-JN4VD-GDC6V-KDT89-DYFKP" &:: Core China

-exit /b

-

-:af35d7b7-5035-4b63-8972-f0b747b9f4dc

-set "_key=DXHJF-N9KQX-MFPVR-GHGQK-Y7RKV" &:: Core ARM

-exit /b

-

-:a98bcd6d-5343-4603-8afe-5908e4611112

-set "_key=NG4HW-VH26C-733KW-K6F98-J8CK4" &:: Pro

-exit /b

-

-:ebf245c1-29a8-4daf-9cb1-38dfc608a8c8

-set "_key=XCVCF-2NXM9-723PB-MHCB7-2RYQQ" &:: Pro N

-exit /b

-

-:a00018a3-f20f-4632-bf7c-8daa5351c914

-set "_key=GNBB8-YVD74-QJHX6-27H4K-8QHDG" &:: Pro with Media Center

-exit /b

-

-:458e1bec-837a-45f6-b9d5-925ed5d299de

-set "_key=32JNW-9KQ84-P47T8-D8GGY-CWCK7" &:: Enterprise

-exit /b

-

-:e14997e7-800a-4cf7-ad10-de4b45b578db

-set "_key=JMNMF-RHW7P-DMY6X-RF3DR-X2BQT" &:: Enterprise N

-exit /b

-

-:10018baf-ce21-4060-80bd-47fe74ed4dab

-set "_key=RYXVT-BNQG7-VD29F-DBMRY-HT73M" &:: Embedded Industry Pro

-exit /b

-

-:18db1848-12e0-4167-b9d7-da7fcda507db

-set "_key=NKB3R-R2F8T-3XCDP-7Q2KW-XWYQ2" &:: Embedded Industry Enterprise

-exit /b

-

-:: Windows Server 2012

-:f0f5ec41-0d55-4732-af02-440a44a3cf0f

-set "_key=XC9B7-NBPP2-83J2H-RHMBY-92BT4" &:: Standard

-exit /b

-

-:d3643d60-0c42-412d-a7d6-52e6635327f6

-set "_key=48HP8-DN98B-MYWDG-T2DCC-8W83P" &:: Datacenter

-exit /b

-

-:7d5486c7-e120-4771-b7f1-7b56c6d3170c

-set "_key=HM7DN-YVMH3-46JC3-XYTG7-CYQJJ" &:: MultiPoint Standard

-exit /b

-

-:95fd1c83-7df5-494a-be8b-1300e1c9d1cd

-set "_key=XNH6W-2V9GX-RGJ4K-Y8X6F-QGJ2G" &:: MultiPoint Premium

-exit /b

-

-:: Windows 7

-:b92e9980-b9d5-4821-9c94-140f632f6312

-set "_key=FJ82H-XT6CR-J8D7P-XQJJ2-GPDD4" &:: Professional

-exit /b

-

-:54a09a0d-d57b-4c10-8b69-a842d6590ad5

-set "_key=MRPKT-YTG23-K7D7T-X2JMM-QY7MG" &:: Professional N

-exit /b

-

-:5a041529-fef8-4d07-b06f-b59b573b32d2

-set "_key=W82YF-2Q76Y-63HXB-FGJG9-GF7QX" &:: Professional E

-exit /b

-

-:ae2ee509-1b34-41c0-acb7-6d4650168915

-set "_key=33PXH-7Y6KF-2VJC9-XBBR8-HVTHH" &:: Enterprise

-exit /b

-

-:1cb6d605-11b3-4e14-bb30-da91c8e3983a

-set "_key=YDRBP-3D83W-TY26F-D46B2-XCKRJ" &:: Enterprise N

-exit /b

-

-:46bbed08-9c7b-48fc-a614-95250573f4ea

-set "_key=C29WB-22CC8-VJ326-GHFJW-H9DH4" &:: Enterprise E

-exit /b

-

-:db537896-376f-48ae-a492-53d0547773d0

-set "_key=YBYF6-BHCR3-JPKRB-CDW7B-F9BK4" &:: Embedded POSReady 7

-exit /b

-

-:e1a8296a-db37-44d1-8cce-7bc961d59c54

-set "_key=XGY72-BRBBT-FF8MH-2GG8H-W7KCW" &:: Embedded Standard

-exit /b

-

-:aa6dd3aa-c2b4-40e2-a544-a6bbb3f5c395

-set "_key=73KQT-CD9G6-K7TQG-66MRP-CQ22C" &:: Embedded ThinPC

-exit /b

-

-:: Windows Server 2008 R2

-:a78b8bd9-8017-4df5-b86a-09f756affa7c

-set "_key=6TPJF-RBVHG-WBW2R-86QPH-6RTM4" &:: Web

-exit /b

-

-:cda18cf3-c196-46ad-b289-60c072869994

-set "_key=TT8MH-CG224-D3D7Q-498W2-9QCTX" &:: HPC

-exit /b

-

-:68531fb9-5511-4989-97be-d11a0f55633f

-set "_key=YC6KT-GKW9T-YTKYR-T4X34-R7VHC" &:: Standard

-exit /b

-

-:7482e61b-c589-4b7f-8ecc-46d455ac3b87

-set "_key=74YFP-3QFB3-KQT8W-PMXWJ-7M648" &:: Datacenter

-exit /b

-

-:620e2b3d-09e7-42fd-802a-17a13652fe7a

-set "_key=489J6-VHDMP-X63PK-3K798-CPX3Y" &:: Enterprise

-exit /b

-

-:8a26851c-1c7e-48d3-a687-fbca9b9ac16b

-set "_key=GT63C-RJFQ3-4GMB6-BRFB9-CB83V" &:: Itanium

-exit /b

-

-:f772515c-0e87-48d5-a676-e6962c3e1195

-set "_key=736RG-XDKJK-V34PF-BHK87-J6X3K" &:: MultiPoint Server - ServerEmbeddedSolution

-exit /b

-

-:: Office 2021

-:fbdb3e18-a8ef-4fb3-9183-dffd60bd0984

-set "_key=FXYTK-NJJ8C-GB6DW-3DYQT-6F7TH" &:: Professional Plus

-exit /b

-

-:080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3

-set "_key=KDX7X-BNVR8-TXXGX-4Q7Y8-78VT3" &:: Standard

-exit /b

-

-:76881159-155c-43e0-9db7-2d70a9a3a4ca

-set "_key=FTNWT-C6WBT-8HMGF-K9PRX-QV9H8" &:: Project Professional

-exit /b

-

-:6dd72704-f752-4b71-94c7-11cec6bfc355

-set "_key=J2JDC-NJCYY-9RGQ4-YXWMH-T3D4T" &:: Project Standard

-exit /b

-

-:fb61ac9a-1688-45d2-8f6b-0674dbffa33c

-set "_key=KNH8D-FGHT4-T8RK3-CTDYJ-K2HT4" &:: Visio Professional

-exit /b

-

-:72fce797-1884-48dd-a860-b2f6a5efd3ca

-set "_key=MJVNY-BYWPY-CWV6J-2RKRT-4M8QG" &:: Visio Standard

-exit /b

-

-:1fe429d8-3fa7-4a39-b6f0-03dded42fe14

-set "_key=WM8YG-YNGDD-4JHDC-PG3F4-FC4T4" &:: Access

-exit /b

-

-:ea71effc-69f1-4925-9991-2f5e319bbc24

-set "_key=NWG3X-87C9K-TC7YY-BC2G7-G6RVC" &:: Excel

-exit /b

-

-:a5799e4c-f83c-4c6e-9516-dfe9b696150b

-set "_key=C9FM6-3N72F-HFJXB-TM3V9-T86R9" &:: Outlook

-exit /b

-

-:6e166cc3-495d-438a-89e7-d7c9e6fd4dea

-set "_key=TY7XF-NFRBR-KJ44C-G83KF-GX27K" &:: PowerPoint

-exit /b

-

-:aa66521f-2370-4ad8-a2bb-c095e3e4338f

-set "_key=2MW9D-N4BXM-9VBPG-Q7W6M-KFBGQ" &:: Publisher

-exit /b

-

-:1f32a9af-1274-48bd-ba1e-1ab7508a23e8

-set "_key=HWCXN-K3WBT-WJBKY-R8BD9-XK29P" &:: Skype for Business

-exit /b

-

-:abe28aea-625a-43b1-8e30-225eb8fbd9e5

-set "_key=TN8H9-M34D3-Y64V9-TR72V-X79KV" &:: Word

-exit /b

-

-:: Office 2019

-:85dd8b5f-eaa4-4af3-a628-cce9e77c9a03

-set "_key=NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP" &:: Professional Plus

-exit /b

-

-:6912a74b-a5fb-401a-bfdb-2e3ab46f4b02

-set "_key=6NWWJ-YQWMR-QKGCB-6TMB3-9D9HK" &:: Standard

-exit /b

-

-:2ca2bf3f-949e-446a-82c7-e25a15ec78c4

-set "_key=B4NPR-3FKK7-T2MBV-FRQ4W-PKD2B" &:: Project Professional

-exit /b

-

-:1777f0e3-7392-4198-97ea-8ae4de6f6381

-set "_key=C4F7P-NCP8C-6CQPT-MQHV9-JXD2M" &:: Project Standard

-exit /b

-

-:5b5cf08f-b81a-431d-b080-3450d8620565

-set "_key=9BGNQ-K37YR-RQHF2-38RQ3-7VCBB" &:: Visio Professional

-exit /b

-

-:e06d7df3-aad0-419d-8dfb-0ac37e2bdf39

-set "_key=7TQNQ-K3YQQ-3PFH7-CCPPM-X4VQ2" &:: Visio Standard

-exit /b

-

-:9e9bceeb-e736-4f26-88de-763f87dcc485

-set "_key=9N9PT-27V4Y-VJ2PD-YXFMF-YTFQT" &:: Access

-exit /b

-

-:237854e9-79fc-4497-a0c1-a70969691c6b

-set "_key=TMJWT-YYNMB-3BKTF-644FC-RVXBD" &:: Excel

-exit /b

-

-:c8f8a301-19f5-4132-96ce-2de9d4adbd33

-set "_key=7HD7K-N4PVK-BHBCQ-YWQRW-XW4VK" &:: Outlook

-exit /b

-

-:3131fd61-5e4f-4308-8d6d-62be1987c92c

-set "_key=RRNCX-C64HY-W2MM7-MCH9G-TJHMQ" &:: PowerPoint

-exit /b

-

-:9d3e4cca-e172-46f1-a2f4-1d2107051444

-set "_key=G2KWX-3NW6P-PY93R-JXK2T-C9Y9V" &:: Publisher

-exit /b

-

-:734c6c6e-b0ba-4298-a891-671772b2bd1b

-set "_key=NCJ33-JHBBY-HTK98-MYCV8-HMKHJ" &:: Skype for Business

-exit /b

-

-:059834fe-a8ea-4bff-b67b-4d006b5447d3

-set "_key=PBX3G-NWMT6-Q7XBW-PYJGG-WXD33" &:: Word

-exit /b

-

-:0bc88885-718c-491d-921f-6f214349e79c

-set "_key=VQ9DP-NVHPH-T9HJC-J9PDT-KTQRG" &:: Pro Plus 2019 Preview

-exit /b

-

-:fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9

-set "_key=XM2V9-DN9HH-QB449-XDGKC-W2RMW" &:: Project Pro 2019 Preview

-exit /b

-

-:500f6619-ef93-4b75-bcb4-82819998a3ca

-set "_key=N2CG9-YD3YK-936X4-3WR82-Q3X4H" &:: Visio Pro 2019 Preview

-exit /b

-

-:f3fb2d68-83dd-4c8b-8f09-08e0d950ac3b

-set "_key=HFPBN-RYGG8-HQWCW-26CH6-PDPVF" &:: Pro Plus 2021 Preview

-exit /b

-

-:76093b1b-7057-49d7-b970-638ebcbfd873

-set "_key=WDNBY-PCYFY-9WP6G-BXVXM-92HDV" &:: Project Pro 2021 Preview

-exit /b

-

-:a3b44174-2451-4cd6-b25f-66638bfb9046

-set "_key=2XYX7-NXXBK-9CK7W-K2TKW-JFJ7G" &:: Visio Pro 2021 Preview

-exit /b

-

-:: Office 2016

-:829b8110-0e6f-4349-bca4-42803577788d

-set "_key=WGT24-HCNMF-FQ7XH-6M8K7-DRTW9" &:: Project Professional C2R-P

-exit /b

-

-:cbbaca45-556a-4416-ad03-bda598eaa7c8

-set "_key=D8NRQ-JTYM3-7J2DX-646CT-6836M" &:: Project Standard C2R-P

-exit /b

-

-:b234abe3-0857-4f9c-b05a-4dc314f85557

-set "_key=69WXN-MBYV6-22PQG-3WGHK-RM6XC" &:: Visio Professional C2R-P

-exit /b

-

-:361fe620-64f4-41b5-ba77-84f8e079b1f7

-set "_key=NY48V-PPYYH-3F4PX-XJRKJ-W4423" &:: Visio Standard C2R-P

-exit /b

-

-:e914ea6e-a5fa-4439-a394-a9bb3293ca09

-set "_key=DMTCJ-KNRKX-26982-JYCKT-P7KB6" &:: MondoR

-exit /b

-

-:9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce

-set "_key=HFTND-W9MK4-8B7MJ-B6C4G-XQBR2" &:: Mondo

-exit /b

-

-:d450596f-894d-49e0-966a-fd39ed4c4c64

-set "_key=XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99" &:: Professional Plus

-exit /b

-

-:dedfa23d-6ed1-45a6-85dc-63cae0546de6

-set "_key=JNRGM-WHDWX-FJJG3-K47QV-DRTFM" &:: Standard

-exit /b

-

-:4f414197-0fc2-4c01-b68a-86cbb9ac254c

-set "_key=YG9NW-3K39V-2T3HJ-93F3Q-G83KT" &:: Project Professional

-exit /b

-

-:da7ddabc-3fbe-4447-9e01-6ab7440b4cd4

-set "_key=GNFHQ-F6YQM-KQDGJ-327XX-KQBVC" &:: Project Standard

-exit /b

-

-:6bf301c1-b94a-43e9-ba31-d494598c47fb

-set "_key=PD3PC-RHNGV-FXJ29-8JK7D-RJRJK" &:: Visio Professional

-exit /b

-

-:aa2a7821-1827-4c2c-8f1d-4513a34dda97

-set "_key=7WHWN-4T7MP-G96JF-G33KR-W8GF4" &:: Visio Standard

-exit /b

-

-:67c0fc0c-deba-401b-bf8b-9c8ad8395804

-set "_key=GNH9Y-D2J4T-FJHGG-QRVH7-QPFDW" &:: Access

-exit /b

-

-:c3e65d36-141f-4d2f-a303-a842ee756a29

-set "_key=9C2PK-NWTVB-JMPW8-BFT28-7FTBF" &:: Excel

-exit /b

-

-:d8cace59-33d2-4ac7-9b1b-9b72339c51c8

-set "_key=DR92N-9HTF2-97XKM-XW2WJ-XW3J6" &:: OneNote

-exit /b

-

-:ec9d9265-9d1e-4ed0-838a-cdc20f2551a1

-set "_key=R69KK-NTPKF-7M3Q4-QYBHW-6MT9B" &:: Outlook

-exit /b

-

-:d70b1bba-b893-4544-96e2-b7a318091c33

-set "_key=J7MQP-HNJ4Y-WJ7YM-PFYGF-BY6C6" &:: Powerpoint

-exit /b

-

-:041a06cb-c5b8-4772-809f-416d03d16654

-set "_key=F47MM-N3XJP-TQXJ9-BP99D-8K837" &:: Publisher

-exit /b

-

-:83e04ee1-fa8d-436d-8994-d31a862cab77

-set "_key=869NQ-FJ69K-466HW-QYCP2-DDBV6" &:: Skype for Business

-exit /b

-

-:bb11badf-d8aa-470e-9311-20eaf80fe5cc

-set "_key=WXY84-JN2Q9-RBCCQ-3Q3J3-3PFJ6" &:: Word

-exit /b

-

-:: Office 2013

-:dc981c6b-fc8e-420f-aa43-f8f33e5c0923

-set "_key=42QTK-RN8M7-J3C4G-BBGYM-88CYV" &:: Mondo

-exit /b

-

-:b322da9c-a2e2-4058-9e4e-f59a6970bd69

-set "_key=YC7DK-G2NP3-2QQC3-J6H88-GVGXT" &:: Professional Plus

-exit /b

-

-:b13afb38-cd79-4ae5-9f7f-eed058d750ca

-set "_key=KBKQT-2NMXY-JJWGP-M62JB-92CD4" &:: Standard

-exit /b

-

-:4a5d124a-e620-44ba-b6ff-658961b33b9a

-set "_key=FN8TT-7WMH6-2D4X9-M337T-2342K" &:: Project Professional

-exit /b

-

-:427a28d1-d17c-4abf-b717-32c780ba6f07

-set "_key=6NTH3-CW976-3G3Y2-JK3TX-8QHTT" &:: Project Standard

-exit /b

-

-:e13ac10e-75d0-4aff-a0cd-764982cf541c

-set "_key=C2FG9-N6J68-H8BTJ-BW3QX-RM3B3" &:: Visio Professional

-exit /b

-

-:ac4efaf0-f81f-4f61-bdf7-ea32b02ab117

-set "_key=J484Y-4NKBF-W2HMG-DBMJC-PGWR7" &:: Visio Standard

-exit /b

-

-:6ee7622c-18d8-4005-9fb7-92db644a279b

-set "_key=NG2JY-H4JBT-HQXYP-78QH9-4JM2D" &:: Access

-exit /b

-

-:f7461d52-7c2b-43b2-8744-ea958e0bd09a

-set "_key=VGPNG-Y7HQW-9RHP7-TKPV3-BG7GB" &:: Excel

-exit /b

-

-:fb4875ec-0c6b-450f-b82b-ab57d8d1677f

-set "_key=H7R7V-WPNXQ-WCYYC-76BGV-VT7GH" &:: Groove

-exit /b

-

-:a30b8040-d68a-423f-b0b5-9ce292ea5a8f

-set "_key=DKT8B-N7VXH-D963P-Q4PHY-F8894" &:: InfoPath

-exit /b

-

-:1b9f11e3-c85c-4e1b-bb29-879ad2c909e3

-set "_key=2MG3G-3BNTT-3MFW9-KDQW3-TCK7R" &:: Lync

-exit /b

-

-:efe1f3e6-aea2-4144-a208-32aa872b6545

-set "_key=TGN6P-8MMBC-37P2F-XHXXK-P34VW" &:: OneNote

-exit /b

-

-:771c3afa-50c5-443f-b151-ff2546d863a0

-set "_key=QPN8Q-BJBTJ-334K3-93TGY-2PMBT" &:: Outlook

-exit /b

-

-:8c762649-97d1-4953-ad27-b7e2c25b972e

-set "_key=4NT99-8RJFH-Q2VDH-KYG2C-4RD4F" &:: Powerpoint

-exit /b

-

-:00c79ff1-6850-443d-bf61-71cde0de305f

-set "_key=PN2WF-29XG2-T9HJ7-JQPJR-FCXK4" &:: Publisher

-exit /b

-

-:d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3

-set "_key=6Q7VD-NX8JD-WJ2VH-88V73-4GBJ7" &:: Word

-exit /b

-

-:: Office 2010

-:09ed9640-f020-400a-acd8-d7d867dfd9c2

-set "_key=YBJTT-JG6MD-V9Q7P-DBKXJ-38W9R" &:: Mondo

-exit /b

-

-:ef3d4e49-a53d-4d81-a2b1-2ca6c2556b2c

-set "_key=7TC2V-WXF6P-TD7RT-BQRXR-B8K32" &:: Mondo2

-exit /b

-

-:6f327760-8c5c-417c-9b61-836a98287e0c

-set "_key=VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB" &:: Professional Plus

-exit /b

-

-:9da2a678-fb6b-4e67-ab84-60dd6a9c819a

-set "_key=V7QKV-4XVVR-XYV4D-F7DFM-8R6BM" &:: Standard

-exit /b

-

-:df133ff7-bf14-4f95-afe3-7b48e7e331ef

-set "_key=YGX6F-PGV49-PGW3J-9BTGG-VHKC6" &:: Project Professional

-exit /b

-

-:5dc7bf61-5ec9-4996-9ccb-df806a2d0efe

-set "_key=4HP3K-88W3F-W2K3D-6677X-F9PGB" &:: Project Standard

-exit /b

-

-:92236105-bb67-494f-94c7-7f7a607929bd

-set "_key=D9DWC-HPYVV-JGF4P-BTWQB-WX8BJ" &:: Visio Premium

-exit /b

-

-:e558389c-83c3-4b29-adfe-5e4d7f46c358

-set "_key=7MCW8-VRQVK-G677T-PDJCM-Q8TCP" &:: Visio Professional

-exit /b

-

-:9ed833ff-4f92-4f36-b370-8683a4f13275

-set "_key=767HD-QGMWX-8QTDB-9G3R2-KHFGJ" &:: Visio Standard

-exit /b

-

-:8ce7e872-188c-4b98-9d90-f8f90b7aad02

-set "_key=V7Y44-9T38C-R2VJK-666HK-T7DDX" &:: Access

-exit /b

-

-:cee5d470-6e3b-4fcc-8c2b-d17428568a9f

-set "_key=H62QG-HXVKF-PP4HP-66KMR-CW9BM" &:: Excel

-exit /b

-

-:8947d0b8-c33b-43e1-8c56-9b674c052832

-set "_key=QYYW6-QP4CB-MBV6G-HYMCJ-4T3J4" &:: Groove - SharePoint Workspace

-exit /b

-

-:ca6b6639-4ad6-40ae-a575-14dee07f6430

-set "_key=K96W8-67RPQ-62T9Y-J8FQJ-BT37T" &:: InfoPath

-exit /b

-

-:ab586f5c-5256-4632-962f-fefd8b49e6f4

-set "_key=Q4Y4M-RHWJM-PY37F-MTKWH-D3XHX" &:: OneNote

-exit /b

-

-:ecb7c192-73ab-4ded-acf4-2399b095d0cc

-set "_key=7YDC2-CWM8M-RRTJC-8MDVC-X3DWQ" &:: Outlook

-exit /b

-

-:45593b1d-dfb1-4e91-bbfb-2d5d0ce2227a

-set "_key=RC8FX-88JRY-3PF7C-X8P67-P4VTT" &:: Powerpoint

-exit /b

-

-:b50c4f75-599b-43e8-8dcd-1081a7967241

-set "_key=BFK7F-9MYHM-V68C7-DRQ66-83YTP" &:: Publisher

-exit /b

-

-:2d0882e7-a4e7-423b-8ccc-70d91e0158b1

-set "_key=HVHB3-C6FV7-KQX9W-YQG79-CRY7T" &:: Word

-exit /b

-

-:ea509e87-07a1-4a45-9edc-eba5a39f36af

-set "_key=D6QFG-VBYP2-XQHM7-J97RH-VVRCK" &:: Small Business Basics

-exit /b

-

-:TheEnd

-

-if %act_failed% EQU 1 (

-echo __________________________________________________________________

-echo.

-call :_errorinfo

-)

-

-echo.

-if not defined _tskinstalled if not defined _oldtsk (

-if %winbuild% GEQ 9200 (

-call :leavenonexistentkms %nul%

-echo Keeping the non-existent IP address 0.0.0.0 as KMS Server.

-) else (

-call :Clear-KMS-Cache

-)

-)

-

-if defined _tskinstalled echo Renewal Task found, keeping the online KMS IP in the system.

-if defined _oldtsk echo Renewal Task found, keeping the online KMS IP in the system.

-

-if defined _unattended exit /b

-

-echo ___________________________________________________________________

-echo.

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-

-::========================================================================================================================================

-

-:_errorinfo

-

-(set msg1=echo Try again and if the issue still persist then either use a^

-&echo different Internet connection or use this offline KMS activator^

-&echo KMS_VL_ALL by @abbodi1406  pastebin.com/raw/cpdmr6HZ

-)

-

-call :CheckFR

-

-if !server_num! GTR %max_servers% (

-ping -n 1 one.one.one.one 1>nul || ping -n 1 resolver1.opendns.com 1>nul || (

-call :_color %_Red% "Unable to test KMS servers due to restricted or no Internet."

-echo.

-%msg1%

-exit /b

-)

-)

-

-echo Restart the system and try again.

-echo KMS server is not an issue in this case.

-echo Check Troubleshooting steps in the ReadMe.

-exit /b

-

-::========================================================================================================================================

-

-:setserv

-

-::  Multi KMS servers integration and servers randomization

-

-set srvlist=

-set -=

-

-set "srvlist=kms.kure%-%tru.com xincheng213%-%618.cn kms.six%-%yin.com kms.moec%-%lub.org kms.cgts%-%oft.com"

-set "srvlist=%srvlist% kms.hen%-%g07.com kms.moey%-%uuko.com kms.lol%-%i.best kms.zhuxi%-%aole.org kms.ca%-%tqu.com"

-set "srvlist=%srvlist% kms.lol%-%i.beer kms.ca%-%ry.tech kms.wx%-%lost.com kms.moeyu%-%uko.top kms.ghp%-%ym.com"

-

-set n=1

-for %%a in (%srvlist%) do (set %%a=&set server!n!=%%a&set /a n+=1)

-set max_servers=15

-set /a server_num=0

-exit /b

-

-:getserv

-

-if %server_num% equ %max_servers% set /a server_num+=1&set KMS_IP=222.184.9.98&exit /b

-set /a rand=%Random%%%(15+1-1)+1

-if defined !server%rand%! goto :getserv

-set KMS_IP=!server%rand%!

-set !server%rand%!=1

-

-::  Get IPv4 address of KMS server to use for the activation, works even if ICMP echo is disabled.

-::  Microsoft and Antivirus's may flag the issue if public KMS server host name is directly used for the activation.

-

-set /a server_num+=1

-(for /f "delims=[] tokens=2" %%a in ('ping -4 -n 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%a"

-if [%KMS_IP%]==[!KMS_IP!] for /f "delims=[] tokens=2" %%# in ('pathping -4 -h 1 -n -p 1 -q 1 -w 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%#"

-if not [%KMS_IP%]==[!KMS_IP!] exit /b

-goto :getserv

-)

-

-:==========================================================================================================================================

-

-:Clear-KMS-Cache

-

-set OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform

-set SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform

-

-set _wApp=55c92734-d682-4d71-983e-d6ec3f16059f

-set _oApp=0ff1ce15-a989-479d-af46-f275c6370663

-set _oA14=59a52881-a989-479d-af46-f275c6370663

-

-%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName

-%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServicePort

-%nul% reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing

-%nul% reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching

-%nul% reg delete "HKLM\%SPPk%\%_wApp%" /f

-if %winbuild% GEQ 9200 (

-if defined notx86 (

-%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName /reg:32

-%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServicePort /reg:32

-%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32

-)

-%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f

-)

-if %winbuild% GEQ 9600 (

-%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f

-%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f

-)

-%nul% reg delete "HKLM\%OPPk%" /f /v KeyManagementServiceName

-%nul% reg delete "HKLM\%OPPk%" /f /v KeyManagementServicePort

-%nul% reg delete "HKLM\%OPPk%" /f /v DisableDnsPublishing

-%nul% reg delete "HKLM\%OPPk%" /f /v DisableKeyManagementServiceHostCaching

-%nul% reg delete "HKLM\%OPPk%\%_oA14%" /f

-%nul% reg delete "HKLM\%OPPk%\%_oApp%" /f

-

-:: check KMS38 lock

-

-%nul% reg query "HKLM\%SPPk%\%_wApp%" && (

-set error_=9

-echo Failed to completely clear KMS Cache.

-reg query "HKLM\%SPPk%\%_wApp%" /s 2>nul | findstr /i "127.0.0.2" >nul && echo Most likely, the KMS38 activation is locked.

-) || (

-echo Cleared KMS Cache successfully.

-)

-exit /b

-

-:=========================================================================================================================================

-

-:leavenonexistentkms

-

-reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "0.0.0.0"

-reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"

-reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing

-reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching

-if not defined _keepkms38 reg delete "HKLM\%SPPk%\%_wApp%" /f

-if %winbuild% GEQ 9200 (

-if not %xOS%==x86 (

-reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "0.0.0.0" /reg:32

-reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32

-reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "0.0.0.0" /reg:32

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32

-)

-reg delete "HKLM\%SPPk%\%_oApp%" /f

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "0.0.0.0"

-reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"

-)

-if %winbuild% GEQ 9600 (

-reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f

-reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f

-)

-reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "0.0.0.0"

-reg delete "HKLM\%OPPk%" /f /v KeyManagementServicePort

-reg delete "HKLM\%OPPk%" /f /v DisableDnsPublishing

-reg delete "HKLM\%OPPk%" /f /v DisableKeyManagementServiceHostCaching

-reg delete "HKLM\%OPPk%\%_oA14%" /f

-reg delete "HKLM\%OPPk%\%_oApp%" /f

-goto :eof

-

-:=========================================================================================================================================

-

-:_Complete_Uninstall

-

-cls

-mode con: cols=91 lines=30

-title Online KMS Complete Uninstall

-

-if "!_batf!"=="%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" if not defined _unattended (

-echo.

-echo     Are you sure?

-echo.

-choice /C:CG /N /M "[C] Complete uninstall [G] Go back : "

-if errorlevel 2 exit /b

-)

-cls

-

-set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"

-

-set "_C16R="

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1"

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath /reg:32" 2^>nul') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1"

-if %winbuild% GEQ 9200 if defined _C16R (

-echo.

-echo ## Notice ##

-echo.

-echo To make sure Office programs do not show a non-genuine banner,

-echo please run the activation option once, and don't uninstall afterward.

-echo __________________________________________________________________________________________

-)

-

-set error_=

-echo.

-call :Clear-KMS-Cache

-

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && (

-echo Deleting [Task] Online_KMS_Activation_Script-Renewal

-schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f %nul%

-)

-

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul && (

-echo Deleting [Task] Online_KMS_Activation_Script-Run_Once

-schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f %nul%

-)

-

-If exist "%windir%\Online_KMS_Activation_Script\" (

-echo Deleting [Folder] %windir%\Online_KMS_Activation_Script\

-rmdir /s /q "%windir%\Online_KMS_Activation_Script\" %nul%

-)

-

-if exist "%ProgramData%\Online_KMS_Activation.cmd" (

-echo Deleting [File] %ProgramData%\Online_KMS_Activation.cmd

-del /f /q "%ProgramData%\Online_KMS_Activation.cmd" %nul%

-)

-

-reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% && (

-echo Deleting [Registry] HKCR\DesktopBackground\shell\Activate Windows - Office

-Reg delete "HKCR\DesktopBackground\shell\Activate Windows - Office" /f %nul%

-)

-

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && (set error_=1)

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul && (set error_=1)

-If exist "%windir%\Online_KMS_Activation_Script\" (set error_=1)

-reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" >nul 2>&1 && (set error_=1)

-if exist "%ProgramData%\Online_KMS_Activation.cmd" (set error_=1)

-

-If exist "%ProgramData%\Online_KMS_Activation\" (

-echo Deleting [Folder] %ProgramData%\Online_KMS_Activation\

-

-if "!_batf!"=="%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" (

-call :_color %_Yellow% "__________________________________________________________________________________"

-echo.

-echo This script is a part of 'Microsoft Activation Scripts' ^(MAS^) project.

-echo. 

-echo Homepage: windowsaddict.ml

-echo    Email: [email protected]

-call :_color %_Yellow% "__________________________________________________________________________________"

-echo.

-call :_color %_Yellow% "Press [9] key to exit..."

-echo.

-pushd \

-rmdir /s /q "%ProgramData%\Online_KMS_Activation\" %nul%

-if exist "%ProgramData%\Online_KMS_Activation\" (set error_=1)

-

-if defined error_ (

-if [!error_!]==[1] powershell write-host -back 'Red' -fore 'White' 'Error found in complete uninstall.'

-) else (

-echo Online KMS Complete Uninstall was done successfully.

-)

-choice /c 9 /n

-if not errorlevel 1 rem.

-exit

-) else (

-rmdir /s /q "%ProgramData%\Online_KMS_Activation\" %nul%

-if exist "%ProgramData%\Online_KMS_Activation\" (set error_=1)

-)

-)

-

-if defined error_ (

-if [%error_%]==[1] (

-echo __________________________________________________________________________________________

-%eline%

-echo Try Again / Restart the System

-echo __________________________________________________________________________________________

-)

-) else (

-echo __________________________________________________________________________________________

-echo.

-call :_color %Green% "Online KMS Complete Uninstall was done successfully."

-echo __________________________________________________________________________________________

-)

-

-if defined _unattended exit /b

-

-echo.

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-

-:=========================================================================================================================================

-

-:RenTask

-

-cls

-mode con cols=91 lines=30

-title  Install Activation Auto-Renewal

-

-set error_=

-set "_dest=%ProgramData%\Online_KMS_Activation"

-set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"

-

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && (

-schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f %nul%

-)

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul && (

-schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f %nul%

-)

-

-if exist "%_dest%\Activate_tsk.cmd" del /f /q "%_dest%\Activate_tsk.cmd" %nul%

-if exist "%_dest%\Info.txt" del /f /q "%_dest%\Info.txt" %nul%

-if exist "%_dest%\Info.html" del /f /q "%_dest%\Info.html" %nul%

-if exist "%_dest%\Logs.txt" del /f /q "%_dest%\Logs.txt" %nul%

-

-If exist "%windir%\Online_KMS_Activation_Script\" (

-rmdir /s /q "%windir%\Online_KMS_Activation_Script\" %nul%

-)

-

-set DelDeskCont=

-If exist "%ProgramData%\Online_KMS_Activation.cmd" (

-reg delete "HKCR\DesktopBackground\shell\Activate Windows - Office" /f %nul%

-del /f /q "%ProgramData%\Online_KMS_Activation.cmd" %nul%

-if exist "%_dest%\Activate.cmd" del /f /q "%_dest%\Activate.cmd" %nul%

-set DelDeskCont=1

-)

-

-if not exist "%_dest%\" md "%_dest%\" %nul%

-

-set "_temp=%SystemRoot%\Temp\_KMS_Task_Work"

-if exist "%_temp%\.*" rmdir /s /q "%_temp%\" %nul%

-md "%_temp%\" %nul%

-

-call :RenExport renewal "%_temp%\Renewal.xml" Unicode

-if defined ActTask (call :RenExport run_once "%_temp%\Run_Once.xml" Unicode)

-call :createinfo.html

-call :RenExport _extracttask "%_dest%\Activate_tsk.cmd" ASCII

-title  Install Activation Auto-Renewal

-

-schtasks /create /tn "Online_KMS_Activation_Script-Renewal" /ru "SYSTEM" /xml "%_temp%\Renewal.xml" %nul%

-if defined ActTask (schtasks /create /tn "Online_KMS_Activation_Script-Run_Once" /ru "SYSTEM" /xml "%_temp%\Run_Once.xml" %nul%)

-

-if exist "%_temp%\.*" rmdir /s /q "%_temp%\" %nul%

-

-::========================================================================================================================================

-

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul || (set error_=1)

-if defined ActTask reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul || (set error_=1)

-

-If not exist "%_dest%\Activate_tsk.cmd" (set error_=1)

-If not exist "%_dest%\Info.html" (set error_=1)

-

-if defined error_ (

-

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && (

-schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f %nul%

-)

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul && (

-schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f %nul%

-)

-

-if exist "%_dest%\Activate_tsk.cmd" del /f /q "%_dest%\Activate_tsk.cmd" %nul%

-

-echo _________________________________________________________________

-%eline%

-echo Run the Online KMS Complete Uninstall option and then try again.

-echo _________________________________________________________________

-) else (

-echo __________________________________________________________________________________________

-echo.

-if defined DelDeskCont (

-call :_color %_Yellow% "Previous desktop context menu entry for Online KMS Activation was deleted."

-echo.

-)

-

-echo Files created:

-echo %_dest%\Activate_tsk.cmd

-echo %_dest%\Info.html

-echo.

-(if defined ActTask (echo Scheduled Tasks created:) else (echo Scheduled Task created:))

-echo \Online_KMS_Activation_Script-Renewal [Weekly]

-if defined ActTask (echo \Online_KMS_Activation_Script-Run_Once)

-echo __________________________________________________________________________________________

-echo.

-echo Info:

-echo Activation will be renewed every week if the Internet connection is found.

-echo __________________________________________________________________________________________

-echo.

-if defined ActTask (

-call :_color %Green% "Online KMS Activation - Renewal and Activation Tasks were successfully created."

-) else (

-call :_color %Green% "Online KMS Activation - Renewal Task was successfully created."

-)

-echo.

-call :_color %Gray% "Now, make sure to run the Activation option from the previous Menu."

-echo __________________________________________________________________________________________

-)

-

-goto :RenDone

-

-::========================================================================================================================================

-

-:RenContextMenu

-

-cls

-mode con cols=91 lines=30

-title Add Desktop Context Menu

-

-if "!_batf!"=="%ProgramData%\Online_KMS_Activation\Activate_dcm.cmd" (

-%eline%

-echo Desktop context menu for Online KMS is already installed.

-goto :RenDone

-)

-

-set error_=

-set "_dest=%ProgramData%\Online_KMS_Activation"

-set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"

-

-call :Rencheck cleanosppx64.exe cleanosppx86.exe

-if defined _miss goto :RenDone

-

-If exist "%ProgramData%\Online_KMS_Activation.cmd" del /f /q "%ProgramData%\Online_KMS_Activation.cmd" %nul%

-

-reg delete "HKCR\DesktopBackground\shell\Activate Windows - Office" /f %nul%

-

-if not exist "%_dest%\BIN\" md "%_dest%\BIN\" %nul%

-

-if not exist "%_dest%\BIN\cleanosppx64.exe" copy /y /b "!_work!\BIN\cleanosppx64.exe" "%_dest%\BIN\cleanosppx64.exe" %nul%

-if not exist "%_dest%\BIN\cleanosppx86.exe" copy /y /b "!_work!\BIN\cleanosppx86.exe" "%_dest%\BIN\cleanosppx86.exe" %nul%

-

-if exist "%_dest%\Activate_dcm.cmd" del /f /q "%_dest%\Activate_dcm.cmd" %nul%

-if exist "%_dest%\Info.txt" del /f /q "%_dest%\Info.txt" %nul%

-if exist "%_dest%\Info.html" del /f /q "%_dest%\Info.html" %nul%

-

-copy /y /b "!_batf!" "%_dest%\Activate_dcm.cmd" %nul%

-call :createinfo.html

-title Add Desktop Context Menu

-

-reg add "HKCR\DesktopBackground\shell\Activate Windows - Office" /v "Icon" /t REG_SZ /d "%SystemRoot%%\System32\shell32.dll,71" /f >nul 2>&1 || (set error_=1)

-reg add "HKCR\DesktopBackground\shell\Activate Windows - Office\command" /ve /d "%_dest%\Activate_dcm.cmd" /f %nul% || (set error_=1)

-

-If not exist "%_dest%\Activate_dcm.cmd" (set error_=1)

-If not exist "%_dest%\Info.html" (set error_=1)

-If not exist "%_dest%\BIN\cleanosppx64.exe" (set error_=1)

-If not exist "%_dest%\BIN\cleanosppx86.exe" (set error_=1)

-

-reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% || (set error_=1)

-

-if defined error_ (

-reg delete "HKCR\DesktopBackground\shell\Activate Windows - Office" /f %nul%

-if exist "%_dest%\Activate_dcm.cmd" del /f /q "%_dest%\Activate_dcm.cmd" %nul%

-echo _________________________________________________________________

-%eline%

-echo Run the Online KMS Complete Uninstall option and then try again.

-echo _________________________________________________________________

-) else (

-echo __________________________________________________________________________________________

-echo.

-echo Files created:

-echo %_dest%\BIN\cleanosppx64.exe

-echo %_dest%\BIN\cleanosppx86.exe

-echo %_dest%\Activate_dcm.cmd

-echo %_dest%\Info.html

-echo.

-echo Registry entry added:

-echo HKCR\DesktopBackground\shell\Activate Windows - Office

-echo __________________________________________________________________________________________

-echo.

-call :_color %Green% "Desktop context menu entry for Online KMS Activation is successfully created."

-echo __________________________________________________________________________________________

-)

-

-::========================================================================================================================================

-

-:RenDone

-

-if defined _unattended exit /b

-

-echo.

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-

-::========================================================================================================================================

-

-:createinfo.html

-

-(

-echo ^<html^>

-echo ^<meta http-equiv="refresh" content="0; url=https://windowsaddict.ml/readme-programdata-online-kms-files.html"^>

-echo ^</html^>

-)>"%_dest%\Info.html"

-exit /b

-

-::========================================================================================================================================

-

-:renewal:

-<?xml version="1.0" encoding="UTF-16"?>

-<Task version="1.3" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">

-  <RegistrationInfo>

-    <Source>Microsoft Corporation</Source>

-    <Date>1999-01-01T12:00:00.34375</Date>

-    <Author>RPO/WindowsAddict</Author>

-    <Version>1.0</Version>

-    <Description>Online_KMS_Activation_Script-Renewal - Weekly Activation Renewal Task</Description>

-    <URI>\Online_KMS_Activation_Script-Renewal</URI>

-    <SecurityDescriptor>D:P(A;;FA;;;SY)(A;;FA;;;BA)(A;;FRFX;;;LS)(A;;FRFW;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)(A;;FR;;;S-1-5-4)</SecurityDescriptor>

-  </RegistrationInfo>

-  <Triggers>

-    <CalendarTrigger>

-      <StartBoundary>1999-01-01T12:00:00</StartBoundary>

-      <Enabled>true</Enabled>

-      <ScheduleByWeek>

-        <DaysOfWeek>

-          <Sunday />

-        </DaysOfWeek>

-        <WeeksInterval>1</WeeksInterval>

-      </ScheduleByWeek>

-    </CalendarTrigger>

-  </Triggers>

-  <Principals>

-    <Principal id="LocalSystem">

-      <UserId>S-1-5-18</UserId>

-      <RunLevel>HighestAvailable</RunLevel>

-    </Principal>

-  </Principals>

-  <Settings>

-    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>

-    <DisallowStartIfOnBatteries>false</DisallowStartIfOnBatteries>

-    <StopIfGoingOnBatteries>false</StopIfGoingOnBatteries>

-    <AllowHardTerminate>true</AllowHardTerminate>

-    <StartWhenAvailable>true</StartWhenAvailable>

-    <RunOnlyIfNetworkAvailable>true</RunOnlyIfNetworkAvailable>

-    <IdleSettings>

-      <StopOnIdleEnd>false</StopOnIdleEnd>

-      <RestartOnIdle>false</RestartOnIdle>

-    </IdleSettings>

-    <AllowStartOnDemand>true</AllowStartOnDemand>

-    <Enabled>true</Enabled>

-    <Hidden>true</Hidden>

-    <RunOnlyIfIdle>false</RunOnlyIfIdle>

-    <DisallowStartOnRemoteAppSession>false</DisallowStartOnRemoteAppSession>

-    <UseUnifiedSchedulingEngine>true</UseUnifiedSchedulingEngine>

-    <WakeToRun>false</WakeToRun>

-    <ExecutionTimeLimit>PT10M</ExecutionTimeLimit>

-    <Priority>7</Priority>

-    <RestartOnFailure>

-      <Interval>PT2M</Interval>

-      <Count>3</Count>

-    </RestartOnFailure>

-  </Settings>

-  <Actions Context="LocalSystem">

-    <Exec>

-      <Command>%ProgramData%\Online_KMS_Activation\Activate_tsk.cmd</Command>

-    <Arguments>Task</Arguments>

-    </Exec>

-  </Actions>

-</Task>

-:renewal:

-

-:run_once:

-<?xml version="1.0" encoding="UTF-16"?>

-<Task version="1.3" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">

-  <RegistrationInfo>

-    <Source>Microsoft Corporation</Source>

-    <Date>1999-01-01T12:00:00.34375</Date>

-    <Author>RPO/WindowsAddict</Author>

-    <Version>1.0</Version>

-    <Description>Online_KMS_Activation_Script-Run_Once - Run and Delete itself on first Internet Contact</Description>

-    <URI>\Online_KMS_Activation_Script-Run_Once</URI>

-    <SecurityDescriptor>D:P(A;;FA;;;SY)(A;;FA;;;BA)(A;;FRFX;;;LS)(A;;FRFW;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)(A;;FR;;;S-1-5-4)</SecurityDescriptor>

-  </RegistrationInfo>

-  <Triggers>

-    <LogonTrigger>

-      <Enabled>true</Enabled>

-    </LogonTrigger>

-  </Triggers>

-  <Principals>

-    <Principal id="LocalSystem">

-      <UserId>S-1-5-18</UserId>

-      <RunLevel>HighestAvailable</RunLevel>

-    </Principal>

-  </Principals>

-  <Settings>

-    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>

-    <DisallowStartIfOnBatteries>false</DisallowStartIfOnBatteries>

-    <StopIfGoingOnBatteries>false</StopIfGoingOnBatteries>

-    <AllowHardTerminate>true</AllowHardTerminate>

-    <StartWhenAvailable>true</StartWhenAvailable>

-    <RunOnlyIfNetworkAvailable>true</RunOnlyIfNetworkAvailable>

-    <IdleSettings>

-      <StopOnIdleEnd>false</StopOnIdleEnd>

-      <RestartOnIdle>false</RestartOnIdle>

-    </IdleSettings>

-    <AllowStartOnDemand>true</AllowStartOnDemand>

-    <Enabled>true</Enabled>

-    <Hidden>true</Hidden>

-    <RunOnlyIfIdle>false</RunOnlyIfIdle>

-    <DisallowStartOnRemoteAppSession>false</DisallowStartOnRemoteAppSession>

-    <UseUnifiedSchedulingEngine>true</UseUnifiedSchedulingEngine>

-    <WakeToRun>false</WakeToRun>

-    <ExecutionTimeLimit>PT10M</ExecutionTimeLimit>

-    <Priority>7</Priority>

-    <RestartOnFailure>

-      <Interval>PT2M</Interval>

-      <Count>3</Count>

-    </RestartOnFailure>

-  </Settings>

-  <Actions Context="LocalSystem">

-    <Exec>

-      <Command>%ProgramData%\Online_KMS_Activation\Activate_tsk.cmd</Command>

-    <Arguments>Task</Arguments>

-    </Exec>

-  </Actions>

-</Task>

-:run_once:

-

-::========================================================================================================================================

-

-::  Echo all the missing files.

-

-:Rencheck

-

-set _miss=

-for %%# in (%1 %2) do (if not exist "!_work!\BIN\%%#" (if defined _miss (set "_miss=!_miss! %%#") else (set "_miss=%%#")))

-if defined _miss (

-%eline%

-echo Following required file^(s^) is missing in 'BIN' folder. Aborting...

-echo.

-echo !_miss!

-)

-exit /b

-

-::========================================================================================================================================

-

-::  Extract the text from batch script without character and file encoding issue

-

-:RenExport

-

-%nul% %_psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::%~3);"

-exit /b

-

-::========================================================================================================================================

-

-:_extracttask:

-@echo off

-

-::   Renew KMS activation with Online KMS servers via scheduled task

-

-::============================================================================

-::

-::   This script is a part of 'Microsoft Activation Scripts' (MAS) project.

-::

-::   Homepage: windowsaddict.ml

-::      Email: [email protected]

-::

-::============================================================================

-

-

-if not "%~1"=="Task" (

-echo.

-echo ====== Error ======

-echo.

-echo This file is supposed to be run only by the scheduled task.

-echo.

-echo Press any key to exit

-pause >nul

-exit /b

-)

-

-::  Set Path variable, it helps if it is misconfigured in the system

-

-set "SysPath=%SystemRoot%\System32"

-if exist "%SystemRoot%\Sysnative\reg.exe" (set "SysPath=%SystemRoot%\Sysnative")

-set "Path=%SysPath%;%SystemRoot%;%SysPath%\Wbem;%SysPath%\WindowsPowerShell\v1.0\"

-

-reg query HKU\S-1-5-19 1>nul 2>nul || exit /b

-

-::========================================================================================================================================

-

-set _tserror=

-set "nul=>nul 2>&1"

-for /f "tokens=6 delims=[]. " %%G in ('ver') do set winbuild=%%G

-set "_psc=%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe"

-

-set run_once=

-set t_name=Renewal Task

-reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul && (

-set run_once=1

-set t_name=Run Once Task

-)

-

-setlocal EnableDelayedExpansion

-if exist "%ProgramData%\Online_KMS_Activation\" call :_taskstart>>"%ProgramData%\Online_KMS_Activation\Logs.txt" & exit

-

-::========================================================================================================================================

-

-:_taskstart

-

-echo.

-echo %date%, %time%

-

-set /a loop=1

-set /a max_loop=4

-

-call :_tasksetserv

-

-:_intrepeat

-

-::  Check Internet connection. Works even if ICMP echo is disabled.

-

-for %%a in (%srvlist%) do (

-for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do (

-if not [%%#]==[] goto _taskIntConnected

-)

-)

-

-nslookup dns.msftncsi.com 2>nul | find "131.107.255.255" 1>nul

-if [%errorlevel%]==[0] goto _taskIntConnected

-

-if %loop%==%max_loop% (

-set _tserror=1

-goto _taskend

-)

-

-echo.

-echo Error: Internet is not connected

-echo Waiting 30 seconds

-

-timeout /t 30 >nul

-set /a loop=%loop%+1

-goto _intrepeat

-

-:_taskIntConnected

-

-::========================================================================================================================================

-

-::  Check not x86 Windows

-

-set notx86=

-for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b

-if /i not "%arch%"=="x86" set notx86=1

-

-::========================================================================================================================================

-

-set "OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform"

-set "SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform"

-

-set "slp=SoftwareLicensingProduct"

-set "ospp=OfficeSoftwareProtectionProduct"

-

-set "_wApp=55c92734-d682-4d71-983e-d6ec3f16059f"

-set "_oApp=0ff1ce15-a989-479d-af46-f275c6370663"

-set "_oA14=59a52881-a989-479d-af46-f275c6370663"

-

-::========================================================================================================================================

-

-::  Clean existing KMS cache from the registry / Set port value to 1688

-

-%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName

-%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"

-%nul% reg delete "HKLM\%SPPk%\%_wApp%" /f

-if %winbuild% GEQ 9200 (

-if defined notx86 (

-%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32

-%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32

-%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32

-)

-%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f

-%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"

-)

-if %winbuild% GEQ 9600 (

-%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f

-%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f

-)

-%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"

-%nul% reg delete "HKLM\%OPPk%\%_oA14%" /f

-%nul% reg delete "HKLM\%OPPk%\%_oApp%" /f

-

-::========================================================================================================================================

-

-::  Check WMI and sppsvc Errors

-

-set applist=

-net start sppsvc /y %nul%

-if %winbuild% LSS 22483 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path %slp% where (ApplicationID='%_wApp%') get ID /VALUE" 2^>nul')"

-if %winbuild% GEQ 22483 set "chkapp=for /f "tokens=2 delims==" %%a in ('%_psc% "(([WMISEARCHER]'SELECT ID FROM %slp% WHERE ApplicationID=''%_wApp%''').Get()).ID ^| %% {echo ('ID='+$_)}" 2^>nul')"

-%chkapp% do (if defined applist (call set "applist=!applist! %%a") else (call set "applist=%%a"))

-

-if not defined applist (

-set _tserror=1

-echo.

-echo Failed running WMI query check, verify that these services are working correctly

-echo Windows Management Instrumentation [WinMgmt], Software Protection [sppsvc]

-echo.

-echo Script will try to enable these services.

-for /f "skip=2 tokens=2*" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Services\WinMgmt /v Start 2^>nul') do if /i %%b equ 0x4 (sc config WinMgmt start= auto %nul%)

-net start WinMgmt /y %nul%

-net stop sppsvc /y %nul%

-net start sppsvc /y %nul%

-)

-

-::========================================================================================================================================

-

-::  Check installed volume products activation ID's

-

-call :_taskgetids sppwid %slp% windows

-call :_taskgetids sppoid %slp% office

-call :_taskgetids osppid %ospp% office

-

-::========================================================================================================================================

-

-echo.

-echo Renewing KMS activation for all installed Volume products

-

-if not defined sppwid if not defined sppoid if not defined osppid (

-echo.

-echo No installed Volume Windows / Office product found

-echo.

-echo Renewing KMS server

-call :_taskgetserv

-call :_taskregserv

-goto :_skipact

-)

-

-::========================================================================================================================================

-

-:: Check KMS38 activation

-

-set gpr=0

-set _kms38=0

-if defined sppwid if %winbuild% GEQ 14393 (

-set _path=%slp%

-set _actid=%sppwid%

-call :_taskgetgrace

-)

-

-if %gpr% NEQ 0 if %gpr% GTR 259200 (

-set _kms38=1

-call :_taskchkEnterpriseG _kms38

-)

-

-:: Set specific KMS host to Local Host so that global KMS IP can not replace KMS38 activation but can be used with Office and other Windows Editions.

-

-if %_kms38% EQU 1 (

-%nul% reg add "HKLM\%SPPk%\%_wApp%\%sppwid%" /f /v KeyManagementServiceName /t REG_SZ /d "127.0.0.2"

-%nul% reg add "HKLM\%SPPk%\%_wApp%\%sppwid%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"

-)

-

-::========================================================================================================================================

-

-echo.

-if defined sppwid (

-set _path=%slp%

-set _actid=%sppwid%

-call :_actprod

-call :_act act_win

-call :_actinfo act_win

-) else (

-echo Checking: Volume version of Windows is not installed

-)

-

-if defined sppoid (

-set _path=%slp%

-for %%# in (%sppoid%) do (

-echo.

-set _actid=%%#

-call :_actprod

-call :_act

-call :_actinfo

-)

-)

-

-if defined osppid (

-set _path=%ospp%

-for %%# in (%osppid%) do (

-echo.

-set _actid=%%#

-call :_actprod

-call :_act

-call :_actinfo

-)

-)

-

-if not defined sppoid if not defined osppid (

-echo.

-echo Checking: Volume version of Office is not installed

-)

-

-:_skipact

-

-::========================================================================================================================================

-

-if defined run_once (

-echo.

-echo Deleting Scheduled Task Online_KMS_Activation_Script-Run_Once

-schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f %nul%

-)

-

-::========================================================================================================================================

-

-:_taskend

-

-echo.

-echo Exiting

-echo ______________________________________________________________________

-

-if defined _tserror (exit /b 123456789) else (exit /b 0)

-

-::========================================================================================================================================

-

-:_act

-

-set errorcode=12345

-set /a act_attempt=0

-

-:_act2

-

-if %act_attempt% GTR 4 exit /b

-

-if not [%act_ok%]==[1] (

-call :_taskgetserv

-call :_taskregserv

-)

-

-if not !server_num! GTR %max_servers% (

-

-if [%1]==[act_win] if %_kms38% EQU 1 (

-set act_ok=1

-exit /b

-)

-

-if %winbuild% LSS 22483 wmic path !_path! where ID='!_actid!' call Activate %nul%

-if %winbuild% GEQ 22483 %_psc% "try {$null=(([WMISEARCHER]'SELECT ID FROM !_path! where ID=''!_actid!''').Get()).Activate(); exit 0} catch { exit $_.Exception.InnerException.HResult }"

-

-call set errorcode=!errorlevel!

-

-if !errorcode! EQU 0 (

-set act_ok=1

-exit /b

-)

-if [%1]==[act_win] if !errorcode! EQU -1073418187 if %winbuild% LSS 9200 (

-set act_ok=1

-exit /b

-)

-

-set act_ok=0

-set /a act_attempt+=1

-goto _act2

-)

-exit /b

-

-:_actprod

-

-if %winbuild% LSS 22483 for /f "tokens=2 delims==" %%x in ('"wmic path !_path! where ID='!_actid!' get Name /VALUE" 2^>nul') do call echo Activating: %%x

-if %winbuild% GEQ 22483 for /f "tokens=2 delims==" %%x in ('%_psc% "(([WMISEARCHER]'SELECT Name FROM !_path! WHERE ID=''!_actid!''').Get()).Name | %% {echo ('Name='+$_)}" 2^>nul') do call echo Activating: %%x

-exit /b

-

-::========================================================================================================================================

-

-:_actinfo

-

-if [%1]==[act_win] if %_kms38% EQU 1 (

-echo Windows is activated with KMS38

-exit /b

-)

-

-if %errorcode% EQU 12345 (

-echo Product Activation Failed

-echo Unable to test KMS servers due to restricted or no Internet

-set _tserror=1

-exit /b

-)

-

-if %errorcode% EQU -1073418187 (

-echo Product Activation Failed: 0xC004F035

-if [%1]==[act_win] if %winbuild% LSS 9200 echo Windows 7 cannot be KMS-activated on this computer due to unqualified OEM BIOS

-exit /b

-)

-

-if %errorcode% EQU -1073417728 (

-echo Product Activation Failed: 0xC004F200

-echo Windows needs to rebuild the activation-related files.

-echo See KB2736303 for details.

-set _tserror=1

-exit /b

-)

-

-set gpr=0

-set gpr2=0

-call :_taskgetgrace

-set /a "gpr2=(%gpr%+1440-1)/1440"

-

-if %errorcode% EQU 0 if %gpr% EQU 0 (

-echo Product Activation succeeded, but Remaining Period failed to increase.

-if [%1]==[act_win] if %winbuild% LSS 9200 echo This could be related to the error described in KB4487266

-set _tserror=1

-exit /b

-)

-

-set _actpass=1

-if %gpr% EQU 43200  if [%1]==[act_win] if %winbuild% GEQ 9200 set _actpass=0

-if %gpr% EQU 64800  set _actpass=0

-if %gpr% GTR 259200 if [%1]==[act_win] call :_taskchkEnterpriseG _actpass

-if %gpr% EQU 259200 set _actpass=0

-

-if %errorcode% EQU 0 if %_actpass% EQU 0 (

-echo Product Activation Successful

-echo Remaining Period: %gpr2% days ^(%gpr% minutes^)

-exit /b

-)

-

-cmd /c exit /b %errorcode%

-if %errorcode% NEQ 0 (

-echo Product Activation Failed: 0x!=ExitCode!

-) else (

-echo Product Activation Failed

-)

-echo Remaining Period: %gpr2% days ^(%gpr% minutes^)

-set _tserror=1

-exit /b

-

-::========================================================================================================================================

-

-:_taskgetids

-

-set %1=

-if %winbuild% LSS 22483 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path %2 where (Name like '%%%3%%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL) get ID /VALUE" 2^>nul')"

-if %winbuild% GEQ 22483 set "chkapp=for /f "tokens=2 delims==" %%a in ('%_psc% "(([WMISEARCHER]'SELECT ID FROM %2 WHERE Name like ''%%%3%%'' and Description like ''%%KMSCLIENT%%'' and PartialProductKey is not NULL').Get()).ID ^| %% {echo ('ID='+$_)}" 2^>nul')"

-%chkapp% do (if defined %1 (call set "%1=!%1! %%a") else (call set "%1=%%a"))

-exit /b

-

-:_taskgetgrace

-

-set gpr=0

-if %winbuild% LSS 22483 for /f "tokens=2 delims==" %%# in ('"wmic path !_path! where ID='!_actid!' get GracePeriodRemaining /VALUE" 2^>nul') do call set "gpr=%%#"

-if %winbuild% GEQ 22483 for /f "tokens=2 delims==" %%# in ('%_psc% "(([WMISEARCHER]'SELECT GracePeriodRemaining FROM !_path! where ID=''!_actid!''').Get()).GracePeriodRemaining | %% {echo ('GracePeriodRemaining='+$_)}" 2^>nul') do call set "gpr=%%#"

-exit /b

-

-:_taskchkEnterpriseG

-

-for %%# in (e0b2d383-d112-413f-8a80-97f373a5820c e38454fb-41a4-4f59-a5dc-25080e354730) do (if %sppwid%==%%# set %1=0)

-exit /b

-

-::========================================================================================================================================

-

-:_taskregserv

-

-%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%"

-%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%"

-

-::  Thanks to @dialmak for Office non-genuine banner solution

-::  forum.ru-board.com/topic.cgi?forum=35&topic=81283&start=6080#19

-

-if %winbuild% GEQ 9200 (

-%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%"

-if defined notx86 (

-%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32

-%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32

-)

-)

-exit /b

-

-::========================================================================================================================================

-

-:_tasksetserv

-

-::  Multi KMS servers integration and servers randomization

-

-set srvlist=

-set -=

-

-set "srvlist=kms.kure%-%tru.com xincheng213%-%618.cn kms.six%-%yin.com kms.moec%-%lub.org kms.cgts%-%oft.com"

-set "srvlist=%srvlist% kms.hen%-%g07.com kms.moey%-%uuko.com kms.lol%-%i.best kms.zhuxi%-%aole.org kms.ca%-%tqu.com"

-set "srvlist=%srvlist% kms.lol%-%i.beer kms.ca%-%ry.tech kms.wx%-%lost.com kms.moeyu%-%uko.top kms.ghp%-%ym.com"

-

-set n=1

-for %%a in (%srvlist%) do (set %%a=&set server!n!=%%a&set /a n+=1)

-set max_servers=15

-set /a server_num=0

-exit /b

-

-:_taskgetserv

-

-if %server_num% geq %max_servers% (set /a server_num+=1&set KMS_IP=222.184.9.98&exit /b)

-set /a rand=%Random%%%(15+1-1)+1

-if defined !server%rand%! goto :_taskgetserv

-set KMS_IP=!server%rand%!

-set !server%rand%!=1

-

-::  Get IPv4 address of KMS server to use for the activation, works even if ICMP echo is disabled.

-::  Microsoft and Antivirus's may flag the issue if public KMS server host name is directly used for the activation.

-

-set /a server_num+=1

-(for /f "delims=[] tokens=2" %%a in ('ping -4 -n 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%a"

-if [%KMS_IP%]==[!KMS_IP!] for /f "delims=[] tokens=2" %%# in ('pathping -4 -h 1 -n -p 1 -q 1 -w 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%#"

-if not [%KMS_IP%]==[!KMS_IP!] exit /b

-goto :_taskgetserv

-)

-

-:: Ver:1.5

-::========================================================================================================================================

-:_extracttask:

-

-:======================================================================================================================================================

-

-:_Check_Status_wmi

-<!-- : Begin batch script

-

-@setlocal DisableDelayedExpansion

-@echo off

-@cls

-mode con cols=100 lines=32

->nul 2>&1 powershell "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"

-title Check Activation Status [wmi]

-

-:: change to 1 to use VBScript instead wmic.exe to access WMI

-:: this option is automatically enabled for Windows 11 build 22483 and later

-set WMI_VBS=0

-

-set "_cmdf=%~f0"

-if exist "%SystemRoot%\Sysnative\cmd.exe" (

-setlocal EnableDelayedExpansion

-start %SystemRoot%\Sysnative\cmd.exe /c ""!_cmdf!" "

-exit /b

-)

-if exist "%SystemRoot%\SysArm32\cmd.exe" if /i %PROCESSOR_ARCHITECTURE%==AMD64 (

-setlocal EnableDelayedExpansion

-start %SystemRoot%\SysArm32\cmd.exe /c ""!_cmdf!" "

-exit /b

-)

-color 07

-title Check Activation Status [wmi]

-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%, KeyManagementServiceLookupDomain, VLActivationTypeEnabled"

-if %winbuild% GEQ 9600 set "spp_get=%spp_get%, DiscoveredKeyManagementServiceMachineIpAddress, ProductKeyChannel"

-set "_work=%~dp0"

-set "_batf=%~f0"

-set "_batp=%_batf:'=''%"

-set "_Local=%LocalAppData%"

-set _Identity=0

-setlocal EnableDelayedExpansion

-dir /b /s /a:-d "!_Local!\Microsoft\Office\Licenses\*1*" 1>nul 2>nul && set _Identity=1

-dir /b /s /a:-d "!ProgramData!\Microsoft\Office\Licenses\*1*" 1>nul 2>nul && set _Identity=1

-pushd "!_work!"

-setlocal DisableDelayedExpansion

-if %winbuild% LSS 9200 if not exist "%SystemRoot%\servicing\Packages\Microsoft-Windows-PowerShell-WTR-Package~*.mum" set _Identity=0

-set _pwrsh=1

-if not exist "%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe" set _pwrsh=0

-set "_csg=cscript.exe //NoLogo //Job:WmiMulti "%~nx0?.wsf""

-set "_csq=cscript.exe //NoLogo //Job:WmiQuery "%~nx0?.wsf""

-set "_csx=cscript.exe //NoLogo //Job:XPDT "%~nx0?.wsf""

-if %winbuild% GEQ 22483 set WMI_VBS=1

-if %WMI_VBS% EQU 0 (

-set "_zz1=wmic path"

-set "_zz2=where"

-set "_zz3=get"

-set "_zz4=/value"

-set "_zz5=("

-set "_zz6=)"

-set "_zz7="wmic path"

-set "_zz8=/value""

-) else (

-set "_zz1=%_csq%"

-set "_zz2="

-set "_zz3="

-set "_zz4="

-set "_zz5=""

-set "_zz6=""

-set "_zz7=%_csq%"

-set "_zz8="

-)

-

-set "SysPath=%SystemRoot%\System32"

-if exist "%SystemRoot%\Sysnative\reg.exe" (set "SysPath=%SystemRoot%\Sysnative")

-set "Path=%SysPath%;%SystemRoot%;%SysPath%\Wbem;%SysPath%\WindowsPowerShell\v1.0\"

-set "line2=************************************************************"

-set "line3=____________________________________________________________"

-

-set _WSH=1

-reg query "HKCU\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled 2>nul | find /i "0x0" 1>nul && (set _WSH=0)

-reg query HKU\S-1-5-19 1>nul 2>nul && (

-reg query "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled 2>nul | find /i "0x0" 1>nul && (set _WSH=0)

-)

-if %_WSH% EQU 0 if %WMI_VBS% NEQ 0 goto :E_VBS

-

-set OsppHook=1

-sc query osppsvc >nul 2>&1

-if %errorlevel% EQU 1060 set OsppHook=0

-

-net start sppsvc /y >nul 2>&1

-call :casWpkey %wspp% %winApp% cW1nd0ws sppw

-if %winbuild% GEQ 9200 call :casWpkey %wspp% %o15App% c0ff1ce15 sppo

-if %OsppHook% NEQ 0 (

-net start osppsvc /y >nul 2>&1

-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

-set "_qr=%_zz7% %wspp% %_zz2% %_zz5%ApplicationID='%winApp%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"

-for /f "tokens=2 delims==" %%# in ('%_qr%') 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%

-set "_qr=%_zz7% %wspp% %_zz2% %_zz5%ApplicationID='%o15App%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"

-for /f "tokens=2 delims==" %%# in ('%_qr%') 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% EQU 1 (

-echo %line2%

-echo ***                   Office Status                      ***

-echo %line2%

-)

-set "_qr=%_zz7% %ospp% %_zz2% %_zz5%ApplicationID='%o15App%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"

-if defined ospp15 for /f "tokens=2 delims==" %%# in ('%_qr%') do (

-  set "chkID=%%#"

-  call :casWdet "%ospp%" "%osps%" "%ospp_get%"

-  call :casWout

-  echo %line3%

-  echo.

-)

-set "_qr=%_zz7% %ospp% %_zz2% %_zz5%ApplicationID='%o14App%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"

-if defined ospp14 for /f "tokens=2 delims==" %%# in ('%_qr%') do (

-  set "chkID=%%#"

-  call :casWdet "%ospp%" "%osps%" "%ospp_get%"

-  call :casWout

-  echo %line3%

-  echo.

-)

-goto :casWend

-

-:casWpkey

-set "_qr=%_zz1% %1 %_zz2% %_zz5%ApplicationID='%2' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz4%"

-%_qr% 2>nul | findstr /i ID 1>nul && (set %3=1&set %4=1)

-exit /b

-

-:casWdet

-for %%# in (%~3) do set "%%#="

-if /i %~1==%ospp% for %%# in (DiscoveredKeyManagementServiceMachineIpAddress, KeyManagementServiceLookupDomain, ProductKeyChannel, VLActivationTypeEnabled) do set "%%#="

-set "cKmsClient="

-set "cTblClient="

-set "cAvmClient="

-set "ExpireMsg="

-set "_xpr="

-set "_qr="wmic path %~1 where ID='%chkID%' get %~3 /value" ^| findstr ^="

-if %WMI_VBS% NEQ 0 set "_qr=%_csg% %~1 "ID='%chkID%'" "%~3""

-for /f "tokens=* delims=" %%# in ('%_qr%') 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 if %_WSH% EQU 1 (

-for /f "tokens=* delims=" %%# in ('%_csx% %GracePeriodRemaining%') do set "_xpr=%%#"

-)

-if %_gpr% GEQ 1 if %_pwrsh% EQU 1 if not defined _xpr (

-for /f "tokens=* delims=" %%# in ('powershell "$([DateTime]::Now.addMinutes(%GracePeriodRemaining%)).ToString('yyyy-MM-dd HH:mm:ss')" 2^>nul') do set "_xpr=%%#"

-title Check Activation Status [wmi]

-)

-

-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"

-

-set "_qr="wmic path %~2 get ClientMachineID, KeyManagementServiceHostCaching /value" ^| findstr ^="

-if %WMI_VBS% NEQ 0 set "_qr=%_csg% %~2 "ClientMachineID, KeyManagementServiceHostCaching""

-for /f "tokens=* delims=" %%# in ('%_qr%') do set "%%#"

-if /i %KeyManagementServiceHostCaching%==True (set KeyManagementServiceHostCaching=Enabled) else (set KeyManagementServiceHostCaching=Disabled)

-

-if %winbuild% LSS 9200 exit /b

-if /i %~1==%ospp% exit /b

-

-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

-)

-

-if %winbuild% LSS 9600 exit /b

-if "%DiscoveredKeyManagementServiceMachineIpAddress%"=="" set "DiscoveredKeyManagementServiceMachineIpAddress=not available"

-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

-if %_Identity% EQU 1 if %_pwrsh% EQU 1 (

-echo %line2%

-echo ***                  Office vNext Status                 ***

-echo %line2%

-setlocal EnableDelayedExpansion

-powershell "$f=[IO.File]::ReadAllText('!_batp!') -split ':vNextDiag\:.*';iex ($f[1])"

-title Check Activation Status [wmi]

-echo %line3%

-echo.

-)

-echo.

-echo Press any key to go back...

-pause >nul

-exit /b

-

-:E_VBS

-echo ==== ERROR ====

-echo Windows Script Host is disabled.

-echo It is required for this script to work.

-echo.

-echo Press any key to go back...

-pause >nul

-exit /b

-

-:vNextDiag:

-function PrintModePerPridFromRegistry

-{

-	$vNextRegkey = "HKCU:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext"

-	$vNextPrids = Get-Item -Path $vNextRegkey -ErrorAction Ignore | Select-Object -ExpandProperty 'property' | Where-Object -FilterScript {$_ -Ne 'InstalledGraceKey' -And $_ -Ne 'MigrationToV5Done' -And $_ -Ne 'test' -And $_ -Ne 'unknown'}

-	If ($vNextPrids -Eq $null)

-	{

-		Write-Host "No registry keys found."

-		Return

-	}

-	$vNextPrids | ForEach `

-	{

-		$mode = (Get-ItemProperty -Path $vNextRegkey -Name $_).$_

-		Switch ($mode)

-		{

-			2 { $mode = "vNext"; Break }

-			3 { $mode = "Device"; Break }

-			Default { $mode = "Legacy"; Break }

-		}

-		Write-Host $_ = $mode

-	}

-}

-function PrintSharedComputerLicensing

-{

-	$scaRegKey = "HKLM:\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"

-	$scaValue = Get-ItemProperty -Path $scaRegKey -ErrorAction Ignore | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction Ignore

-	$scaRegKey2 = "HKLM:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing"

-	$scaValue2 = Get-ItemProperty -Path $scaRegKey2 -ErrorAction Ignore | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction Ignore

-	$scaPolicyKey = "HKLM:\SOFTWARE\Policies\Microsoft\Office\16.0\Common\Licensing"

-	$scaPolicyValue = Get-ItemProperty -Path $scaPolicyKey -ErrorAction Ignore | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction Ignore

-	If ($scaValue -Eq $null -And $scaValue2 -Eq $null -And $scaPolicyValue -Eq $null)

-	{

-		Write-Host "No registry keys found."

-		Return

-	}

-	$scaModeValue = $scaValue -Or $scaValue2 -Or $scaPolicyValue

-	If ($scaModeValue -Eq 0)

-	{

-		$scaMode = "Disabled"

-	}

-	If ($scaModeValue -Eq 1)

-	{

-		$scaMode = "Enabled"

-	}

-	Write-Host "SharedComputerLicensing" = $scaMode

-	Write-Host

-	$tokenFiles = $null

-	$tokenPath = "${env:LOCALAPPDATA}\Microsoft\Office\16.0\Licensing"

-	If (Test-Path $tokenPath)

-	{

-		$tokenFiles = Get-ChildItem -Path $tokenPath -Recurse -File -Filter "*authString*"

-	}

-	If ($tokenFiles.length -Eq 0)

-	{

-		Write-Host "No tokens found."

-		Return

-	}

-	$tokenFiles | ForEach `

-	{

-		$tokenParts = (Get-Content -Encoding Unicode -Path $_.FullName).Split('_')

-		$output = [PSCustomObject] `

-			@{

-				ACID = $tokenParts[0];

-				User = $tokenParts[3]

-				NotBefore = $tokenParts[4];

-				NotAfter = $tokenParts[5];

-			} | ConvertTo-Json

-		Write-Host $output

-	}

-}

-function PrintLicensesInformation

-{

-	Param(

-		[ValidateSet("NUL", "Device")]

-		[String]$mode

-	)

-	If ($mode -Eq "NUL")

-	{

-		$licensePath = "${env:LOCALAPPDATA}\Microsoft\Office\Licenses"

-	}

-	ElseIf ($mode -Eq "Device")

-	{

-		$licensePath = "${env:PROGRAMDATA}\Microsoft\Office\Licenses"

-	}

-	$licenseFiles = $null

-	If (Test-Path $licensePath)

-	{

-		$licenseFiles = Get-ChildItem -Path $licensePath -Recurse -File

-	}

-	If ($licenseFiles.length -Eq 0)

-	{

-		Write-Host "No licenses found."

-		Return

-	}

-	$licenseFiles | ForEach `

-	{

-		$license = (Get-Content -Encoding Unicode $_.FullName | ConvertFrom-Json).License

-		$decodedLicense = [System.Text.Encoding]::UTF8.GetString([System.Convert]::FromBase64String($license)) | ConvertFrom-Json

-		$licenseType = $decodedLicense.LicenseType

-		$userId = $decodedLicense.Metadata.UserId

-		$identitiesRegkey = Get-ItemProperty -Path "HKCU:\SOFTWARE\Microsoft\Office\16.0\Common\Identity\Identities\${userId}*" -ErrorAction Ignore

-		$licenseState = $null

-		If ((Get-Date) -Gt (Get-Date $decodedLicense.MetaData.NotAfter))

-		{

-			$licenseState = "RFM"

-		}

-		ElseIf (($decodedLicense.ExpiresOn -Eq $null) -Or

-			((Get-Date) -Lt (Get-Date $decodedLicense.ExpiresOn)))

-		{

-			$licenseState = "Licensed"

-		}

-		Else

-		{

-			$licenseState = "Grace"

-		}

-		if ($mode -Eq "NUL")

-		{

-			$output = [PSCustomObject] `

-			@{

-				Version = $_.Directory.Name

-				Type = "User|${licenseType}";

-				Product = $decodedLicense.ProductReleaseId;

-				Acid = $decodedLicense.Acid;

-				LicenseState = $licenseState;

-				EntitlementStatus = $decodedLicense.Status;

-				ReasonCode = $decodedLicense.ReasonCode;

-				NotBefore = $decodedLicense.Metadata.NotBefore;

-				NotAfter = $decodedLicense.Metadata.NotAfter;

-				NextRenewal = $decodedLicense.Metadata.RenewAfter;

-				Expiration = $decodedLicense.ExpiresOn;

-				TenantId = $decodedLicense.Metadata.TenantId;

-			} | ConvertTo-Json

-		}

-		ElseIf ($mode -Eq "Device")

-		{

-			$output = [PSCustomObject] `

-			@{

-				Version = $_.Directory.Name

-				Type = "Device|${licenseType}";

-				Product = $decodedLicense.ProductReleaseId;

-				Acid = $decodedLicense.Acid;

-				DeviceId = $decodedLicense.Metadata.DeviceId;

-				LicenseState = $licenseState;

-				EntitlementStatus = $decodedLicense.Status;

-				ReasonCode = $decodedLicense.ReasonCode;

-				NotBefore = $decodedLicense.Metadata.NotBefore;

-				NotAfter = $decodedLicense.Metadata.NotAfter;

-				NextRenewal = $decodedLicense.Metadata.RenewAfter;

-				Expiration = $decodedLicense.ExpiresOn;

-				TenantId = $decodedLicense.Metadata.TenantId;

-			} | ConvertTo-Json

-		}

-		Write-Output $output

-	}

-}

-	Write-Host

-	Write-Host "========== Mode per ProductReleaseId =========="

-	Write-Host

-PrintModePerPridFromRegistry

-	Write-Host

-	Write-Host "========== Shared Computer Licensing =========="

-	Write-Host

-PrintSharedComputerLicensing

-	Write-Host

-	Write-Host "========== vNext licenses =========="

-	Write-Host

-PrintLicensesInformation -Mode "NUL"

-	Write-Host

-	Write-Host "========== Device licenses =========="

-	Write-Host

-PrintLicensesInformation -Mode "Device"

-:vNextDiag:

-

-:======================================================================================================================================================

-

-:_Check_Status_vbs

-

-setlocal DisableDelayedExpansion

-mode con cols=100 lines=32

->nul 2>&1 powershell "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"

-title Check Activation Status [vbs]

-

-set "SysPath=%SystemRoot%\System32"

-if exist "%SystemRoot%\Sysnative\reg.exe" (set "SysPath=%SystemRoot%\Sysnative")

-set "Path=%SysPath%;%SystemRoot%;%SysPath%\Wbem;%SysPath%\WindowsPowerShell\v1.0\"

-set "_bit=64"

-set "_wow=1"

-if /i "%PROCESSOR_ARCHITECTURE%"=="x86" if "%PROCESSOR_ARCHITEW6432%"=="" set "_wow=0"&set "_bit=32"

-set "_utemp=%TEMP%"

-set "line2=************************************************************"

-set "line3=____________________________________________________________"

-set _sO16vbs=0

-set _sO15vbs=0

-if exist "%ProgramFiles%\Microsoft Office\Office15\ospp.vbs" (

-  set _sO15vbs=1

-) else if exist "%ProgramW6432%\Microsoft Office\Office15\ospp.vbs" (

-  set _sO15vbs=1

-) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs" (

-  set _sO15vbs=1

-)

-setlocal EnableDelayedExpansion

-echo %line2%

-echo ***                   Windows Status                     ***

-echo %line2%

-pushd "!_utemp!"

-copy /y %SystemRoot%\System32\slmgr.vbs . >nul 2>&1

-net start sppsvc /y >nul 2>&1

-cscript //nologo slmgr.vbs /dli || (echo Error executing slmgr.vbs&del /f /q slmgr.vbs&popd&goto :casVend)

-cscript //nologo slmgr.vbs /xpr

-del /f /q slmgr.vbs >nul 2>&1

-popd

-echo %line3%

-

-:casVo16

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")

-if exist "!office!\ospp.vbs" (

-set _sO16vbs=1

-echo.

-echo %line2%

-if %_sO15vbs% EQU 0 (

-echo ***              Office 2016 %_bit%-bit Status               ***

-) else (

-echo ***               Office 2013/2016 Status                ***

-)

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-if %_wow%==0 goto :casVo13

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")

-if exist "!office!\ospp.vbs" (

-set _sO16vbs=1

-echo.

-echo %line2%

-if %_sO15vbs% EQU 0 (

-echo ***              Office 2016 32-bit Status               ***

-) else (

-echo ***               Office 2013/2016 Status                ***

-)

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-

-:casVo13

-if %_sO16vbs% EQU 1 goto :casVo10

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")

-if exist "!office!\ospp.vbs" (

-echo.

-echo %line2%

-echo ***              Office 2013 %_bit%-bit Status               ***

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-if %_wow%==0 goto :casVo10

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")

-if exist "!office!\ospp.vbs" (

-echo.

-echo %line2%

-echo ***              Office 2013 32-bit Status               ***

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-

-:casVo10

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")

-if exist "!office!\ospp.vbs" (

-echo.

-echo %line2%

-echo ***              Office 2010 %_bit%-bit Status               ***

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-if %_wow%==0 goto :casVc16

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")

-if exist "!office!\ospp.vbs" (

-echo.

-echo %line2%

-echo ***              Office 2010 32-bit Status               ***

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-

-:casVc16

-reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath >nul 2>&1 || (

-reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath >nul 2>&1 || goto :casVc13

-)

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do (set "office=%%b\Office16")

-if exist "!office!\ospp.vbs" (

-set _sO16vbs=1

-echo.

-echo %line2%

-if %_sO15vbs% EQU 0 (

-echo ***              Office 2016-2021 C2R Status             ***

-) else (

-echo ***                Office 2013-2021 Status               ***

-)

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-if %_wow%==0 goto :casVc13

-set office=

-for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do (set "office=%%b\Office16")

-if exist "!office!\ospp.vbs" (

-set _sO16vbs=1

-echo.

-echo %line2%

-if %_sO15vbs% EQU 0 (

-echo ***              Office 2016-2021 C2R Status             ***

-) else (

-echo ***                Office 2013-2021 Status               ***

-)

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-

-:casVc13

-if %_sO16vbs% EQU 1 goto :casVc10

-reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath >nul 2>&1 || (

-reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun /v InstallPath >nul 2>&1 || goto :casVc10

-)

-set office=

-if exist "%ProgramFiles%\Microsoft Office\Office15\ospp.vbs" (

-  set "office=%ProgramFiles%\Microsoft Office\Office15"

-) else if exist "%ProgramW6432%\Microsoft Office\Office15\ospp.vbs" (

-  set "office=%ProgramW6432%\Microsoft Office\Office15"

-) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs" (

-  set "office=%ProgramFiles(x86)%\Microsoft Office\Office15"

-)

-if exist "!office!\ospp.vbs" (

-echo.

-echo %line2%

-echo ***                Office 2013 C2R Status                ***

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-

-:casVc10

-if %_wow%==0 reg query HKLM\SOFTWARE\Microsoft\Office\14.0\CVH /f Click2run /k >nul 2>&1 || goto :casVend

-if %_wow%==1 reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\CVH /f Click2run /k >nul 2>&1 || goto :casVend

-set office=

-if exist "%ProgramFiles%\Microsoft Office\Office14\ospp.vbs" (

-  set "office=%ProgramFiles%\Microsoft Office\Office14"

-) else if exist "%ProgramW6432%\Microsoft Office\Office14\ospp.vbs" (

-  set "office=%ProgramW6432%\Microsoft Office\Office14"

-) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office14\ospp.vbs" (

-  set "office=%ProgramFiles(x86)%\Microsoft Office\Office14"

-)

-if exist "!office!\ospp.vbs" (

-echo.

-echo %line2%

-echo ***                Office 2010 C2R Status                ***

-echo %line2%

-cscript //nologo "!office!\ospp.vbs" /dstatus

-)

-

-:casVend

-echo.

-call :_color %_Yellow% "Press any key to go back..."

-pause >nul

-exit /b

-

-:======================================================================================================================================================

-

-:_color

-

-if %_NCS% EQU 1 (

-if defined _unattended (echo %~2) else (echo %esc%[%~1%~2%esc%[0m)

-) else (

-if defined _unattended (echo %~2) else (call :batcol %~1 "%~2")

-)

-exit /b

-

-:_color2

-

-if %_NCS% EQU 1 (

-echo %esc%[%~1%~2%esc%[%~3%~4%esc%[0m

-) else (

-call :batcol %~1 "%~2" %~3 "%~4"

-)

-exit /b

-

-::=======================================

-

-:: Colored text with pure batch method

-:: Thanks to @dbenham and @jeb

-:: stackoverflow.com/a/10407642

-

-:batcol

-

-pushd %_coltemp%

-if not exist "'" (<nul >"'" set /p "=.")

-setlocal

-set "s=%~2"

-set "t=%~4"

-call :_batcol %1 s %3 t

-del /f /q "'"

-del /f /q "`.txt"

-popd

-exit /b

-

-:_batcol

-

-setlocal EnableDelayedExpansion

-set "s=!%~2!"

-set "t=!%~4!"

-for /f delims^=^ eol^= %%i in ("!s!") do (

-  if "!" equ "" setlocal DisableDelayedExpansion

-    >`.txt (echo %%i\..\')

-    findstr /a:%~1 /f:`.txt "."

-    <nul set /p "=%_BS%%_BS%%_BS%%_BS%%_BS%%_BS%%_BS%"

-)

-if "%~4"=="" echo(&exit /b

-setlocal EnableDelayedExpansion

-for /f delims^=^ eol^= %%i in ("!t!") do (

-  if "!" equ "" setlocal DisableDelayedExpansion

-    >`.txt (echo %%i\..\')

-    findstr /a:%~3 /f:`.txt "."

-    <nul set /p "=%_BS%%_BS%%_BS%%_BS%%_BS%%_BS%%_BS%"

-)

-echo(

-exit /b

-

-::=======================================

-

-:_colorprep

-

-if %_NCS% EQU 1 (

-for /F %%a in ('echo prompt $E ^| cmd') do set "esc=%%a"

-

-set     "Red="41;97m""

-set    "Gray="100;97m""

-set   "Black="30m""

-set   "Green="42;97m""

-set    "Blue="44;97m""

-set  "Yellow="43;97m""

-set "Magenta="45;97m""

-

-set    "_Red="40;91m""

-set  "_Green="40;92m""

-set   "_Blue="40;94m""

-set  "_White="40;37m""

-set "_Yellow="40;93m""

-

-exit /b

-)

-

-for /f %%A in ('"prompt $H&for %%B in (1) do rem"') do set "_BS=%%A %%A"

-set "_coltemp=%SystemRoot%\Temp"

-

-set     "Red="CF""

-set    "Gray="8F""

-set   "Black="00""

-set   "Green="2F""

-set    "Blue="1F""

-set  "Yellow="6F""

-set "Magenta="5F""

-

-set    "_Red="0C""

-set  "_Green="0A""

-set   "_Blue="09""

-set  "_White="07""

-set "_Yellow="0E""

-

-exit /b

-

-::========================================================================================================================================

-

------ Begin wsf script --->

-<package>

-   <job id="WmiQuery">

-      <script language="VBScript">

-         If WScript.Arguments.Count = 3 Then

-            wExc = "Select " & WScript.Arguments.Item(2) & " from " & WScript.Arguments.Item(0) & " where " & WScript.Arguments.Item(1)

-            wGet = WScript.Arguments.Item(2)

-         Else

-            wExc = "Select " & WScript.Arguments.Item(1) & " from " & WScript.Arguments.Item(0)

-            wGet = WScript.Arguments.Item(1)

-         End If

-         Set objCol = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery(wExc,,48)

-         For Each objItm in objCol

-            For each Prop in objItm.Properties_

-               If LCase(Prop.Name) = LCase(wGet) Then

-                  WScript.Echo Prop.Name & "=" & Prop.Value

-                  Exit For

-               End If

-            Next

-         Next

-      </script>

-   </job>

-   <job id="WmiMethod">

-      <script language="VBScript">

-         On Error Resume Next

-         wPath = WScript.Arguments.Item(0)

-         wMethod = WScript.Arguments.Item(1)

-         Set objCol = GetObject("winmgmts:\\.\root\CIMV2:" & wPath)

-         objCol.ExecMethod_(wMethod)

-         WScript.Quit Err.Number

-      </script>

-   </job>

-   <job id="WmiPKey">

-      <script language="VBScript">

-         On Error Resume Next

-         wExc = "SELECT Version FROM " & WScript.Arguments.Item(0)

-         wKey = WScript.Arguments.Item(1)

-         Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery(wExc,,48)

-         For each colService in objWMIService

-            Exit For

-         Next

-         set objService = colService

-         objService.InstallProductKey(wKey)

-         WScript.Quit Err.Number

-      </script>

-   </job>

-   <job id="XPDT">

-      <script language="VBScript">

-         WScript.Echo DateAdd("n", WScript.Arguments.Item(0), Now)

-      </script>

-   </job>

-   <job id="WmiMulti">

-      <script language="VBScript">

-         If WScript.Arguments.Count = 3 Then

-            wExc = "Select " & WScript.Arguments.Item(2) & " from " & WScript.Arguments.Item(0) & " where " & WScript.Arguments.Item(1)

-         Else

-            wExc = "Select " & WScript.Arguments.Item(1) & " from " & WScript.Arguments.Item(0)

-         End If

-         Set objCol = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery(wExc,,48)

-         For Each objItm in objCol

-            For each Prop in objItm.Properties_

-               WScript.Echo Prop.Name & "=" & Prop.Value

-            Next

-         Next

-      </script>

-   </job>

-</package>
\ No newline at end of file
diff --git a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/_Info.html b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/_Info.html
deleted file mode 100644
index 5e0f421..0000000
--- a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/_Info.html
+++ /dev/null
@@ -1,3 +0,0 @@
-<html>

-<meta http-equiv="refresh" content="0; url=https://windowsaddict.ml/readme-online-kms-files.html">

-</html>
\ No newline at end of file
diff --git a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/cleanosppx64.exe b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/cleanosppx64.exe
deleted file mode 100644
index ad19905..0000000
--- a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/cleanosppx64.exe
+++ /dev/null
diff --git a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/cleanosppx86.exe b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/cleanosppx86.exe
deleted file mode 100644
index 248bf4a..0000000
--- a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/BIN/cleanosppx86.exe
+++ /dev/null
diff --git a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/ReadMe.html b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/ReadMe.html
deleted file mode 100644
index 8dbde63..0000000
--- a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation/ReadMe.html
+++ /dev/null
@@ -1,3 +0,0 @@
-<html>

-<meta http-equiv="refresh" content="0; url=https://windowsaddict.ml/readme-online-kms.html">

-</html>
\ No newline at end of file