2.7 Preview

1 files changed, 2535 insertions, 3303 deletions

diff --git a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation.cmd b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation.cmd
index 91882ad..22954d4 100644
--- a/MAS/Separate-Files-Version/Activators/Online_KMS_Activation.cmd
+++ b/MAS/Separate-Files-Version/Activators/Online_KMS_Activation.cmd
@@ -1,43 +1,83 @@
 @set masver=2.6

-@setlocal DisableDelayedExpansion

 @echo off

 

 

+

+::============================================================================

 ::

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

-::

-::  This is a fork of @abbodi1406's KVA  forums.mydigitallife.net/posts/838808

-::_____________________________________

+::   Homepage: mass grave[.]dev

+::      Email: [email protected]

 ::

-::   Homepage: mass grave [.] dev

-::      Email: [email protected]

-::  

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

+::============================================================================

+

+

+

+::  To activate Windows with K-M-S activation, run the script with "/K-Windows" parameter or change 0 to 1 in below line

+set _actwin=0

+

+::  To activate all Office apps (including Project/Visio) with K-M-S activation, run the script with "/K-Office" parameter or change 0 to 1 in below line

+set _actoff=0

+

+::  To activate only Project/Visio with K-M-S activation, run the script with "/K-ProjectVisio" parameter or change 0 to 1 in below line

+set _actprojvis=0

+

+::  To activate all Windows/Office with K-M-S activation, run the script with "/K-WindowsOffice" parameter or change 0 to 1 in below line

+set _actwinoff=0

+

+::  To disable changing Windows/Office edition if current edition doesn't support K-M-S activation, run the script with "/K-NoEditionChange" parameter or change 0 to 1 in below line

+set _NoEditionChange=0

+

+::  To NOT auto-install renewal task with activation, run the script with "/K-NoRenewalTask" parameter or change 0 to 1 in below line

+set _norentsk=0

+

+::  To uninstall K-M-S, run the script with "/K-Uninstall" parameter or change 0 to 1 in below line. It'll take preference over any other parameter.

+set _uni=0

+

+::  Advanced options:

+::  Don't use renewal task option if you are going to use a specific server name instead of public servers used in the script

+

+::  To specify a server address for activation, run the script with "/K-Server-YOURKMSSERVERNAME" parameter or add it in below line after = sign

+set _server=

+

+::  To specify a port for activation, run the script with "/K-Port-YOURPORTNAME" parameter or add it in below line after = sign

+set _port=

+

+::  Debug Mode:

+::  To run the script in debug mode, change 0 to any parameter above that you want to run, in below line

+set "_debug=0"

+

+::  If value is changed in above lines or any parameter is used then script will run in unattended mode

 

 

 

 ::========================================================================================================================================

 

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

+::  Set Environment variables, it helps if they are misconfigured in the system

 

-set "PATH=%SystemRoot%\System32;%SystemRoot%\System32\wbem;%SystemRoot%\System32\WindowsPowerShell\v1.0\"

+setlocal EnableExtensions

+setlocal DisableDelayedExpansion

+

+set "PathExt=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC"

+

+set "SysPath=%SystemRoot%\System32"

+set "Path=%SystemRoot%\System32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SystemRoot%\System32\WindowsPowerShell\v1.0\"

 if exist "%SystemRoot%\Sysnative\reg.exe" (

-set "PATH=%SystemRoot%\Sysnative;%SystemRoot%\Sysnative\wbem;%SystemRoot%\Sysnative\WindowsPowerShell\v1.0\;%PATH%"

+set "SysPath=%SystemRoot%\Sysnative"

+set "Path=%SystemRoot%\Sysnative;%SystemRoot%;%SystemRoot%\Sysnative\Wbem;%SystemRoot%\Sysnative\WindowsPowerShell\v1.0\;%Path%"

 )

 

-:: 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

+set "ComSpec=%SysPath%\cmd.exe"

+set "PSModulePath=%ProgramFiles%\WindowsPowerShell\Modules;%SysPath%\WindowsPowerShell\v1.0\Modules"

 

 set "_cmdf=%~f0"

 for %%# in (%*) do (

 if /i "%%#"=="r1" set r1=1

 if /i "%%#"=="r2" set r2=1

-if /i "%%#"=="-qedit" (

-reg add HKCU\Console /v QuickEdit /t REG_DWORD /d "1" /f 1>nul

-rem check the code below admin elevation to understand why it's here

-)

 )

 

+:: 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 if not defined r1 (

 setlocal EnableDelayedExpansion

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

@@ -54,6 +94,33 @@ exit /b
 

 ::========================================================================================================================================

 

+::  Debug code

+

+if "%_debug%" EQU "0" (

+set "nul1=1>nul"

+set "nul2=2>nul"

+set "nul6=2^>nul"

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

+goto :_debug

+)

+

+set "nul1="

+set "nul2="

+set "nul6="

+set "nul="

+

+@echo on

+@prompt $G

+@call :_debug "%_debug%" >"%~dp0_tmp.log" 2>&1

+cmd /u /c type "%~dp0_tmp.log">"%~dp0_Debug.log"

+del "%~dp0_tmp.log"

+@echo off

+@exit /b

+

+:_debug

+

+::========================================================================================================================================

+

 set "blank="

 set "mas=ht%blank%tps%blank%://mass%blank%grave.dev/"

 

@@ -65,10 +132,10 @@ echo:
 echo Null service is not running, script may crash...

 echo:

 echo:

-echo Help - %mas%troubleshoot.html

+echo Help - %mas%troubleshoot

 echo:

 echo:

-ping 127.0.0.1 -n 10

+ping 127.0.0.1 -n 20

 )

 cls

 

@@ -77,9 +144,13 @@ cls
 pushd "%~dp0"

 >nul findstr /v "$" "%~nx0" && (

 echo:

-echo Error: Script either has LF line ending issue or an empty line at the end of the script is missing.

+echo Error - Script either has LF line ending issue or an empty line at the end of the script is missing.

+echo:

 echo:

-ping 127.0.0.1 -n 6 >nul

+echo Help - %mas%troubleshoot

+echo:

+echo:

+ping 127.0.0.1 -n 20 >nul

 popd

 exit /b

 )

@@ -89,83 +160,39 @@ popd
 

 cls

 color 07

-title  Online KMS Activation %masver%

-

-::  You are not supposed to edit anything below this.

+set KS=K%blank%MS

+title  Online %KS% Activation %masver%

 

-set WMI_VBS=0

-set _Debug=0

-set Silent=0

-set Logger=0

-set AutoR2V=1

-set SkipKMS38=1

-set vNextOverride=1

-set ActWindows=1

-set ActOffice=1

-

-set _uni=

 set _args=

 set _elev=

-set _renetask=

-set _renacttask=

-set _unattended=

-set _unattendedact=

+set _unattended=0

 

 set _args=%*

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

-if defined _args (

-echo "%_args%" | find /i "/KMS" >nul && set _unattended=1

-

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

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

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

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

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

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

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

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

-) else if /i "%%A"=="/KMS-KeepvNext"  (set vNextOverride=0

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

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

-)

+if defined _args for %%A in (%_args%) do (

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

+if /i "%%A"=="/K-Windows"                 (set _actwin=1)

+if /i "%%A"=="/K-Office"                  (set _actoff=1)

+if /i "%%A"=="/K-ProjectVisio"            (set _actprojvis=1)

+if /i "%%A"=="/K-WindowsOffice"           (set _actwinoff=1)

+if /i "%%A"=="/K-NoEditionChange"         (set _NoEditionChange=1)

+if /i "%%A"=="/K-NoRenewalTask"           (set _norentsk=1)

+if /i "%%A"=="/K-Uninstall"               (set _uni=1)

+echo "%%A" | find /i "/K-Port-"   >nul && (set "_port=%%A"   & call set "_port=%%_port:~8%%")

+echo "%%A" | find /i "/K-Server-" >nul && (set "_server=%%A" & call set "_server=%%_server:~10%%")

 )

-)

-

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

 

-set "nul1=1>nul"

-set "nul2=2>nul"

-set "nul6=2^>nul"

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

-

-set psc=powershell.exe

-set winbuild=1

-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 %nul2% | find /i "0x0" %nul1% && (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

+for %%A in (%_actwin% %_actoff% %_actprojvis% %_actwinoff% %_uni%) do (if "%%A"=="1" set _unattended=1)

 

 ::========================================================================================================================================

 

+call :dk_setvar

+

 if %winbuild% LSS 7600 (

 %nceline%

 echo Unsupported OS version detected [%winbuild%].

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

-goto Done

-)

-

-for %%# in (powershell.exe) do @if "%%~$PATH:#"=="" (

-%nceline%

-echo Unable to find powershell.exe in the system.

-goto Done

+goto dk_done

 )

 

 ::========================================================================================================================================

@@ -179,9 +206,9 @@ set "_batf=%~f0"
 set "_batp=%_batf:'=''%"

 

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

+set _PSarg=%_PSarg:'=''%

 

 set "_ttemp=%userprofile%\AppData\Local\Temp"

-set "_Local=%LocalAppData%"

 

 setlocal EnableDelayedExpansion

 

@@ -189,13 +216,36 @@ setlocal EnableDelayedExpansion
 

 echo "!_batf!" | find /i "!_ttemp!" %nul1% && (

 if /i not "!_work!"=="!_ttemp!" (

-%nceline%

+%eline%

 echo Script is launched from the temp folder,

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

-echo.

+echo:

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

-goto Done

+goto dk_done

+)

 )

+

+::========================================================================================================================================

+

+::  Check PowerShell

+

+REM :PowerShellTest: $ExecutionContext.SessionState.LanguageMode :PowerShellTest:

+

+cmd /c "%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':PowerShellTest:\s*';iex ($f[1])"" | find /i "FullLanguage" %nul1% || (

+%eline%

+cmd /c "%psc% "$ExecutionContext.SessionState.LanguageMode""

+echo:

+cmd /c "%psc% "$ExecutionContext.SessionState.LanguageMode"" | find /i "FullLanguage" %nul1% && (

+echo Failed to run Powershell command but Powershell is working.

+call :dk_color %Blue% "Check if your antivirus is blocking the script."

+) || (

+echo PowerShell is not working. Aborting...

+echo If you have applied restrictions on Powershell then undo those changes.

+)

+echo:

+set fixes=%fixes% %mas%troubleshoot

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%troubleshoot"

+goto dk_done

 )

 

 ::========================================================================================================================================

@@ -203,28 +253,54 @@ goto Done
 ::  Elevate script as admin and pass arguments and preventing loop

 

 %nul1% fltmc || (

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

-%nceline%

+if not defined _elev %psc% "start cmd.exe -arg '/c \"!_PSarg!\"' -verb runas" && exit /b

+%eline%

 echo This script needs admin rights.

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

-goto Done

+goto dk_done

 )

 

 ::========================================================================================================================================

 

-::  This code disables QuickEdit for this cmd.exe session only without making permanent changes to the registry

-::  It is added because clicking on the script window pauses the operation and leads to the confusion that script stopped due to an error

+::  Disable QuickEdit and launch from conhost.exe to avoid Terminal app

 

-if defined _unattended set quedit=1

-for %%# in (%_args%) do (if /i "%%#"=="-qedit" set quedit=1)

+if %winbuild% GEQ 17763 (

+set terminal=1

+) else (

+set terminal=

+)

 

-reg query HKCU\Console /v QuickEdit %nul2% | find /i "0x0" %nul1% || if not defined quedit (

-reg add HKCU\Console /v QuickEdit /t REG_DWORD /d "0" /f %nul1%

-start cmd.exe /c ""!_batf!" %_args% -qedit"

-rem quickedit reset code is added at the starting of the script instead of here because it takes time to reflect in some cases

-exit /b

+::  Check if script is running in Terminal app

+

+set r1=$TB = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1).DefineDynamicModule(2, $False).DefineType(0);

+set r2=%r1% [void]$TB.DefinePInvokeMethod('GetConsoleWindow', 'kernel32.dll', 22, 1, [IntPtr], @(), 1, 3).SetImplementationFlags(128);

+set r3=%r2% [void]$TB.DefinePInvokeMethod('SendMessageW', 'user32.dll', 22, 1, [IntPtr], @([IntPtr], [UInt32], [IntPtr], [IntPtr]), 1, 3).SetImplementationFlags(128);

+set d1=%r3% $hIcon = $TB.CreateType(); $hWnd = $hIcon::GetConsoleWindow();

+set d2=%d1% echo $($hIcon::SendMessageW($hWnd, 127, 0, 0) -ne [IntPtr]::Zero);

+

+if defined terminal (

+%psc% "%d2%" %nul2% | find /i "True" %nul1% && set terminal=

+)

+

+if %_unattended%==1 goto :skipQE

+for %%# in (%_args%) do (if /i "%%#"=="-qedit" goto :skipQE)

+

+if defined terminal (

+set "launchcmd=start conhost.exe %psc%"

+) else (

+set "launchcmd=%psc%"

 )

 

+::  Disable QuickEdit in current session

+

+set "d1=$t=[AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1).DefineDynamicModule(2, $False).DefineType(0);"

+set "d2=$t.DefinePInvokeMethod('GetStdHandle', 'kernel32.dll', 22, 1, [IntPtr], @([Int32]), 1, 3).SetImplementationFlags(128);"

+set "d3=$t.DefinePInvokeMethod('SetConsoleMode', 'kernel32.dll', 22, 1, [Boolean], @([IntPtr], [Int32]), 1, 3).SetImplementationFlags(128);"

+set "d4=$k=$t.CreateType(); $b=$k::SetConsoleMode($k::GetStdHandle(-10), 0x0080);"

+

+%launchcmd% "%d1% %d2% %d3% %d4% & cmd.exe '/c' '!_PSarg! -qedit'" && (exit /b) || (set terminal=1)

+:skipQE

+

 ::========================================================================================================================================

 

 ::  Check for updates

@@ -239,25 +315,22 @@ if not [%%#]==[] (echo "%%#" | find "127.69" %nul1% && (echo "%%#" | find "127.6
 if defined old (

 echo ________________________________________________

 %eline%

-echo You are running outdated version MAS %masver%

+echo Version %masver% of MAS is outdated.

 echo ________________________________________________

 echo:

-if not defined _unattended (

+if not %_unattended%==1 (

 echo [1] Get Latest MAS

 echo [0] Continue Anyway

 echo:

-call :_color %_Green% "Enter a menu option in the Keyboard [1,0] :"

+call :dk_color %_Green% "Enter a menu option in the Keyboard [1,0] :"

 choice /C:10 /N

 if !errorlevel!==2 rem

 if !errorlevel!==1 (start ht%-%tps://github.com/mass%-%gravel/Microsoft-Acti%-%vation-Scripts & start %mas% & exit /b)

 )

 )

-cls

 

 ::========================================================================================================================================

 

-if %~z0 GEQ 300000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit")

-

 ::  Check not x86 Windows

 

 set notx86=

@@ -266,2971 +339,1532 @@ if /i not "%arch%"=="x86" set notx86=1
 

 ::========================================================================================================================================

 

-for %%# in (wmic.exe) do @if "%%~$PATH:#"=="" (

-%nceline%

-echo Unable to find wmic.exe in the system.

-if %winbuild% GEQ 22621 echo Make sure WMIC is enabled in optional features.

-goto Done

-)

+if %_uni%==1 goto :ks_uninstall

 

-wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "ComputerSystem" 1>nul || (

-%nceline%

-echo WMI is not responding in the system.

-echo:

-echo In MAS, Goto Troubleshoot and run Fix WMI option.

-goto Done

-)

+:ks_menu

 

-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)

+if defined _server set _norentsk=1

+if not defined _server set _port=

 

-if %_WSH% EQU 0 (

-reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%

-reg add "HKCU\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%

-if defined notx86 reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f /reg:32 %nul%

+if %_unattended%==0 (

+cls

+if not defined terminal mode 76, 30

+title  Online %KS% Activation %masver%

+

+echo:

+echo:

+echo:

+echo:

+echo        ______________________________________________________________

+echo: 

+echo               [1] Activate - Windows

+echo               [2] Activate - Office [All]

+echo               [3] Activate - Office [Project/Visio]

+echo               [4] Activate - All

+echo               _______________________________________________  

+echo: 

+if %_norentsk%==0 (

+echo               [5] Renewal Task With Activation       [Yes]

+) else (

+call :dk_color2 %_White% "              [5] Renewal Task With Activation        " %_Yellow% "[No]"

+)

+if %_NoEditionChange%==0 (

+echo               [6] Change Edition If Needed           [Yes]

+) else (

+call :dk_color2 %_White% "              [6] Change Edition If Needed            " %_Yellow% "[No]"

+)

+echo               [7] Uninstall Online %KS%

+echo               _______________________________________________       

+echo:

+if defined _server (

+echo               [8] Set %KS% Server/Port [%_server%] [%_port%]

+) else (

+echo               [8] Set %KS% Server/Port

+)

+echo               [9] Download Office

+echo               [0] %_exitmsg%

+echo        ______________________________________________________________

+echo:

+call :dk_color2 %_White% "           " %_Green% "Enter a menu option in the Keyboard [1,2,3,4,5,6,7,8,9,0]"

+choice /C:1234567890 /N

+set _el=!errorlevel!

+

+if !_el!==10 exit /b

+if !_el!==9 start %mas%genuine-installation-media & goto :ks_menu

+if !_el!==8 goto :ks_ip

+if !_el!==7 cls & call :ks_uninstall & cls & goto :ks_menu

+if !_el!==6 (if %_NoEditionChange%==0 (set _NoEditionChange=1) else (set _NoEditionChange=0)) & goto :ks_menu

+if !_el!==5 (if %_norentsk%==0 (set _norentsk=1) else (set _norentsk=0)) & goto :ks_menu

+if !_el!==4 cls & setlocal & set "_actwin=1" & set "_actoff=1" & set "_actprojvis=0" & call :ks_start & endlocal & cls & goto :ks_menu

+if !_el!==3 cls & setlocal & set "_actwin=0" & set "_actoff=0" & set "_actprojvis=1" & call :ks_start & endlocal & cls & goto :ks_menu

+if !_el!==2 cls & setlocal & set "_actwin=0" & set "_actoff=1" & set "_actprojvis=0" & call :ks_start & endlocal & cls & goto :ks_menu

+if !_el!==1 cls & setlocal & set "_actwin=1" & set "_actoff=0" & set "_actprojvis=0" & call :ks_start & endlocal & cls & goto :ks_menu

+goto :ks_menu

 )

 

 ::========================================================================================================================================

 

-if defined _uni goto _Complete_Uninstall

+:ks_start

 

-if defined _renetask set ActTask=&call:RenTask&timeout /t 2

-cls

-if defined _renacttask set ActTask=1&call:RenTask&timeout /t 2

 cls

-if defined _unattended if not defined _unattendedact goto Done

+if not defined terminal (

+mode 115, 32

+if exist "%SysPath%\spp\store_test\" mode 135, 32

+%psc% "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=32;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"

+)

+title  Online %KS% Activation %masver%

+

+echo:

+echo Initializing...

+

+if not exist %SysPath%\sppsvc.exe (

+%eline%

+echo [%SysPath%\sppsvc.exe] file is missing. Aborting...

+echo:

+set fixes=%fixes% %mas%troubleshoot

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%troubleshoot"

+goto dk_done

+)

 

 ::========================================================================================================================================

 

-set "_title=Online KMS Activation %masver%"

-set _gui=

+if %_actprojvis%==1 (set "_actoff=1")

+if %_actwinoff%==1 (set "_actwin=1" & set "_actoff=1")

 

-:_KMS_Menu

+set spp=SoftwareLicensingProduct

+set sps=SoftwareLicensingService

 

-set sub_next=0

-set sub_o365=0

-set sub_proj=0

-set sub_vsio=0

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

-reg query %kNext% /v MigrationToV5Done 2>nul | find /i "0x1" %nul% && call :officeSub %nul%

+call :dk_ckeckwmic

+call :dk_checksku

+call :dk_product

+call :dk_sppissue

 

-set _tskinstalled=

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

-find /i "Ver:1.9" "%ProgramFiles%\Activation-Renewal\Activation_task.cmd" %nul% && set _tskinstalled=1

-)

+::========================================================================================================================================

 

-set _oldtsk=

-if not defined _tskinstalled (

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

-set _oldtsk=1

-)

-)

+set error=

+

+cls

+echo:

+call :dk_showosinfo

 

-if defined _unattended (

-call :Activation_Start

-timeout /t 2

-goto Done

+::  Check Internet connection

+

+set _int=

+for %%a in (l.root-servers.net resolver1.opendns.com download.windowsupdate.com google.com) do if not defined _int (

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

 )

 

-cls

-set _gui=1

-title  %_title%

-mode con: cols=76 lines=30

-

-echo.

-echo.

-echo.

-echo.

-echo.       ______________________________________________________________

-echo.

-echo.              [1] Activate - Windows

-echo.              [2] Activate - Office

-echo.              [3] Activate - All

-echo.

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

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

-if not defined _tskinstalled if not defined _oldtsk echo.              [4] Install Auto-Renewal

-echo.              [5] Uninstall

-echo.              _______________________________________________  

-echo.

-if %_Debug%==0 (

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

-) else (

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

+if not defined _int (

+%psc% "If([Activator]::CreateInstance([Type]::GetTypeFromCLSID([Guid]'{DCB00C01-570F-4A9B-8D69-199FDBA5723B}')).IsConnectedToInternet){Exit 0}Else{Exit 1}"

+if !errorlevel!==0 (set _int=1&set ping_f= But Ping Failed)

 )

-if %vNextOverride% EQU 1 (

-if %sub_next% EQU 1 (

-call :_color2 %_White% "              [7] Override Office vNext     " %_Red% "[Yes]"

+

+if defined _int (

+echo Checking Internet Connection            [Connected%ping_f%]

 ) else (

-echo               [7] Override Office vNext     [Yes]

+set error=1

+call :dk_color %Red% "Checking Internet Connection            [Not Connected]"

+call :dk_color %Blue% "Internet is required for Online %KS% Activation."

 )

-) else (

-if %sub_next% EQU 1 (

-call :_color2 %_White% "              [7] Override Office vNext     " %_Yellow% "[No]"

-) else (

-echo               [7] Override Office vNext     [No]

-)

-)

-echo.              _______________________________________________       

-echo.

-echo.              [0] %_exitmsg%

-echo.       ______________________________________________________________

-echo.

-call :_color2 %_White% "           " %_Green% "Enter a menu option in the Keyboard [1,2,3,4,5,6,7,0]"

-choice /C:12345670 /N

-set _el=%errorlevel%

-

-if %_el%==8 exit /b

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

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

-if %_el%==5 call:_Complete_Uninstall&cls&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

+echo Initiating Diagnostic Tests...

 

-if defined _unattended exit /b

+set "_serv=sppsvc Winmgmt"

 

-echo.

-echo Press any key to exit...

-pause >nul

-exit /b

+::  Software Protection

+::  Windows Management Instrumentation

+

+call :dk_errorcheck

 

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

+::========================================================================================================================================

 

-:Activation_Start

+call :_taskclear-cache

+call :_tasksetserv

 

-@setlocal DisableDelayedExpansion

+if not %_actwin%==1 goto :ks_office

 

-set nil=

-for %%# in (SppE%nil%xtComObj.exe,sppsvc.exe,osppsvc.exe) do (

-reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ima%nil%ge File Execu%nil%tion Options\%%#" /f %nul%)

+::  Process Windows

+::  Check if system is permanently activated or not

+

+echo:

+echo Processing Windows...

+call :dk_checkperm

+if defined _perm (

+call :dk_color %Gray% "Checking OS Activation                  [Windows is already permanently activated]"

+goto :ks_office

 )

 

-call :Clear-KMS-Cache %nul%

+::  Check Evaluation version

 

-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 _eval=

+set _evalserv=

 

-set "SysPath=%SystemRoot%\System32"

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

-if exist "%SystemRoot%\Sysnative\reg.exe" (

-set "SysPath=%SystemRoot%\Sysnative"

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

-)

-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"

-if not defined xBit set "xBit=x64"&set "xOS=x64"

-

-set _cwmi=0

-for %%# in (wmic.exe) do @if not "%%~$PATH:#"=="" (

-wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "ComputerSystem" 1>nul && set _cwmi=1

-)

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

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

+if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalCorEdition~*.mum" set _eval=1 & set _evalserv=1

 

-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

+if defined _eval (

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID %nul2% | find /i "Eval" %nul1% && (

+call :dk_color %Red% "Checking Eval Edition                   [Evaluation Editions cannot be activated outside of evaluation period.]"

+

+if defined _evalserv (

+call :dk_color %Blue% "Go back to main menu and use [Change Edition] option."

 ) else (

-net use %~d0 %_Null%

-if not errorlevel 1 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 this script"

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

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

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

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

-set DO15Ids=ProPlus,Standard,Access,Lync,Excel,Groove,InfoPath,OneNote,Outlook,PowerPoint,Publisher,Word

-set DO16Ids=ProPlus,Standard,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"

+set fixes=%fixes% %mas%evaluation-editions

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%evaluation-editions"

+)

+

+goto :ks_office

 )

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

-set UBR=0

-if %winbuild% GEQ 7601 for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v UBR 2^>nul') do if not errorlevel 1 set /a UBR=%%b

-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 %_cwmi% EQU 0 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="

 )

 

-setlocal EnableDelayedExpansion

-pushd "!_work!"

+::========================================================================================================================================

 

-if not defined _unattended (

-mode con cols=98 lines=31

-%psc% "&%_buf%"

-title  %_title%

-) else (

-title  Online KMS Activation %masver%

+::  Check if GVLK is already installed or not

+

+call :k_channel

+

+::  Detect Key

+

+set key=

+set pkey=

+set altkey=

+set skufound=

+set changekey=

+set altedition=

+

+call :dk_actids 55c92734-d682-4d71-983e-d6ec3f16059f

+if defined allapps call :ksdata winkey

+if not defined key call :k_gvlk %nul%

+if defined allapps if not defined key call :kms38fallback

+

+if defined altkey (set key=%altkey%&set changekey=1)

+

+set /a UBR=0

+if %osSKU%==191 if defined altkey if defined altedition (

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

+if %winbuild% GEQ 19044 if !UBR! LSS 2788 (

+call :dk_color %Blue% "Windows must to be updated to build 19044.2788 or higher for IotEnterpriseS KMS38 activation."

+)

 )

 

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

+if not defined key if defined notfoundaltactID (

+call :dk_color %Red% "Checking Alternate Edition For KMS      [%altedition% Activation ID Not Found]"

+)

 

-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)

+if not defined key if not defined _gvlk (

+echo [%winos% ^| %winbuild% ^| SKU:%osSKU%]

+if not defined skufound (

+call :dk_color %Red% "Unable to find this product in the supported product list."

+echo:

+set fixes=%fixes% %mas%unsupported_products_activation

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%unsupported_products_activation"

 ) 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 Required License files not found in %SysPath%\spp\tokens\skus\

 )

-@echo off

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

-echo.

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

-pause >nul

-exit /b

+goto :ks_office

 )

-@exit /b

-

-:Begin

 

 ::========================================================================================================================================

 

-set act_failed=0

-set /a act_attempt=0

+::  Install key

 

-echo.

-echo Initializing...

+if defined changekey (

+call :dk_color %Blue% "[%altedition%] Edition product key will be used to enable %KS% activation."

+echo:

+)

 

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

+if defined winsub (

+call :dk_color %Blue% "Windows Subscription [SKU ID-%slcSKU%] found. Script will activate base edition [SKU ID-%regSKU%]."

+echo:

+)

 

-call :setserv

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

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

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

+set _partial=

+if not defined key (

+if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('wmic path %spp% where "ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and PartialProductKey<>null AND LicenseDependsOn is NULL" Get PartialProductKey /value %nul6%') do set "_partial=%%#"

+if %_wmic% EQU 0 for /f "tokens=2 delims==" %%# in ('%psc% "(([WMISEARCHER]'SELECT PartialProductKey FROM %spp% WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND PartialProductKey IS NOT NULL AND LicenseDependsOn is NULL').Get()).PartialProductKey | %% {echo ('PartialProductKey='+$_)}" %nul6%') do set "_partial=%%#"

+call echo Checking Installed Product Key          [Partial Key - %%_partial%%] [Volume:GVLK]

 )

+

+if defined key (

+call :dk_inskey "[%key%]"

 )

 

-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

-)

+:ks_office

 

-if defined _unattended (

-echo.

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

-) else (

-%eline%

-echo Internet is not connected.

+if not %_actoff%==1 goto :ks_activate

+

+call :ks_setspp

+

+::  Check unsupported office versions

+

+set o14c2r=

+set o16uwp=

+

+set _68=HKLM\SOFTWARE\Microsoft\Office

+set _86=HKLM\SOFTWARE\Wow6432Node\Microsoft\Office

+%nul% reg query %_68%\14.0\CVH /f Click2run /k         && set o14c2r=Office 2010 C2R 

+%nul% reg query %_86%\14.0\CVH /f Click2run /k         && set o14c2r=Office 2010 C2R 

+

+if %winbuild% GEQ 10240 %psc% "Get-AppxPackage -name "Microsoft.Office.Desktop"" | find /i "Office" %nul1% && set o16uwp=Office UWP 

+

+if not "%o14c2r%%o16uwp%"=="" (

 echo:

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

-pause >nul

-exit /b

+call :dk_color %Red% "Checking Unsupported Office Install     [ %o14c2r%%o16uwp%]"

 )

 

-:IntConnected

-

-call :getserv

+if %winbuild% GEQ 10240 %psc% "Get-AppxPackage -name "Microsoft.MicrosoftOfficeHub"" | find /i "Office" %nul1% && (

+set ohub=1

+)

 

 ::========================================================================================================================================

 

-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

+::  Check supported office versions

+

+call :ks_getpath

 

-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

+sc query ClickToRunSvc %nul%

+set error1=%errorlevel%

+

+if defined o16c2r if %error1% EQU 1060 (

+echo:

+call :dk_color %Red% "Checking ClickToRun Service             [Not found, Office 16.0 files found]"

+set o16c2r=

+set error=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

+

+sc query OfficeSvc %nul%

+set error2=%errorlevel%

+

+if defined o15c2r if %error1% EQU 1060 if %error2% EQU 1060 (

+echo:

+call :dk_color %Red% "Checking ClickToRun Service             [Not found, Office 15.0 files found]"

+set o15c2r=

+set error=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

+if "%o16c2r%%o15c2r%%o16msi%%o15msi%%o14msi%"=="" (

+set error=1

+echo:

+if not "%o14c2r%%o16uwp%"=="" (

+call :dk_color %Red% "Checking Supported Office Install       [Not Found]"

 ) else (

-  goto :UnsupportedVersion

-)

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

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

-call :StopService sppsvc

+call :dk_color %Red% "Checking Installed Office               [Not Found]"

 )

 

-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" IF %winbuild% LSS 22610 (

-SET "EditionID=EnterpriseS"

-IF %winbuild% GEQ 19041 IF %UBR% GEQ 2788 SET "EditionID=IoTEnterpriseS"

-)

-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 defined ohub (

+echo:

+echo You have only Office dashboard app installed, you need to install full Office version.

 )

-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"

+echo:

+call :dk_color %Blue% "Download and install Office from below URL and try again."

+echo:

+set fixes=%fixes% %mas%genuine-installation-media

+call :dk_color %_Yellow% "%mas%genuine-installation-media"

+goto :ks_activate

 )

-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 multioffice=

+if not "%o16c2r%%o15c2r%%o16msi%%o15msi%%o14msi%"=="1" set multioffice=1

+if not "%o14c2r%%o16uwp%"=="" set multioffice=1

+

+if defined multioffice (

+echo:

+call :dk_color %Gray% "Checking Multiple Office Install        [Found. Its best to install only one version]"

 )

-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

+::  Process Office 15.0 C2R

 

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

+if not defined o15c2r goto :ks_starto16c2r

 

-goto TheEnd

+call :ks_reset

+call :dk_actids 0ff1ce15-a989-479d-af46-f275c6370663

 

-:RunSPP

-set spp=SoftwareLicensingProduct

-set sps=SoftwareLicensingService

-set W1nd0ws=1

-set WinPerm=0

-set WinVL=0

-set Off1ce=0

-set RanR2V=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. &call :CheckWS

-    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 1)

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

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

-exit /b

+set oVer=15

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg% /v InstallPath" %nul6%') do (set "_oRoot=%%b\root")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg%\Configuration /v Platform" %nul6%') do (set "_oArch=%%b")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg%\Configuration /v VersionToReport" %nul6%') do (set "_version=%%b")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg%\Configuration /v ProductReleaseIds" %nul6%') do (set "_prids=%o15c2r_reg%\Configuration /v ProductReleaseIds" & set "_config=%o15c2r_reg%\Configuration")

+if not defined _oArch   for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg%\propertyBag /v Platform" %nul6%') do (set "_oArch=%%b")

+if not defined _version for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg%\propertyBag /v version" %nul6%') do (set "_version=%%b")

+if not defined _prids   for /f "skip=2 tokens=2*" %%a in ('"reg query %o15c2r_reg%\propertyBag /v ProductReleaseId" %nul6%') do (set "_prids=%o15c2r_reg%\propertyBag /v ProductReleaseId" & set "_config=%o15c2r_reg%\propertyBag")

 

-: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 %winbuild% GEQ 9200 (

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

-  exit /b

-  )

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

-)

-if %vNextOverride% EQU 1 if %AutoR2V% EQU 1 (

-set sub_o365=0

-set sub_proj=0

-set sub_vsio=0

-if %sub_next% EQU 1 reg delete HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing /f %_Nul3%

-)

-set Off1ce=1

-set _sC2R=sppoff

-set _fC2R=ReturnSPP

-

-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)

-if %winbuild% LSS 9200 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)

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

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

-

-set run_off21=0&set prr_off21=0&set prv_off21=0

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

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

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

-  call set /a prr_off21+=1

-  find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1

-  )

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

-  call set /a prr_off21+=1

-  find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1

-  )

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

-  call set /a prr_off21+=1

-  find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1

-  )

-if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off21+=1

-  find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1

-  )

-if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off21+=1

-  find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1

-  )

-)

-if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 1 if %prv_off21% LSS %prr_off21% (set vol_off21=0&set run_off21=1)

-

-set run_off19=0&set prr_off19=0&set prv_off19=0

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

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

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

-  call set /a prr_off19+=1

-  find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1

-  )

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

-  call set /a prr_off19+=1

-  find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1

-  )

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

-  call set /a prr_off19+=1

-  find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1

-  )

-if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off19+=1

-  find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1

-  )

-if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off19+=1

-  find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1

-  )

-)

-if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 1 if %prv_off19% LSS %prr_off19% (set vol_off19=0&set run_off19=1)

-

-set run_off16=0&set prr_off16=0&set prv_off16=0

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

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

-  call set /a prr_off16+=1

-  if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  )

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

-  call set /a prr_off16+=1

-  if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16ProPlusVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  )

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

-  call set /a prr_off16+=1

-  if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16StandardVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  )

-if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off16+=1

-  if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  )

-if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off16+=1

-  if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1

-  )

-)

-if %loc_off16% EQU 1 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if defined _C16R if %prv_off16% LSS %prr_off16% (set vol_off16=0&set run_off16=1)

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

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

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

-)

-

-set run_off15=0&set prr_off15=0&set prv_off15=0

-if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 if %vol_off15% EQU 0 if defined _C15R set run_off15=1

-if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 if %vol_off15% EQU 1 if defined _C15R (

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

-  call set /a prr_off15+=1

-  find /i "Office%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1

-  )

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

-  call set /a prr_off15+=1

-  find /i "OfficeProPlusVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1

-  )

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

-  call set /a prr_off15+=1

-  find /i "OfficeStandardVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1

-  )

-if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off15+=1

-  find /i "Office%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1

-  )

-if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (

-  call set /a prr_off15+=1

-  find /i "Office%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1

-  )

-)

-if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 if %vol_off15% EQU 1 if defined _C15R if %prv_off15% LSS %prr_off15% (set vol_off15=0&set run_off15=1)

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

-if %loc_off15% EQU 1 if %run_off15% EQU 0 if defined _C15R %_qr% %_Nul2% | find /i "O365" %_Nul1% && (

-find /i "OfficeMondoVL" "!_temp!\sppchk.txt" %_Nul1% || set run_off15=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 %winbuild% GEQ 9200 set vol_offgl=0

-if %winbuild% LSS 9200 if %vol_off14% EQU 0 set vol_offgl=0

-)

-rem mixed Volume + Retail

-if %run_off21% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V

-if %run_off19% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V

-if %run_off16% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V

-if %run_off15% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V

-rem all supported Volume + message for unsupported

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

-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 %winbuild% LSS 9200 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 %AutoR2V% EQU 1 if %RanR2V% EQU 0 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 (if %sub_o365% EQU 0 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%)

+echo "%o15c2r_reg%" | find /i "Wow6432Node" %nul1% && (set _tok=10) || (set _tok=9)

+for /f "tokens=%_tok% delims=\" %%a in ('reg query %o15c2r_reg%\ProductReleaseIDs\Active %nul6% ^| findstr /i "Retail Volume"') do (

+echo "!_oIds!" | find /i " %%a " %nul1% || (set "_oIds= !_oIds! %%a ")

 )

-if %winbuild% LSS 9200 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

 

-:sppchkoff

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

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

-if %winbuild% LSS 9200 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)

-if %1 EQU 1 (set _officespp=1) else (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

+set "_oLPath=%_oRoot%\Licenses"

+set "_oIntegrator=%_oRoot%\integration\integrator.exe"

 

-: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

+echo:

+echo Processing Office...                    [C2R ^| %_version% ^| %_oArch%]

 

-: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

+if not defined _oIds (

+call :dk_color %Red% "Checking Installed Products             [Product IDs not found. Aborting activation...]"

+set error=1

+goto :ks_starto16c2r

 )

-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

+call :oh_fixprids

+call :ks_process

 

-:RunOSPP

-set spp=OfficeSoftwareProtectionProduct

-set sps=OfficeSoftwareProtectionService

-set Off1ce=0

-set RanR2V=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 :oppoff

-if %winbuild% LSS 9200 call :sppoff

-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 :sppchkoff 2)

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

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

-exit /b

+::========================================================================================================================================

 

-:oppoff

-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

+:ks_starto16c2r

 

-: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

+::  Process Office 16.0 C2R

 

-: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

+if not defined o16c2r goto :ks_startmsi

 

-: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

+call :ks_reset

+call :dk_actids 0ff1ce15-a989-479d-af46-f275c6370663

 

-: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

+set oVer=16

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o16c2r_reg% /v InstallPath" %nul6%') do (set "_oRoot=%%b\root")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o16c2r_reg%\Configuration /v Platform" %nul6%') do (set "_oArch=%%b")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o16c2r_reg%\Configuration /v VersionToReport" %nul6%') do (set "_version=%%b")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o16c2r_reg%\Configuration /v AudienceData" %nul6%') do (set "_AudienceData=^| %%b ")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %o16c2r_reg%\Configuration /v ProductReleaseIds" %nul6%') do (set "_prids=%o16c2r_reg%\Configuration /v ProductReleaseIds" & set "_config=%o16c2r_reg%\Configuration")

 

-: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

+echo "%o16c2r_reg%" | find /i "Wow6432Node" %nul1% && (set _tok=9) || (set _tok=8)

+for /f "tokens=%_tok% delims=\" %%a in ('reg query "%o16c2r_reg%\ProductReleaseIDs" /s /f ".16" /k %nul6% ^| findstr /i "Retail Volume"') do (

+echo "!_oIds!" | find /i " %%a " %nul1% || (set "_oIds= !_oIds! %%a ")

 )

-call :insKey

-exit /b

+set _oIds=%_oIds:.16=%

+set _o16c2rIds=%_oIds%

 

-: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

+set "_oLPath=%_oRoot%\Licenses16"

+set "_oIntegrator=%_oRoot%\integration\integrator.exe"

 

-: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

-)

+echo:

+echo Processing Office...                    [C2R ^| %_version% %_AudienceData%^| %_oArch%]

 

-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 not defined _oIds (

+call :dk_color %Red% "Checking Installed Products             [Product IDs not found. Aborting activation...]"

+set error=1

+goto :ks_startmsi

 )

 

-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

-)

+call :oh_fixprids

+call :ks_process

 

-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

+:ks_startmsi

 

-:officeSub

-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_vsio=1

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

-if %sub_o365% EQU 1 set sub_next=1

-if %sub_proj% EQU 1 set sub_next=1

-if %sub_vsio% EQU 1 set sub_next=1

-exit /b

+if defined o14msi call :ks_setspp 14

+if defined o14msi call :ks_processmsi 14 %o14msi_reg%

+call :ks_setspp

+if defined o15msi call :ks_processmsi 15 %o15msi_reg%

+if defined o16msi call :ks_processmsi 16 %o16msi_reg%

 

-: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

+::========================================================================================================================================

+

+echo:

+call :oh_clearblock

+if "%o16msi%%o15msi%"=="" if not "%o16c2r%%o15c2r%"=="" if "%keyerror%"=="0" if %_NoEditionChange%==0 call :oh_uninstkey

+call :oh_licrefresh

+

+::========================================================================================================================================

+

+:ks_activate

+

+::  Opt out of sending KMSclient activation data to Microsoft

+::  https://learn.microsoft.com/windows/privacy/manage-connections-from-windows-operating-system-components-to-microsoft-services#19-software-protection-platform

+

+if %winbuild% GEQ 9600 (

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

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

+echo Turn off %KS% AVS Validation             [Successful]

 )

-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%)

+set "slp=SoftwareLicensingProduct"

+set "ospp=OfficeSoftwareProtectionProduct"

+

+echo:

+echo Activating Volume Products...

+if %_actwin%==1 call :_taskgetids sppwid %slp% windows

+if %_actoff%==1 call :_taskgetids sppoid %slp% office

+if %_actoff%==1 call :_taskgetids osppid %ospp% office

+

+if not defined sppwid if not defined sppoid if not defined osppid (

+if not defined keyerror (

+echo No installed Volume Windows / Office products found.

 ) 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 %act_attempt% LSS 1 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 %act_attempt% LSS 1 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

+call :dk_color %Red% "Failed to get installed Volume Windows / Office products."

 )

-if %act_attempt% LSS 1 if %ERRORCODE% EQU -1073422315 (

-echo Product Activation Failed: 0xC004E015

-echo Running slmgr.vbs /rilc to mitigate.

-cscript //Nologo //B %SysPath%\slmgr.vbs /rilc

-)

-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 %act_attempt% LSS 1 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

+call :_taskgetserv

+call :_taskregserv

 )

-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

-)

+call :_taskact

+if not defined showfix if defined _tserror (call :dk_color %Blue% "%_fixmsg%" & set showfix=1)

 

-if not !server_num! gtr %max_servers% (

-if %act_attempt% LSS 3 (

-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 %_norentsk%==0 (

+call :ks_renewal

+) else (

+call :ks_clearstuff %nul%

+if not defined _server (

 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

+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 "_C16R=1"

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

+if defined _C16R (

+REM  mass grave[.]dev/office-license-is-not-genuine

+set _server=10.0.0.10

+call :_taskregserv

+echo Keeping the non-existent IP address 10.0.0.10 as %KS% Server.

+)

 )

+if not defined _C16R (

+call :_taskclear-cache

+echo Cleared %KS% Server from the registry.

 )

-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"

+::  https://learn.microsoft.com/azure/virtual-desktop/windows-10-multisession-faq

+

+if %_actwin%==1 for %%# in (407) do if %osSKU%==%%# (

+call :dk_color %Red% "%winos% does not support activation on non-azure platforms."

 )

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

-set S_OK=0

-set act_failed=1

-set /a act_attempt=0

+

+::  Trigger reevaluation of SPP's Scheduled Tasks

+

+call :dk_reeval %nul%

+goto :dk_done

+

+::========================================================================================================================================

+

+:ks_ip

+

+cls

+set _server=

+echo:

+echo Enter / Paste the %KS% Server address, or just press Enter to return:

+echo:

+set /p _server=

+if not defined _server goto :ks_menu

+set "_server=%_server: =%"

+

+echo:

+echo Enter / Paste the %KS% Port address, or just press Enter to use default:

+echo:

+set /p _port=

+if not defined _port goto :ks_menu

+set "_port=%_port: =%"

+

+goto :ks_menu

+

+::========================================================================================================================================

+

+:ks_reset

+

+set key=

+set _oRoot=

+set _oArch=

+set _oIds=

+set _oLPath=

+set _actid=

+set _prod=

+set _lic=

+set _arr=

+set _prids=

+set _config=

+set _version=

+set _License=

+set _oBranding=

 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

+:ks_getpath

 

-:CheckFR

+set o16c2r=

+set o15c2r=

+set o16msi=

+set o15msi=

+set o14msi=

 

-set WMIe=0

-call :CheckWS

-if %WMIe% EQU 1 (

-echo.

-echo %_err%

-echo Failed running WMI query check.

-)

-goto :eof

+set _68=HKLM\SOFTWARE\Microsoft\Office

+set _86=HKLM\SOFTWARE\Wow6432Node\Microsoft\Office

 

-:CheckWS

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

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

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_86%\ClickToRun /v InstallPath" %nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms"    (set o16c2r=1&set o16c2r_reg=%_86%\ClickToRun)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\ClickToRun /v InstallPath" %nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms"    (set o16c2r=1&set o16c2r_reg=%_68%\ClickToRun)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_86%\15.0\ClickToRun /v InstallPath" %nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (set o15c2r=1&set o15c2r_reg=%_86%\15.0\ClickToRun)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\15.0\ClickToRun /v InstallPath" %nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (set o15c2r=1&set o15c2r_reg=%_68%\15.0\ClickToRun)

 

-%_qrs% %_Nul2% | findstr /r "[0-9]*\.[0-9]*\.[0-9]*\.[0-9]*" %_Nul1% || (

-  set WMIe=1

-  %_qrw% %_Nul2% | find /i "ComputerSystem" %_Nul1% && (

-    echo Error: SPP is not responding

-    ) || (

-    echo Error: WMI ^& SPP are not responding

-  )

-)

-goto :eof

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_86%\16.0\Common\InstallRoot /v Path" %nul6%') do if exist "%%b\EntityPicker.dll" (set o16msi=1&set o16msi_reg=%_86%\16.0)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\16.0\Common\InstallRoot /v Path" %nul6%') do if exist "%%b\EntityPicker.dll" (set o16msi=1&set o16msi_reg=%_68%\16.0)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_86%\15.0\Common\InstallRoot /v Path" %nul6%') do if exist "%%b\EntityPicker.dll" (set o15msi=1&set o15msi_reg=%_86%\15.0)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\15.0\Common\InstallRoot /v Path" %nul6%') do if exist "%%b\EntityPicker.dll" (set o15msi=1&set o15msi_reg=%_68%\15.0)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_86%\14.0\Common\InstallRoot /v Path" %nul6%') do if exist "%%b\EntityPicker.dll" (set o14msi=1&set o14msi_reg=%_86%\14.0)

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_68%\14.0\Common\InstallRoot /v Path" %nul6%') do if exist "%%b\EntityPicker.dll" (set o14msi=1&set o14msi_reg=%_68%\14.0)

 

-:C2RR2V

-set RanR2V=1

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

-if %_Debug% EQU 0 (

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

-) else (

-set "_cscript=cscript //Nologo"

+exit /b

+

+::========================================================================================================================================

+

+::  Some Office Retail to Volume converter tools may edit the ProductReleaseIds to add VL products. This code restores it because it may affect features.

+

+:oh_fixprids

+

+if not defined _prids (

+call :dk_color %Gray% "Checking ProductReleaseIds In Registry  [Not Found]"

+exit /b

 )

-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 (

-echo Error: Office C2R service is not detected

-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 (

-echo Error: Office C2R InstallPath is not detected

-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 InstallPath" %_Nul6%') do (set "_OSPPVBS=%%b\Office16\OSPP.VBS")

-  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 InstallPath" %_Nul6%') do (set "_OSPPVBS=%%b\Office16\OSPP.VBS")

-  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 (echo Error: Office C2R ProductIDs are not detected&goto :%_fC2R%) else (goto :Reg15istry)

-)

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

-if %_Office15% EQU 0 (echo Error: Office C2R Licenses files are not detected&goto :%_fC2R%) else (goto :Reg15istry)

-)

-if not exist "%_Integrator%" (

-if %_Office15% EQU 0 (echo Error: Office C2R Licenses Integrator is not detected&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"

+

+set _pridsR=

+set _pridsE=

+for /f "skip=2 tokens=2*" %%a in ('"reg query %_prids%" %nul6%') do (set "_pridsR=%%b")

+

+set _pridsR=%_pridsR:,= %

+for %%# in (%_pridsR%) do (echo %%# | findstr /I "%_oIds%" %nul1% || set _pridsE=1)

+for %%# in (%_oIds%) do (echo %%# | findstr /I "%_pridsR%" %nul1% || set _pridsE=1)

+

+if not defined _pridsE exit /b

+reg add %_prids% /t REG_SZ /d "" /f %nul1%

+

+for %%# in (%_oIds%) do (

+for /f "skip=2 tokens=2*" %%a in ('reg query %_prids%') do if not "%%b"=="" (

+reg add %_prids% /t REG_SZ /d "%%b,%%#" /f %nul1%

 ) 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 (echo Error: Office 2013 C2R ProductIDs are not detected&goto :%_fC2R%) else (goto :CheckC2R)

-)

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

-if %_Office16% EQU 0 (echo Error: Office 2013 C2R Licenses files are not detected&goto :%_fC2R%) else (goto :CheckC2R)

-)

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

-if %_Office16% EQU 0 (echo Error: Office 2013 C2R Licensing tool OSPP.vbs is not detected&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

+reg add %_prids% /t REG_SZ /d "%%#" /f %nul1%

 )

-if %winbuild% GEQ 9200 (

-set _spp=SoftwareLicensingProduct

-set _sps=SoftwareLicensingService

-set "_vbsi=%_SLMGR% /ilc "

-set "_vbsf=%_SLMGR% /ilc "

-) else (

-set _spp=OfficeSoftwareProtectionProduct

-set _sps=OfficeSoftwareProtectionService

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

-set _vbsf="!_OSPPVBS!" /inslic:

-)

-set "_wmi="

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

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

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

-echo Error: %_sps% WMI version is not detected

-call :CheckWS

-goto :%_fC2R%

-)

-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 rancopp=0

-if %_Retail% EQU 0 if %_OMSI% EQU 0 (

-set rancopp=1

-%_Nul3% powershell "$f=[io.file]::ReadAllText('!_batp!') -split ':cleanlicense\:.*';iex ($f[1]);"

-)

-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 Office is activated with a vNext license.

-)

-if %sub_proj% EQU 1 (

-  for %%a in (%_PrjSKU%) do set _%%a=0

-echo.

-echo Microsoft Project is activated with a vNext license.

-)

-if %sub_vsio% EQU 1 (

-  for %%a in (%_VisSKU%) do set _%%a=0

-echo.

-echo Microsoft Visio is activated with a vNext license.

-)

-

-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))

-

-for %%# in ("!_LicensesPath!\client-issuance-*.xrm-ms") do (

-%_cscript% %_vbsf%"!_LicensesPath!\%%~nx#"

-)

-%_cscript% %_vbsf%"!_LicensesPath!\pkeyconfig-office.xrm-ms"

-

-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

-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

-

-for %%# in ("!_Licenses15Path!\client-issuance-*.xrm-ms") do (

-%_cscript% %_vbsi%"!_Licenses15Path!\%%~nx#"

-)

-%_cscript% %_vbsi%"!_Licenses15Path!\pkeyconfig-office.xrm-ms"

-

-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 "_patt=%1VL_"

-set "_pkey="

-set "_kpey="

-if not "%2"=="" (

-set "_ID=%1Retail"

-set "_patt=%1R_"

-set "_pkey=PidKey=%2"

-set "_kpey=%2"

-)

-reg delete %_Config% /f /v %_ID%.OSPPReady %_Nul3%

-"!_Integrator!" /I /License PRIDName=%_ID%.16 %_pkey% PackageGUID="%_GUID%" PackageRoot="!_InstallRoot!" %_Nul1%

-

-set fallback=0

-set "_qr=wmic path %_spp% where ApplicationID='%_oApp%' get LicenseFamily"

-if %WMI_VBS% NEQ 0 set "_qr=%_csq% %_spp% "ApplicationID='%_oApp%'" LicenseFamily"

-%_qr% %_Nul2% | find /i "%_patt%" %_Nul1% || (set fallback=1)

-if %fallback% equ 0 goto :IntOK

-

-set "_lsfs="

-for %%# in ("!_LicensesPath!\%_patt%*.xrm-ms") do (

-set "_lsfs=!_lsfs! %%~nx#"

-)

-if defined _kpey (

-  for %%# in ("!_LicensesPath!\%1DemoR*.xrm-ms") do (

-  set "_lsfs=!_lsfs! %%~nx#"

-  )

-  for %%# in ("!_LicensesPath!\%1E5R*.xrm-ms") do (

-  set "_lsfs=!_lsfs! %%~nx#"

-  )

-  for %%# in ("!_LicensesPath!\%1EDUR*.xrm-ms") do (

-  set "_lsfs=!_lsfs! %%~nx#"

-  )

-  for %%# in ("!_LicensesPath!\%1MSDNR*.xrm-ms") do (

-  set "_lsfs=!_lsfs! %%~nx#"

-  )

-  for %%# in ("!_LicensesPath!\%1O365R*.xrm-ms") do (

-  set "_lsfs=!_lsfs! %%~nx#"

-  )

-  for %%# in ("!_LicensesPath!\%1CO365R*.xrm-ms") do (

-  set "_lsfs=!_lsfs! %%~nx#"

-  )

-)

-for %%# in (!_lsfs!) do (

-%_cscript% %_vbsf%"!_LicensesPath!\%%#"

-)

-set "_qr=wmic path %_sps% where Version='%_wmi%' call InstallProductKey ProductKey="%_kpey%""

-if %WMI_VBS% NEQ 0 set "_qr=%_csp% %_sps% "%_kpey%""

-if defined _kpey %_qr% %_Nul3%

-

-:IntOK

-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

-set _CtRMsg=0

-if %_C16Msg% EQU 1 set _CtRMsg=1

-if %_C15Msg% EQU 1 set _CtRMsg=1

-if %_Office16% EQU 1 (

-for %%a in (%_RetIds%,ProPlus) do set "_%%a="

-for %%A in (19,21) do call :officeLoc %%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 %rancopp% EQU 1 if %_CtRMsg% EQU 1 (

-%_cscript% %_SLMGR% /rilc

-if !ERRORLEVEL! NEQ 0 %_cscript% %_SLMGR% /rilc

-)

-goto :%_sC2R%

-

-:keys

-if "%~1"=="" exit /b

-set yh=-

-goto :%1 %_Nul2%

-

-:: Windows 11 [Ni]

-:59eb965c-9150-42b7-a0ec-22151b9897c5

-set "_key=KBN8V%yh%HFGQ4%yh%MGXVD%yh%347P6%yh%PDQGT" &:: IoT Enterprise LTSC

-exit /b

+::========================================================================================================================================

 

-:: Windows 11 [Co]

-:ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69

-set "_key=37D7F%yh%N49CB%yh%WQR8W%yh%TBJ73%yh%FM8RX" &:: SE {Cloud}

-exit /b

+::  After retail to volume conversion, new product ID needs .OSPPReady key in registry, otherwise product info may not fully reflect 

 

-:d30136fc-cb4b-416e-a23d-87207abc44a9

-set "_key=6XN7V%yh%PCBDC%yh%BDBRH%yh%8DQY7%yh%G6R44" &:: SE N {Cloud N}

-exit /b

+:ks_osppready

 

-:: Windows 10 [RS5]

-:32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee

-set "_key=M7XTQ%yh%FN8P6%yh%TTKYV%yh%9D4CC%yh%J462D" &:: Enterprise LTSC 2019

-exit /b

+echo: %_config% | find /i "propertyBag" %nul1% && (

+set "_osppt=REG_DWORD"

+set "_osppready=%o15c2r_reg%"

+) || (

+set "_osppt=REG_SZ"

+set "_osppready=%_config%"

+)

 

-:7103a333-b8c8-49cc-93ce-d37c09687f92

-set "_key=92NFX%yh%8DJQP%yh%P6BBQ%yh%THF9C%yh%7CG2H" &:: Enterprise LTSC 2019 N

+reg add %_osppready% /f /v %_altoffid%.OSPPReady /t %_osppt% /d 1 %nul1%

 exit /b

 

-:ec868e65-fadf-4759-b23e-93fe37f2cc29

-set "_key=CPWHC%yh%NT2C7%yh%VYW78%yh%DHDB2%yh%PG3GK" &:: Enterprise for Virtual Desktops

-exit /b

+::========================================================================================================================================

 

-:0df4f814-3f57-4b8b-9a9d-fddadcd69fac

-set "_key=NBTWJ%yh%3DR69%yh%3C4V8%yh%C26MC%yh%GQ9M6" &:: Lean

-exit /b

+:ks_setspp

 

-:: Windows 10 [RS3]

-:82bbc092-bc50-4e16-8e18-b74fc486aec3

-set "_key=NRG8B%yh%VKK3Q%yh%CXVCJ%yh%9G2XF%yh%6Q84J" &:: Pro Workstation

+if %winbuild% GEQ 9200 (

+set spp=SoftwareLicensingProduct

+set sps=SoftwareLicensingService

+) else (

+set spp=OfficeSoftwareProtectionProduct

+set sps=OfficeSoftwareProtectionService

+)

+if "%1"=="14" (

+set spp=OfficeSoftwareProtectionProduct

+set sps=OfficeSoftwareProtectionService

+)

 exit /b

 

-:4b1571d3-bafb-4b40-8087-a961be2caf65

-set "_key=9FNHH%yh%K3HBT%yh%3W4TD%yh%6383H%yh%6XYWF" &:: Pro Workstation N

-exit /b

+::========================================================================================================================================

 

-:e4db50ea-bda1-4566-b047-0ca50abc6f07

-set "_key=7NBT4%yh%WGBQX%yh%MP4H7%yh%QXFF8%yh%YP3KX" &:: Enterprise Remote Server

-exit /b

+:ks_process

 

-:: Windows 10 [RS2]

-:e0b2d383-d112-413f-8a80-97f373a5820c

-set "_key=YYVX9%yh%NTFWV%yh%6MDM3%yh%9PT4T%yh%4M68B" &:: Enterprise G

-exit /b

+for %%# in (%_oIds%) do (

 

-:e38454fb-41a4-4f59-a5dc-25080e354730

-set "_key=44RPN%yh%FTY23%yh%9VTTB%yh%MP9BX%yh%T84FV" &:: Enterprise G N

-exit /b

+set skipprocess=

+if %_NoEditionChange%==1 if not defined _oBranding (

+echo %%# | findstr /i "Retail" %nul% && (

+set skipprocess=1

+echo Skipping Because NoEditionChange Mode   [%%#]

+)

+)

 

-:: Windows 10 [RS1]

-:2d5a5a60-3040-48bf-beb0-fcd770c20ce0

-set "_key=DCPHK%yh%NFMTC%yh%H88MJ%yh%PFHPY%yh%QJ4BJ" &:: Enterprise 2016 LTSB

-exit /b

 

-:9f776d83-7156-45b2-8a5c-359b9c9f22a3

-set "_key=QFFDN%yh%GRT3P%yh%VKWWX%yh%X7T3R%yh%8B639" &:: Enterprise 2016 LTSB N

-exit /b

+if "%_actprojvis%"=="1" if not defined skipprocess (

+echo %%# | findstr /i "Project Visio" %nul% || (

+set skipprocess=1

+echo Skipping Because Project/Visio Mode     [%%#]

+)

+)

 

-:3f1afc82-f8ac-4f6c-8005-1d233e606eee

-set "_key=6TP4R%yh%GNPTD%yh%KYYHQ%yh%7B7DP%yh%J447Y" &:: Pro Education

-exit /b

+if "%_actprojvis%"=="0" if not defined skipprocess echo %_oIds% | findstr /i "O365" %nul% && (

+echo %%# | findstr /i "Project Visio" %nul% && (

+set skipprocess=1

+echo Skipping Because Mondo Is Available     [%%#]

+)

+)

 

-:5300b18c-2e33-4dc2-8291-47ffcec746dd

-set "_key=YVWGF%yh%BXNMC%yh%HTQYQ%yh%CPQ99%yh%66QFC" &:: Pro Education N

-exit /b

+if not defined skipprocess (

+set key=

+set _actid=

+set _preview=

+set _License=%%#

+set _altoffid=

 

-:: Windows 10 [TH]

-:58e97c99-f377-4ef1-81d5-4ad5522b5fd8

-set "_key=TX9XD%yh%98N7V%yh%6WMQ6%yh%BX7FG%yh%H8Q99" &:: Home

-exit /b

+echo %%# | find /i "2024" %nul% && (

+if exist "!_oLPath!\ProPlus2024PreviewVL_*.xrm-ms" if not exist "!_oLPath!\ProPlus2024VL_*.xrm-ms" set _preview=-Preview

+)

+set _prod=%%#!_preview!

 

-:7b9e1751-a8da-4f75-9560-5fadfe3d8e38

-set "_key=3KHY7%yh%WNT83%yh%DGQKR%yh%F7HPR%yh%844BM" &:: Home N

-exit /b

+call :ksdata getinfo !_prod!

 

-:cd918a57-a41b-4c82-8dce-1a538e221a83

-set "_key=7HNRX%yh%D7KGG%yh%3K4RQ%yh%4WPJ4%yh%YTDFH" &:: Home Single Language

-exit /b

+if defined _altoffid (

+set _License=!_altoffid!

+echo Converting Retail To Volume             [!_prod! To !_altoffid!]

+set _prod=!_altoffid!

+call :ks_osppready

+)

 

-:a9107544-f4a0-4053-a96a-1479abdef912

-set "_key=PVMJN%yh%6DFY6%yh%9CCP6%yh%7BKTT%yh%D3WVR" &:: Home China

-exit /b

+if not [!key!]==[] (

+echo "!allapps!" | find /i "!_actid!" %nul1% || call :oh_installlic

+call :dk_inskey "[!key!] [!_prod!]"

+) else (

+if not defined _oBranding (

+set error=1

+call :dk_color %Red% "Checking Product In Script              [Office %oVer%.0 !_prod! not found in script]"

+call :dk_color %Blue% "Make sure you are using Latest MAS script."

+) else (

+call :dk_color %Red% "Checking Product In Script              [!_prod! MSI Retail is not supported]"

+call :dk_color %Blue% "Uninstall this and Install C2R or MSI VL version of Office."

+)

+set fixes=%fixes% %mas%genuine-installation-media

+call :dk_color %_Yellow% "%mas%genuine-installation-media"

+)

+)

+)

 

-:2de67392-b7a7-462a-b1ca-108dd189f588

-set "_key=W269N%yh%WFGWX%yh%YVC9B%yh%4J6C9%yh%T83GX" &:: Pro

 exit /b

 

-:a80b5abf-76ad-428b-b05d-a47d2dffeebf

-set "_key=MH37W%yh%N47XK%yh%V7XM9%yh%C7227%yh%GCQG9" &:: Pro N

-exit /b

+::========================================================================================================================================

 

-:e0c42288-980c-4788-a014-c080d2e1926e

-set "_key=NW6C2%yh%QMPVW%yh%D7KKK%yh%3GKT6%yh%VCFB2" &:: Education

-exit /b

+:ks_processmsi

 

-:3c102355-d027-42c6-ad23-2e7ef8a02585

-set "_key=2WH4N%yh%8QGBV%yh%H22JP%yh%CT43Q%yh%MDWWJ" &:: Education N

-exit /b

+::  Process Office MSI Version

 

-:73111121-5638-40f6-bc11-f1d7b0d64300

-set "_key=NPPR9%yh%FWDCX%yh%D2C8J%yh%H872K%yh%2YT43" &:: Enterprise

-exit /b

+call :ks_reset

 

-:e272e3e2-732f-4c65-a8f0-484747d0d947

-set "_key=DPH2V%yh%TTNVB%yh%4X9Q3%yh%TJR4H%yh%KHJW4" &:: Enterprise N

-exit /b

+if "%1"=="14" (

+call :dk_actids 59a52881-a989-479d-af46-f275c6370663

+) else (

+call :dk_actids 0ff1ce15-a989-479d-af46-f275c6370663

+)

 

-:7b51a46c-0c04-4e8f-9af4-8496cca90d5e

-set "_key=WNMTR%yh%4C88C%yh%JK8YV%yh%HQ7T2%yh%76DF9" &:: Enterprise 2015 LTSB

-exit /b

+set oVer=%1

+for /f "skip=2 tokens=2*" %%a in ('"reg query %2\Common\InstallRoot /v Path" %nul6%') do (set "_oRoot=%%b")

+for /f "skip=2 tokens=2*" %%a in ('"reg query %2\Common\ProductVersion /v LastProduct" %nul6%') do (set "_version=%%b")

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

 

-:87b838b7-41b6-4590-8318-5797951d8529

-set "_key=2F77B%yh%TNFGY%yh%69QQF%yh%B8YKP%yh%D69TJ" &:: Enterprise 2015 LTSB N

-exit /b

+echo "%2" | find /i "Wow6432Node" %nul1% && set _oArch=x86

+if not [%osarch%]==[x86] if not defined _oArch set _oArch=x64

+if [%osarch%]==[x86] set _oArch=x86

 

-:: Windows Server 2022 [Fe]

-:9bd77860-9b31-4b7b-96ad-2564017315bf

-set "_key=VDYBN%yh%27WPP%yh%V4HQT%yh%9VMD4%yh%VMK7H" &:: Standard

-exit /b

+set "_common=%CommonProgramFiles%"

+if defined PROCESSOR_ARCHITEW6432 set "_common=%CommonProgramW6432%"

+set "_common2=%CommonProgramFiles(x86)%"

 

-:ef6cfc9f-8c5d-44ac-9aad-de6a2ea0ae03

-set "_key=WX4NM%yh%KYWYW%yh%QJJR4%yh%XV3QB%yh%6VM33" &:: Datacenter

-exit /b

+for /r "%_common%\Microsoft Shared\OFFICE%oVer%\" %%f in (BRANDING.XML) do if exist "%%f" set "_oBranding=%%f"

+if not defined _oBranding for /r "%_common2%\Microsoft Shared\OFFICE%oVer%\" %%f in (BRANDING.XML) do if exist "%%f" set "_oBranding=%%f"

 

-:8c8f0ad3-9a43-4e05-b840-93b8d1475cbc

-set "_key=6N379%yh%GGTMK%yh%23C6M%yh%XVVTC%yh%CKFRQ" &:: Azure Core

-exit /b

+call :ksdata getmsiprod %2

+call :ks_msiretaildata getmsiret %2

 

-:f5e9429c-f50b-4b98-b15c-ef92eb5cff39

-set "_key=67KN8%yh%4FYJW%yh%2487Q%yh%MQ2J7%yh%4C4RG" &:: Standard ACor

-exit /b

+echo:

+echo Processing Office...                    [MSI ^| %_version% ^| %_oArch%]

 

-:39e69c41-42b4-4a0a-abad-8e3c10a797cc

-set "_key=QFND9%yh%D3Y9C%yh%J3KKY%yh%6RPVP%yh%2DPYV" &:: Datacenter ACor

+if not defined _oBranding (

+set error=1

+call :dk_color %Red% "Checking BRANDING.XML                   [Not Found. Aborting activation...]"

 exit /b

+)

 

-:: Windows Server 2019 [RS5]

-:de32eafd-aaee-4662-9444-c1befb41bde2

-set "_key=N69G4%yh%B89J2%yh%4G8F4%yh%WWYCC%yh%J464C" &:: Standard

+if not defined _oIds (

+set error=1

+call :dk_color %Red% "Checking Installed Products             [Product IDs not found. Aborting activation...]"

 exit /b

+)

 

-:34e1ae55-27f8-4950-8877-7a03be5fb181

-set "_key=WMDGN%yh%G9PQG%yh%XVVXX%yh%R3X43%yh%63DFG" &:: Datacenter

+call :ks_process

 exit /b

 

-:a99cc1f0-7719-4306-9645-294102fbff95

-set "_key=FDNH6%yh%VW9RW%yh%BXPJ7%yh%4XTYG%yh%239TB" &:: Azure Core

-exit /b

+::========================================================================================================================================

 

-:73e3957c-fc0c-400d-9184-5f7b6f2eb409

-set "_key=N2KJX%yh%J94YW%yh%TQVFB%yh%DG9YT%yh%724CC" &:: Standard ACor

-exit /b

+:oh_installlic

 

-:90c362e5-0da1-4bfd-b53b-b87d309ade43

-set "_key=6NMRW%yh%2C8FM%yh%D24W7%yh%TQWMY%yh%CWH2D" &:: Datacenter ACor

-exit /b

+if not defined _oLPath exit /b

 

-:034d3cbb-5d4b-4245-b3f8-f84571314078

-set "_key=WVDHN%yh%86M7X%yh%466P6%yh%VHXV7%yh%YY726" &:: Essentials

-exit /b

+if %oVer%==16 (

+"!_oIntegrator!" /I /License PRIDName=%_License%.16 PidKey=%key% %nul%

+) else (

+"!_oIntegrator!" /I /License PRIDName=%_License% PidKey=%key% %nul%

+)

 

-:8de8eb62-bbe0-40ac-ac17-f75595071ea3

-set "_key=GRFBW%yh%QNDC4%yh%6QBHG%yh%CCK3B%yh%2PR88" &:: ServerARM64

-exit /b

+call :dk_actids 0ff1ce15-a989-479d-af46-f275c6370663

+echo "!allapps!" | find /i "!_actid!" %nul1% && exit /b

 

-:19b5e0fb-4431-46bc-bac1-2f1873e4ae73

-set "_key=NTBV8%yh%9K7Q8%yh%V27C6%yh%M2BTV%yh%KHMXV" &:: Azure Datacenter - ServerTurbine

-exit /b

+::  Fallback to manual method to install licenses incase integrator.exe is not working

 

-:: Windows Server 2016 [RS4]

-:43d9af6e-5e86-4be8-a797-d072a046896c

-set "_key=K9FYF%yh%G6NCK%yh%73M32%yh%XMVPY%yh%F9DRR" &:: ServerARM64

-exit /b

+set _License=%_License:XVolume=XC2RVL_%

 

-:: Windows Server 2016 [RS3]

-:61c5ef22-f14f-4553-a824-c4b31e84b100

-set "_key=PTXN8%yh%JFHJM%yh%4WC78%yh%MPCBR%yh%9W4KR" &:: Standard ACor

-exit /b

+set _License=%_License:O365EduCloudRetail=O365EduCloudEDUR_%

 

-:e49c08e7-da82-42f8-bde2-b570fbcae76c

-set "_key=2HXDN%yh%KRXHB%yh%GPYC7%yh%YCKFJ%yh%7FVDG" &:: Datacenter ACor

-exit /b

+set _License=%_License:ProjectProRetail=ProjectProO365R_%

+set _License=%_License:ProjectStdRetail=ProjectStdO365R_%

+set _License=%_License:VisioProRetail=VisioProO365R_%

+set _License=%_License:VisioStdRetail=VisioStdO365R_%

 

-:: Windows Server 2016 [RS1]

-:8c1c5410-9f39-4805-8c9d-63a07706358f

-set "_key=WC2BQ%yh%8NRM3%yh%FDDYY%yh%2BFGV%yh%KHKQY" &:: Standard

-exit /b

+if defined _preview set _License=%_License:Volume=PreviewVL_%

 

-:21c56779-b449-4d20-adfc-eece0e1ad74b

-set "_key=CB7KF%yh%BWN84%yh%R7R2Y%yh%793K2%yh%8XDDG" &:: Datacenter

-exit /b

+set _License=%_License:Retail=R_%

+set _License=%_License:Volume=VL_%

 

-:3dbf341b-5f6c-4fa7-b936-699dce9e263f

-set "_key=VP34G%yh%4NPPG%yh%79JTQ%yh%864T4%yh%R3MQX" &:: Azure Core

-exit /b

+for %%# in ("!_oLPath!\client-issuance-*.xrm-ms") do (

+if defined _arr (set "_arr=!_arr!;"!_oLPath!\%%~nx#"") else (set "_arr="!_oLPath!\%%~nx#"")

+)

 

-:2b5a1b0f-a5ab-4c54-ac2f-a6d94824a283

-set "_key=JCKRF%yh%N37P4%yh%C2D82%yh%9YXRT%yh%4M63B" &:: Essentials

-exit /b

+for %%# in ("!_oLPath!\%_License%*.xrm-ms") do (

+if defined _arr (set "_arr=!_arr!;"!_oLPath!\%%~nx#"") else (set "_arr="!_oLPath!\%%~nx#"")

+)

 

-:7b4433f4-b1e7-4788-895a-c45378d38253

-set "_key=QN4C6%yh%GBJD2%yh%FB422%yh%GHWJK%yh%GJG2R" &:: Cloud Storage

-exit /b

+%psc% "$sls = Get-WmiObject %sps%; $f=[io.file]::ReadAllText('!_batp!') -split ':xrm\:.*';iex ($f[1]); InstallLicenseArr '!_arr!'; InstallLicenseFile '"!_oLPath!\pkeyconfig-office.xrm-ms"'" %nul%

 

-:: Windows 8.1

-:fe1c3238-432a-43a1-8e25-97e7d1ef10f3

-set "_key=M9Q9P%yh%WNJJT%yh%6PXPY%yh%DWX8H%yh%6XWKK" &:: Core

-exit /b

+call :dk_actids 0ff1ce15-a989-479d-af46-f275c6370663

+echo "!allapps!" | find /i "!_actid!" %nul1% || (

+set error=1

+call :dk_color %Red% "Installing Missing License Files        [Office %oVer%.0 %_prod%] [Failed]"

+)

 

-:78558a64-dc19-43fe-a0d0-8075b2a370a3

-set "_key=7B9N3%yh%D94CG%yh%YTVHR%yh%QBPX3%yh%RJP64" &:: Core N

 exit /b

 

-:c72c6a1d-f252-4e7e-bdd1-3fca342acb35

-set "_key=BB6NG%yh%PQ82V%yh%VRDPW%yh%8XVD2%yh%V8P66" &:: Core Single Language

-exit /b

+::========================================================================================================================================

 

-:db78b74f-ef1c-4892-abfe-1e66b8231df6

-set "_key=NCTT7%yh%2RGK8%yh%WMHRF%yh%RY7YQ%yh%JTXG3" &:: Core China

-exit /b

+:oh_clearblock

 

-:ffee456a-cd87-4390-8e07-16146c672fd0

-set "_key=XYTND%yh%K6QKT%yh%K2MRH%yh%66RTM%yh%43JKP" &:: Core ARM

-exit /b

+::  Find remnants of Office vNext/shared/device license block and remove it because it stops other licenses from appearing

+::  https://learn.microsoft.com/office/troubleshoot/activation/reset-office-365-proplus-activation-state

 

-:c06b6981-d7fd-4a35-b7b4-054742b7af67

-set "_key=GCRJD%yh%8NW9H%yh%F2CDX%yh%CCM8D%yh%9D6T9" &:: Pro

-exit /b

+set _sidlist=

+for /f "tokens=* delims=" %%a in ('%psc% "$p = 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList'; Get-ChildItem $p | ForEach-Object { $pi = (Get-ItemProperty $('{0}\{1}' -f $p, $_.PSChildName)).ProfileImagePath; if ($pi -like $('{0}\Users\*' -f $Env:SystemDrive)) { Split-Path $_.PSPath -Leaf } }" %nul6%') do (if defined _sidlist (set _sidlist=!_sidlist! %%a) else (set _sidlist=%%a))

 

-:7476d79f-8e48-49b4-ab63-4d0b813a16e4

-set "_key=HMCNV%yh%VVBFX%yh%7HMBH%yh%CTY9B%yh%B4FXY" &:: Pro N

+if not defined _sidlist (

+set error=1

+call :dk_color %Red% "Checking User Accounts SID              [Not Found]"

 exit /b

+)

 

-:096ce63d-4fac-48a9-82a9-61ae9e800e5f

-set "_key=789NJ%yh%TQK6T%yh%6XTH8%yh%J39CJ%yh%J8D3P" &:: Pro with Media Center

-exit /b

+set /a counter=0

+for %%# in (%_sidlist%) do set /a counter+=1

 

-:81671aaf-79d1-4eb1-b004-8cbbe173afea

-set "_key=MHF9N%yh%XY6XB%yh%WVXMC%yh%BTDCT%yh%MKKG7" &:: Enterprise

-exit /b

+if %counter% GTR 10 (

+call :dk_color %Gray% "Checking Total User Accounts            [%counter%]"

+)

 

-:113e705c-fa49-48a4-beea-7dd879b46b14

-set "_key=TT4HM%yh%HN7YT%yh%62K67%yh%RGRQJ%yh%JFFXW" &:: Enterprise N

-exit /b

+::==========================

 

-:0ab82d54-47f4-4acb-818c-cc5bf0ecb649

-set "_key=NMMPB%yh%38DD4%yh%R2823%yh%62W8D%yh%VXKJB" &:: Embedded Industry Pro

-exit /b

+::  Load the unloaded useraccounts registry

 

-:cd4e2d9f-5059-4a50-a92d-05d5bb1267c7

-set "_key=FNFKF%yh%PWTVT%yh%9RC8H%yh%32HB2%yh%JB34X" &:: Embedded Industry Enterprise

-exit /b

+set loadedsids=

+set failedtoload=

+set failedtounload=

+for %%# in (%_sidlist%) do (

+reg query HKU\%%#\Software %nul% || (

+for /f "skip=2 tokens=2*" %%a in ('"reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%%#" /v ProfileImagePath" %nul6%') do (

+reg load HKU\%%# "%%b\NTUSER.DAT" %nul%

+reg query HKU\%%#\Software %nul% && (

+call set "loadedsids=%%loadedsids%% %%#"

+) || (

+set failedtoload=1

+)

+)

+)

+)

 

-:f7e88590-dfc7-4c78-bccb-6f3865b99d1a

-set "_key=VHXM3%yh%NR6FT%yh%RY6RT%yh%CK882%yh%KW2CJ" &:: Embedded Industry Automotive

-exit /b

+::==========================

 

-:e9942b32-2e55-4197-b0bd-5ff58cba8860

-set "_key=3PY8R%yh%QHNP9%yh%W7XQD%yh%G6DPH%yh%3J2C9" &:: with Bing

-exit /b

+::  Clear the vNext/shared/device license blocks which may prevent ohook activation

 

-:c6ddecd6-2354-4c19-909b-306a3058484e

-set "_key=Q6HTR%yh%N24GM%yh%PMJFP%yh%69CD8%yh%2GXKR" &:: with Bing N

-exit /b

+rmdir /s /q "%ProgramData%\Microsoft\Office\Licenses\" %nul%

 

-:b8f5e3a3-ed33-4608-81e1-37d6c9dcfd9c

-set "_key=KF37N%yh%VDV38%yh%GRRTV%yh%XH8X6%yh%6F3BB" &:: with Bing Single Language

-exit /b

+for %%x in (15 16) do (

+for %%# in (%_sidlist%) do (

+reg delete HKU\%%#\Software\Microsoft\Office\%%x.0\Common\Licensing /f %nul%

+reg delete HKU\%%#\Software\Microsoft\Office\%%x.0\Common\Identity /f %nul%

 

-:ba998212-460a-44db-bfb5-71bf09d1c68b

-set "_key=R962J%yh%37N87%yh%9VVK2%yh%WJ74P%yh%XTMHR" &:: with Bing China

-exit /b

+for /f "skip=2 tokens=2*" %%a in ('"reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%%#" /v ProfileImagePath" %nul6%') do (

+rmdir /s /q "%%b\AppData\Local\Microsoft\Office\Licenses\" %nul%

+rmdir /s /q "%%b\AppData\Local\Microsoft\Office\%%x.0\Licensing\" %nul%

+)

+)

+reg delete "HKLM\SOFTWARE\Microsoft\Office\%%x.0\Common\Licensing" /f %nul%

+reg delete "HKLM\SOFTWARE\Microsoft\Office\%%x.0\Common\Licensing" /f /reg:32 %nul%

+reg delete "HKLM\SOFTWARE\Policies\Microsoft\Office\%%x.0\Common\Licensing" /f %nul%

+reg delete "HKLM\SOFTWARE\Policies\Microsoft\Office\%%x.0\Common\Licensing" /f /reg:32 %nul%

+)

 

-:e58d87b5-8126-4580-80fb-861b22f79296

-set "_key=MX3RK%yh%9HNGX%yh%K3QKC%yh%6PJ3F%yh%W8D7B" &:: Pro for Students

-exit /b

+::  Clear SharedComputerLicensing for office

+::  https://learn.microsoft.com/en-us/deployoffice/overview-shared-computer-activation

 

-:cab491c7-a918-4f60-b502-dab75e334f40

-set "_key=TNFGH%yh%2R6PB%yh%8XM3K%yh%QYHX2%yh%J4296" &:: Pro for Students N

-exit /b

+if not defined scaIsNeeded (

+reg delete HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v SharedComputerLicensing /f %nul%

+reg delete HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v SharedComputerLicensing /f /reg:32 %nul%

+reg delete HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v SharedComputerLicensing /f %nul%

+reg delete HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v SharedComputerLicensing /f /reg:32 %nul%

+)

 

-:: Windows Server 2012 R2

-:b3ca044e-a358-4d68-9883-aaa2941aca99

-set "_key=D2N9P%yh%3P6X9%yh%2R39C%yh%7RTCD%yh%MDVJX" &:: Standard

-exit /b

+::  Clear device-based-licensing

+::  https://learn.microsoft.com/deployoffice/device-based-licensing

 

-:00091344-1ea4-4f37-b789-01750ba6988c

-set "_key=W3GGN%yh%FT8W3%yh%Y4M27%yh%J84CP%yh%Q3VJ9" &:: Datacenter

-exit /b

+for %%# in (%_o16c2rIds%) do (

+reg delete %o16c2r_reg%\Configuration /v %%#.DeviceBasedLicensing /f %nul%

+)

 

-:21db6ba4-9a7b-4a14-9e29-64a60c59301d

-set "_key=KNC87%yh%3J2TX%yh%XB4WP%yh%VCPJV%yh%M4FWM" &:: Essentials

-exit /b

+::  Remove OEM registry key

+::  https://support.microsoft.com/office/office-repeatedly-prompts-you-to-activate-on-a-new-pc-a9a6b05f-f6ce-4d1f-8d49-eb5007b64ba1

 

-:b743a2be-68d4-4dd3-af32-92425b7bb623

-set "_key=3NPTF%yh%33KPT%yh%GGBPR%yh%YX76B%yh%39KDD" &:: Cloud Storage

-exit /b

+for %%# in (15 16) do (

+reg delete "HKLM\SOFTWARE\Microsoft\Office\%%#.0\Common\OEM" /f %nul%

+reg delete "HKLM\SOFTWARE\Microsoft\Office\%%#.0\Common\OEM" /f /reg:32 %nul%

+)

 

-:: Windows 8

-:c04ed6bf-55c8-4b47-9f8e-5a1f31ceee60

-set "_key=BN3D2%yh%R7TKB%yh%3YPBD%yh%8DRP2%yh%27GG4" &:: Core

-exit /b

+reg delete "HKU\S-1-5-20\Software\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Policies\0ff1ce15-a989-479d-af46-f275c6370663" /f %nul%

 

-:197390a0-65f6-4a95-bdc4-55d58a3b0253

-set "_key=8N2M2%yh%HWPGY%yh%7PGT9%yh%HGDD8%yh%GVGGY" &:: Core N

-exit /b

+echo Clearing Office License Blocks          [Successfully Cleared From All %counter% Useraccounts]

 

-:8860fcd4-a77b-4a20-9045-a150ff11d609

-set "_key=2WN2H%yh%YGCQR%yh%KFX6K%yh%CD6TF%yh%84YXQ" &:: Core Single Language

-exit /b

+::==========================

 

-:9d5584a2-2d85-419a-982c-a00888bb9ddf

-set "_key=4K36P%yh%JN4VD%yh%GDC6V%yh%KDT89%yh%DYFKP" &:: Core China

-exit /b

+::  Some retail products attempt to validate the license and may show a banner "There was a problem checking this device's license status."

+::  Resiliency registry entry can skip this check

 

-:af35d7b7-5035-4b63-8972-f0b747b9f4dc

-set "_key=DXHJF%yh%N9KQX%yh%MFPVR%yh%GHGQK%yh%Y7RKV" &:: Core ARM

-exit /b

+if defined o16c2r if defined officeact (

+reg load HKU\DEF_TEMP %SystemDrive%\Users\Default\NTUSER.DAT %nul%

+reg query HKU\DEF_TEMP %nul% || set failedtoload=1

+reg add HKU\DEF_TEMP\Software\Microsoft\Office\16.0\Common\Licensing\Resiliency /v "TimeOfLastHeartbeatFailure" /t REG_SZ /d "2040-01-01T00:00:00Z" /f %nul%

+reg unload HKU\DEF_TEMP %nul%

+reg query HKU\DEF_TEMP %nul% && set failedtounload=1

 

-:a98bcd6d-5343-4603-8afe-5908e4611112

-set "_key=NG4HW%yh%VH26C%yh%733KW%yh%K6F98%yh%J8CK4" &:: Pro

-exit /b

+for %%# in (%_sidlist%) do (

+reg delete HKU\%%#\Software\Microsoft\Office\16.0\Common\Licensing\Resiliency /f %nul%

+reg add HKU\%%#\Software\Microsoft\Office\16.0\Common\Licensing\Resiliency /v "TimeOfLastHeartbeatFailure" /t REG_SZ /d "2040-01-01T00:00:00Z" /f %nul%

+)

+echo Adding Reg Keys To Skip License Check   [Successfully Added To All %counter% ^& Future New Useraccounts]

+)

 

-:ebf245c1-29a8-4daf-9cb1-38dfc608a8c8

-set "_key=XCVCF%yh%2NXM9%yh%723PB%yh%MHCB7%yh%2RYQQ" &:: Pro N

-exit /b

+::==========================

 

-:a00018a3-f20f-4632-bf7c-8daa5351c914

-set "_key=GNBB8%yh%YVD74%yh%QJHX6%yh%27H4K%yh%8QHDG" &:: Pro with Media Center

-exit /b

+::  Unload the loaded useraccounts registry

 

-:458e1bec-837a-45f6-b9d5-925ed5d299de

-set "_key=32JNW%yh%9KQ84%yh%P47T8%yh%D8GGY%yh%CWCK7" &:: Enterprise

-exit /b

+for %%# in (%loadedsids%) do (

+reg unload HKU\%%# %nul%

+reg query HKU\%%# %nul% && set failedtounload=1

+)

 

-:e14997e7-800a-4cf7-ad10-de4b45b578db

-set "_key=JMNMF%yh%RHW7P%yh%DMY6X%yh%RF3DR%yh%X2BQT" &:: Enterprise N

-exit /b

+if defined failedtoload (

+set error=1

+call :dk_color %Red% "Loading Unloaded accounts Registry      [Failed For Some Useraccounts]"

+call :dk_color %Blue% "Restart the system and try again."

+)

 

-:10018baf-ce21-4060-80bd-47fe74ed4dab

-set "_key=RYXVT%yh%BNQG7%yh%VD29F%yh%DBMRY%yh%HT73M" &:: Embedded Industry Pro

-exit /b

+if defined failedtounload (

+set error=1

+call :dk_color %Red% "Unloading loaded accounts Registry      [Failed For Some Useraccounts]"

+call :dk_color %Blue% "Restart the system and try again."

+)

 

-:18db1848-12e0-4167-b9d7-da7fcda507db

-set "_key=NKB3R%yh%R2F8T%yh%3XCDP%yh%7Q2KW%yh%XWYQ2" &:: Embedded Industry Enterprise

 exit /b

 

-:: Windows Server 2012

-:f0f5ec41-0d55-4732-af02-440a44a3cf0f

-set "_key=XC9B7%yh%NBPP2%yh%83J2H%yh%RHMBY%yh%92BT4" &:: Standard

-exit /b

+::========================================================================================================================================

 

-:d3643d60-0c42-412d-a7d6-52e6635327f6

-set "_key=48HP8%yh%DN98B%yh%MYWDG%yh%T2DCC%yh%8W83P" &:: Datacenter

-exit /b

+::  Uninstall other / grace Keys

 

-:7d5486c7-e120-4771-b7f1-7b56c6d3170c

-set "_key=HM7DN%yh%YVMH3%yh%46JC3%yh%XYTG7%yh%CYQJJ" &:: MultiPoint Standard

-exit /b

+:oh_uninstkey

 

-:95fd1c83-7df5-494a-be8b-1300e1c9d1cd

-set "_key=XNH6W%yh%2V9GX%yh%RGJ4K%yh%Y8X6F%yh%QGJ2G" &:: MultiPoint Premium

-exit /b

+set upk_result=0

+call :dk_actid 0ff1ce15-a989-479d-af46-f275c6370663

 

-:: Windows 7

-:b92e9980-b9d5-4821-9c94-140f632f6312

-set "_key=FJ82H%yh%XT6CR%yh%J8D7P%yh%XQJJ2%yh%GPDD4" &:: Professional

-exit /b

+if "%_actprojvis%"=="1" (

+set _allactid=

+for /f "delims=" %%a in ('%psc% "(Get-WmiObject -Query 'SELECT ID, Description, LicenseFamily FROM %spp% WHERE ApplicationID=''0ff1ce15-a989-479d-af46-f275c6370663'' AND PartialProductKey IS NOT NULL' | Where-Object { $_.LicenseFamily -notmatch 'Project' -and $_.LicenseFamily -notmatch 'Visio' }).ID" %nul6%') do call set "_allactid=%%a !_allactid!"

+for /f "delims=" %%a in ('%psc% "(Get-WmiObject -Query 'SELECT ID, Description, LicenseFamily FROM %spp% WHERE ApplicationID=''0ff1ce15-a989-479d-af46-f275c6370663'' AND PartialProductKey IS NOT NULL' | Where-Object { $_.Description -match 'KMSCLIENT' -and ($_.LicenseFamily -match 'Project' -or $_.LicenseFamily -match 'Visio') }).ID" %nul6%') do call set "_allactid=%%a !_allactid!"

+) else (

+for /f "delims=" %%a in ('%psc% "(Get-WmiObject -Query 'SELECT ID FROM %spp% WHERE ApplicationID=''0ff1ce15-a989-479d-af46-f275c6370663'' AND LicenseStatus=1 AND GracePeriodRemaining=0 AND PartialProductKey IS NOT NULL').ID" %nul6%') do call set "_allactid=%%a !_allactid!"

+)

 

-:54a09a0d-d57b-4c10-8b69-a842d6590ad5

-set "_key=MRPKT%yh%YTG23%yh%K7D7T%yh%X2JMM%yh%QY7MG" &:: Professional N

-exit /b

+for %%# in (%apps%) do (

+echo "%_allactid%" | find /i "%%#" %nul1% || (

 

-:5a041529-fef8-4d07-b06f-b59b573b32d2

-set "_key=W82YF%yh%2Q76Y%yh%63HXB%yh%FGJG9%yh%GF7QX" &:: Professional E

-exit /b

+if %_wmic% EQU 1 wmic path %spp% where ID='%%#' call UninstallProductKey %nul%

+if %_wmic% EQU 0 %psc% "$null=([WMI]'%spp%=''%%#''').UninstallProductKey()" %nul%

 

-:ae2ee509-1b34-41c0-acb7-6d4650168915

-set "_key=33PXH%yh%7Y6KF%yh%2VJC9%yh%XBBR8%yh%HVTHH" &:: Enterprise

-exit /b

+if !errorlevel!==0 (

+set upk_result=1

+) else (

+set error=1

+set upk_result=2

+)

+)

+)

 

-:1cb6d605-11b3-4e14-bb30-da91c8e3983a

-set "_key=YDRBP%yh%3D83W%yh%TY26F%yh%D46B2%yh%XCKRJ" &:: Enterprise N

+if defined officeact if not %upk_result%==0 echo:

+if %upk_result%==1 echo Uninstalling Other/Grace Keys           [Successful]

+if %upk_result%==2 call :dk_color %Red% "Uninstalling Other/Grace Keys           [Failed]"

 exit /b

 

-:46bbed08-9c7b-48fc-a614-95250573f4ea

-set "_key=C29WB%yh%22CC8%yh%VJ326%yh%GHFJW%yh%H9DH4" &:: Enterprise E

-exit /b

+::========================================================================================================================================

 

-:db537896-376f-48ae-a492-53d0547773d0

-set "_key=YBYF6%yh%BHCR3%yh%JPKRB%yh%CDW7B%yh%F9BK4" &:: Embedded POSReady 7

-exit /b

+::  Refresh Windows Insider Preview Licenses

+::  It required in Insider versions otherwise office may not activate

 

-:e1a8296a-db37-44d1-8cce-7bc961d59c54

-set "_key=XGY72%yh%BRBBT%yh%FF8MH%yh%2GG8H%yh%W7KCW" &:: Embedded Standard

-exit /b

+:oh_licrefresh

 

-:aa6dd3aa-c2b4-40e2-a544-a6bbb3f5c395

-set "_key=73KQT%yh%CD9G6%yh%K7TQG%yh%66MRP%yh%CQ22C" &:: Embedded ThinPC

+if exist "%SysPath%\spp\store_test\2.0\tokens.dat" (

+%psc% "Stop-Service sppsvc -force; $sls = Get-WmiObject SoftwareLicensingService; $f=[io.file]::ReadAllText('!_batp!') -split ':xrm\:.*';iex ($f[1]); ReinstallLicenses" %nul%

+if !errorlevel! NEQ 0 %psc% "$sls = Get-WmiObject SoftwareLicensingService; $f=[io.file]::ReadAllText('!_batp!') -split ':xrm\:.*';iex ($f[1]); ReinstallLicenses" %nul%

+)

 exit /b

 

-:: Windows Server 2008 R2

-:a78b8bd9-8017-4df5-b86a-09f756affa7c

-set "_key=6TPJF%yh%RBVHG%yh%WBW2R%yh%86QPH%yh%6RTM4" &:: Web

-exit /b

+::========================================================================================================================================

 

-:cda18cf3-c196-46ad-b289-60c072869994

-set "_key=TT8MH%yh%CG224%yh%D3D7Q%yh%498W2%yh%9QCTX" &:: HPC

-exit /b

+:ks_uninstall

 

-:68531fb9-5511-4989-97be-d11a0f55633f

-set "_key=YC6KT%yh%GKW9T%yh%YTKYR%yh%T4X34%yh%R7VHC" &:: Standard

-exit /b

+cls

+if not defined terminal mode 91, 30

+title  Online %KS% Complete Uninstall %masver%

 

-:7482e61b-c589-4b7f-8ecc-46d455ac3b87

-set "_key=74YFP%yh%3QFB3%yh%KQT8W%yh%PMXWJ%yh%7M648" &:: Datacenter

-exit /b

+set "uline=__________________________________________________________________________________________"

 

-:620e2b3d-09e7-42fd-802a-17a13652fe7a

-set "_key=489J6%yh%VHDMP%yh%X63PK%yh%3K798%yh%CPX3Y" &:: Enterprise

-exit /b

+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:

+call :dk_color %Gray% "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 %uline%

+)

 

-:8a26851c-1c7e-48d3-a687-fbca9b9ac16b

-set "_key=GT63C%yh%RJFQ3%yh%4GMB6%yh%BRFB9%yh%CB83V" &:: Itanium

-exit /b

+echo:

+set error_=

+call :_taskclear-cache

+call :ks_clearstuff

 

-:f772515c-0e87-48d5-a676-e6962c3e1195

-set "_key=736RG%yh%XDKJK%yh%V34PF%yh%BHK87%yh%J6X3K" &:: MultiPoint Server - ServerEmbeddedSolution

-exit /b

+:: check KMS38 lock

 

-:: Office 2021

-:fbdb3e18-a8ef-4fb3-9183-dffd60bd0984

-set "_key=FXYTK%yh%NJJ8C%yh%GB6DW%yh%3DYQT%yh%6F7TH" &:: Professional Plus

-exit /b

+%nul% reg query "HKLM\%SPPk%\%_wApp%" && (

+set error_=9

+echo Failed to completely clear %KS% Cache.

+reg query "HKLM\%SPPk%\%_wApp%" /s %nul2% | findstr /i "127.0.0.2" %nul1% && echo KMS38 activation is locked.

+) || (

+echo Cleared %KS% Cache successfully.

+)

 

-:080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3

-set "_key=KDX7X%yh%BNVR8%yh%TXXGX%yh%4Q7Y8%yh%78VT3" &:: Standard

-exit /b

+if defined error_ (

+if "%error_%"=="1" (

+echo %uline%

+%eline%

+echo Try Again / Restart the System

+echo %uline%

+)

+) else (

+echo %uline%

+echo:

+call :dk_color %Green% "Online %KS% has been successfully uninstalled."

+echo %uline%

+)

 

-:76881159-155c-43e0-9db7-2d70a9a3a4ca

-set "_key=FTNWT%yh%C6WBT%yh%8HMGF%yh%K9PRX%yh%QV9H8" &:: Project Professional

-exit /b

+goto :dk_done

 

-:6dd72704-f752-4b71-94c7-11cec6bfc355

-set "_key=J2JDC%yh%NJCYY%yh%9RGQ4%yh%YXWMH%yh%T3D4T" &:: Project Standard

-exit /b

+:ks_clearstuff

 

-:fb61ac9a-1688-45d2-8f6b-0674dbffa33c

-set "_key=KNH8D%yh%FGHT4%yh%T8RK3%yh%CTDYJ%yh%K2HT4" &:: Visio Professional

-exit /b

+set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"

 

-:72fce797-1884-48dd-a860-b2f6a5efd3ca

-set "_key=MJVNY%yh%BYWPY%yh%CWV6J%yh%2RKRT%yh%4M8QG" &:: Visio Standard

-exit /b

+reg query "%key%" /f Path /s | find /i "\Activation-Renewal" %nul1% && (

+echo Deleting [Task] Activation-Renewal

+schtasks /delete /tn Activation-Renewal /f %nul%

+)

 

-:1fe429d8-3fa7-4a39-b6f0-03dded42fe14

-set "_key=WM8YG%yh%YNGDD%yh%4JHDC%yh%PG3F4%yh%FC4T4" &:: Access

-exit /b

+reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" %nul1% && (

+echo Deleting [Task] Activation-Run_Once

+schtasks /delete /tn Activation-Run_Once /f %nul%

+)

 

-:ea71effc-69f1-4925-9991-2f5e319bbc24

-set "_key=NWG3X%yh%87C9K%yh%TC7YY%yh%BC2G7%yh%G6RVC" &:: Excel

-exit /b

+If exist "%ProgramFiles%\Activation-Renewal\" (

+echo Deleting [Folder] %ProgramFiles%\Activation-Renewal\

+rmdir /s /q "%ProgramFiles%\Activation-Renewal\" %nul%

+)

 

-:a5799e4c-f83c-4c6e-9516-dfe9b696150b

-set "_key=C9FM6%yh%3N72F%yh%HFJXB%yh%TM3V9%yh%T86R9" &:: Outlook

-exit /b

+::  Stuff from old MAS versions

 

-:6e166cc3-495d-438a-89e7-d7c9e6fd4dea

-set "_key=TY7XF%yh%NFRBR%yh%KJ44C%yh%G83KF%yh%GX27K" &:: PowerPoint

-exit /b

+schtasks /delete /tn Online_%KS%_Activation_Script-Renewal /f %nul%

+schtasks /delete /tn Online_%KS%_Activation_Script-Run_Once /f %nul%

+del /f /q "%ProgramData%\Online_%KS%_Activation.cmd" %nul%

+rmdir /s /q "%ProgramData%\Activation-Renewal\" %nul%

+rmdir /s /q "%ProgramData%\Online_%KS%_Activation\" %nul%

+rmdir /s /q "%windir%\Online_%KS%_Activation_Script\" %nul%

+reg delete "HKCR\DesktopBackground\shell\Activate Windows - Office" /f %nul%

 

-:aa66521f-2370-4ad8-a2bb-c095e3e4338f

-set "_key=2MW9D%yh%N4BXM%yh%9VBPG%yh%Q7W6M%yh%KFBGQ" &:: Publisher

-exit /b

+::  Check if all is removed

 

-:1f32a9af-1274-48bd-ba1e-1ab7508a23e8

-set "_key=HWCXN%yh%K3WBT%yh%WJBKY%yh%R8BD9%yh%XK29P" &:: Skype for Business

+reg query "%key%" /f Path /s | find /i "\Activation-Renewal" %nul1% && (set error_=1)

+reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" %nul1% && (set error_=1)

+reg query "%key%" /f Path /s | find /i "\Online_%KS%_Activation_Script" %nul1% && (set error_=1)

+If exist "%windir%\Online_%KS%_Activation_Script\" (set error_=1)

+reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% && (set error_=1)

+if exist "%ProgramData%\Online_%KS%_Activation.cmd" (set error_=1)

+if exist "%ProgramData%\Online_%KS%_Activation\" (set error_=1)

+if exist "%ProgramData%\Activation-Renewal\" (set error_=1)

+if exist "%ProgramFiles%\Activation-Renewal\" (set error_=1)

 exit /b

 

-:abe28aea-625a-43b1-8e30-225eb8fbd9e5

-set "_key=TN8H9%yh%M34D3%yh%Y64V9%yh%TR72V%yh%X79KV" &:: Word

-exit /b

+::========================================================================================================================================

 

-:: Office 2019

-:85dd8b5f-eaa4-4af3-a628-cce9e77c9a03

-set "_key=NMMKJ%yh%6RK4F%yh%KMJVX%yh%8D9MJ%yh%6MWKP" &:: Professional Plus

-exit /b

+:_extracttask:

+@echo off

 

-:6912a74b-a5fb-401a-bfdb-2e3ab46f4b02

-set "_key=6NWWJ%yh%YQWMR%yh%QKGCB%yh%6TMB3%yh%9D9HK" &:: Standard

-exit /b

+::   Renew K-M-S activation with Online servers via scheduled task

 

-:2ca2bf3f-949e-446a-82c7-e25a15ec78c4

-set "_key=B4NPR%yh%3FKK7%yh%T2MBV%yh%FRQ4W%yh%PKD2B" &:: Project Professional

-exit /b

+::============================================================================

+::

+::   Homepage: mass grave[.]dev

+::      Email: [email protected]

+::

+::============================================================================

 

-:1777f0e3-7392-4198-97ea-8ae4de6f6381

-set "_key=C4F7P%yh%NCP8C%yh%6CQPT%yh%MQHV9%yh%JXD2M" &:: Project Standard

-exit /b

 

-:5b5cf08f-b81a-431d-b080-3450d8620565

-set "_key=9BGNQ%yh%K37YR%yh%RQHF2%yh%38RQ3%yh%7VCBB" &:: Visio Professional

+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

+)

 

-:e06d7df3-aad0-419d-8dfb-0ac37e2bdf39

-set "_key=7TQNQ%yh%K3YQQ%yh%3PFH7%yh%CCPPM%yh%X4VQ2" &:: Visio Standard

-exit /b

+::  Set Environment variables, it helps if they are misconfigured in the system

 

-:9e9bceeb-e736-4f26-88de-763f87dcc485

-set "_key=9N9PT%yh%27V4Y%yh%VJ2PD%yh%YXFMF%yh%YTFQT" &:: Access

-exit /b

+setlocal EnableExtensions

+setlocal DisableDelayedExpansion

 

-:237854e9-79fc-4497-a0c1-a70969691c6b

-set "_key=TMJWT%yh%YYNMB%yh%3BKTF%yh%644FC%yh%RVXBD" &:: Excel

-exit /b

+set "PathExt=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC"

 

-:c8f8a301-19f5-4132-96ce-2de9d4adbd33

-set "_key=7HD7K%yh%N4PVK%yh%BHBCQ%yh%YWQRW%yh%XW4VK" &:: Outlook

-exit /b

+set "SysPath=%SystemRoot%\System32"

+set "Path=%SystemRoot%\System32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SystemRoot%\System32\WindowsPowerShell\v1.0\"

+if exist "%SystemRoot%\Sysnative\reg.exe" (

+set "SysPath=%SystemRoot%\Sysnative"

+set "Path=%SystemRoot%\Sysnative;%SystemRoot%;%SystemRoot%\Sysnative\Wbem;%SystemRoot%\Sysnative\WindowsPowerShell\v1.0\;%Path%"

+)

 

-:3131fd61-5e4f-4308-8d6d-62be1987c92c

-set "_key=RRNCX%yh%C64HY%yh%W2MM7%yh%MCH9G%yh%TJHMQ" &:: PowerPoint

-exit /b

+set "ComSpec=%SysPath%\cmd.exe"

+set "PSModulePath=%ProgramFiles%\WindowsPowerShell\Modules;%SysPath%\WindowsPowerShell\v1.0\Modules"

 

-:9d3e4cca-e172-46f1-a2f4-1d2107051444

-set "_key=G2KWX%yh%3NW6P%yh%PY93R%yh%JXK2T%yh%C9Y9V" &:: Publisher

-exit /b

+>nul fltmc || exit /b

 

-:734c6c6e-b0ba-4298-a891-671772b2bd1b

-set "_key=NCJ33%yh%JHBBY%yh%HTK98%yh%MYCV8%yh%HMKHJ" &:: Skype for Business

-exit /b

+::========================================================================================================================================

 

-:059834fe-a8ea-4bff-b67b-4d006b5447d3

-set "_key=PBX3G%yh%NWMT6%yh%Q7XBW%yh%PYJGG%yh%WXD33" &:: Word

-exit /b

+set _tserror=

+set winbuild=1

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

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

+set psc=powershell.exe

 

-:0bc88885-718c-491d-921f-6f214349e79c

-set "_key=VQ9DP%yh%NVHPH%yh%T9HJC%yh%J9PDT%yh%KTQRG" &:: Pro Plus 2019 Preview

-exit /b

+set run_once=

+set t_name=Renewal Task

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

+set run_once=1

+set t_name=Run Once Task

+)

 

-:fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9

-set "_key=XM2V9%yh%DN9HH%yh%QB449%yh%XDGKC%yh%W2RMW" &:: Project Pro 2019 Preview

-exit /b

+set _wmic=0

+for %%# in (wmic.exe) do @if not "%%~$PATH:#"=="" (

+wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "computersystem" 1>nul && set _wmic=1

+)

 

-:500f6619-ef93-4b75-bcb4-82819998a3ca

-set "_key=N2CG9%yh%YD3YK%yh%936X4%yh%3WR82%yh%Q3X4H" &:: Visio Pro 2019 Preview

-exit /b

+setlocal EnableDelayedExpansion

+if exist "%ProgramFiles%\Activation-Renewal\" call :_taskstart>>"%ProgramFiles%\Activation-Renewal\Logs.txt"

+exit

 

-:f3fb2d68-83dd-4c8b-8f09-08e0d950ac3b

-set "_key=HFPBN%yh%RYGG8%yh%HQWCW%yh%26CH6%yh%PDPVF" &:: Pro Plus 2021 Preview

-exit /b

+::========================================================================================================================================

 

-:76093b1b-7057-49d7-b970-638ebcbfd873

-set "_key=WDNBY%yh%PCYFY%yh%9WP6G%yh%BXVXM%yh%92HDV" &:: Project Pro 2021 Preview

-exit /b

+:_taskstart

 

-:a3b44174-2451-4cd6-b25f-66638bfb9046

-set "_key=2XYX7%yh%NXXBK%yh%9CK7W%yh%K2TKW%yh%JFJ7G" &:: Visio Pro 2021 Preview

-exit /b

+echo:

+echo %date%, %time%

 

-:: Office 2016

-:829b8110-0e6f-4349-bca4-42803577788d

-set "_key=WGT24%yh%HCNMF%yh%FQ7XH%yh%6M8K7%yh%DRTW9" &:: Project Professional C2R-P

-exit /b

+set /a loop=1

+set /a max_loop=4

 

-:cbbaca45-556a-4416-ad03-bda598eaa7c8

-set "_key=D8NRQ%yh%JTYM3%yh%7J2DX%yh%646CT%yh%6836M" &:: Project Standard C2R-P

-exit /b

+call :_tasksetserv

 

-:b234abe3-0857-4f9c-b05a-4dc314f85557

-set "_key=69WXN%yh%MBYV6%yh%22PQG%yh%3WGHK%yh%RM6XC" &:: Visio Professional C2R-P

-exit /b

+:_intrepeat

 

-:361fe620-64f4-41b5-ba77-84f8e079b1f7

-set "_key=NY48V%yh%PPYYH%yh%3F4PX%yh%XJRKJ%yh%W4423" &:: Visio Standard C2R-P

-exit /b

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

 

-:e914ea6e-a5fa-4439-a394-a9bb3293ca09

-set "_key=DMTCJ%yh%KNRKX%yh%26982%yh%JYCKT%yh%P7KB6" &:: MondoR

-exit /b

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

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

+if not [%%#]==[] goto _taskIntConnected

+)

+)

 

-:9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce

-set "_key=HFTND%yh%W9MK4%yh%8B7MJ%yh%B6C4G%yh%XQBR2" &:: Mondo

-exit /b

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

+if [%errorlevel%]==[0] goto _taskIntConnected

 

-:d450596f-894d-49e0-966a-fd39ed4c4c64

-set "_key=XQNVK%yh%8JYDB%yh%WJ9W3%yh%YJ8YR%yh%WFG99" &:: Professional Plus

-exit /b

+if %loop%==%max_loop% (

+set _tserror=1

+goto _taskend

+)

 

-:dedfa23d-6ed1-45a6-85dc-63cae0546de6

-set "_key=JNRGM%yh%WHDWX%yh%FJJG3%yh%K47QV%yh%DRTFM" &:: Standard

-exit /b

+echo:

+echo Error: Internet is not connected

+echo Waiting 30 seconds

 

-:4f414197-0fc2-4c01-b68a-86cbb9ac254c

-set "_key=YG9NW%yh%3K39V%yh%2T3HJ%yh%93F3Q%yh%G83KT" &:: Project Professional

-exit /b

+timeout /t 30 >nul

+set /a loop=%loop%+1

+goto _intrepeat

 

-:da7ddabc-3fbe-4447-9e01-6ab7440b4cd4

-set "_key=GNFHQ%yh%F6YQM%yh%KQDGJ%yh%327XX%yh%KQBVC" &:: Project Standard

-exit /b

+:_taskIntConnected

 

-:6bf301c1-b94a-43e9-ba31-d494598c47fb

-set "_key=PD3PC%yh%RHNGV%yh%FXJ29%yh%8JK7D%yh%RJRJK" &:: Visio Professional

-exit /b

+::========================================================================================================================================

 

-:aa2a7821-1827-4c2c-8f1d-4513a34dda97

-set "_key=7WHWN%yh%4T7MP%yh%G96JF%yh%G33KR%yh%W8GF4" &:: Visio Standard

-exit /b

+::  Check not x86 Windows

 

-:67c0fc0c-deba-401b-bf8b-9c8ad8395804

-set "_key=GNH9Y%yh%D2J4T%yh%FJHGG%yh%QRVH7%yh%QPFDW" &:: Access

-exit /b

+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

 

-:c3e65d36-141f-4d2f-a303-a842ee756a29

-set "_key=9C2PK%yh%NWTVB%yh%JMPW8%yh%BFT28%yh%7FTBF" &:: Excel

-exit /b

+call :_taskclear-cache

 

-:d8cace59-33d2-4ac7-9b1b-9b72339c51c8

-set "_key=DR92N%yh%9HTF2%yh%97XKM%yh%XW2WJ%yh%XW3J6" &:: OneNote

-exit /b

+::========================================================================================================================================

 

-:ec9d9265-9d1e-4ed0-838a-cdc20f2551a1

-set "_key=R69KK%yh%NTPKF%yh%7M3Q4%yh%QYBHW%yh%6MT9B" &:: Outlook

-exit /b

+::  Check WMI and sppsvc Errors

 

-:d70b1bba-b893-4544-96e2-b7a318091c33

-set "_key=J7MQP%yh%HNJ4Y%yh%WJ7YM%yh%PFYGF%yh%BY6C6" &:: Powerpoint

-exit /b

+set applist=

+net start sppsvc /y %nul%

+if %_wmic% EQU 1 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path %slp% where (ApplicationID='%_wApp%') get ID /VALUE" 2^>nul')"

+if %_wmic% EQU 0 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"))

 

-:041a06cb-c5b8-4772-809f-416d03d16654

-set "_key=F47MM%yh%N3XJP%yh%TQXJ9%yh%BP99D%yh%8K837" &:: Publisher

-exit /b

+if not defined applist (

+set _tserror=1

+if %_wmic% EQU 1 wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "computersystem" 1>nul

+if %_wmic% EQU 0 %psc% "Get-CIMInstance -Class Win32_ComputerSystem | Select-Object -Property CreationClassName" 2>nul | find /i "computersystem" 1>nul

+if !errorlevel! NEQ 0 (set e_wmispp=WMI, SPP) else (set e_wmispp=SPP)

+echo:

+echo Error: Not Respoding- !e_wmispp!

+echo:

+)

 

-:83e04ee1-fa8d-436d-8994-d31a862cab77

-set "_key=869NQ%yh%FJ69K%yh%466HW%yh%QYCP2%yh%DDBV6" &:: Skype for Business

-exit /b

+::========================================================================================================================================

 

-:bb11badf-d8aa-470e-9311-20eaf80fe5cc

-set "_key=WXY84%yh%JN2Q9%yh%RBCCQ%yh%3Q3J3%yh%3PFJ6" &:: Word

-exit /b

+::  Check installed volume products activation ID's

 

-:: Office 2013

-:dc981c6b-fc8e-420f-aa43-f8f33e5c0923

-set "_key=42QTK%yh%RN8M7%yh%J3C4G%yh%BBGYM%yh%88CYV" &:: Mondo

-exit /b

+call :_taskgetids sppwid %slp% windows

+call :_taskgetids sppoid %slp% office

+call :_taskgetids osppid %ospp% office

 

-:b322da9c-a2e2-4058-9e4e-f59a6970bd69

-set "_key=YC7DK%yh%G2NP3%yh%2QQC3%yh%J6H88%yh%GVGXT" &:: Professional Plus

-exit /b

+::========================================================================================================================================

 

-:b13afb38-cd79-4ae5-9f7f-eed058d750ca

-set "_key=KBKQT%yh%2NMXY%yh%JJWGP%yh%M62JB%yh%92CD4" &:: Standard

-exit /b

+echo:

+echo Renewing K-M-S activation for all installed Volume products

 

-:4a5d124a-e620-44ba-b6ff-658961b33b9a

-set "_key=FN8TT%yh%7WMH6%yh%2D4X9%yh%M337T%yh%2342K" &:: Project Professional

-exit /b

+if not defined sppwid if not defined sppoid if not defined osppid (

+echo:

+echo No installed Volume Windows / Office product found

+echo:

+echo Renewing K-M-S server

+call :_taskgetserv

+call :_taskregserv

+goto :_skipact

+)

 

-:427a28d1-d17c-4abf-b717-32c780ba6f07

-set "_key=6NTH3%yh%CW976%yh%3G3Y2%yh%JK3TX%yh%8QHTT" &:: Project Standard

-exit /b

+::========================================================================================================================================

 

-:e13ac10e-75d0-4aff-a0cd-764982cf541c

-set "_key=C2FG9%yh%N6J68%yh%H8BTJ%yh%BW3QX%yh%RM3B3" &:: Visio Professional

-exit /b

+call :_taskact

 

-:ac4efaf0-f81f-4f61-bdf7-ea32b02ab117

-set "_key=J484Y%yh%4NKBF%yh%W2HMG%yh%DBMJC%yh%PGWR7" &:: Visio Standard

-exit /b

+:_skipact

 

-:6ee7622c-18d8-4005-9fb7-92db644a279b

-set "_key=NG2JY%yh%H4JBT%yh%HQXYP%yh%78QH9%yh%4JM2D" &:: Access

-exit /b

+::========================================================================================================================================

 

-:f7461d52-7c2b-43b2-8744-ea958e0bd09a

-set "_key=VGPNG%yh%Y7HQW%yh%9RHP7%yh%TKPV3%yh%BG7GB" &:: Excel

-exit /b

+if defined run_once (

+echo:

+echo Deleting Scheduled Task Activation-Run_Once

+schtasks /delete /tn Activation-Run_Once /f %nul%

+)

 

-:fb4875ec-0c6b-450f-b82b-ab57d8d1677f

-set "_key=H7R7V%yh%WPNXQ%yh%WCYYC%yh%76BGV%yh%VT7GH" &:: Groove

-exit /b

+::========================================================================================================================================

 

-:a30b8040-d68a-423f-b0b5-9ce292ea5a8f

-set "_key=DKT8B%yh%N7VXH%yh%D963P%yh%Q4PHY%yh%F8894" &:: InfoPath

-exit /b

+:_taskend

 

-:1b9f11e3-c85c-4e1b-bb29-879ad2c909e3

-set "_key=2MG3G%yh%3BNTT%yh%3MFW9%yh%KDQW3%yh%TCK7R" &:: Lync

-exit /b

+echo:

+echo Exiting

+echo ______________________________________________________________________

 

-:efe1f3e6-aea2-4144-a208-32aa872b6545

-set "_key=TGN6P%yh%8MMBC%yh%37P2F%yh%XHXXK%yh%P34VW" &:: OneNote

-exit /b

+if defined _tserror (exit /b 123456789) else (exit /b 0)

 

-:771c3afa-50c5-443f-b151-ff2546d863a0

-set "_key=QPN8Q%yh%BJBTJ%yh%334K3%yh%93TGY%yh%2PMBT" &:: Outlook

-exit /b

+::========================================================================================================================================

 

-:8c762649-97d1-4953-ad27-b7e2c25b972e

-set "_key=4NT99%yh%8RJFH%yh%Q2VDH%yh%KYG2C%yh%4RD4F" &:: Powerpoint

-exit /b

+:_act

 

-:00c79ff1-6850-443d-bf61-71cde0de305f

-set "_key=PN2WF%yh%29XG2%yh%T9HJ7%yh%JQPJR%yh%FCXK4" &:: Publisher

-exit /b

+set prodname=

+if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('"wmic path !_path! where ID='!_actid!' get LicenseFamily /VALUE" 2^>nul') do (call set "prodname=%%#")

+if %_wmic% EQU 0 for /f "tokens=2 delims==" %%# in ('%psc% "(([WMISEARCHER]'SELECT LicenseFamily FROM !_path! WHERE ID=''!_actid!''').Get()).LicenseFamily | %% {echo ('LicenseFamily='+$_)}" 2^>nul') do (call set "prodname=%%#")

+for /f "tokens=1 delims=-_" %%a in ("%prodname%") do set "prodname=%%a"

 

-:d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3

-set "_key=6Q7VD%yh%NX8JD%yh%WJ2VH%yh%88V73%yh%4GBJ7" &:: Word

-exit /b

+set _taskskip=

+if "%_actprojvis%"=="1" (

+echo: %prodname% | find /i "Office" %nul% && (

+echo: %prodname% | findstr /i "Project Visio" %nul% || (set _taskskip=1& exit /b)

+)

+)

 

-:: Office 2010

-:09ed9640-f020-400a-acd8-d7d867dfd9c2

-set "_key=YBJTT%yh%JG6MD%yh%V9Q7P%yh%DBKXJ%yh%38W9R" &:: Mondo

-exit /b

+if defined t_name Activating: %prodname%

 

-:ef3d4e49-a53d-4d81-a2b1-2ca6c2556b2c

-set "_key=7TC2V%yh%WXF6P%yh%TD7RT%yh%BQRXR%yh%B8K32" &:: Mondo2

-exit /b

+set errorcode=12345

+set /a act_attempt=0

 

-:6f327760-8c5c-417c-9b61-836a98287e0c

-set "_key=VYBBJ%yh%TRJPB%yh%QFQRF%yh%QFT4D%yh%H3GVB" &:: Professional Plus

-exit /b

+:_act2

 

-:9da2a678-fb6b-4e67-ab84-60dd6a9c819a

-set "_key=V7QKV%yh%4XVVR%yh%XYV4D%yh%F7DFM%yh%8R6BM" &:: Standard

-exit /b

+if %act_attempt% GTR 4 exit /b

 

-:df133ff7-bf14-4f95-afe3-7b48e7e331ef

-set "_key=YGX6F%yh%PGV49%yh%PGW3J%yh%9BTGG%yh%VHKC6" &:: Project Professional

-exit /b

+if not [%act_ok%]==[1] (

+if not defined _server call :_taskgetserv

+call :_taskregserv

+)

 

-:5dc7bf61-5ec9-4996-9ccb-df806a2d0efe

-set "_key=4HP3K%yh%88W3F%yh%W2K3D%yh%6677X%yh%F9PGB" &:: Project Standard

-exit /b

+if not !server_num! GTR %max_servers% (

 

-:92236105-bb67-494f-94c7-7f7a607929bd

-set "_key=D9DWC%yh%HPYVV%yh%JGF4P%yh%BTWQB%yh%WX8BJ" &:: Visio Premium

+if [%1]==[act_win] if %_kms38% EQU 1 (

+set act_ok=1

 exit /b

+)

 

-:e558389c-83c3-4b29-adfe-5e4d7f46c358

-set "_key=7MCW8%yh%VRQVK%yh%G677T%yh%PDJCM%yh%Q8TCP" &:: Visio Professional

-exit /b

+if %_wmic% EQU 1 wmic path !_path! where ID='!_actid!' call Activate %nul%

+if %_wmic% EQU 0 %psc% "try {$null=(([WMISEARCHER]'SELECT ID FROM !_path! where ID=''!_actid!''').Get()).Activate(); exit 0} catch { exit $_.Exception.InnerException.HResult }"

 

-:9ed833ff-4f92-4f36-b370-8683a4f13275

-set "_key=767HD%yh%QGMWX%yh%8QTDB%yh%9G3R2%yh%KHFGJ" &:: Visio Standard

-exit /b

+call set errorcode=!errorlevel!

 

-:8ce7e872-188c-4b98-9d90-f8f90b7aad02

-set "_key=V7Y44%yh%9T38C%yh%R2VJK%yh%666HK%yh%T7DDX" &:: Access

+if !errorcode! EQU 0 (

+set act_ok=1

 exit /b

-

-:cee5d470-6e3b-4fcc-8c2b-d17428568a9f

-set "_key=H62QG%yh%HXVKF%yh%PP4HP%yh%66KMR%yh%CW9BM" &:: Excel

+)

+if [%1]==[act_win] if !errorcode! EQU -1073418187 if %winbuild% LSS 9200 (

+set act_ok=1

 exit /b

+)

 

-:8947d0b8-c33b-43e1-8c56-9b674c052832

-set "_key=QYYW6%yh%QP4CB%yh%MBV6G%yh%HYMCJ%yh%4T3J4" &:: Groove - SharePoint Workspace

+set act_ok=0

+set /a act_attempt+=1

+if not defined _server goto _act2

+)

 exit /b

 

-:ca6b6639-4ad6-40ae-a575-14dee07f6430

-set "_key=K96W8%yh%67RPQ%yh%62T9Y%yh%J8FQJ%yh%BT37T" &:: InfoPath

-exit /b

+::========================================================================================================================================

 

-:ab586f5c-5256-4632-962f-fefd8b49e6f4

-set "_key=Q4Y4M%yh%RHWJM%yh%PY37F%yh%MTKWH%yh%D3XHX" &:: OneNote

-exit /b

+:_actinfo

 

-:ecb7c192-73ab-4ded-acf4-2399b095d0cc

-set "_key=7YDC2%yh%CWM8M%yh%RRTJC%yh%8MDVC%yh%X3DWQ" &:: Outlook

-exit /b

+if [%1]==[act_win] if not defined t_name (set prodname=%winos%)

 

-:45593b1d-dfb1-4e91-bbfb-2d5d0ce2227a

-set "_key=RC8FX%yh%88JRY%yh%3PF7C%yh%X8P67%yh%P4VTT" &:: Powerpoint

+if [%1]==[act_win] if %_kms38% EQU 1 (

+if defined t_name (

+echo %prodname% is already activated with KMS38.

+) else (

+call :dk_color %Green% "%prodname% is already activated with KMS38."

+)

 exit /b

+)

 

-:b50c4f75-599b-43e8-8dcd-1081a7967241

-set "_key=BFK7F%yh%9MYHM%yh%V68C7%yh%DRQ66%yh%83YTP" &:: Publisher

+if %errorcode% EQU 12345 (

+if defined t_name (

+echo %prodname% activation failed due to restricted or no Internet.

+) else (

+call :dk_color %Red% "%prodname% activation failed due to restricted or no Internet."

+)

+set showfix=1

+set _tserror=1

 exit /b

+)

 

-:2d0882e7-a4e7-423b-8ccc-70d91e0158b1

-set "_key=HVHB3%yh%C6FV7%yh%KQX9W%yh%YQG79%yh%CRY7T" &:: Word

+if %errorcode% EQU -1073418187 if [%1]==[act_win] if %winbuild% LSS 9200 (

+if defined t_name (

+echo %prodname% cannot be KMS-activated on this computer due to unqualified OEM BIOS [0xC004F035].

+) else (

+call :dk_color %Red% "%prodname% cannot be KMS-activated on this computer due to unqualified OEM BIOS [0xC004F035]."

+set fixes=%fixes% %mas%unsupported_products_activation

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%unsupported_products_activation"

+)

+set showfix=1

 exit /b

+)

 

-:ea509e87-07a1-4a45-9edc-eba5a39f36af

-set "_key=D6QFG%yh%VBYP2%yh%XQHM7%yh%J97RH%yh%VVRCK" &:: Small Business Basics

+if %errorcode% EQU -1073418124 (

+if defined t_name (

+echo %prodname% activation failed due to Internet issue [0xC004F074].

+) else (

+call :dk_color %Red% "%prodname% activation failed due to Internet issue [0xC004F074]."

+if not defined _tserror (

+call :dk_color %Blue% "Make sure that system files are not blocked by firewall."

+call :dk_color %Blue% "If the issue persists, try another Internet connection or VPN such as https://1.1.1.1"

+)

+)

+set showfix=1

+set _tserror=1

 exit /b

+)

 

-:TheEnd

 

-if %act_failed% EQU 1 (

-echo ____________________________________________________________________

-echo.

-call :_errorinfo

-)

+set gpr=0

+set gpr2=0

+call :_taskgetgrace

+set /a "gpr2=(%gpr%+1440-1)/1440"

 

-if not defined _tskinstalled if not defined _oldtsk (

-echo.

-if %winbuild% GEQ 9200 (

-call :leavenonexistentkms %nul%

-echo Keeping the non-existent IP address 10.0.0.10 as KMS Server.

+if %errorcode% EQU 0 if %gpr% EQU 0 (

+if defined t_name (

+echo %prodname% activation succeeded, but Remaining Period failed to increase.

 ) else (

-call :Clear-KMS-Cache

+call :dk_color %Red% "%prodname% activation succeeded, but Remaining Period failed to increase."

 )

+set _tserror=1

+exit /b

 )

 

-if not [%Act_OK%]==[1] (

-echo.

-echo In case of any issues, check https://mass%-%grave.dev/troubleshoot

-)

+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 defined _unattended exit /b

+if %errorcode% EQU 0 if %_actpass% EQU 0 (

+if defined t_name (

+echo %prodname% is successfully activated for %gpr2% days.

+) else (

+call :dk_color %Green% "%prodname% is successfully activated for %gpr2% days."

+)

+exit /b

+)

 

-echo ____________________________________________________________________

-echo.

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

-pause >nul

+cmd /c exit /b %errorcode%

+if defined t_name (

+echo %prodname% has failed to activate [0x!=ExitCode!]. Remaining Period: %gpr2% days [%gpr% minutes].

+) else (

+call :dk_color %Red% "%prodname% has failed to activate [0x!=ExitCode!]. Remaining Period: %gpr2% days [%gpr% minutes]."

+)

+set _tserror=1

 exit /b

 

 ::========================================================================================================================================

 

-:_errorinfo

+:_taskact

 

-call :CheckFR

+:: Check KMS38 activation

 

-set _intcon=

-for %%a in (l.root-servers.net resolver1.opendns.com download.windowsupdate.com google.com) do if not defined _intcon (

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

+set gpr=0

+set _kms38=0

+if defined sppwid if %winbuild% GEQ 14393 (

+set _path=%slp%

+set _actid=%sppwid%

+call :_taskgetgrace

 )

 

-if not defined _intcon (

-call :_color %_Red% "Internet is not connected."

-exit /b

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

+set _kms38=1

+call :_taskchkEnterpriseG _kms38

 )

 

-if [%ERRORCODE%]==[-1073418124] (

-echo Checking Port 1688 connection, it may take a while...

-echo.

+:: Set specific K-M-S host to Local Host so that global KMS IP can not replace KMS38 activation but can be used with Office and other Windows Editions.

 

-set /a count=0

-set _portcon=

-for %%a in (%srvlist%) do if not defined _portcon if !count! LEQ 7 (

-set /a count+=1

-%psc% "$t = New-Object Net.Sockets.TcpClient;try{$t.Connect("""%%a""", 1688)}catch{};$t.Connected" | findstr /i true 1>nul && set _portcon=1

+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"

 )

 

-if not defined _portcon (

-call :_color %Red% "Port 1688 is blocked in your Internet connection."

-echo.

-echo Reason:   Probably restricted Internet [Office/College] is connected,

-echo           or Firewall is blocking the connection.

-echo.

-echo Solution: Either use another Internet connection or use offline KMS

-echo           https://github.com/abbodi1406/KMS_VL_ALL_AIO

+echo:

+if defined sppwid (

+set _path=%slp%

+set _actid=%sppwid%

+call :_act act_win

+call :_actinfo act_win

 ) else (

-echo Port 1688 connection test is passed.

-echo.

-echo Make sure system files are not blocked by your firewall.

-echo If the issue persists, try offline KMS

-echo https://github.com/abbodi1406/KMS_VL_ALL_AIO

+if defined t_name echo Checking: Volume version of Windows is not installed

+)

+

+if defined sppoid (

+set _path=%slp%

+for %%# in (%sppoid%) do (

+set _actid=%%#

+call :_act

+if not defined _taskskip call :_actinfo

 )

-echo.

 )

 

-echo KMS server is not an issue in this case.

+if defined osppid (

+set _path=%ospp%

+for %%# in (%osppid%) do (

+set _actid=%%#

+call :_act

+if not defined _taskskip call :_actinfo

+)

+)

+

+if not defined sppoid if not defined osppid if defined t_name (

+echo:

+echo Checking: Volume version of Office is not installed

+)

+

 exit /b

 

 ::========================================================================================================================================

 

-:setserv

+:_taskgetids

 

-::  Multi KMS servers integration and servers randomization

+set %1=

+if %_wmic% EQU 1 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 AND LicenseDependsOn is NULL) get ID /VALUE" 2^>nul')"

+if %_wmic% EQU 0 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 AND LicenseDependsOn is NULL').Get()).ID ^| %% {echo ('ID='+$_)}" 2^>nul')"

+%chkapp% do (if defined %1 (call set "%1=!%1! %%a") else (call set "%1=%%a"))

+exit /b

 

-set srvlist=

-set -=

+:_taskgetgrace

 

-set "srvlist=kms.zhu%-%xiaole.org kms-default.cangs%-%hui.net kms.six%-%yin.com kms.moe%-%club.org kms.cgt%-%soft.com"

-set "srvlist=%srvlist% kms.id%-%ina.cn kms.moe%-%yuuko.com xinch%-%eng213618.cn kms.wl%-%rxy.cn kms.ca%-%tqu.com"

-set "srvlist=%srvlist% kms.0%-%t.net.cn kms.its%-%jzx.com kms.wx%-%lost.com kms.moe%-%yuuko.top kms.gh%-%pym.com"

+set gpr=0

+if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('"wmic path !_path! where ID='!_actid!' get GracePeriodRemaining /VALUE" 2^>nul') do call set "gpr=%%#"

+if %_wmic% EQU 0 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

 

-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

+:_taskchkEnterpriseG

+

+for %%# in (e0b2d383-d112-413f-8a80-97f373a5820c e38454fb-41a4-4f59-a5dc-25080e354730) do (if %sppwid%==%%# set %1=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

+::  Clean existing K-M-S cache from the registry

 

-::  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.

+:_taskclear-cache

 

-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

+set w=

+for %%# in (SppE%w%xtComObj.exe sppsvc.exe) do (

+reg delete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ima%w%ge File Execu%w%tion Options\%%#" /f %nul%

 )

 

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

-

-:Clear-KMS-Cache

+set "OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform"

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

 

-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

+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

@@ -3256,180 +1890,85 @@ if %winbuild% GEQ 9600 (
 %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 KMS38 activation is locked.

-) || (

-echo Cleared KMS Cache successfully.

-)

 exit /b

 

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

-

-:leavenonexistentkms

-

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

-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 "10.0.0.10" /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 "10.0.0.10" /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 "10.0.0.10"

-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 "10.0.0.10"

-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 %masver%

+:_taskregserv

 

-set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"

+if defined _server (set KMS_IP=%_server%)

+if not defined _port set _port=1688

 

-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 __________________________________________________________________________________________

-)

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

+%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%_port%"

 

-set error_=

-echo.

-call :Clear-KMS-Cache

-call :clearstuff

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

+%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%_port%"

 

-if defined error_ (

-if [%error_%]==[1] (

-echo __________________________________________________________________________________________

-%eline%

-echo Try Again / Restart the System

-echo __________________________________________________________________________________________

+if %winbuild% GEQ 9200 (

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

+%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "%_port%"

+if defined notx86 (

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

+%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%_port%" /reg:32

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

+%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "%_port%" /reg:32

 )

-) else (

-echo __________________________________________________________________________________________

-echo.

-call :_color %Green% "Online KMS Complete Uninstall was done successfully."

-echo __________________________________________________________________________________________

 )

-

-if defined _unattended timeout /t 2 & exit /b

-

-echo.

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

-pause >nul

 exit /b

 

-:clearstuff

-

-reg query "%key%" /f Path /s | find /i "\Activation-Renewal" >nul && (

-echo Deleting [Task] Activation-Renewal

-schtasks /delete /tn Activation-Renewal /f %nul%

-)

+::========================================================================================================================================

 

-reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" >nul && (

-echo Deleting [Task] Activation-Run_Once

-schtasks /delete /tn Activation-Run_Once /f %nul%

-)

+:_tasksetserv

 

-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%

-)

+::  Multi K-M-S servers integration and servers randomization

 

-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%

-)

+set srvlist=

+set -=

 

-If exist "%windir%\Online_KMS_Activation_Script\" (

-echo Deleting [Folder] %windir%\Online_KMS_Activation_Script\

-rmdir /s /q "%windir%\Online_KMS_Activation_Script\" %nul%

-)

+set "srvlist=kms.03%-%k.org kms-default.cangs%-%hui.net kms.six%-%yin.com kms.moe%-%club.org kms.cgt%-%soft.com"

+set "srvlist=%srvlist% kms.id%-%ina.cn kms.moe%-%yuuko.com xinch%-%eng213618.cn kms.lol%-%i.best kms.my%-%ds.cloud"

+set "srvlist=%srvlist% kms.0%-%t.net.cn win.k%-%ms.pub kms.wx%-%lost.com kms.moe%-%yuuko.top kms.gh%-%pym.com"

 

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

-echo Deleting [File] %ProgramData%\Online_KMS_Activation.cmd

-del /f /q "%ProgramData%\Online_KMS_Activation.cmd" %nul%

-)

+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

 

-If exist "%ProgramData%\Online_KMS_Activation\" (

-echo Deleting [Folder] %ProgramData%\Online_KMS_Activation\

-rmdir /s /q "%ProgramData%\Online_KMS_Activation\" %nul%

-)

+:_taskgetserv

 

-If exist "%ProgramData%\Activation-Renewal\" (

-echo Deleting [Folder] %ProgramData%\Activation-Renewal\

-rmdir /s /q "%ProgramData%\Activation-Renewal\" %nul%

-)

+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

 

-If exist "%ProgramFiles%\Activation-Renewal\" (

-echo Deleting [Folder] %ProgramFiles%\Activation-Renewal\

-rmdir /s /q "%ProgramFiles%\Activation-Renewal\" %nul%

-)

+::  Get IPv4 address of K-M-S 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.

 

-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%

+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

 )

+:_extracttask:

 

-reg query "%key%" /f Path /s | find /i "\Activation-Renewal" >nul && (set error_=1)

-reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" >nul && (set error_=1)

-reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script" >nul && (set error_=1)

-If exist "%windir%\Online_KMS_Activation_Script\" (set error_=1)

-reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% && (set error_=1)

-if exist "%ProgramData%\Online_KMS_Activation.cmd" (set error_=1)

-if exist "%ProgramData%\Online_KMS_Activation\" (set error_=1)

-if exist "%ProgramData%\Activation-Renewal\" (set error_=1)

-if exist "%ProgramFiles%\Activation-Renewal\" (set error_=1)

-exit /b

-

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

-

-:RenTask

+::========================================================================================================================================

 

-cls

-mode con cols=91 lines=30

-title  Install Activation Auto-Renewal %masver%

+:ks_renewal

 

 set error_=

 set "_dest=%ProgramFiles%\Activation-Renewal"

 set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"

 

-call :clearstuff %nul%

+call :ks_clearstuff %nul%

 

 if defined error_ (

-%eline%

-echo Failed to completely clear KMS related folders/tasks.

-echo Run the Uninstall option and then try again.

-goto :RenDone

+set error=1

+call :dk_color %Red% "Failed to remove previous Renewal Task. Restart system / Try again."

+exit /b

 )

 

 if not exist "%_dest%\" md "%_dest%\" %nul%

@@ -3438,85 +1977,52 @@ set "_temp=%SystemRoot%\Temp\_taskwork_%Random%"
 set nil=

 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 :ks_RenExport renewal "%_temp%\Renewal.xml" Unicode

+if not defined _int (call :ks_RenExport run_once "%_temp%\Run_Once.xml" Unicode)

 s%nil%cht%nil%asks /cre%nil%ate /tn "Activation-Renewal" /ru "SYS%nil%TEM" /xml "%_temp%\Renewal.xml" %nul%

-if defined ActTask (s%nil%cht%nil%asks /cre%nil%ate /tn "Activation-Run_Once" /ru "SYS%nil%TEM" /xml "%_temp%\Run_Once.xml" %nul%)

+if not defined _int (s%nil%cht%nil%asks /cre%nil%ate /tn "Activation-Run_Once" /ru "SYS%nil%TEM" /xml "%_temp%\Run_Once.xml" %nul%)

 if exist "%_temp%\.*" rmdir /s /q "%_temp%\" %nul%

 

-call :createInfo.txt

-%psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":_extracttask\:.*`r`n\"; [io.file]::WriteAllText('%_dest%\Activation_task.cmd', '@REM Dummy ' + '%random%' + [Environment]::NewLine + $f[1].Trim(), [System.Text.Encoding]::ASCII);"

-title  Install Activation Auto-Renewal %masver%

+call :ks_createInfo.txt

+%psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":_extracttask\:.*`r`n\"; [io.file]::WriteAllText('%_dest%\Activation_task.cmd', '@REM MASver %masver%' + ' - Dummy%random%' + [Environment]::NewLine + $f[1].Trim(), [System.Text.Encoding]::ASCII)"

 

 ::========================================================================================================================================

 

 reg query "%key%" /f Path /s | find /i "\Activation-Renewal" >nul || (set error_=1)

-if defined ActTask reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" >nul || (set error_=1)

+if not defined _int reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" >nul || (set error_=1)

 

 If not exist "%_dest%\Activation_task.cmd" (set error_=1)

 If not exist "%_dest%\Info.txt" (set error_=1)

 

 if defined error_ (

-

-reg query "%key%" /f Path /s | find /i "\Activation-Renewal" >nul && (

 schtasks /delete /tn Activation-Renewal /f %nul%

-)

-reg query "%key%" /f Path /s | find /i "\Activation-Run_Once" >nul && (

 schtasks /delete /tn Activation-Run_Once /f %nul%

-)

-

-If exist "%_dest%\" (

 rmdir /s /q "%_dest%\" %nul%

+set error=1

+call :dk_color %Red% "Failed to install Renewal Task. Restart system / Try again."

+exit /b

 )

 

-%eline%

-echo Run the Uninstall option and then try again.

-goto :RenDone

-)

-

-echo __________________________________________________________________________________________

-echo.

-echo Files created:

-echo %_dest%\Activation_task.cmd

-echo %_dest%\Info.txt

-echo.

-(if defined ActTask (echo Scheduled Tasks created:) else (echo Scheduled Task created:))

-echo \Activation-Renewal [Weekly]

-if defined ActTask (echo \Activation-Run_Once)

-echo __________________________________________________________________________________________

-echo.

-echo Info:

-echo Activation will be renewed every week if the Internet connection is found.

-echo It'll only renew installed KMS licenses. It won't convert any license to KMS.

-echo __________________________________________________________________________________________

-echo.

-if defined ActTask (

-call :_color %Green% "Renewal and Activation Tasks were successfully created."

-) else (

-call :_color %Green% "Renewal Task was successfully created."

-)

-echo.

-call :_color %Gray% "Make sure you have run the Activation option at least once."

-echo __________________________________________________________________________________________

+if "%keyerror%"=="0" if not defined _tserror (

+call :dk_color %Green% "Renewal Task for lifetime activation is successfully installed in %_dest%"

+exit /b

 )

+echo Renewal Task for lifetime activation is successfully installed in %_dest%

+exit /b

 

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

-

-:RenDone

+::  Extract the text from batch script without character and file encoding issue

 

-if defined _unattended exit /b

+:ks_RenExport

 

-echo.

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

-pause >nul

+%psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::%~3);"

 exit /b

 

 ::========================================================================================================================================

 

-:createInfo.txt

+:ks_createInfo.txt

 

 (

-echo   The use of this script is to renew your Windows/Office KMS license using online KMS.

+echo   The use of this script is to renew your Windows/Office license using online K-M-S.

 echo:

 echo   If renewal/activation Scheduled tasks were created then following would exist,

 echo:

@@ -3531,10 +2037,10 @@ echo     C:\Program Files\Activation-Renewal\Info.txt
 echo     C:\Program Files\Activation-Renewal\Logs.txt

 echo ______________________________________________________________________________________________

 echo:

-echo   Online KMS Activation Script is a part of 'Microsoft_Activation_Scripts' [MAS] project.

+echo   This Script is a part of MAS project.

 echo:   

 echo   Homepage: mass grave[.]dev

-echo      Email: [email protected]

+echo      Email: [email protected]

 )>"%_dest%\Info.txt"

 exit /b

 

@@ -3663,615 +2169,1341 @@ exit /b
 

 ::========================================================================================================================================

 

-::  Extract the text from batch script without character and file encoding issue

+::  Set variables

 

-:RenExport

+:dk_setvar

 

-%psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::%~3);"

-exit /b

+set psc=powershell.exe

+set winbuild=1

+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 %nul2% | find /i "0x0" %nul1% && (set _NCS=0)

 

-:_extracttask:

-@echo off

+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   "Green="42;97m""

+set    "Blue="44;97m""

+set  "_White="40;37m""

+set  "_Green="40;92m""

+set "_Yellow="40;93m""

+) else (

+set     "Red="Red" "white""

+set    "Gray="Darkgray" "white""

+set   "Green="DarkGreen" "white""

+set    "Blue="Blue" "white""

+set  "_White="Black" "Gray""

+set  "_Green="Black" "Green""

+set "_Yellow="Black" "Yellow""

+)

+

+set "nceline=echo: &echo ==== ERROR ==== &echo:"

+set "eline=echo: &call :dk_color %Red% "==== ERROR ====" &echo:"

+if %~z0 GEQ 200000 (

+set "_exitmsg=Go back"

+set "_fixmsg=Go back to Main Menu, select Troubleshoot and run Fix Licensing option."

+) else (

+set "_exitmsg=Exit"

+set "_fixmsg=In MAS folder, run Troubleshoot script and select Fix Licensing option."

+)

+exit /b

 

-::   Renew K-M-S activation with Online servers via scheduled task

+::  Show OS info

 

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

-::

-::   This script is a part of 'Microsoft_Activation_Scripts' (MAS) project.

-::

-::   Homepage: mass grave[.]dev

-::      Email: [email protected]

-::

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

+:dk_showosinfo

 

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

 

-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

+for /f "tokens=6-7 delims=[]. " %%i in ('ver') do if not "%%j"=="" (

+set fullbuild=%%i.%%j

+) else (

+for /f "tokens=3" %%G in ('"reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v UBR" %nul6%') do if not errorlevel 1 set /a "UBR=%%G"

+for /f "skip=2 tokens=3,4 delims=. " %%G in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v BuildLabEx') do (

+if defined UBR (set "fullbuild=%%G.!UBR!") else (set "fullbuild=%%G.%%H")

+)

 )

 

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

+echo Checking OS Info                        [%winos% ^| %fullbuild% ^| %osarch%]

+exit /b

 

-set "PATH=%SystemRoot%\System32;%SystemRoot%\System32\wbem;%SystemRoot%\System32\WindowsPowerShell\v1.0\"

-if exist "%SystemRoot%\Sysnative\reg.exe" (

-set "PATH=%SystemRoot%\Sysnative;%SystemRoot%\Sysnative\wbem;%SystemRoot%\Sysnative\WindowsPowerShell\v1.0\;%PATH%"

+::  Check SKU value

+

+:dk_checksku

+

+call :dk_reflection

+

+set osSKU=

+set slcSKU=

+set wmiSKU=

+set regSKU=

+set winsub=

+

+if %winbuild% GEQ 14393 (set info=Kernel-BrandingInfo) else (set info=Kernel-ProductInfo)

+set d1=%ref% [void]$TypeBuilder.DefinePInvokeMethod('SLGetWindowsInformationDWORD', 'slc.dll', 'Public, Static', 1, [int], @([String], [int].MakeByRefType()), 1, 3);

+set d1=%d1% $Sku = 0; [void]$TypeBuilder.CreateType()::SLGetWindowsInformationDWORD('%info%', [ref]$Sku); $Sku

+for /f "delims=" %%s in ('"%psc% %d1%"') do if not errorlevel 1 (set slcSKU=%%s)

+set slcSKU=%slcSKU: =%

+if "%slcSKU%"=="0" set slcSKU=

+for /f "tokens=* delims=0123456789" %%a in ("%slcSKU%") do (if not "[%%a]"=="[]" set slcSKU=)

+

+for /f "tokens=3 delims=." %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions" /v OSProductPfn %nul6%') do set "regSKU=%%a"

+if %_wmic% EQU 1 for /f "tokens=2 delims==" %%a in ('"wmic Path Win32_OperatingSystem Get OperatingSystemSKU /format:LIST" %nul6%') do if not errorlevel 1 set "wmiSKU=%%a"

+if %_wmic% EQU 0 for /f "tokens=1" %%a in ('%psc% "([WMI]'Win32_OperatingSystem=@').OperatingSystemSKU" %nul6%') do if not errorlevel 1 set "wmiSKU=%%a"

+

+if %winbuild% GEQ 15063 %psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':winsubstatus\:.*';iex ($f[1])" %nul2% | find /i "Subscription_is_activated" %nul% && (

+if defined regSKU if defined slcSKU if not "%regSKU%"=="%slcSKU%" (

+set winsub=1

+set osSKU=%regSKU%

+)

 )

 

->nul fltmc || exit /b

+if not defined osSKU set osSKU=%slcSKU%

+if not defined osSKU set osSKU=%wmiSKU%

+if not defined osSKU set osSKU=%regSKU%

+exit /b

 

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

+::  Get Windows Subscription status

 

-set _tserror=

-set winbuild=1

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

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

-set psc=powershell.exe

+:winsubstatus:

+$DM = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1).DefineDynamicModule(2)

+$SB = $DM.DefineType('sub_status', 9, [ValueType], 0)

 

-set run_once=

-set t_name=Renewal Task

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

-set run_once=1

-set t_name=Run Once Task

+('enabled#int', 'sku#int', 'state#int').ForEach({

+    $i = $_ -split '#'

+    $n = $i[0]

+    $t = $i[1] -as [Type]

+    [void]$SB.DefineField($n, $t, 6)

+})

+

+$sub_status = $SB.CreateType()

+$MB = $DM.DefineType('PInvoke')

+

+[void]$MB.DefinePInvokeMethod('ClipGetSubscriptionStatus', 'Clipc.dll', 22, 1, [UInt32], @([IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)

+

+$Clipc = $MB.CreateType()

+$s = [Activator]::CreateInstance($sub_status)

+$p = [Runtime.InteropServices.Marshal]::AllocHGlobal([Runtime.InteropServices.Marshal]::SizeOf($s))

+$r = $Clipc::ClipGetSubscriptionStatus([ref]$p)

+

+if ($r -eq 0) {

+    $s = [Runtime.InteropServices.Marshal]::PtrToStructure($p, [type]$sub_status)

+    if ($s.enabled -ne 0) { 

+        if ($s.state -eq 1) {

+            "Subscription_is_activated."

+        }

+    }

+}

+:winsubstatus:

+

+::  Get Windows permanent activation status

+

+:dk_checkperm

+

+if %_wmic% EQU 1 wmic path %spp% where (LicenseStatus='1' and GracePeriodRemaining='0' and PartialProductKey is not NULL AND LicenseDependsOn is NULL) get Name /value %nul2% | findstr /i "Windows" %nul1% && set _perm=1||set _perm=

+if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT Name FROM %spp% WHERE LicenseStatus=1 AND GracePeriodRemaining=0 AND PartialProductKey IS NOT NULL AND LicenseDependsOn is NULL').Get()).Name | %% {echo ('Name='+$_)}" %nul2% | findstr /i "Windows" %nul1% && set _perm=1||set _perm=

+exit /b

+

+::  Refresh license status

+

+:dk_refresh

+

+if %_wmic% EQU 1 wmic path %sps% where __CLASS='%sps%' call RefreshLicenseStatus %nul%

+if %_wmic% EQU 0 %psc% "$null=(([WMICLASS]'%sps%').GetInstances()).RefreshLicenseStatus()" %nul%

+exit /b

+

+::  Install Key

+

+:dk_inskey

+

+if %_wmic% EQU 1 wmic path %sps% where __CLASS='%sps%' call InstallProductKey ProductKey="%key%" %nul%

+if %_wmic% EQU 0 %psc% "try { $null=(([WMISEARCHER]'SELECT Version FROM %sps%').Get()).InstallProductKey('%key%'); exit 0 } catch { exit $_.Exception.InnerException.HResult }" %nul%

+set keyerror=%errorlevel%

+cmd /c exit /b %keyerror%

+if %keyerror% NEQ 0 set "keyerror=[0x%=ExitCode%]"

+

+if %keyerror% EQU 0 (

+if %sps%==SoftwareLicensingService call :dk_refresh

+echo Installing Generic Product Key          %~1 [Successful]

+) else (

+call :dk_color %Red% "Installing Generic Product Key          %~1 [Failed] %keyerror%"

+if not defined error (

+if defined altapplist call :dk_color %Red% "Activation ID not found for this key."

+call :dk_color %Blue% "%_fixmsg%"

+set showfix=1

 )

+set error=1

+)

+

+exit /b

+

+::  Get Windows installed key channel

+

+:k_channel

+

+set _gvlk=

+if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('wmic path %spp% where "ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and PartialProductKey IS NOT NULL AND LicenseDependsOn is NULL and Description like '%%KMSCLIENT%%'" Get Name /value %nul6%') do (echo %%# findstr /i "Windows" %nul1% && set _gvlk=1)

+if %_wmic% EQU 0 for /f "tokens=2 delims==" %%# in ('%psc% "(([WMISEARCHER]'SELECT Name FROM %spp% WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND PartialProductKey IS NOT NULL AND LicenseDependsOn is NULL and Description like ''%%KMSCLIENT%%''').Get()).Name | %% {echo ('Name='+$_)}" %nul6%') do (echo %%# findstr /i "Windows" %nul1% && set _gvlk=1)

+exit /b

+

+::  Get all products Activation IDs

+

+:dk_actids

+

+set allapps=

+if %_wmic% EQU 1 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path %spp% where (ApplicationID='%1') get ID /VALUE" %nul6%')"

+if %_wmic% EQU 0 set "chkapp=for /f "tokens=2 delims==" %%a in ('%psc% "(([WMISEARCHER]'SELECT ID FROM %spp% WHERE ApplicationID=''%1''').Get()).ID ^| %% {echo ('ID='+$_)}" %nul6%')"

+%chkapp% do (if defined allapps (call set "allapps=!allapps! %%a") else (call set "allapps=%%a"))

+exit /b

+

+::  Get installed products Activation IDs

+

+:dk_actid

+

+set apps=

+if %_wmic% EQU 1 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path %spp% where (ApplicationID='%1' and PartialProductKey is not null) get ID /VALUE" %nul6%')"

+if %_wmic% EQU 0 set "chkapp=for /f "tokens=2 delims==" %%a in ('%psc% "(([WMISEARCHER]'SELECT ID FROM %spp% WHERE ApplicationID=''%1'' AND PartialProductKey IS NOT NULL').Get()).ID ^| %% {echo ('ID='+$_)}" %nul6%')"

+%chkapp% do (if defined apps (call set "apps=!apps! %%a") else (call set "apps=%%a"))

+exit /b

+

+::  Trigger reevaluation, it helps in updating SPP tasks

+

+:dk_reeval

+

+::  This key is left by the system in rearm process and sppsvc sometimes fails to delete it, it causes issues in working of the Scheduled Tasks of SPP

+

+set "ruleskey=HKU\S-1-5-20\Software\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\PersistedSystemState"

+reg delete "%ruleskey%" /v "State" /f %nul%

+reg delete "%ruleskey%" /v "SuppressRulesEngine" /f %nul%

+

+set r1=$TB = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1).DefineDynamicModule(2, $False).DefineType(0);

+set r2=%r1% [void]$TB.DefinePInvokeMethod('SLpTriggerServiceWorker', 'sppc.dll', 22, 1, [Int32], @([UInt32], [IntPtr], [String], [UInt32]), 1, 3);

+set d1=%r2% [void]$TB.CreateType()::SLpTriggerServiceWorker(0, 0, 'reeval', 0)

+%psc% "Start-Job { Stop-Service sppsvc -force } | Wait-Job -Timeout 10 | Out-Null; %d1%"

+exit /b

+

+::  Install License files using Powershell/WMI instead of slmgr.vbs

+

+:xrm:

+function InstallLicenseFile($Lsc) {

+    try {

+        $null = $sls.InstallLicense([IO.File]::ReadAllText($Lsc))

+    } catch {

+        $host.SetShouldExit($_.Exception.HResult)

+    }

+}

+function InstallLicenseArr($Str) {

+    $a = $Str -split ';'

+    ForEach ($x in $a) {InstallLicenseFile "$x"}

+}

+function InstallLicenseDir($Loc) {

+    dir $Loc *.xrm-ms -af -s | select -expand FullName | % {InstallLicenseFile "$_"}

+}

+function ReinstallLicenses() {

+    $Oem = "$env:SysPath\oem"

+    $Spp = "$env:SysPath\spp\tokens"

+    InstallLicenseDir "$Spp"

+    If (Test-Path $Oem) {InstallLicenseDir "$Oem"}

+}

+:xrm:

+

+::  Check wmic.exe

+

+:dk_ckeckwmic

 

 set _wmic=0

 for %%# in (wmic.exe) do @if not "%%~$PATH:#"=="" (

-wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "computersystem" 1>nul && set _wmic=1

+wmic path Win32_ComputerSystem get CreationClassName /value %nul2% | find /i "computersystem" %nul1% && set _wmic=1

 )

+exit /b

 

-setlocal EnableDelayedExpansion

-if exist "%ProgramFiles%\Activation-Renewal\" call :_taskstart>>"%ProgramFiles%\Activation-Renewal\Logs.txt" & exit

+::  Show info for potential script stuck scenario

 

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

+:dk_sppissue

 

-:_taskstart

+set w=

+sc start sppsvc %nul%

+set spperror=%errorlevel%

 

-echo.

-echo %date%, %time%

+if %spperror% NEQ 1056 if %spperror% NEQ 0 (

+%eline%

+echo sc start sppsvc [Error Code: %spperror%]

+)

 

-set /a loop=1

-set /a max_loop=4

+echo "%spperror%" | findstr "577 225" %nul% && (

+echo:

+echo Your system is most likely infected with Mal%w%ware.

+echo:

+set fixes=%fixes% %mas%remove_mal%w%ware

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%remove_mal%w%ware"

+)

 

-call :_tasksetserv

+echo:

+%psc% "$job = Start-Job { (Get-WmiObject -Query 'SELECT * FROM %sps%').Version }; if (-not (Wait-Job $job -Timeout 20)) {write-host 'sppsvc is not working correctly. Help - %mas%troubleshoot'}"

+exit /b

 

-:_intrepeat

+::  Get Product name (WMI/REG methods are not reliable in all conditions, hence winbrand.dll method is used)

 

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

+:dk_product

 

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

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

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

+set d1=%ref% $meth = $TypeBuilder.DefinePInvokeMethod('BrandingFormatString', 'winbrand.dll', 'Public, Static', 1, [String], @([String]), 1, 3);

+set d1=%d1% $meth.SetImplementationFlags(128); $TypeBuilder.CreateType()::BrandingFormatString('%%WINDOWS_LONG%%')

+

+set winos=

+for /f "delims=" %%s in ('"%psc% %d1%"') do if not errorlevel 1 (set winos=%%s)

+echo "%winos%" | find /i "Windows" %nul1% || (

+for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName %nul6%') do set "winos=%%b"

+if %winbuild% GEQ 22000 (

+set winos=!winos:Windows 10=Windows 11!

 )

 )

 

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

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

+if not defined winsub exit /b

 

-if %loop%==%max_loop% (

-set _tserror=1

-goto _taskend

+::  Check base edition product name if Windows subscription license is found

+

+for %%# in (pkeyhelper.dll) do @if "%%~$PATH:#"=="" exit /b

+set d1=%ref% [void]$TypeBuilder.DefinePInvokeMethod('GetEditionNameFromId', 'pkeyhelper.dll', 'Public, Static', 1, [int], @([int], [IntPtr].MakeByRefType()), 1, 3);

+set d1=%d1% $out = 0; [void]$TypeBuilder.CreateType()::GetEditionNameFromId(%regSKU%, [ref]$out);$s=[Runtime.InteropServices.Marshal]::PtrToStringUni($out); $s

+

+for /f %%a in ('%psc% "%d1%"') do if not errorlevel 1 (

+if %winbuild% GEQ 22000 (

+set winos=Windows 11 %%a

+) else (

+set winos=Windows 10 %%a

+)

 )

+exit /b

 

-echo.

-echo Error: Internet is not connected

-echo Waiting 30 seconds

+::  Common lines used in PowerShell reflection code

 

-timeout /t 30 >nul

-set /a loop=%loop%+1

-goto _intrepeat

+:dk_reflection

 

-:_taskIntConnected

+set ref=$AssemblyBuilder = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1);

+set ref=%ref% $ModuleBuilder = $AssemblyBuilder.DefineDynamicModule(2, $False);

+set ref=%ref% $TypeBuilder = $ModuleBuilder.DefineType(0);

+exit /b

 

 ::========================================================================================================================================

 

-::  Check not x86 Windows

+::  Get Product Key from pkeyhelper.dll for future new editions

+::  It works on Windows 10 1803 (17134) and later builds.

 

-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

+:k_pkey

 

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

+call :dk_reflection

 

-set "OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform"

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

+set d1=%ref% [void]$TypeBuilder.DefinePInvokeMethod('SkuGetProductKeyForEdition', 'pkeyhelper.dll', 'Public, Static', 1, [int], @([int], [String], [String].MakeByRefType(), [String].MakeByRefType()), 1, 3);

+set d1=%d1% $out = ''; [void]$TypeBuilder.CreateType()::SkuGetProductKeyForEdition(%1, %2, [ref]$out, [ref]$null); $out

 

-set "slp=SoftwareLicensingProduct"

-set "ospp=OfficeSoftwareProtectionProduct"

+set pkey=

+for /f %%a in ('%psc% "%d1%"') do if not errorlevel 1 (set pkey=%%a)

+exit /b

 

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

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

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

+::  Get channel name for the key which was extracted from pkeyhelper.dll

 

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

+:k_pkeychannel

 

-::  Clean existing KMS cache from the registry / Set port value to 1688

+set k=%1

+set m=[Runtime.InteropServices.Marshal]

+set p=%SysPath%\spp\tokens\pkeyconfig\pkeyconfig.xrm-ms

 

-%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"

+set d1=%ref% [void]$TypeBuilder.DefinePInvokeMethod('PidGenX', 'pidgenx.dll', 'Public, Static', 1, [int], @([String], [String], [String], [int], [IntPtr], [IntPtr], [IntPtr]), 1, 3);

+set d1=%d1% $r = [byte[]]::new(0x04F8); $r[0] = 0xF8; $r[1] = 0x04; $f = %m%::AllocHGlobal(0x04F8); %m%::Copy($r, 0, $f, 0x04F8);

+set d1=%d1% [void]$TypeBuilder.CreateType()::PidGenX('%k%', '%p%', '00000', 0, 0, 0, $f); %m%::Copy($f, $r, 0, 0x04F8); %m%::FreeHGlobal($f); [Text.Encoding]::Unicode.GetString($r, 1016, 128)

+

+set pkeychannel=

+for /f %%a in ('%psc% "%d1%"') do if not errorlevel 1 (set pkeychannel=%%a)

+exit /b

+

+:k_gvlk

+

+for %%# in (pkeyhelper.dll) do @if "%%~$PATH:#"=="" exit /b

+for %%# in (Volume:GVLK) do (

+call :k_pkey %osSKU% '%%#'

+if defined pkey call :k_pkeychannel !pkey!

+if /i [!pkeychannel!]==[%%#] (

+set key=!pkey!

+exit /b

 )

-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

+exit /b

 

 ::========================================================================================================================================

 

-::  Check WMI and sppsvc Errors

-

-set applist=

-net start sppsvc /y %nul%

-if %_wmic% EQU 1 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path %slp% where (ApplicationID='%_wApp%') get ID /VALUE" 2^>nul')"

-if %_wmic% EQU 0 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"))

+:dk_errorcheck

 

-if not defined applist (

-set _tserror=1

-if %_wmic% EQU 1 wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "computersystem" 1>nul

-if %_wmic% EQU 0 %psc% "Get-CIMInstance -Class Win32_ComputerSystem | Select-Object -Property CreationClassName" 2>nul | find /i "computersystem" 1>nul

-if !errorlevel! NEQ 0 (set e_wmispp=WMI, SPP) else (set e_wmispp=SPP)

-echo.

-echo Error: Not Respoding- !e_wmispp!

-echo.

-)

+set w=

+set showfix=

 

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

+::  Many users unknowingly download mal-ware by using activators found through Google search.

+::  This code aims to notify users that their system has been affected by mal-ware.

 

-::  Check installed volume products activation ID's

+if exist "%ProgramFiles%\KM%w%Spico" set pupfound1= KM%w%Spico 

+if exist "%SysPath%\Tasks\R@1n-KMS"  set pupfound2= R@inKMS 

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" /f Path /s | find /i "AutoPico" %nul% && set pupfound1= KM%w%Spico 

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" /f Path /s | find /i "R@1n" %nul% && set pupfound2= R@inKMS 

+set pupfound=%pupfound1%%pupfound2%

 

-call :_taskgetids sppwid %slp% windows

-call :_taskgetids sppoid %slp% office

-call :_taskgetids osppid %ospp% office

+set hcount=0

+for %%# in (avira.com kaspersky.com virustotal.com mcafee.com) do (

+find /i "%%#" %SysPath%\drivers\etc\hosts %nul% && set /a hcount+=1)

+if %hcount%==4 set "results=[AV URLs are blocked in hosts]"

 

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

+set wucount=0

+for %%# in (wuauserv) do (

+set _corrupt=

+for %%G in (DependOnService Description DisplayName ErrorControl ImagePath ObjectName Start Type) do if not defined _corrupt (

+reg query HKLM\SYSTEM\CurrentControlSet\Services\%%# /v %%G %nul% || (set _corrupt=1 & set /a wucount+=1)

+)

+)

+if %wucount% GEQ 1 set "results=%results%[WU registry is corrupt]"

 

-echo.

-echo Renewing KMS activation for all installed Volume products

+sc start sppsvc %nul%

+echo "%errorlevel%" | findstr "577 225" %nul% && set "results=%results%[Likely File Infector]"

 

-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

+if not "%results%%pupfound%"=="" (

+if defined pupfound call :dk_color %Gray% "Checking PUP Activators                 [Found%pupfound%]"

+if defined results call :dk_color %Red% "Checking Probable Mal%w%ware Infection     %results%"

+set fixes=%fixes% %mas%remove_mal%w%ware

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%remove_mal%w%ware"

+echo:

 )

 

 ::========================================================================================================================================

 

-:: Check KMS38 activation

+::  Check corrupt services

 

-set gpr=0

-set _kms38=0

-if defined sppwid if %winbuild% GEQ 14393 (

-set _path=%slp%

-set _actid=%sppwid%

-call :_taskgetgrace

+set serv_cor=

+for %%# in (%_serv%) do (

+set _corrupt=

+sc start %%# %nul%

+if !errorlevel! EQU 1060 set _corrupt=1

+sc query %%# %nul% || set _corrupt=1

+for %%G in (DependOnService Description DisplayName ErrorControl ImagePath ObjectName Start Type) do if not defined _corrupt (

+reg query HKLM\SYSTEM\CurrentControlSet\Services\%%# /v %%G %nul% || set _corrupt=1

 )

 

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

-set _kms38=1

-call :_taskchkEnterpriseG _kms38

+if defined _corrupt (if defined serv_cor (set "serv_cor=!serv_cor! %%#") else (set "serv_cor=%%#"))

 )

 

-:: 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"

+if defined serv_cor (

+set error=1

+call :dk_color %Red% "Checking Corrupt Services               [%serv_cor%]"

 )

 

 ::========================================================================================================================================

 

-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

+::  Check disabled services

+

+set serv_ste=

+for %%# in (%_serv%) do (

+sc start %%# %nul%

+if !errorlevel! EQU 1058 (if defined serv_ste (set "serv_ste=!serv_ste! %%#") else (set "serv_ste=%%#"))

 )

 

-if defined sppoid (

-set _path=%slp%

-for %%# in (%sppoid%) do (

-echo.

-set _actid=%%#

-call :_actprod

-call :_act

-call :_actinfo

+::  Change disabled services startup type to default

+

+set serv_csts=

+set serv_cste=

+

+if defined serv_ste (

+for %%# in (%serv_ste%) do (

+if /i %%#==ClipSVC          (reg add "HKLM\SYSTEM\CurrentControlSet\Services\%%#" /v "Start" /t REG_DWORD /d "3" /f %nul% & sc config %%# start= demand %nul%)

+if /i %%#==wlidsvc          sc config %%# start= demand %nul%

+if /i %%#==sppsvc           (reg add "HKLM\SYSTEM\CurrentControlSet\Services\%%#" /v "Start" /t REG_DWORD /d "2" /f %nul% & sc config %%# start= delayed-auto %nul%)

+if /i %%#==KeyIso           sc config %%# start= demand %nul%

+if /i %%#==LicenseManager   sc config %%# start= demand %nul%

+if /i %%#==Winmgmt          sc config %%# start= auto %nul%

+if !errorlevel!==0 (

+if defined serv_csts (set "serv_csts=!serv_csts! %%#") else (set "serv_csts=%%#")

+) else (

+if defined serv_cste (set "serv_cste=!serv_cste! %%#") else (set "serv_cste=%%#")

+)

 )

 )

 

-if defined osppid (

-set _path=%ospp%

-for %%# in (%osppid%) do (

-echo.

-set _actid=%%#

-call :_actprod

-call :_act

-call :_actinfo

+if defined serv_csts call :dk_color %Gray% "Enabling Disabled Services              [Successful] [%serv_csts%]"

+

+if defined serv_cste (

+set error=1

+call :dk_color %Red% "Enabling Disabled Services              [Failed] [%serv_cste%]"

 )

+

+::========================================================================================================================================

+

+::  Check if the services are able to run or not

+::  Workarounds are added to get correct status and error code because sc query doesn't output correct results in some conditions

+

+set serv_e=

+for %%# in (%_serv%) do (

+set errorcode=

+set checkerror=

+

+sc query %%# | find /i "RUNNING" %nul% || (

+%psc% "Start-Job { Start-Service %%# } | Wait-Job -Timeout 10 | Out-Null"

+set errorcode=!errorlevel!

+sc query %%# | find /i "RUNNING" %nul% || set checkerror=1

 )

 

-if not defined sppoid if not defined osppid (

-echo.

-echo Checking: Volume version of Office is not installed

+sc start %%# %nul%

+if !errorlevel! NEQ 1056 if !errorlevel! NEQ 0 (set errorcode=!errorlevel!&set checkerror=1)

+if defined checkerror if defined serv_e (set "serv_e=!serv_e!, %%#-!errorcode!") else (set "serv_e=%%#-!errorcode!")

 )

 

-:_skipact

+if defined serv_e (

+set error=1

+call :dk_color %Red% "Starting Services                       [Failed] [%serv_e%]"

+echo %serv_e% | findstr /i "ClipSVC-1058 sppsvc-1058" %nul% && (

+call :dk_color %Blue% "Restart the system to fix this error."

+set showfix=1

+)

+)

 

 ::========================================================================================================================================

 

-if defined run_once (

-echo.

-echo Deleting Scheduled Task Activation-Run_Once

-schtasks /delete /tn Activation-Run_Once /f %nul%

+::  Various error checks

+

+if defined safeboot_option (

+set error=1

+set showfix=1

+call :dk_color2 %Red% "Checking Boot Mode                      [%safeboot_option%] " %Blue% "[Safe mode found. Run in normal mode.]"

 )

 

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

 

-:_taskend

+for /f "skip=2 tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\State" /v ImageState') do (set imagestate=%%B)

+if /i not "%imagestate%"=="IMAGE_STATE_COMPLETE" (

+set error=1

+call :dk_color %Red% "Checking Windows Setup State            [%imagestate%]"

+echo "%imagestate%" | find /i "RESEAL" %nul% && (

+set showfix=1

+call :dk_color %Blue% "You need to run it in normal mode in case you are running it in Audit Mode."

+)

+)

 

-echo.

-echo Exiting

-echo ______________________________________________________________________

 

-if defined _tserror (exit /b 123456789) else (exit /b 0)

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WinPE" /v InstRoot %nul% && (

+set error=1

+set showfix=1

+call :dk_color2 %Red% "Checking WinPE                          " %Blue% "[WinPE mode found. Run in normal mode.]"

+)

 

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

 

-:_act

+set wpainfo=

+set wpaerror=

+for /f "delims=" %%a in ('%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':wpatest\:.*';iex ($f[1])" %nul6%') do (set wpainfo=%%a)

+echo "%wpainfo%" | find /i "Error Found" %nul% && (

+set error=1

+set wpaerror=1

+call :dk_color %Red% "Checking WPA Registry Error             [%wpainfo%]"

+) || (

+echo Checking WPA Registry Count             [%wpainfo%]

+)

 

-set errorcode=12345

-set /a act_attempt=0

 

-:_act2

+if not defined officeact if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" (

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID %nul2% | find /i "Eval" %nul1% || (

+set error=1

+call :dk_color %Red% "Checking Eval Packages                  [Non-Eval Licenses are installed in Eval Windows]"

+set fixes=%fixes% %mas%evaluation-editions

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%evaluation-editions"

+)

+)

 

-if %act_attempt% GTR 4 exit /b

 

-if not [%act_ok%]==[1] (

-call :_taskgetserv

-call :_taskregserv

-)

+set osedition=

+for /f "skip=2 tokens=3" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID %nul6%') do set "osedition=%%a"

 

-if not !server_num! GTR %max_servers% (

+::  Workaround for an issue in builds between 1607 and 1709 where ProfessionalEducation is shown as Professional

 

-if [%1]==[act_win] if %_kms38% EQU 1 (

-set act_ok=1

-exit /b

+if defined osedition (

+if "%osSKU%"=="164" set osedition=ProfessionalEducation

+if "%osSKU%"=="165" set osedition=ProfessionalEducationN

 )

 

-if %_wmic% EQU 1 wmic path !_path! where ID='!_actid!' call Activate %nul%

-if %_wmic% EQU 0 %psc% "try {$null=(([WMISEARCHER]'SELECT ID FROM !_path! where ID=''!_actid!''').Get()).Activate(); exit 0} catch { exit $_.Exception.InnerException.HResult }"

+if not defined officeact (

+if not defined osedition (

+call :dk_color %Red% "Checking Edition Name                   [Not Found In Registry]"

+) else (

 

-call set errorcode=!errorlevel!

+if not exist "%SysPath%\spp\tokens\skus\%osedition%\%osedition%*.xrm-ms" if not exist "%SysPath%\spp\tokens\skus\Security-SPP-Component-SKU-%osedition%\*-%osedition%-*.xrm-ms" (

+set error=1

+call :dk_color %Red% "Checking License Files                  [Not Found] [%osedition%]"

+)

 

-if !errorcode! EQU 0 (

-set act_ok=1

-exit /b

+if not exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*-%osedition%-*.mum" (

+set error=1

+call :dk_color %Red% "Checking Package File                   [Not Found] [%osedition%]"

 )

-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 %_wmic% EQU 1 for /f "tokens=2 delims==" %%x in ('"wmic path !_path! where ID='!_actid!' get Name /VALUE" 2^>nul') do call echo Activating: %%x

-if %_wmic% EQU 0 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

+%psc% "try { $null=([WMISEARCHER]'SELECT * FROM %sps%').Get().Version; exit 0 } catch { exit $_.Exception.InnerException.HResult }" %nul%

+set error_code=%errorlevel%

+cmd /c exit /b %error_code%

+if %error_code% NEQ 0 set "error_code=0x%=ExitCode%"

+if %error_code% NEQ 0 (

+set error=1

+call :dk_color %Red% "Checking SoftwareLicensingService       [Not Working] %error_code%"

+)

 

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

 

-:_actinfo

+set wmifailed=

+if %_wmic% EQU 1 wmic path Win32_ComputerSystem get CreationClassName /value %nul2% | find /i "computersystem" %nul1%

+if %_wmic% EQU 0 %psc% "Get-WmiObject -Class Win32_ComputerSystem | Select-Object -Property CreationClassName" %nul2% | find /i "computersystem" %nul1%

 

-if [%1]==[act_win] if %_kms38% EQU 1 (

-echo Windows is activated with KMS38

-exit /b

+if %errorlevel% NEQ 0 set wmifailed=1

+echo "%error_code%" | findstr /i "0x800410 0x800440" %nul1% && set wmifailed=1& ::  https://learn.microsoft.com/en-us/windows/win32/wmisdk/wmi-error-constants

+if defined wmifailed (

+set error=1

+call :dk_color %Red% "Checking WMI                            [Not Working]"

+call :dk_color %Blue% "Go back to Main Menu, select Troubleshoot and run Fix WMI option."

+set showfix=1

 )

 

-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 not defined officeact (

+if %winbuild% GEQ 10240 (

+%nul% set /a "sum=%slcSKU%+%regSKU%+%wmiSKU%"

+set /a "sum/=3"

+if not "!sum!"=="%slcSKU%" (

+call :dk_color %Gray% "Checking SLC/WMI/REG SKU                [Difference Found - SLC:%slcSKU% WMI:%wmiSKU% Reg:%regSKU%]"

+)

+) else (

+%nul% set /a "sum=%slcSKU%+%wmiSKU%"

+set /a "sum/=2"

+if not "!sum!"=="%slcSKU%" (

+call :dk_color %Gray% "Checking SLC/WMI SKU                    [Difference Found - SLC:%slcSKU% WMI:%wmiSKU%]"

+)

+)

 )

 

-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

+reg query "HKU\S-1-5-20\Software\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\PersistedTSReArmed" %nul% && (

+set error=1

+set showfix=1

+call :dk_color2 %Red% "Checking Rearm                          " %Blue% "[System Restart Is Required]"

 )

 

-if %errorcode% EQU -1073417728 (

-echo Product Activation Failed: 0xC004F200

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

-set _tserror=1

-exit /b

+

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ClipSVC\Volatile\PersistedSystemState" %nul% && (

+set error=1

+set showfix=1

+call :dk_color2 %Red% "Checking ClipSVC                        " %Blue% "[System Restart Is Required]"

 )

 

-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

+::  This "WLMS" service was included in previous Eval editions (which were activable) to automatically shut down the system every hour after the evaluation period expired and prevent SPPSVC from stopping.

+

+if exist "%SysPath%\wlms\wlms.exe" (

+sc query wlms | find /i "RUNNING" %nul% && (

+echo Checking Eval WLMS Service              [Found]

+)

 )

 

-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

+reg query "HKU\S-1-5-20" %nul% && (

+if %winbuild% GEQ 15063 reg query "HKU\S-1-5-20\Software\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" %nul% || (

+set error=1

+call :dk_color %Red% "Checking S-1-5-20 SPP Reg               [Not Found]"

+set fixes=%fixes% %mas%troubleshoot

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%troubleshoot"

+)

+) || (

+set error=1

+call :dk_color %Red% "Checking HKU\S-1-5-20 Reg               [Not Found]"

+set fixes=%fixes% %mas%troubleshoot

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%troubleshoot"

 )

 

-cmd /c exit /b %errorcode%

-if %errorcode% NEQ 0 (

-echo Product Activation Failed: 0x!=ExitCode!

-) else (

-echo Product Activation Failed

+

+for %%# in (SppEx%w%tComObj.exe sppsvc.exe) do (

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ima%w%ge File Execu%w%tion Options\%%#" %nul% && (if defined _sppint (set "_sppint=!_sppint!, %%#") else (set "_sppint=%%#"))

+)

+if defined _sppint (

+echo Checking SPP Interference In IFEO       [%_sppint%]

 )

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

-set _tserror=1

-exit /b

 

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

 

-:_taskgetids

+for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v "SkipRearm" %nul6%') do if /i %%b NEQ 0x0 (

+reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v "SkipRearm" /t REG_DWORD /d "0" /f %nul%

+call :dk_color %Red% "Checking SkipRearm                      [Default 0 Value Not Found. Changing To 0]"

+%psc% "Start-Job { Stop-Service sppsvc -force } | Wait-Job -Timeout 10 | Out-Null"

+set error=1

+)

 

-set %1=

-if %_wmic% EQU 1 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 %_wmic% EQU 0 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

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Plugins\Objects\msft:rm/algorithm/hwid/4.0" /f ba02fed39662 /d %nul% || (

+call :dk_color %Red% "Checking SPP Registry Key               [Incorrect ModuleId Found]"

+set fixes=%fixes% %mas%issues_due_to_gaming_spoofers

+call :dk_color2 %Blue% "Possibly Caused By Gaming Spoofers. Help - " %_Yellow% " %mas%issues_due_to_gaming_spoofers"

+set error=1

+set showfix=1

+)

 

-set gpr=0

-if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('"wmic path !_path! where ID='!_actid!' get GracePeriodRemaining /VALUE" 2^>nul') do call set "gpr=%%#"

-if %_wmic% EQU 0 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

+set tokenstore=

+for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v TokenStore %nul6%') do call set "tokenstore=%%b"

+if %winbuild% LSS 9200 set "tokenstore=%Systemdrive%\Windows\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform"

+if %winbuild% GEQ 9200 if /i not "%tokenstore%"=="%SysPath%\spp\store" if /i not "%tokenstore%"=="%SysPath%\spp\store\2.0" if /i not "%tokenstore%"=="%SysPath%\spp\store_test\2.0" (

+set toerr=1

+set error=1

+set showfix=1

+call :dk_color %Red% "Checking TokenStore Registry Key        [Correct Path Not Found] [%tokenstore%]"

+set fixes=%fixes% %mas%troubleshoot

+call :dk_color2 %Blue% "Help - " %_Yellow% " %mas%troubleshoot"

+)

 

-for %%# in (e0b2d383-d112-413f-8a80-97f373a5820c e38454fb-41a4-4f59-a5dc-25080e354730) do (if %sppwid%==%%# set %1=0)

-exit /b

 

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

+::  This code creates token folder only if it's missing and sets default permission for it

 

-:_taskregserv

+if not defined toerr if not exist "%tokenstore%\" (

+mkdir "%tokenstore%" %nul%

+if %winbuild% LSS 9200 set "d=$sddl = 'O:NSG:NSD:AI(A;OICIID;FA;;;SY)(A;OICIID;FA;;;BA)(A;OICIID;FA;;;NS)';"

+if %winbuild% GEQ 9200 set "d=$sddl = 'O:BAG:BAD:PAI(A;OICI;FA;;;SY)(A;OICI;FA;;;BA)(A;OICIIO;GR;;;BU)(A;;FR;;;BU)(A;OICI;FA;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)';"

+set "d=!d! $AclObject = New-Object System.Security.AccessControl.DirectorySecurity;"

+set "d=!d! $AclObject.SetSecurityDescriptorSddlForm($sddl);"

+set "d=!d! Set-Acl -Path %tokenstore% -AclObject $AclObject;"

+%psc% "!d!" %nul%

+if exist "%tokenstore%\" (

+call :dk_color %Gray% "Checking SPP Token Folder               [Not Found. Created Now] [%tokenstore%\]"

+) else (

+call :dk_color %Red% "Checking SPP Token Folder               [Not Found. Failed To Create] [%tokenstore%\]"

+set error=1

+)

+)

 

-%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

+call :dk_actid 55c92734-d682-4d71-983e-d6ec3f16059f

+if not defined apps (

+%psc% "Start-Job { Stop-Service sppsvc -force } | Wait-Job -Timeout 10 | Out-Null; $sls = Get-WmiObject SoftwareLicensingService; $f=[io.file]::ReadAllText('!_batp!') -split ':xrm\:.*';iex ($f[1]); ReinstallLicenses" %nul%

+call :dk_actid 55c92734-d682-4d71-983e-d6ec3f16059f

+if not defined apps (

+set "_notfoundids=Key Not Installed / Act ID Not Found"

+call :dk_actids 55c92734-d682-4d71-983e-d6ec3f16059f

+if not defined allapps (

+set "_notfoundids=Not found"

+)

+set error=1

+call :dk_color %Red% "Checking Activation IDs                 [!_notfoundids!]"

 )

 )

-exit /b

 

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

 

-:_tasksetserv

+if exist "%tokenstore%\" if not exist "%tokenstore%\tokens.dat" (

+set error=1

+call :dk_color %Red% "Checking SPP tokens.dat                 [Not Found] [%tokenstore%\]"

+)

 

-::  Multi KMS servers integration and servers randomization

 

-set srvlist=

-set -=

+if %winbuild% GEQ 9200 if not exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" (

+for /f "delims=" %%a in ('%psc% "(Get-ScheduledTask -TaskName 'SvcRestartTask' -TaskPath '\Microsoft\Windows\SoftwareProtectionPlatform\').State" %nul6%') do (set taskinfo=%%a)

+echo !taskinfo! | find /i "Ready" %nul% || (

+reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v "actionlist" /f %nul%

+reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\TaskCache\Tree\Microsoft\Windows\SoftwareProtectionPlatform\SvcRestartTask" %nul% || set taskinfo=Removed

+call :dk_color %Red% "Checking SvcRestartTask Status          [!taskinfo!]"

+)

+)

 

-set "srvlist=kms.zhu%-%xiaole.org kms-default.cangs%-%hui.net kms.six%-%yin.com kms.moe%-%club.org kms.cgt%-%soft.com"

-set "srvlist=%srvlist% kms.id%-%ina.cn kms.moe%-%yuuko.com xinch%-%eng213618.cn kms.wl%-%rxy.cn kms.ca%-%tqu.com"

-set "srvlist=%srvlist% kms.0%-%t.net.cn kms.its%-%jzx.com kms.wx%-%lost.com kms.moe%-%yuuko.top kms.gh%-%pym.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

+::  This code checks if NT SERVICE\sppsvc has permission access to tokens folder and required registry keys. It's often caused by gaming spoofers. 

 

-:_taskgetserv

+set permerror=

+if not exist "%tokenstore%\" set permerror=1

+if %winbuild% GEQ 9200 for %%# in (

+"%tokenstore%+FullControl"

+"HKLM:\SYSTEM\WPA+QueryValues, EnumerateSubKeys, WriteKey"

+"HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform+SetValue"

+) do for /f "tokens=1,2 delims=+" %%A in (%%#) do if not defined permerror (

+%psc% "$acl = (Get-Acl '%%A' | fl | Out-String); if (-not ($acl -match 'NT SERVICE\\sppsvc Allow  %%B') -or ($acl -match 'NT SERVICE\\sppsvc Deny')) {Exit 2}" %nul%

+if !errorlevel!==2 set permerror=1

+)

 

-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

+if %winbuild% GEQ 9200 if defined permerror (

+set error=1

+call :dk_color %Red% "Checking SPP Permissions                [Error Found]"

+if not defined showfix call :dk_color %Blue% "%_fixmsg%"

+set showfix=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

+::  If required services are not disabled or corrupted + if there is any error + SoftwareLicensingService errorlevel is not Zero + no fix was shown before

+

+if not defined serv_cor if not defined serv_cste if defined error if /i not %error_code%==0 if not defined showfix (

+if not defined permerror if defined wpaerror (call :dk_color %Blue% "Go back to Main Menu, select Troubleshoot and run Fix WPA Registry option." & set showfix=1)

+if not defined showfix (

+set showfix=1

+call :dk_color %Blue% "%_fixmsg%"

+if not defined permerror call :dk_color %Blue% "If activation still fails then run Fix WPA Registry option."

+)

 )

 

-:: Ver:1.9

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

-:_extracttask:

+if not defined showfix if defined wpaerror (

+set showfix=1

+call :dk_color %Blue% "If activation fails then go back to Main Menu, select Troubleshoot and run Fix WPA Registry option."

+)

+

+exit /b

+

+::  This code checks for invalid registry keys in HKLM\SYSTEM\WPA. This issue may appear even on healthy systems

+

+:wpatest:

+$wpaKey = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey('LocalMachine', $env:COMPUTERNAME).OpenSubKey("SYSTEM\\WPA")

+$count = 0

+foreach ($subkeyName in $wpaKey.GetSubKeyNames()) {

+    if ($subkeyName -match '.*-.*-.*-.*-.*-') {

+        $count++

+    }

+}

+$osVersion = [System.Environment]::OSVersion.Version

+$minBuildNumber = 14393

+if ($osVersion.Build -ge $minBuildNumber) {

+    $subkeyHashTable = @{}

+    foreach ($subkeyName in $wpaKey.GetSubKeyNames()) {

+        if ($subkeyName -match '.*-.*-.*-.*-.*-') {

+            $keyNumber = $subkeyName -replace '.*-', ''

+            $subkeyHashTable[$keyNumber] = $true

+        }

+    }

+    for ($i=1; $i -le $count; $i++) {

+        if (-not $subkeyHashTable.ContainsKey("$i")) {

+            Write-Output "Total Keys $count. Error Found- $i key does not exist"

+			$wpaKey.Close()

+			exit

+        }

+    }

+}

+$wpaKey.GetSubKeyNames() | ForEach-Object {

+    if ($_ -match '.*-.*-.*-.*-.*-') {

+        if ($PSVersionTable.PSVersion.Major -lt 3) {

+            cmd /c "reg query "HKLM\SYSTEM\WPA\$_" /ve /t REG_BINARY >nul 2>&1"

+			if ($LASTEXITCODE -ne 0) {

+            Write-Host "Total Keys $count. Error Found- Binary Data is corrupt"

+			$wpaKey.Close()

+			exit

+			}

+        } else {

+            $subkey = $wpaKey.OpenSubKey($_)

+            $p = $subkey.GetValueNames()

+            if (($p | Where-Object { $subkey.GetValueKind($_) -eq [Microsoft.Win32.RegistryValueKind]::Binary }).Count -eq 0) {

+                Write-Host "Total Keys $count. Error Found- Binary Data is corrupt"

+				$wpaKey.Close()

+				exit

+            }

+        }

+    }

+}

+$count

+$wpaKey.Close()

+:wpatest:

 

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

+::========================================================================================================================================

 

-:_color

+:dk_color

 

 if %_NCS% EQU 1 (

-if defined _unattended (echo %~2) else (echo %esc%[%~1%~2%esc%[0m)

+echo %esc%[%~1%~2%esc%[0m

 ) else (

-if defined _unattended (echo %~2) else (call :batcol %~1 "%~2")

+%psc% write-host -back '%1' -fore '%2' '%3'

 )

 exit /b

 

-:_color2

+:dk_color2

 

 if %_NCS% EQU 1 (

 echo %esc%[%~1%~2%esc%[%~3%~4%esc%[0m

 ) else (

-call :batcol %~1 "%~2" %~3 "%~4"

+%psc% write-host -back '%1' -fore '%2' '%3' -NoNewline; write-host -back '%4' -fore '%5' '%6'

 )

 exit /b

 

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

-

-:: Colored text with pure batch method

-:: Thanks to @dbenham and @jeb

-:: stackoverflow.com/a/10407642

+::========================================================================================================================================

 

-:batcol

+:dk_done

 

-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

+echo:

+if %_unattended%==1 timeout /t 2 & exit /b

 

-:_batcol

+if defined fixes (

+call :dk_color2 %Blue% "Press [1] To Open Troubleshoot Page " %Gray% " Press [0] To Ignore"

+choice /C:10 /N

+if !errorlevel!==1 (for %%# in (%fixes%) do (start %%#))

+)

 

-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%"

+if defined terminal (

+call :dk_color %_Yellow% "Press 0 key to %_exitmsg%..."

+choice /c 0 /n

+) else (

+call :dk_color %_Yellow% "Press any key to %_exitmsg%..."

+pause %nul1%

 )

-echo(

+

 exit /b

 

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

+::========================================================================================================================================

 

-:_colorprep

+::  1st column = Office version number

+::  2nd column = Activation ID

+::  3rd column = Edition

+::  4th column = Other Edition IDs if they are part of the same primary product (For reference only)

+::  Separator  = "_"

 

-if %_NCS% EQU 1 (

-for /F %%a in ('echo prompt $E ^| cmd') do set "esc=%%a"

+:ks_msiretaildata

 

-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""

+for %%# in (

+:: Office 2010

+14_4d463c2c-0505-4626-8cdb-a4da82e2d8ed_AccessR

+14_745fb377-0a59-4ca9-b9a9-c359557a2c4e_AccessRuntimeR

+14_4eaff0d0-c6cb-4187-94f3-c7656d49a0aa_ExcelR

+14_7004b7f0-6407-4f45-8eac-966e5f868bde_GrooveR

+14_7b7d1f17-fdcb-4820-9789-9bec6e377821_HomeBusinessR_[HomeBusinessDemoR]

+14_19316117-30a8-4773-8fd9-7f7231f4e060_HomeBusinessSubR

+14_09e2d37e-474b-4121-8626-58ad9be5776f_HomeStudentR_[HomeStudentDemoR]

+14_c3ae020c-5a71-4cc5-a27a-2a97c2d46860_HSExcelR

+14_25fe4611-b44d-49cc-ae87-2143d299194e_HSOneNoteR

+14_d652ad8d-da5c-4358-b928-7fb1b4de7a7c_HSPowerPointR

+14_a963d7ae-7a88-41a7-94da-8bb5635a8af9_HSWordR

+14_ef1da464-01c8-43a6-91af-e4e5713744f9_InfoPathR

+14_14f5946a-debc-4716-babc-7e2c240fec08_MondoR

+14_c1ceda8b-c578-4d5d-a4aa-23626be4e234_OEM

+14_3f7aa693-9a7e-44fc-9309-bb3d8e604925_OneNoteR

+14_fbf4ac36-31c8-4340-8666-79873129cf40_OutlookR

+14_acb51361-c0db-4895-9497-1831c41f31a6_PersonalR_[PersonalDemoR,PersonalPrepaidR]

+14_133c8359-4e93-4241-8118-30bb18737ea0_PowerPointR

+14_8b559c37-0117-413e-921b-b853aeb6e210_ProfessionalR_[ProfessionalAcadR,ProfessionalDemoR]

+14_725714d7-d58f-4d12-9fa8-35873c6f7215_ProjectProR_[ProjectProMSDNR]

+14_4d06f72e-fd50-4bc2-a24b-d448d7f17ef2_ProjectProSubR

+14_688f6589-2bd9-424e-a152-b13f36aa6de1_ProjectStdR

+14_71af7e84-93e6-4363-9b69-699e04e74071_ProPlusR_[ProPlusAcadR,ProPlusMSDNR,Sub4R]

+14_e98ef0c0-71c4-42ce-8305-287d8721e26c_ProPlusSubR

+14_98677603-a668-4fa4-9980-3f1f05f78f69_PublisherR

+14_dbe3aee0-5183-4ff7-8142-66050173cb01_SmallBusBasicsR_[SmallBusBasicsMSDNR]

+14_b78df69e-0966-40b1-ae85-30a5134dedd0_SPDR

+14_d3422cfb-8d8b-4ead-99f9-eab0ccd990d7_StandardR

+14_2745e581-565a-4670-ae90-6bf7c57ffe43_StarterR

+14_66cad568-c2dc-459d-93ec-2f3cb967ee34_VisioSIR_Prem[Pro,Std]

+14_db3bbc9c-ce52-41d1-a46f-1a1d68059119_WordR

+:: Office 2013

+15_ab4d047b-97cf-4126-a69f-34df08e2f254_AccessRetail

+15_1b1d9bd5-12ea-4063-964c-16e7e87d6e08_ExcelRetail

+15_cfaf5356-49e3-48a8-ab3c-e729ab791250_GrooveRetail

+15_c02fb62e-1cd5-4e18-ba25-e0480467ffaa_HomeBusinessPipcRetail

+15_a2b90e7a-a797-4713-af90-f0becf52a1dd_HomeBusinessRetail

+15_f2de350d-3028-410a-bfae-283e00b44d0e_HomeStudentRetail

+15_44984381-406e-4a35-b1c3-e54f499556e2_InfoPathRetail

+15_9103f3ce-1084-447a-827e-d6097f68c895_LyncAcademicRetail

+15_ff693bf4-0276-4ddb-bb42-74ef1a0c9f4d_LyncEntryRetail

+15_fada6658-bfc6-4c4e-825a-59a89822cda8_LyncRetail

+15_69ec9152-153b-471a-bf35-77ec88683eae_MondoRetail

+15_3391e125-f6e4-4b1e-899c-a25e6092d40d_OneNoteFreeRetail

+15_8b524bcc-67ea-4876-a509-45e46f6347e8_OneNoteRetail

+15_12004b48-e6c8-4ffa-ad5a-ac8d4467765a_OutlookRetail

+15_5aab8561-1686-43f7-9ff5-2c861da58d17_PersonalPipcRetail

+15_17e9df2d-ed91-4382-904b-4fed6a12caf0_PersonalRetail

+15_31743b82-bfbc-44b6-aa12-85d42e644d5b_PowerPointRetail

+15_064383fa-1538-491c-859b-0ecab169a0ab_ProPlusRetail

+15_4e26cac1-e15a-4467-9069-cb47b67fe191_ProfessionalPipcRetail

+15_44bc70e2-fb83-4b09-9082-e5557e0c2ede_ProfessionalRetail

+15_2f72340c-b555-418d-8b46-355944fe66b8_ProjectProRetail

+15_58d95b09-6af6-453d-a976-8ef0ae0316b1_ProjectStdRetail

+15_c3a0814a-70a4-471f-af37-2313a6331111_PublisherRetail

+15_ba3e3833-6a7e-445a-89d0-7802a9a68588_SPDRetail

+15_32255c0a-16b4-4ce2-b388-8a4267e219eb_StandardRetail

+15_a56a3b37-3a35-4bbb-a036-eee5f1898eee_VisioProRetail

+15_980f9e3e-f5a8-41c8-8596-61404addf677_VisioStdRetail

+15_191509f2-6977-456f-ab30-cf0492b1e93a_WordRetail

+:: Office 365 - 15.0 version

+15_6337137e-7c07-4197-8986-bece6a76fc33_O365BusinessRetail

+15_537ea5b5-7d50-4876-bd38-a53a77caca32_O365HomePremRetail

+15_149dbce7-a48e-44db-8364-a53386cd4580_O365ProPlusRetail

+15_bacd4614-5bef-4a5e-bafc-de4c788037a2_O365SmallBusPremRetail

+:: Office 365 - 16.0 version

+16_6337137e-7c07-4197-8986-bece6a76fc33_O365BusinessRetail

+16_2f5c71b4-5b7a-4005-bb68-f9fac26f2ea3_O365EduCloudRetail

+16_537ea5b5-7d50-4876-bd38-a53a77caca32_O365HomePremRetail

+16_149dbce7-a48e-44db-8364-a53386cd4580_O365ProPlusRetail

+16_bacd4614-5bef-4a5e-bafc-de4c788037a2_O365SmallBusPremRetail

+:: Office 2016

+16_bfa358b0-98f1-4125-842e-585fa13032e6_AccessRetail

+16_9d9faf9e-d345-4b49-afce-68cb0a539c7c_AccessRuntimeRetail

+16_424d52ff-7ad2-4bc7-8ac6-748d767b455d_ExcelRetail

+16_c02fb62e-1cd5-4e18-ba25-e0480467ffaa_HomeBusinessPipcRetail

+16_86834d00-7896-4a38-8fae-32f20b86fa2b_HomeBusinessRetail

+16_c28acdb8-d8b3-4199-baa4-024d09e97c99_HomeStudentRetail

+16_e2127526-b60c-43e0-bed1-3c9dc3d5a468_HomeStudentVNextRetail

+16_69ec9152-153b-471a-bf35-77ec88683eae_MondoRetail

+16_436366de-5579-4f24-96db-3893e4400030_OneNoteFreeRetail

+16_83ac4dd9-1b93-40ed-aa55-ede25bb6af38_OneNoteRetail

+16_5a670809-0983-4c2d-8aad-d3c2c5b7d5d1_OutlookRetail

+16_5aab8561-1686-43f7-9ff5-2c861da58d17_PersonalPipcRetail

+16_a9f645a1-0d6a-4978-926a-abcb363b72a6_PersonalRetail

+16_f32d1284-0792-49da-9ac6-deb2bc9c80b6_PowerPointRetail

+16_de52bd50-9564-4adc-8fcb-a345c17f84f9_ProPlusRetail

+16_4e26cac1-e15a-4467-9069-cb47b67fe191_ProfessionalPipcRetail

+16_d64edc00-7453-4301-8428-197343fafb16_ProfessionalRetail

+16_2f72340c-b555-418d-8b46-355944fe66b8_ProjectProRetail

+16_58d95b09-6af6-453d-a976-8ef0ae0316b1_ProjectStdRetail

+16_6e0c1d99-c72e-4968-bcb7-ab79e03e201e_PublisherRetail

+16_9103f3ce-1084-447a-827e-d6097f68c895_SkypeServiceBypassRetail

+16_971cd368-f2e1-49c1-aedd-330909ce18b6_SkypeforBusinessEntryRetail

+16_418d2b9f-b491-4d7f-84f1-49e27cc66597_SkypeforBusinessRetail

+16_4a31c291-3a12-4c64-b8ab-cd79212be45e_StandardRetail

+16_a56a3b37-3a35-4bbb-a036-eee5f1898eee_VisioProRetail

+16_980f9e3e-f5a8-41c8-8596-61404addf677_VisioStdRetail

+16_cacaa1bf-da53-4c3b-9700-11738ef1c2a5_WordRetail

+) do (

+for /f "tokens=1-5 delims=_" %%A in ("%%#") do (

 

-set    "_Red="40;91m""

-set  "_Green="40;92m""

-set   "_Blue="40;94m""

-set  "_White="40;37m""

-set "_Yellow="40;93m""

+if %1==getmsiret if "%oVer%"=="%%A" (

+for /f "tokens=*" %%x in ('findstr /i /c:"%%B" "%_oBranding%"') do set "prodId=%%x"

+set prodId=!prodId:"/>=!

+set prodId=!prodId:~-4!

+if "%oVer%"=="14" (

+REM Exception case for Visio because wrong primary product ID is mentioned in Branding.xml

+echo %%C | find /i "Visio" %nul% && set prodId=0057

+)

+reg query "%2\Registration\{%%B}" /v ProductCode %nul2% | find /i "-!prodId!-" %nul% && (

+reg query "%2\Common\InstalledPackages" %nul2% | find /i "-!prodId!-" %nul% && (

+if defined _oIds (set _oIds=!_oIds! %%C) else (set _oIds=%%C)

+)

+)

+)

 

-exit /b

 )

+)

+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""

+::  1st column = Activation ID

+::  2nd column = GVLK / Free Office products keys

+::  3rd column = In case of Windows, its SKU ID. In case of Office, its Office version

+::  4th column = Edition ID

+::  5th column = In case of Windows, its Build Branch name incase same Edition ID is used in different OS versions with different key (For reference only)

+::               In case of Office, its either a key type if its a free Office product or Retail product names that needs to be converted to the Edition ID mentioned in 4th column

+::               In Office 2010, one highest VL edition from each primary product ID is selected, that's why Visio Prem key is mentioned but not for Visio Pro, Std

+::  Separator  = "_"

+

+:ksdata

+

+set f=

+for %%# in (

+:: Windows 10/11

+73111121-5638-40f6-bc11-f1d7b0d64300_NPPR9-FWDCX-D2C8J-H872K-2Y%f%T43___4_Enterprise

+e272e3e2-732f-4c65-a8f0-484747d0d947_DPH2V-TTNVB-4X9Q3-TJR4H-KH%f%JW4__27_EnterpriseN

+2de67392-b7a7-462a-b1ca-108dd189f588_W269N-WFGWX-YVC9B-4J6C9-T8%f%3GX__48_Professional

+a80b5abf-76ad-428b-b05d-a47d2dffeebf_MH37W-N47XK-V7XM9-C7227-GC%f%QG9__49_ProfessionalN

+7b9e1751-a8da-4f75-9560-5fadfe3d8e38_3KHY7-WNT83-DGQKR-F7HPR-84%f%4BM__98_CoreN

+a9107544-f4a0-4053-a96a-1479abdef912_PVMJN-6DFY6-9CCP6-7BKTT-D3%f%WVR__99_CoreCountrySpecific

+cd918a57-a41b-4c82-8dce-1a538e221a83_7HNRX-D7KGG-3K4RQ-4WPJ4-YT%f%DFH_100_CoreSingleLanguage

+58e97c99-f377-4ef1-81d5-4ad5522b5fd8_TX9XD-98N7V-6WMQ6-BX7FG-H8%f%Q99_101_Core

+e0c42288-980c-4788-a014-c080d2e1926e_NW6C2-QMPVW-D7KKK-3GKT6-VC%f%FB2_121_Education

+3c102355-d027-42c6-ad23-2e7ef8a02585_2WH4N-8QGBV-H22JP-CT43Q-MD%f%WWJ_122_EducationN

+32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee_M7XTQ-FN8P6-TTKYV-9D4CC-J4%f%62D_125_EnterpriseS_RS5,VB,Ge

+2d5a5a60-3040-48bf-beb0-fcd770c20ce0_DCPHK-NFMTC-H88MJ-PFHPY-QJ%f%4BJ_125_EnterpriseS_RS1

+7b51a46c-0c04-4e8f-9af4-8496cca90d5e_WNMTR-4C88C-JK8YV-HQ7T2-76%f%DF9_125_EnterpriseS_TH1

+7103a333-b8c8-49cc-93ce-d37c09687f92_92NFX-8DJQP-P6BBQ-THF9C-7C%f%G2H_126_EnterpriseSN_RS5,VB,Ge

+9f776d83-7156-45b2-8a5c-359b9c9f22a3_QFFDN-GRT3P-VKWWX-X7T3R-8B%f%639_126_EnterpriseSN_RS1

+87b838b7-41b6-4590-8318-5797951d8529_2F77B-TNFGY-69QQF-B8YKP-D6%f%9TJ_126_EnterpriseSN_TH1

+82bbc092-bc50-4e16-8e18-b74fc486aec3_NRG8B-VKK3Q-CXVCJ-9G2XF-6Q%f%84J_161_ProfessionalWorkstation

+4b1571d3-bafb-4b40-8087-a961be2caf65_9FNHH-K3HBT-3W4TD-6383H-6X%f%YWF_162_ProfessionalWorkstationN

+3f1afc82-f8ac-4f6c-8005-1d233e606eee_6TP4R-GNPTD-KYYHQ-7B7DP-J4%f%47Y_164_ProfessionalEducation

+5300b18c-2e33-4dc2-8291-47ffcec746dd_YVWGF-BXNMC-HTQYQ-CPQ99-66%f%QFC_165_ProfessionalEducationN

+e0b2d383-d112-413f-8a80-97f373a5820c_YYVX9-NTFWV-6MDM3-9PT4T-4M%f%68B_171_EnterpriseG

+e38454fb-41a4-4f59-a5dc-25080e354730_44RPN-FTY23-9VTTB-MP9BX-T8%f%4FV_172_EnterpriseGN

+ec868e65-fadf-4759-b23e-93fe37f2cc29_CPWHC-NT2C7-VYW78-DHDB2-PG%f%3GK_175_ServerRdsh_RS5

+e4db50ea-bda1-4566-b047-0ca50abc6f07_7NBT4-WGBQX-MP4H7-QXFF8-YP%f%3KX_175_ServerRdsh_RS3

+0df4f814-3f57-4b8b-9a9d-fddadcd69fac_NBTWJ-3DR69-3C4V8-C26MC-GQ%f%9M6_183_CloudE

+59eb965c-9150-42b7-a0ec-22151b9897c5_KBN8V-HFGQ4-MGXVD-347P6-PD%f%QGT_191_IoTEnterpriseS_VB,NI

+d30136fc-cb4b-416e-a23d-87207abc44a9_6XN7V-PCBDC-BDBRH-8DQY7-G6%f%R44_202_CloudEditionN

+ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69_37D7F-N49CB-WQR8W-TBJ73-FM%f%8RX_203_CloudEdition

+:: Windows 2016/19/22/25 LTSC/SAC

+7dc26449-db21-4e09-ba37-28f2958506a6_TVRH6-WHNXV-R9WG3-9XRFY-MY%f%832___7_ServerStandard_Ge

+9bd77860-9b31-4b7b-96ad-2564017315bf_VDYBN-27WPP-V4HQT-9VMD4-VM%f%K7H___7_ServerStandard_FE

+de32eafd-aaee-4662-9444-c1befb41bde2_N69G4-B89J2-4G8F4-WWYCC-J4%f%64C___7_ServerStandard_RS5

+8c1c5410-9f39-4805-8c9d-63a07706358f_WC2BQ-8NRM3-FDDYY-2BFGV-KH%f%KQY___7_ServerStandard_RS1

+c052f164-cdf6-409a-a0cb-853ba0f0f55a_D764K-2NDRG-47T6Q-P8T8W-YP%f%6DF___8_ServerDatacenter_Ge

+ef6cfc9f-8c5d-44ac-9aad-de6a2ea0ae03_WX4NM-KYWYW-QJJR4-XV3QB-6V%f%M33___8_ServerDatacenter_FE

+34e1ae55-27f8-4950-8877-7a03be5fb181_WMDGN-G9PQG-XVVXX-R3X43-63%f%DFG___8_ServerDatacenter_RS5

+21c56779-b449-4d20-adfc-eece0e1ad74b_CB7KF-BWN84-R7R2Y-793K2-8X%f%DDG___8_ServerDatacenter_RS1

+034d3cbb-5d4b-4245-b3f8-f84571314078_WVDHN-86M7X-466P6-VHXV7-YY%f%726__50_ServerSolution_RS5

+2b5a1b0f-a5ab-4c54-ac2f-a6d94824a283_JCKRF-N37P4-C2D82-9YXRT-4M%f%63B__50_ServerSolution_RS1

+7b4433f4-b1e7-4788-895a-c45378d38253_QN4C6-GBJD2-FB422-GHWJK-GJ%f%G2R_110_ServerCloudStorage

+8de8eb62-bbe0-40ac-ac17-f75595071ea3_GRFBW-QNDC4-6QBHG-CCK3B-2P%f%R88_120_ServerARM64_RS5

+43d9af6e-5e86-4be8-a797-d072a046896c_K9FYF-G6NCK-73M32-XMVPY-F9%f%DRR_120_ServerARM64_RS4

+39e69c41-42b4-4a0a-abad-8e3c10a797cc_QFND9-D3Y9C-J3KKY-6RPVP-2D%f%PYV_145_ServerDatacenterACor_FE

+90c362e5-0da1-4bfd-b53b-b87d309ade43_6NMRW-2C8FM-D24W7-TQWMY-CW%f%H2D_145_ServerDatacenterACor_RS5

+e49c08e7-da82-42f8-bde2-b570fbcae76c_2HXDN-KRXHB-GPYC7-YCKFJ-7F%f%VDG_145_ServerDatacenterACor_RS3

+f5e9429c-f50b-4b98-b15c-ef92eb5cff39_67KN8-4FYJW-2487Q-MQ2J7-4C%f%4RG_146_ServerStandardACor_FE

+73e3957c-fc0c-400d-9184-5f7b6f2eb409_N2KJX-J94YW-TQVFB-DG9YT-72%f%4CC_146_ServerStandardACor_RS5

+61c5ef22-f14f-4553-a824-c4b31e84b100_PTXN8-JFHJM-4WC78-MPCBR-9W%f%4KR_146_ServerStandardACor_RS3

+45b5aff2-60a0-42f2-bc4b-ec6e5f7b527e_FCNV3-279Q9-BQB46-FTKXX-9H%f%PRH_168_ServerAzureCor_Ge

+8c8f0ad3-9a43-4e05-b840-93b8d1475cbc_6N379-GGTMK-23C6M-XVVTC-CK%f%FRQ_168_ServerAzureCor_FE

+a99cc1f0-7719-4306-9645-294102fbff95_FDNH6-VW9RW-BXPJ7-4XTYG-23%f%9TB_168_ServerAzureCor_RS5

+3dbf341b-5f6c-4fa7-b936-699dce9e263f_VP34G-4NPPG-79JTQ-864T4-R3%f%MQX_168_ServerAzureCor_RS1

+c2e946d1-cfa2-4523-8c87-30bc696ee584_XGN3F-F394H-FD2MY-PP6FD-8M%f%CRC_407_ServerTurbine_Ge

+19b5e0fb-4431-46bc-bac1-2f1873e4ae73_NTBV8-9K7Q8-V27C6-M2BTV-KH%f%MXV_407_ServerTurbine_RS5

+:: Windows 8.1

+81671aaf-79d1-4eb1-b004-8cbbe173afea_MHF9N-XY6XB-WVXMC-BTDCT-MK%f%KG7___4_Enterprise

+113e705c-fa49-48a4-beea-7dd879b46b14_TT4HM-HN7YT-62K67-RGRQJ-JF%f%FXW__27_EnterpriseN

+c06b6981-d7fd-4a35-b7b4-054742b7af67_GCRJD-8NW9H-F2CDX-CCM8D-9D%f%6T9__48_Professional

+7476d79f-8e48-49b4-ab63-4d0b813a16e4_HMCNV-VVBFX-7HMBH-CTY9B-B4%f%FXY__49_ProfessionalN

+f7e88590-dfc7-4c78-bccb-6f3865b99d1a_VHXM3-NR6FT-RY6RT-CK882-KW%f%2CJ__86_EmbeddedIndustryA

+0ab82d54-47f4-4acb-818c-cc5bf0ecb649_NMMPB-38DD4-R2823-62W8D-VX%f%KJB__89_EmbeddedIndustry

+cd4e2d9f-5059-4a50-a92d-05d5bb1267c7_FNFKF-PWTVT-9RC8H-32HB2-JB%f%34X__91_EmbeddedIndustryE

+ffee456a-cd87-4390-8e07-16146c672fd0_XYTND-K6QKT-K2MRH-66RTM-43%f%JKP__97_CoreARM

+78558a64-dc19-43fe-a0d0-8075b2a370a3_7B9N3-D94CG-YTVHR-QBPX3-RJ%f%P64__98_CoreN

+db78b74f-ef1c-4892-abfe-1e66b8231df6_NCTT7-2RGK8-WMHRF-RY7YQ-JT%f%XG3__99_CoreCountrySpecific

+c72c6a1d-f252-4e7e-bdd1-3fca342acb35_BB6NG-PQ82V-VRDPW-8XVD2-V8%f%P66_100_CoreSingleLanguage

+fe1c3238-432a-43a1-8e25-97e7d1ef10f3_M9Q9P-WNJJT-6PXPY-DWX8H-6X%f%WKK_101_Core

+096ce63d-4fac-48a9-82a9-61ae9e800e5f_789NJ-TQK6T-6XTH8-J39CJ-J8%f%D3P_103_ProfessionalWMC

+e9942b32-2e55-4197-b0bd-5ff58cba8860_3PY8R-QHNP9-W7XQD-G6DPH-3J%f%2C9_111_CoreConnected

+c6ddecd6-2354-4c19-909b-306a3058484e_Q6HTR-N24GM-PMJFP-69CD8-2G%f%XKR_113_CoreConnectedN

+b8f5e3a3-ed33-4608-81e1-37d6c9dcfd9c_KF37N-VDV38-GRRTV-XH8X6-6F%f%3BB_115_CoreConnectedSingleLanguage

+ba998212-460a-44db-bfb5-71bf09d1c68b_R962J-37N87-9VVK2-WJ74P-XT%f%MHR_116_CoreConnectedCountrySpecific

+e58d87b5-8126-4580-80fb-861b22f79296_MX3RK-9HNGX-K3QKC-6PJ3F-W8%f%D7B_112_ProfessionalStudent

+cab491c7-a918-4f60-b502-dab75e334f40_TNFGH-2R6PB-8XM3K-QYHX2-J4%f%296_114_ProfessionalStudentN

+:: Windows Server 2012 R2

+b3ca044e-a358-4d68-9883-aaa2941aca99_D2N9P-3P6X9-2R39C-7RTCD-MD%f%VJX___7_ServerStandard

+00091344-1ea4-4f37-b789-01750ba6988c_W3GGN-FT8W3-Y4M27-J84CP-Q3%f%VJ9___8_ServerDatacenter

+21db6ba4-9a7b-4a14-9e29-64a60c59301d_KNC87-3J2TX-XB4WP-VCPJV-M4%f%FWM__50_ServerSolution

+b743a2be-68d4-4dd3-af32-92425b7bb623_3NPTF-33KPT-GGBPR-YX76B-39%f%KDD_110_ServerCloudStorage

+:: Windows 8

+458e1bec-837a-45f6-b9d5-925ed5d299de_32JNW-9KQ84-P47T8-D8GGY-CW%f%CK7___4_Enterprise

+e14997e7-800a-4cf7-ad10-de4b45b578db_JMNMF-RHW7P-DMY6X-RF3DR-X2%f%BQT__27_EnterpriseN

+a98bcd6d-5343-4603-8afe-5908e4611112_NG4HW-VH26C-733KW-K6F98-J8%f%CK4__48_Professional

+ebf245c1-29a8-4daf-9cb1-38dfc608a8c8_XCVCF-2NXM9-723PB-MHCB7-2R%f%YQQ__49_ProfessionalN

+10018baf-ce21-4060-80bd-47fe74ed4dab_RYXVT-BNQG7-VD29F-DBMRY-HT%f%73M__89_EmbeddedIndustry

+18db1848-12e0-4167-b9d7-da7fcda507db_NKB3R-R2F8T-3XCDP-7Q2KW-XW%f%YQ2__91_EmbeddedIndustryE

+af35d7b7-5035-4b63-8972-f0b747b9f4dc_DXHJF-N9KQX-MFPVR-GHGQK-Y7%f%RKV__97_CoreARM

+197390a0-65f6-4a95-bdc4-55d58a3b0253_8N2M2-HWPGY-7PGT9-HGDD8-GV%f%GGY__98_CoreN

+9d5584a2-2d85-419a-982c-a00888bb9ddf_4K36P-JN4VD-GDC6V-KDT89-DY%f%FKP__99_CoreCountrySpecific

+8860fcd4-a77b-4a20-9045-a150ff11d609_2WN2H-YGCQR-KFX6K-CD6TF-84%f%YXQ_100_CoreSingleLanguage

+c04ed6bf-55c8-4b47-9f8e-5a1f31ceee60_BN3D2-R7TKB-3YPBD-8DRP2-27%f%GG4_101_Core

+a00018a3-f20f-4632-bf7c-8daa5351c914_GNBB8-YVD74-QJHX6-27H4K-8Q%f%HDG_103_ProfessionalWMC

+:: Windows Server 2012

+f0f5ec41-0d55-4732-af02-440a44a3cf0f_XC9B7-NBPP2-83J2H-RHMBY-92%f%BT4___7_ServerStandard

+d3643d60-0c42-412d-a7d6-52e6635327f6_48HP8-DN98B-MYWDG-T2DCC-8W%f%83P___8_ServerDatacenter

+8f365ba6-c1b9-4223-98fc-282a0756a3ed_HTDQM-NBMMG-KGYDT-2DTKT-J2%f%MPV__50_ServerSolution

+7d5486c7-e120-4771-b7f1-7b56c6d3170c_HM7DN-YVMH3-46JC3-XYTG7-CY%f%QJJ__76_ServerMultiPointStandard

+95fd1c83-7df5-494a-be8b-1300e1c9d1cd_XNH6W-2V9GX-RGJ4K-Y8X6F-QG%f%J2G__77_ServerMultiPointPremium

+:: Windows 7

+ae2ee509-1b34-41c0-acb7-6d4650168915_33PXH-7Y6KF-2VJC9-XBBR8-HV%f%THH___4_Enterprise

+1cb6d605-11b3-4e14-bb30-da91c8e3983a_YDRBP-3D83W-TY26F-D46B2-XC%f%KRJ__27_EnterpriseN

+b92e9980-b9d5-4821-9c94-140f632f6312_FJ82H-XT6CR-J8D7P-XQJJ2-GP%f%DD4__48_Professional

+54a09a0d-d57b-4c10-8b69-a842d6590ad5_MRPKT-YTG23-K7D7T-X2JMM-QY%f%7MG__49_ProfessionalN

+db537896-376f-48ae-a492-53d0547773d0_YBYF6-BHCR3-JPKRB-CDW7B-F9%f%BK4__65_Embedded_POSReady

+e1a8296a-db37-44d1-8cce-7bc961d59c54_XGY72-BRBBT-FF8MH-2GG8H-W7%f%KCW__65_Embedded_Standard

+aa6dd3aa-c2b4-40e2-a544-a6bbb3f5c395_73KQT-CD9G6-K7TQG-66MRP-CQ%f%22C__65_Embedded_ThinPC

+5a041529-fef8-4d07-b06f-b59b573b32d2_W82YF-2Q76Y-63HXB-FGJG9-GF%f%7QX__69_ProfessionalE

+46bbed08-9c7b-48fc-a614-95250573f4ea_C29WB-22CC8-VJ326-GHFJW-H9%f%DH4__70_EnterpriseE

+:: Windows Server 2008 R2

+68531fb9-5511-4989-97be-d11a0f55633f_YC6KT-GKW9T-YTKYR-T4X34-R7%f%VHC___7_ServerStandard

+7482e61b-c589-4b7f-8ecc-46d455ac3b87_74YFP-3QFB3-KQT8W-PMXWJ-7M%f%648___8_ServerDatacenter

+620e2b3d-09e7-42fd-802a-17a13652fe7a_489J6-VHDMP-X63PK-3K798-CP%f%X3Y__10_ServerEnterprise

+7482e61b-c589-4b7f-8ecc-46d455ac3b87_74YFP-3QFB3-KQT8W-PMXWJ-7M%f%648__12_ServerDatacenterCore

+68531fb9-5511-4989-97be-d11a0f55633f_YC6KT-GKW9T-YTKYR-T4X34-R7%f%VHC__13_ServerStandardCore

+620e2b3d-09e7-42fd-802a-17a13652fe7a_489J6-VHDMP-X63PK-3K798-CP%f%X3Y__14_ServerEnterpriseCore

+8a26851c-1c7e-48d3-a687-fbca9b9ac16b_GT63C-RJFQ3-4GMB6-BRFB9-CB%f%83V__15_ServerEnterpriseIA64

+a78b8bd9-8017-4df5-b86a-09f756affa7c_6TPJF-RBVHG-WBW2R-86QPH-6R%f%TM4__17_ServerWeb

+cda18cf3-c196-46ad-b289-60c072869994_TT8MH-CG224-D3D7Q-498W2-9Q%f%CTX__18_ServerHPC

+a78b8bd9-8017-4df5-b86a-09f756affa7c_6TPJF-RBVHG-WBW2R-86QPH-6R%f%TM4__29_ServerWebCore

+f772515c-0e87-48d5-a676-e6962c3e1195_736RG-XDKJK-V34PF-BHK87-J6%f%X3K__56_ServerEmbeddedSolution

+:: Office 2010

+8ce7e872-188c-4b98-9d90-f8f90b7aad02_V7Y44-9T38C-R2VJK-666HK-T7%f%DDX__14_AccessVL

+cee5d470-6e3b-4fcc-8c2b-d17428568a9f_H62QG-HXVKF-PP4HP-66KMR-CW%f%9BM__14_ExcelVL

+8947d0b8-c33b-43e1-8c56-9b674c052832_QYYW6-QP4CB-MBV6G-HYMCJ-4T%f%3J4__14_GrooveVL

+ca6b6639-4ad6-40ae-a575-14dee07f6430_K96W8-67RPQ-62T9Y-J8FQJ-BT%f%37T__14_InfoPathVL

+09ed9640-f020-400a-acd8-d7d867dfd9c2_YBJTT-JG6MD-V9Q7P-DBKXJ-38%f%W9R__14_MondoVL

+ab586f5c-5256-4632-962f-fefd8b49e6f4_Q4Y4M-RHWJM-PY37F-MTKWH-D3%f%XHX__14_OneNoteVL

+ecb7c192-73ab-4ded-acf4-2399b095d0cc_7YDC2-CWM8M-RRTJC-8MDVC-X3%f%DWQ__14_OutlookVL

+45593b1d-dfb1-4e91-bbfb-2d5d0ce2227a_RC8FX-88JRY-3PF7C-X8P67-P4%f%VTT__14_PowerPointVL

+df133ff7-bf14-4f95-afe3-7b48e7e331ef_YGX6F-PGV49-PGW3J-9BTGG-VH%f%KC6__14_ProjectProVL

+5dc7bf61-5ec9-4996-9ccb-df806a2d0efe_4HP3K-88W3F-W2K3D-6677X-F9%f%PGB__14_ProjectStdVL

+6f327760-8c5c-417c-9b61-836a98287e0c_VYBBJ-TRJPB-QFQRF-QFT4D-H3%f%GVB__14_ProPlusVL

+b50c4f75-599b-43e8-8dcd-1081a7967241_BFK7F-9MYHM-V68C7-DRQ66-83%f%YTP__14_PublisherVL

+ea509e87-07a1-4a45-9edc-eba5a39f36af_D6QFG-VBYP2-XQHM7-J97RH-VV%f%RCK__14_SmallBusBasicsVL

+9da2a678-fb6b-4e67-ab84-60dd6a9c819a_V7QKV-4XVVR-XYV4D-F7DFM-8R%f%6BM__14_StandardVL

+92236105-bb67-494f-94c7-7f7a607929bd_D9DWC-HPYVV-JGF4P-BTWQB-WX%f%8BJ__14_VisioSIVL

+2d0882e7-a4e7-423b-8ccc-70d91e0158b1_HVHB3-C6FV7-KQX9W-YQG79-CR%f%Y7T__14_WordVL

+:: Office 2013

+6ee7622c-18d8-4005-9fb7-92db644a279b_NG2JY-H4JBT-HQXYP-78QH9-4J%f%M2D__15_AccessVolume_-AccessRetail-

+f7461d52-7c2b-43b2-8744-ea958e0bd09a_VGPNG-Y7HQW-9RHP7-TKPV3-BG%f%7GB__15_ExcelVolume_-ExcelRetail-

+fb4875ec-0c6b-450f-b82b-ab57d8d1677f_H7R7V-WPNXQ-WCYYC-76BGV-VT%f%7GH__15_GrooveVolume_-GrooveRetail-

+a30b8040-d68a-423f-b0b5-9ce292ea5a8f_DKT8B-N7VXH-D963P-Q4PHY-F8%f%894__15_InfoPathVolume_-InfoPathRetail-

+9103f3ce-1084-447a-827e-d6097f68c895_6MDN4-WF3FV-4WH3Q-W699V-RG%f%CMY__15_LyncAcademicRetail_[PrepidBypass]

+ff693bf4-0276-4ddb-bb42-74ef1a0c9f4d_N42BF-CBY9F-W2C7R-X397X-DY%f%FQW__15_LyncEntryRetail_[PrepidBypass]

+1b9f11e3-c85c-4e1b-bb29-879ad2c909e3_2MG3G-3BNTT-3MFW9-KDQW3-TC%f%K7R__15_LyncVolume_-LyncRetail-

+1dc00701-03af-4680-b2af-007ffc758a1f_CWH2Y-NPYJW-3C7HD-BJQWB-G2%f%8JJ__15_MondoRetail

+dc981c6b-fc8e-420f-aa43-f8f33e5c0923_42QTK-RN8M7-J3C4G-BBGYM-88%f%CYV__15_MondoVolume_-O365BusinessRetail-O365HomePremRetail-O365ProPlusRetail-O365SmallBusPremRetail-

+3391e125-f6e4-4b1e-899c-a25e6092d40d_4TGWV-6N9P6-G2H8Y-2HWKB-B4%f%FF4__15_OneNoteFreeRetail_[Bypass]

+efe1f3e6-aea2-4144-a208-32aa872b6545_TGN6P-8MMBC-37P2F-XHXXK-P3%f%4VW__15_OneNoteVolume_-OneNoteRetail-

+771c3afa-50c5-443f-b151-ff2546d863a0_QPN8Q-BJBTJ-334K3-93TGY-2P%f%MBT__15_OutlookVolume_-OutlookRetail-

+8c762649-97d1-4953-ad27-b7e2c25b972e_4NT99-8RJFH-Q2VDH-KYG2C-4R%f%D4F__15_PowerPointVolume_-PowerPointRetail-

+4a5d124a-e620-44ba-b6ff-658961b33b9a_FN8TT-7WMH6-2D4X9-M337T-23%f%42K__15_ProjectProVolume_-ProjectProRetail-

+427a28d1-d17c-4abf-b717-32c780ba6f07_6NTH3-CW976-3G3Y2-JK3TX-8Q%f%HTT__15_ProjectStdVolume_-ProjectStdRetail-

+b322da9c-a2e2-4058-9e4e-f59a6970bd69_YC7DK-G2NP3-2QQC3-J6H88-GV%f%GXT__15_ProPlusVolume_-ProPlusRetail-ProfessionalPipcRetail-ProfessionalRetail-

+00c79ff1-6850-443d-bf61-71cde0de305f_PN2WF-29XG2-T9HJ7-JQPJR-FC%f%XK4__15_PublisherVolume_-PublisherRetail-

+ba3e3833-6a7e-445a-89d0-7802a9a68588_3NY6J-WHT3F-47BDV-JHF36-23%f%43W__15_SPDRetail_[PrepidBypass]

+b13afb38-cd79-4ae5-9f7f-eed058d750ca_KBKQT-2NMXY-JJWGP-M62JB-92%f%CD4__15_StandardVolume_-StandardRetail-HomeBusinessPipcRetail-HomeBusinessRetail-HomeStudentRetail-PersonalPipcRetail-PersonalRetail-

+e13ac10e-75d0-4aff-a0cd-764982cf541c_C2FG9-N6J68-H8BTJ-BW3QX-RM%f%3B3__15_VisioProVolume_-VisioProRetail-

+ac4efaf0-f81f-4f61-bdf7-ea32b02ab117_J484Y-4NKBF-W2HMG-DBMJC-PG%f%WR7__15_VisioStdVolume_-VisioStdRetail-

+d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3_6Q7VD-NX8JD-WJ2VH-88V73-4G%f%BJ7__15_WordVolume_-WordRetail-

+:: Office 2016

+9d9faf9e-d345-4b49-afce-68cb0a539c7c_RNB7V-P48F4-3FYY6-2P3R3-63%f%BQV__16_AccessRuntimeRetail_[PrepidBypass]

+67c0fc0c-deba-401b-bf8b-9c8ad8395804_GNH9Y-D2J4T-FJHGG-QRVH7-QP%f%FDW__16_AccessVolume_-AccessRetail-

+c3e65d36-141f-4d2f-a303-a842ee756a29_9C2PK-NWTVB-JMPW8-BFT28-7F%f%TBF__16_ExcelVolume_-ExcelRetail-

+e914ea6e-a5fa-4439-a394-a9bb3293ca09_DMTCJ-KNRKX-26982-JYCKT-P7%f%KB6__16_MondoRetail

+9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce_HFTND-W9MK4-8B7MJ-B6C4G-XQ%f%BR2__16_MondoVolume_-O365BusinessRetail-O365EduCloudRetail-O365HomePremRetail-O365ProPlusRetail-O365SmallBusPremRetail-

+436366de-5579-4f24-96db-3893e4400030_XYNTG-R96FY-369HX-YFPHY-F9%f%CPM__16_OneNoteFreeRetail_[Bypass]

+d8cace59-33d2-4ac7-9b1b-9b72339c51c8_DR92N-9HTF2-97XKM-XW2WJ-XW%f%3J6__16_OneNoteVolume_-OneNoteRetail-OneNote2021Retail-

+ec9d9265-9d1e-4ed0-838a-cdc20f2551a1_R69KK-NTPKF-7M3Q4-QYBHW-6M%f%T9B__16_OutlookVolume_-OutlookRetail-

+d70b1bba-b893-4544-96e2-b7a318091c33_J7MQP-HNJ4Y-WJ7YM-PFYGF-BY%f%6C6__16_PowerPointVolume_-PowerPointRetail-

+4f414197-0fc2-4c01-b68a-86cbb9ac254c_YG9NW-3K39V-2T3HJ-93F3Q-G8%f%3KT__16_ProjectProVolume_-ProjectProRetail-

+829b8110-0e6f-4349-bca4-42803577788d_WGT24-HCNMF-FQ7XH-6M8K7-DR%f%TW9__16_ProjectProXVolume

+da7ddabc-3fbe-4447-9e01-6ab7440b4cd4_GNFHQ-F6YQM-KQDGJ-327XX-KQ%f%BVC__16_ProjectStdVolume_-ProjectStdRetail-

+cbbaca45-556a-4416-ad03-bda598eaa7c8_D8NRQ-JTYM3-7J2DX-646CT-68%f%36M__16_ProjectStdXVolume

+d450596f-894d-49e0-966a-fd39ed4c4c64_XQNVK-8JYDB-WJ9W3-YJ8YR-WF%f%G99__16_ProPlusVolume_-ProPlusRetail-ProfessionalPipcRetail-ProfessionalRetail-

+041a06cb-c5b8-4772-809f-416d03d16654_F47MM-N3XJP-TQXJ9-BP99D-8K%f%837__16_PublisherVolume_-PublisherRetail-

+9103f3ce-1084-447a-827e-d6097f68c895_6MDN4-WF3FV-4WH3Q-W699V-RG%f%CMY__16_SkypeServiceBypassRetail_[PrepidBypass]

+971cd368-f2e1-49c1-aedd-330909ce18b6_4N4D8-3J7Y3-YYW7C-73HD2-V8%f%RHY__16_SkypeforBusinessEntryRetail_[PrepidBypass]

+83e04ee1-fa8d-436d-8994-d31a862cab77_869NQ-FJ69K-466HW-QYCP2-DD%f%BV6__16_SkypeforBusinessVolume_-SkypeforBusinessRetail-

+dedfa23d-6ed1-45a6-85dc-63cae0546de6_JNRGM-WHDWX-FJJG3-K47QV-DR%f%TFM__16_StandardVolume_-StandardRetail-HomeBusinessPipcRetail-HomeBusinessRetail-HomeStudentRetail-HomeStudentVNextRetail-PersonalPipcRetail-PersonalRetail-

+6bf301c1-b94a-43e9-ba31-d494598c47fb_PD3PC-RHNGV-FXJ29-8JK7D-RJ%f%RJK__16_VisioProVolume_-VisioProRetail-

+b234abe3-0857-4f9c-b05a-4dc314f85557_69WXN-MBYV6-22PQG-3WGHK-RM%f%6XC__16_VisioProXVolume

+aa2a7821-1827-4c2c-8f1d-4513a34dda97_7WHWN-4T7MP-G96JF-G33KR-W8%f%GF4__16_VisioStdVolume_-VisioStdRetail-

+361fe620-64f4-41b5-ba77-84f8e079b1f7_NY48V-PPYYH-3F4PX-XJRKJ-W4%f%423__16_VisioStdXVolume

+bb11badf-d8aa-470e-9311-20eaf80fe5cc_WXY84-JN2Q9-RBCCQ-3Q3J3-3P%f%FJ6__16_WordVolume_-WordRetail-

+:: Office 2019

+22e6b96c-1011-4cd5-8b35-3c8fb6366b86_FGQNJ-JWJCG-7Q8MG-RMRGJ-9T%f%QVF__16_AccessRuntime2019Retail_[PrepidBypass]

+9e9bceeb-e736-4f26-88de-763f87dcc485_9N9PT-27V4Y-VJ2PD-YXFMF-YT%f%FQT__16_Access2019Volume_-Access2019Retail-

+237854e9-79fc-4497-a0c1-a70969691c6b_TMJWT-YYNMB-3BKTF-644FC-RV%f%XBD__16_Excel2019Volume_-Excel2019Retail-

+c8f8a301-19f5-4132-96ce-2de9d4adbd33_7HD7K-N4PVK-BHBCQ-YWQRW-XW%f%4VK__16_Outlook2019Volume_-Outlook2019Retail-

+3131fd61-5e4f-4308-8d6d-62be1987c92c_RRNCX-C64HY-W2MM7-MCH9G-TJ%f%HMQ__16_PowerPoint2019Volume_-PowerPoint2019Retail-

+2ca2bf3f-949e-446a-82c7-e25a15ec78c4_B4NPR-3FKK7-T2MBV-FRQ4W-PK%f%D2B__16_ProjectPro2019Volume_-ProjectPro2019Retail-

+1777f0e3-7392-4198-97ea-8ae4de6f6381_C4F7P-NCP8C-6CQPT-MQHV9-JX%f%D2M__16_ProjectStd2019Volume_-ProjectStd2019Retail-

+85dd8b5f-eaa4-4af3-a628-cce9e77c9a03_NMMKJ-6RK4F-KMJVX-8D9MJ-6M%f%WKP__16_ProPlus2019Volume_-ProPlus2019Retail-Professional2019Retail-

+9d3e4cca-e172-46f1-a2f4-1d2107051444_G2KWX-3NW6P-PY93R-JXK2T-C9%f%Y9V__16_Publisher2019Volume_-Publisher2019Retail-

+734c6c6e-b0ba-4298-a891-671772b2bd1b_NCJ33-JHBBY-HTK98-MYCV8-HM%f%KHJ__16_SkypeforBusiness2019Volume_-SkypeforBusiness2019Retail-

+f88cfdec-94ce-4463-a969-037be92bc0e7_N9722-BV9H6-WTJTT-FPB93-97%f%8MK__16_SkypeforBusinessEntry2019Retail_[PrepidBypass]

+6912a74b-a5fb-401a-bfdb-2e3ab46f4b02_6NWWJ-YQWMR-QKGCB-6TMB3-9D%f%9HK__16_Standard2019Volume_-Standard2019Retail-HomeBusiness2019Retail-HomeStudent2019Retail-Personal2019Retail-

+5b5cf08f-b81a-431d-b080-3450d8620565_9BGNQ-K37YR-RQHF2-38RQ3-7V%f%CBB__16_VisioPro2019Volume_-VisioPro2019Retail-

+e06d7df3-aad0-419d-8dfb-0ac37e2bdf39_7TQNQ-K3YQQ-3PFH7-CCPPM-X4%f%VQ2__16_VisioStd2019Volume_-VisioStd2019Retail-

+059834fe-a8ea-4bff-b67b-4d006b5447d3_PBX3G-NWMT6-Q7XBW-PYJGG-WX%f%D33__16_Word2019Volume_-Word2019Retail-

+:: Office 2021

+1fe429d8-3fa7-4a39-b6f0-03dded42fe14_WM8YG-YNGDD-4JHDC-PG3F4-FC%f%4T4__16_Access2021Volume_-Access2021Retail-

+ea71effc-69f1-4925-9991-2f5e319bbc24_NWG3X-87C9K-TC7YY-BC2G7-G6%f%RVC__16_Excel2021Volume_-Excel2021Retail-

+a5799e4c-f83c-4c6e-9516-dfe9b696150b_C9FM6-3N72F-HFJXB-TM3V9-T8%f%6R9__16_Outlook2021Volume_-Outlook2021Retail-

+6e166cc3-495d-438a-89e7-d7c9e6fd4dea_TY7XF-NFRBR-KJ44C-G83KF-GX%f%27K__16_PowerPoint2021Volume_-PowerPoint2021Retail-

+76881159-155c-43e0-9db7-2d70a9a3a4ca_FTNWT-C6WBT-8HMGF-K9PRX-QV%f%9H8__16_ProjectPro2021Volume_-ProjectPro2021Retail-

+6dd72704-f752-4b71-94c7-11cec6bfc355_J2JDC-NJCYY-9RGQ4-YXWMH-T3%f%D4T__16_ProjectStd2021Volume_-ProjectStd2021Retail-

+fbdb3e18-a8ef-4fb3-9183-dffd60bd0984_FXYTK-NJJ8C-GB6DW-3DYQT-6F%f%7TH__16_ProPlus2021Volume_-ProPlus2021Retail-Professional2021Retail-

+aa66521f-2370-4ad8-a2bb-c095e3e4338f_2MW9D-N4BXM-9VBPG-Q7W6M-KF%f%BGQ__16_Publisher2021Volume_-Publisher2021Retail-

+1f32a9af-1274-48bd-ba1e-1ab7508a23e8_HWCXN-K3WBT-WJBKY-R8BD9-XK%f%29P__16_SkypeforBusiness2021Volume_-SkypeforBusiness2021Retail-

+080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3_KDX7X-BNVR8-TXXGX-4Q7Y8-78%f%VT3__16_Standard2021Volume_-Standard2021Retail-HomeBusiness2021Retail-HomeStudent2021Retail-Personal2021Retail-

+fb61ac9a-1688-45d2-8f6b-0674dbffa33c_KNH8D-FGHT4-T8RK3-CTDYJ-K2%f%HT4__16_VisioPro2021Volume_-VisioPro2021Retail-

+72fce797-1884-48dd-a860-b2f6a5efd3ca_MJVNY-BYWPY-CWV6J-2RKRT-4M%f%8QG__16_VisioStd2021Volume_-VisioStd2021Retail-

+abe28aea-625a-43b1-8e30-225eb8fbd9e5_TN8H9-M34D3-Y64V9-TR72V-X7%f%9KV__16_Word2021Volume_-Word2021Retail-

+:: Office 2024

+fceda083-1203-402a-8ec4-3d7ed9f3648c_2TDPW-NDQ7G-FMG99-DXQ7M-TX%f%3T2__16_ProPlus2024Volume-Preview

+aaea0dc8-78e1-4343-9f25-b69b83dd1bce_D9GTG-NP7DV-T6JP3-B6B62-JB%f%89R__16_ProjectPro2024Volume-Preview

+4ab4d849-aabc-43fb-87ee-3aed02518891_YW66X-NH62M-G6YFP-B7KCT-WX%f%GKQ__16_VisioPro2024Volume-Preview

+72e9faa7-ead1-4f3d-9f6e-3abc090a81d7_82FTR-NCHR7-W3944-MGRHM-JM%f%CWD__16_Access2024Volume_-Access2024Retail-

+cbbba2c3-0ff5-4558-846a-043ef9d78559_F4DYN-89BP2-WQTWJ-GR8YC-CK%f%GJG__16_Excel2024Volume_-Excel2024Retail-

+bef3152a-8a04-40f2-a065-340c3f23516d_D2F8D-N3Q3B-J28PV-X27HD-RJ%f%WB9__16_Outlook2024Volume_-Outlook2024Retail-

+b63626a4-5f05-4ced-9639-31ba730a127e_CW94N-K6GJH-9CTXY-MG2VC-FY%f%CWP__16_PowerPoint2024Volume_-PowerPoint2024Retail-

+f510af75-8ab7-4426-a236-1bfb95c34ff8_NBBBB-BBBBB-BBBBB-BBBH4-GX%f%3R4__16_ProjectPro2024Volume_-ProjectPro2024Retail-

+9f144f27-2ac5-40b9-899d-898c2b8b4f81_PD3TT-NTHQQ-VC7CY-MFXK3-G8%f%7F8__16_ProjectStd2024Volume_-ProjectStd2024Retail-

+8d368fc1-9470-4be2-8d66-90e836cbb051_NBBBB-BBBBB-BBBBB-BBBJD-VX%f%RPM__16_ProPlus2024Volume_-ProPlus2024Retail-

+0002290a-2091-4324-9e53-3cfe28884cde_4NKHF-9HBQF-Q3B6C-7YV34-F6%f%4P3__16_SkypeforBusiness2024Volume

+bbac904f-6a7e-418a-bb4b-24c85da06187_V28N4-JG22K-W66P8-VTMGK-H6%f%HGR__16_Standard2024Volume_-Home2024Retail-HomeBusiness2024Retail-

+fa187091-8246-47b1-964f-80a0b1e5d69a_NBBBB-BBBBB-BBBBB-BBBCW-6M%f%X6T__16_VisioPro2024Volume_-VisioPro2024Retail-

+923fa470-aa71-4b8b-b35c-36b79bf9f44b_JMMVY-XFNQC-KK4HK-9H7R3-WQ%f%QTV__16_VisioStd2024Volume_-VisioStd2024Retail-

+d0eded01-0881-4b37-9738-190400095098_MQ84N-7VYDM-FXV7C-6K7CC-VF%f%W9J__16_Word2024Volume_-Word2024Retail-

+) do (

+for /f "tokens=1-5 delims=_" %%A in ("%%#") do (

 

-set    "_Red="0C""

-set  "_Green="0A""

-set   "_Blue="09""

-set  "_White="07""

-set "_Yellow="0E""

+if %1==winkey if %osSKU%==%%C if not defined key (

+set skufound=1

+echo "!allapps!" | find /i "%%A" %nul1% && set key=%%B

+)

 

+if %1==getinfo if not defined key if "%oVer%"=="%%C" (

+if /i "%2"=="%%D" (

+set key=%%B

+set _actid=%%A

+set _allactid=!_allactid! %%A

+) else if not defined _oBranding if %_NoEditionChange%==0 (

+echo: %%E | find /i "-%2-" %nul% && (

+set key=%%B

+set _altoffid=%%D

+set _actid=%%A

+set _allactid=!_allactid! %%A

+)

+)

+)

+

+if %1==getmsiprod if "%oVer%"=="%%C" (

+for /f "tokens=*" %%x in ('findstr /i /c:"%%A" "%_oBranding%"') do set "prodId=%%x"

+set prodId=!prodId:"/>=!

+set prodId=!prodId:~-4!

+if "%oVer%"=="14" (

+REM Exception case for Visio because wrong primary product ID is mentioned in Branding.xml

+echo %%D | find /i "Visio" %nul% && set prodId=0057

+)

+reg query "%2\Registration\{%%A}" /v ProductCode %nul2% | find /i "-!prodId!-" %nul% && (

+reg query "%2\Common\InstalledPackages" %nul2% | find /i "-!prodId!-" %nul% && (

+if defined _oIds (set _oIds=!_oIds! %%D) else (set _oIds=%%D)

+)

+)

+)

+

+)

+)

 exit /b

 

 ::========================================================================================================================================

 

-::  https://gist.github.com/ave9858/9fff6af726ba3ddc646285d1bbf37e71

-::  This code is used to clean Office licenses

-

-:cleanlicense:

-function UninstallLicenses($DllPath) {

-    $AssemblyBuilder = [AppDomain]::CurrentDomain.DefineDynamicAssembly(4, 1)

-    $ModuleBuilder = $AssemblyBuilder.DefineDynamicModule(2, $False)

-    $TypeBuilder = $ModuleBuilder.DefineType(0)

-    

-    [void]$TypeBuilder.DefinePInvokeMethod('SLOpen', $DllPath, 'Public, Static', 1, [int], @([IntPtr].MakeByRefType()), 1, 3)

-    [void]$TypeBuilder.DefinePInvokeMethod('SLGetSLIDList', $DllPath, 'Public, Static', 1, [int],

-        @([IntPtr], [int], [Guid].MakeByRefType(), [int], [int].MakeByRefType(), [IntPtr].MakeByRefType()), 1, 3).SetImplementationFlags(128)

-    [void]$TypeBuilder.DefinePInvokeMethod('SLUninstallLicense', $DllPath, 'Public, Static', 1, [int], @([IntPtr], [IntPtr]), 1, 3)

-

-    $SPPC = $TypeBuilder.CreateType()

-    $Handle = 0

-    [void]$SPPC::SLOpen([ref]$Handle)

-    $pnReturnIds = 0

-    $ppReturnIds = 0

-

-    if (!$SPPC::SLGetSLIDList($Handle, 0, [ref][Guid]"0ff1ce15-a989-479d-af46-f275c6370663", 6, [ref]$pnReturnIds, [ref]$ppReturnIds)) {

-        foreach ($i in 0..($pnReturnIds - 1)) {

-            [void]$SPPC::SLUninstallLicense($Handle, [Int64]$ppReturnIds + [Int64]16 * $i)

-        }    

-    }

-}

+::  Below code is used to get alternate edition name and key if current edition doesn't support K-M-S activation

 

-$OSPP = (Get-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" -ErrorAction SilentlyContinue).Path

-if ($OSPP) {

-    Write-Output "Found Office Software Protection installed, cleaning"

-    UninstallLicenses($OSPP + "osppc.dll")

-}

-UninstallLicenses("sppc.dll")

-:cleanlicense:

+::  1st column = Current SKU ID

+::  2nd column = Current Edition Name

+::  3rd column = Current Edition Activation ID

+::  4th column = Alternate Edition Activation ID

+::  5th column = Alternate Edition GVLK

+::  6th column = Alternate Edition Name

+::  Separator  = _

+

+

+:kms38fallback

+

+set notfoundaltactID=

+if %_NoEditionChange%==1 exit /b

+

+for %%# in (

+188_IoTEnterprise__________________8ab9bdd1-1f67-4997-82d9-8878520837d9_73111121-5638-40f6-bc11-f1d7b0d64300_NPPR9-FWDCX-D2C8J-H872K-2Y%f%T43_Enterprise

+206_IoTEnterpriseK_________________80083eae-7031-4394-9e88-4901973d56fe_73111121-5638-40f6-bc11-f1d7b0d64300_NPPR9-FWDCX-D2C8J-H872K-2Y%f%T43_Enterprise

+191_IoTEnterpriseS-2021____________ed655016-a9e8-4434-95d9-4345352c2552_32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee_M7XTQ-FN8P6-TTKYV-9D4CC-J4%f%62D_EnterpriseS-2021

+205_IoTEnterpriseSK________________d4f9b41f-205c-405e-8e08-3d16e88e02be_59eb965c-9150-42b7-a0ec-22151b9897c5_KBN8V-HFGQ4-MGXVD-347P6-PD%f%QGT_IoTEnterpriseS

+138_ProfessionalSingleLanguage_____a48938aa-62fa-4966-9d44-9f04da3f72f2_2de67392-b7a7-462a-b1ca-108dd189f588_W269N-WFGWX-YVC9B-4J6C9-T8%f%3GX_Professional

+139_ProfessionalCountrySpecific____f7af7d09-40e4-419c-a49b-eae366689ebd_2de67392-b7a7-462a-b1ca-108dd189f588_W269N-WFGWX-YVC9B-4J6C9-T8%f%3GX_Professional

+139_ProfessionalCountrySpecific-Zn_01eb852c-424d-4060-94b8-c10d799d7364_2de67392-b7a7-462a-b1ca-108dd189f588_W269N-WFGWX-YVC9B-4J6C9-T8%f%3GX_Professional

+) do (

+for /f "tokens=1-6 delims=_" %%A in ("%%#") do if %osSKU%==%%A (

+echo "!allapps!" | find /i "%%C" %nul1% && (

+echo "!allapps!" | find /i "%%D" %nul1% && (

+set altkey=%%E

+set altedition=%%F

+) || (

+set altedition=%%F

+set notfoundaltactID=1

+)

+)

+)

+)

+exit /b

 

 ::========================================================================================================================================

 :: Leave empty line below