From eabfbde2fff31721d32de420a679940b5139ff61 Mon Sep 17 00:00:00 2001 From: MrNico98 Date: Tue, 13 Feb 2024 10:29:00 +0100 Subject: [PATCH] update --- .../Risorse/WinCustomizerAttivatore.bat | 4745 ++++++++++++++++- 1 file changed, 4475 insertions(+), 270 deletions(-) diff --git a/WinCustomizer/Risorse/WinCustomizerAttivatore.bat b/WinCustomizer/Risorse/WinCustomizerAttivatore.bat index 898ecf3..9495ebc 100644 --- a/WinCustomizer/Risorse/WinCustomizerAttivatore.bat +++ b/WinCustomizer/Risorse/WinCustomizerAttivatore.bat @@ -1,14 +1,20 @@ @echo off @setlocal DisableDelayedExpansion +rem Ask for admin privileges +set "params=%*" +cd /d "%~dp0" && ( if exist "%temp%\getadmin.vbs" del "%temp%\getadmin.vbs" ) && fsutil dirty query %systemdrive% 1>nul 2>nul || ( echo Set UAC = CreateObject^("Shell.Application"^) : UAC.ShellExecute "cmd.exe", "/c cd ""%~sdp0"" && %~s0 %params%", "", "runas", 1 >> "%temp%\getadmin.vbs" && "%temp%\getadmin.vbs" && exit /B ) + + cls title WinCustomizer Attiva Windows -echo.===========Attiva Windows============== -echo. [1] Attiva windows permanentemente HWID (RACCOMANDATO) -echo. [2] Attiva windows KMS38 -echo. [3] Attiva windows tramite server KMS +echo.========================Attiva Windows========================= echo. -echo.======================================= +echo. [1] Attiva windows permanentemente HWID (RACCOMANDATO) +echo. [2] Attiva windows KMS38 +echo. [3] Attiva windows tramite server KMS +echo. +echo.================================================================ set /p Sceltaattivazione=Seleziona Numero: if "%Sceltaattivazione%" equ "1" ( goto :permanentemente) @@ -19,13 +25,13 @@ if "%Sceltaattivazione%" equ "3" ( goto :serverkms) :permanentemente +@setlocal DisableDelayedExpansion +@echo off set _act=1 -:: To disable changing edition if current edition doesn't support HWID activation, change the value to 1 from 0 or run the script with "/HWID-NoEditionChange" parameter set _NoEditionChange=0 -:: If value is changed in above lines or parameter is used then script will run in unattended mode ::======================================================================================================================================== :: Set Path variable, it helps if it is misconfigured in the system @@ -63,7 +69,6 @@ exit /b ) ::======================================================================================================================================== - :: Check if Null service is working, it's important for the batch script sc query Null | find /i "RUNNING" @@ -72,17 +77,31 @@ echo: echo Null service is not running, script may crash... echo: echo: -echo Troubleshoot.html +echo Troubleshoot echo: echo: ping 127.0.0.1 -n 10 ) cls +:: Check LF line ending + +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: +ping 127.0.0.1 -n 6 >nul +popd +exit /b +) +popd + ::======================================================================================================================================== cls color 07 +title WinCustomizer HWID set _args= set _elev= @@ -134,30 +153,30 @@ set "_Green="Black" "Green"" set "_Yellow="Black" "Yellow"" ) -set "nceline=echo: &echo ==== ERRORE ==== &echo:" -set "eline=echo: &call :dk_color %Red% "==== ERRORE ====" &echo:" +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=Troubleshoot" +set "_fixmsg=Go back to Main Menu, select Troubleshoot and run Fix Licensing option." ) else ( set "_exitmsg=Exit" -set "_fixmsg=Troubleshoot" +set "_fixmsg=Troubleshoot script run Fix Licensing option." ) ::======================================================================================================================================== if %winbuild% LSS 10240 ( %eline% -echo Versione OS non supportata [%winbuild%]. -echo HWID funziona solo su windows 10/11. -echo Usa KMS. +echo Unsupported OS version detected [%winbuild%]. +echo HWID Activation is supported only for Windows 10/11. +echo Use Online KMS Activation option. goto dk_done ) if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" ( %eline% -echo HWID non supportata su Windows Server. -echo Usa KMS38. +echo HWID Activation is not supported for Windows Server. +echo Use KMS38 or Online KMS Activation option. goto dk_done ) @@ -169,7 +188,7 @@ goto dk_done ::======================================================================================================================================== -:: Fix for the special characters limitation in path name +:: Fix special characters limitation in path name set "_work=%~dp0" if "%_work:~-1%"=="\" set "_work=%_work:~0,-1%" @@ -203,7 +222,7 @@ goto dk_done %nul1% fltmc || ( if not defined _elev %psc% "start cmd.exe -arg '/c \"!_PSarg:'=''!\"' -verb runas" && exit /b %eline% -echo This script requires admin privileges. +echo This script needs admin rights. echo To do so, right click on this script and select 'Run as administrator'. goto dk_done ) @@ -230,7 +249,7 @@ mode 110, 34 if exist "%Systemdrive%\Windows\System32\spp\store_test\" mode 134, 34 echo: -echo Iniziamo... +echo Initializing... :: Check PowerShell @@ -269,8 +288,8 @@ if defined _perm ( cls echo ___________________________________________________________________________________________ echo: -call :dk_color2 %_White% " " %Green% "Verifico: %winos% attivato permanentemente." -call :dk_color2 %_White% " " %Gray% "Attivazione non richiesta." +call :dk_color2 %_White% " " %Green% "Checking: %winos% is Permanently Activated." +call :dk_color2 %_White% " " %Gray% "Activation is not required." echo ___________________________________________________________________________________________ if %_unattended%==1 goto dk_done echo: @@ -313,7 +332,7 @@ cls echo: for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b for /f "tokens=6-7 delims=[]. " %%i in ('ver') do if "%%j"=="" (set fullbuild=%%i) else (set fullbuild=%%i.%%j) -echo Verifico Iformazioni OS [%winos% ^| %fullbuild% ^| %arch%] +echo Checking OS Info [%winos% ^| %fullbuild% ^| %arch%] :: Check Internet connection @@ -328,7 +347,7 @@ if !errorlevel!==0 (set _int=1&set ping_f= But Ping Failed) ) if defined _int ( -echo Controllo connessione Internet [Connected%ping_f%] +echo Checking Internet Connection [Connected%ping_f%] ) else ( set error=1 call :dk_color %Red% "Checking Internet Connection [Not Connected]" @@ -351,7 +370,7 @@ echo Enabling Windows Script Host [Successful] ::======================================================================================================================================== -echo Inizio Test Diagnostica... +echo Initiating Diagnostic Tests... set "_serv=ClipSVC wlidsvc sppsvc KeyIso LicenseManager Winmgmt DoSvc UsoSvc CryptSvc BITS TrustedInstaller wuauserv" if %winbuild% GEQ 17134 set "_serv=%_serv% WaaSMedicSvc" @@ -487,6 +506,7 @@ call :dk_color %Red% "Changing Windows Region To USA [Failed]" if not exist %SystemRoot%\system32\ClipUp.exe ( call :dk_color %Red% "Checking ClipUp.exe File [Not found, aborting the process]" +call :dk_color2 %Blue% "Troubleshoot" goto :dl_final ) @@ -559,13 +579,13 @@ if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul% call :dk_product echo: -echo Attivo... +echo Activating... call :dk_act call :dk_checkperm if defined _perm ( echo: -call :dk_color %Green% "%winos% attivato permanentemente." +call :dk_color %Green% "%winos% is permanently activated with a digital license." goto :dl_final ) @@ -598,6 +618,7 @@ if defined resfail ( set error=1 echo: call :dk_color %Red% "Checking Licensing Servers [Failed To Connect]" +call :dk_color2 %Blue% "Troubleshoot licensing-servers-issue" ) ) @@ -630,6 +651,7 @@ echo "%error_code%" | findstr /i "0x80072e 0x80072f 0x800704cf" %nul% && ( set error=1 echo: call :dk_color %Red% "Checking Internet Issues [Found] %error_code%" +call :dk_color2 %Blue% "Troubleshoot licensing-servers-issue" ) ) @@ -637,7 +659,7 @@ call :dk_color %Red% "Checking Internet Issues [Found] %error_cod echo: if defined _perm ( -call :dk_color %Green% "%winos% attivato permanentemente." +call :dk_color %Green% "%winos% is permanently activated with a digital license." ) else ( call :dk_color %Red% "Activation Failed %error_code%" if defined notworking ( @@ -645,6 +667,7 @@ call :dk_color %Blue% "At the time of writing this, HWID Activation was not supp call :dk_color %Blue% "Use KMS38 Activation option." ) else ( if not defined error call :dk_color %Blue% "%_fixmsg%" +call :dk_color2 %Blue% "Troubleshoot" ) ) @@ -999,7 +1022,7 @@ echo "%error_code%" | findstr /i "0x800410 0x800440" %nul1% && set wmifailed=1& if defined wmifailed ( set error=1 call :dk_color %Red% "Checking WMI [Not Responding]" -call :dk_color %Blue% "Troubleshoot" +call :dk_color %Blue% "Troubleshoot and run Fix WMI option." set showfix=1 ) @@ -1035,7 +1058,6 @@ set error=1 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]" -call :dk_color %Blue% "Troubleshoot" set error=1 set showfix=1 ) @@ -1181,12 +1203,22 @@ exit /b echo: if %_unattended%==1 timeout /t 2 & exit /b -call :dk_color %_Yellow% "Press any key to %_exitmsg%..." +call :dk_color %_Yellow% "Premi un tasto per uscire" pause %nul1% exit /b ::======================================================================================================================================== +:: 1st column = Activation ID +:: 2nd column = Generic Retail/OEM/MAK Key +:: 3rd column = SKU ID +:: 4th column = Key part number +:: 7th column = Key Type +:: 8th column = WMI Edition ID (For reference only) +:: 9th column = Version name incase same Edition ID is used in different OS versions with different key +:: Separator = _ + + :hwiddata set f= @@ -1293,87 +1325,14 @@ set notfoundaltactID=1 ) exit /b -::######################################################### -:serverkms -echo Attendi..... - -systeminfo 2>NUL | find "Pro" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=W269N-WFGWX-YVC9B-4J6C9-T83GX" - set "SO=Pro" -) - -systeminfo 2>NUL | find "Pro N" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=MH37W-N47XK-V7XM9-C7227-GCQG9" - set "SO=Pro N" -) - -systeminfo 2>NUL | find "Home" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=3KHY7-WNT83-DGQKR-F7HPR-844BM" - set "SO=Home" -) - -systeminfo 2>NUL | find "Home N" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=3KHY7-WNT83-DGQKR-F7HPR-844BM" - set "SO=Home N" -) - -systeminfo 2>NUL | find "Education" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=NW6C2-QMPVW-D7KKK-3GKT6-VCFB2" - set "SO=Education" -) - -systeminfo 2>NUL | find "Education N" -IF "%ERRORLEVEL%"=="0" ( - set "key=2WH4N-8QGBV-H22JP-CT43Q-MDWWJ" - set "SO=Education N" -) - -systeminfo 2>NUL | find "Enterprise" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=NPPR9-FWDCX-D2C8J-H872K-2YT43" - set "SO=Enterprise" -) - -systeminfo 2>NUL | find "Enterprise N" >NUL -IF "%ERRORLEVEL%"=="0" ( - set "key=DPH2V-TTNVB-4X9Q3-TJR4H-KHJW4" - set "SO=Enterprise N" -) - -cls -echo "%SO%" -echo Applico la key, Attendi..... - -slmgr /ipk "%key%" >NUL - -slmgr /skms kms8.msguides.com - -slmgr /ato +::======================================================================================================================================== +:: Leave empty line below -exit /b -:kms38 +:serverkms @setlocal DisableDelayedExpansion @echo off -:: To activate, run the script with "/KMS38" parameter or change 0 to 1 in below line -set _act=0 - -:: To remove KMS38 protection, run the script with /KMS38-RemoveProtection parameter or change 0 to 1 in below line -set _rem=0 - -:: To disable changing edition if current edition doesn't support KMS38 activation, change the value to 1 from 0 or run the script with "/KMS38-NoEditionChange" parameter -set _NoEditionChange=0 - -:: If value is changed in above lines or parameter is used then script will run in unattended mode - - - ::======================================================================================================================================== :: Set Path variable, it helps if it is misconfigured in the system @@ -1411,6 +1370,7 @@ exit /b ) ::======================================================================================================================================== + :: Check if Null service is working, it's important for the batch script sc query Null | find /i "RUNNING" @@ -1426,27 +1386,64 @@ ping 127.0.0.1 -n 10 ) cls +:: Check LF line ending + +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: +ping 127.0.0.1 -n 6 >nul +popd +exit /b +) +popd + ::======================================================================================================================================== cls color 07 +title WinCustomizer Online KMS + +:: You are not supposed to edit anything below this. +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 _unattended=0 +set _renetask= +set _renacttask= +set _unattended= +set _unattendedact= 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"=="/KMS38" set _act=1 -if /i "%%A"=="/KMS38-RemoveProtection" set _rem=1 -if /i "%%A"=="/KMS38-NoEditionChange" set _NoEditionChange=1 -if /i "%%A"=="-el" set _elev=1 +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 +) ) ) - -for %%A in (%_act% %_rem% %_NoEditionChange%) do (if "%%A"=="1" set _unattended=1) ::======================================================================================================================================== @@ -1463,56 +1460,31 @@ 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) -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 _k38= -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=Troubleshoot" -) +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 "specific_kms=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\55c92734-d682-4d71-983e-d6ec3f16059f" +set "nceline=echo. &echo ==== ERROR ==== &echo." +set "eline=echo. &call :_color %Red% "==== ERROR ====" &echo." +if %_Debug% EQU 1 set _unattended=1 ::======================================================================================================================================== -if %winbuild% LSS 14393 ( -%eline% +if %winbuild% LSS 7600 ( +%nceline% echo Unsupported OS version detected [%winbuild%]. -echo KMS38 Activation is supported for Windows 10/11/Server, build 14393 and later. -goto dk_done +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 dk_done +goto Done ) ::======================================================================================================================================== -:: Fix for the special characters limitation in path name +:: Fix special characters limitation in path name set "_work=%~dp0" if "%_work:~-1%"=="\" set "_work=%_work:~0,-1%" @@ -1523,6 +1495,7 @@ set "_batp=%_batf:'=''%" set _PSarg="""%~f0""" -el %_args% set "_ttemp=%userprofile%\AppData\Local\Temp" +set "_Local=%LocalAppData%" setlocal EnableDelayedExpansion @@ -1530,12 +1503,12 @@ setlocal EnableDelayedExpansion echo "!_batf!" | find /i "!_ttemp!" %nul1% && ( if /i not "!_work!"=="!_ttemp!" ( -%eline% +%nceline% 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 dk_done +goto Done ) ) @@ -1545,10 +1518,10 @@ goto dk_done %nul1% fltmc || ( if not defined _elev %psc% "start cmd.exe -arg '/c \"!_PSarg:'=''!\"' -verb runas" && exit /b -%eline% -echo This script requires admin privileges. +%nceline% +echo This script needs admin rights. echo To do so, right click on this script and select 'Run as administrator'. -goto dk_done +goto Done ) ::======================================================================================================================================== @@ -1556,7 +1529,7 @@ 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 -if %_unattended%==1 set quedit=1 +if defined _unattended set quedit=1 for %%# in (%_args%) do (if /i "%%#"=="-qedit" set quedit=1) reg query HKCU\Console /v QuickEdit %nul2% | find /i "0x0" %nul1% || if not defined quedit ( @@ -1568,161 +1541,4363 @@ exit /b ::======================================================================================================================================== -if %_rem%==1 goto :k_uninstall - -:k_menu - -if %_unattended%==0 ( cls -mode 76, 25 - -) ::======================================================================================================================================== -:k_menu2 +if %~z0 GEQ 300000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit") -cls -mode 110, 34 -if exist "%Systemdrive%\Windows\System32\spp\store_test\" mode 134, 34 +:: Check not x86 Windows -echo: -echo Iniziamo... +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 -:: Check PowerShell +::======================================================================================================================================== -%psc% $ExecutionContext.SessionState.LanguageMode %nul2% | find /i "Full" %nul1% || ( -%eline% -%psc% $ExecutionContext.SessionState.LanguageMode -echo: -echo PowerShell is not working. Aborting... -echo If you have applied restrictions on Powershell then undo those changes. -echo: -echo Troubleshoot -goto dk_done +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 ) -::======================================================================================================================================== - -call :dk_product -call :dk_ckeckwmic +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 Troubleshoot and run Fix WMI option. +goto Done +) -:: Show info for potential script stuck scenario +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) -sc start sppsvc %nul% -if %errorlevel% NEQ 1056 if %errorlevel% NEQ 0 ( -echo: -echo Error code: %errorlevel% -call :dk_color %Red% "Failed to start [sppsvc] service, rest of the process may take a long time..." -echo: +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% ) ::======================================================================================================================================== -:: Check if system is permanently activated or not +if defined _uni goto _Complete_Uninstall -call :dk_checkperm -if defined _perm ( +if defined _renetask set ActTask=&call:RenTask&timeout /t 2 cls -echo ___________________________________________________________________________________________ -echo: -call :dk_color2 %_White% " " %Green% "Checking: %winos% is Permanently Activated." -call :dk_color2 %_White% " " %Gray% "Activation is not required." -echo ___________________________________________________________________________________________ -if %_unattended%==1 goto dk_done -echo: -choice /C:10 /N /M "> [1] Activate [0] %_exitmsg% : " -if errorlevel 2 exit /b -) +if defined _renacttask set ActTask=1&call:RenTask&timeout /t 2 cls +if defined _unattended if not defined _unattendedact goto Done ::======================================================================================================================================== -:: Check Evaluation version +set "_title=WinCustomizer Online KMS" +set _gui= -set _eval= -set _evalserv= +:_KMS_Menu -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 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% -if defined _eval ( -reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID %nul2% | find /i "Eval" %nul1% && ( -%eline% -echo [%winos% ^| %winbuild%] -if defined _evalserv ( -echo Server Evaluation cannot be activated. Convert it to full Server OS. -echo: -echo Prova a cambiare edizione. -) else ( -echo Evaluation Editions cannot be activated. -echo You need to install full version of %winos% -echo +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 ) -goto dk_done + +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 ) ) -::======================================================================================================================================== - -:: Check clipup.exe for the detection and activation of server cor and acor editions - -set a_cor= -if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*CorEdition~*.mum" if not exist "%systemroot%\System32\clipup.exe" set a_cor=1 - -if defined a_cor ( -if not exist "!_work!\clipup.exe" ( -%eline% -echo clipup.exe doesn't exist in Server Cor/Acor [No GUI] version. -echo It's required for KMS38 Activation. -goto dk_done -) +if defined _unattended ( +call :Activation_Start +timeout /t 2 +goto Done ) -::======================================================================================================================================== +cls +set _gui=1 +title %_title% +mode con: cols=76 lines=30 -call :dk_checksku +set "ActWindows=1" +set "ActOffice=0" +call :Activation_Start&endlocal&cls&goto _auto_renoval -if not defined osSKU ( -%eline% -echo SKU value was not detected properly. Aborting... -goto dk_done -) +:_auto_renoval +set ActTask=&call:RenTask&goto _fine_fine +:_fine_fine +echo Premi un tasto per chiudere +pause >NUL +exit ::======================================================================================================================================== -set error= +:Done -cls -echo: -for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b -for /f "tokens=6-7 delims=[]. " %%i in ('ver') do if "%%j"=="" (set fullbuild=%%i) else (set fullbuild=%%i.%%j) -echo Checking OS Info [%winos% ^| %fullbuild% ^| %arch%] +if defined _unattended exit /b -::======================================================================================================================================== +echo. +echo Premi un tasto per uscire... +pause >nul +exit /b -:: Check Windows Script Host +:========================================================================================================================================= -set _WSH=1 -reg query "HKCU\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled %nul2% | find /i "0x0" %nul1% && (set _WSH=0) -reg query "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled %nul2% | find /i "0x0" %nul1% && (set _WSH=0) +:Activation_Start -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 not "%arch%"=="x86" reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f /reg:32 %nul% -echo Enabling Windows Script Host [Successful] +@setlocal DisableDelayedExpansion + +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%) ) -::======================================================================================================================================== +call :Clear-KMS-Cache %nul% -echo Initiating Diagnostic Tests... +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 "_serv=ClipSVC sppsvc KeyIso Winmgmt" +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 +) -:: Client License Service (ClipSVC) -:: Software Protection +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 +) 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" +) +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 WinCustomizer Online KMS +) + +if defined _gui if %_Debug%==1 mode con cols=98 lines=30 + +if %_Debug% EQU 0 ( + set "_Nul1=1>nul" + set "_Nul2=2>nul" + set "_Nul6=2^>nul" + set "_Nul3=1>nul 2>nul" + set "_Pause=pause >nul" + if %Silent% EQU 0 (call :Begin) else (call :Begin >!_run! 2>&1) +) else ( + set "_Nul1=" + set "_Nul2=" + set "_Nul6=" + set "_Nul3=" + set "_log=!_dsk!\%~n0" + if %Silent% EQU 0 ( + echo. + echo Running in Debug Mode... + if not defined _args (echo The window will be closed when finished) else (echo please wait...) + echo. + echo Writing debug log to: + echo "!_log!_Debug.log" + ) + @echo on + @prompt $G + @call :Begin >"!_log!_tmp.log" 2>&1 &cmd /u /c type "!_log!_tmp.log">"!_log!_Debug.log"&del "!_log!_tmp.log" +) +@echo off +if defined _gui if %_Debug%==1 ( +echo. +call :_color %_Yellow% "Premi un tasto per uscire" +pause >nul +exit /b +) +@exit /b + +:Begin + +::======================================================================================================================================== + +set act_failed=0 +set /a act_attempt=0 + +echo. +echo Initializing... + +:: Check Internet connection. Works even if ICMP echo is disabled. + +call :setserv +for %%a in (%srvlist%) do ( +for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do ( +if not [%%#]==[] goto IntConnected +) +) + +nslookup dns.msftncsi.com 2>nul | find "131.107.255.255" 1>nul +if [%errorlevel%]==[0] goto IntConnected + +cls +if %_Debug%==1 ( +echo Error: Internet is not connected. +exit /b +) + +if defined _unattended ( +echo. +call :_color %_Red% "Internet is not connected, continuing the process anyway." +) else ( +%eline% +echo Internet is not connected. +echo: +call :_color %_Yellow% "Premi un tasto per uscire" +pause >nul +exit /b +) + +:IntConnected + +call :getserv + +::======================================================================================================================================== + +set "_wApp=55c92734-d682-4d71-983e-d6ec3f16059f" +set "_oApp=0ff1ce15-a989-479d-af46-f275c6370663" +set "_oA14=59a52881-a989-479d-af46-f275c6370663" +set "IFEO=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options" +set "OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" +set "SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" +set SSppHook=0 +for /f %%A in ('dir /b /ad %SysPath%\spp\tokens\skus') do ( + if %winbuild% GEQ 9200 if exist "%SysPath%\spp\tokens\skus\%%A\*GVLK*.xrm-ms" set SSppHook=1 + if %winbuild% LSS 9200 if exist "%SysPath%\spp\tokens\skus\%%A\*VLKMS*.xrm-ms" set SSppHook=1 + if %winbuild% LSS 9200 if exist "%SysPath%\spp\tokens\skus\%%A\*VL-BYPASS*.xrm-ms" set SSppHook=1 +) +set OsppHook=1 +sc query osppsvc %_Nul3% +if %errorlevel% EQU 1060 set OsppHook=0 + +set ESU_KMS=0 +if %winbuild% LSS 9200 for /f %%A in ('dir /b /ad %SysPath%\spp\tokens\channels') do ( + if exist "%SysPath%\spp\tokens\channels\%%A\*VL-BYPASS*.xrm-ms" set ESU_KMS=1 +) +if %ESU_KMS% EQU 1 (set "adoff=and LicenseDependsOn is NULL"&set "addon=and LicenseDependsOn is not NULL") else (set "adoff="&set "addon=") +set ESU_EDT=0 +if %ESU_KMS% EQU 1 for %%A in (%ESUEditions%) do ( + if exist "%SysPath%\spp\tokens\skus\Security-SPP-Component-SKU-%%A\*.xrm-ms" set ESU_EDT=1 +) +:: if %ESU_EDT% EQU 1 set SSppHook=1 +set ESU_ADD=0 + +if %winbuild% GEQ 9200 ( + set OSType=Win8 + set SppVer=SppExtComObj.exe +) else if %winbuild% GEQ 7600 ( + set OSType=Win7 + set SppVer=sppsvc.exe +) else ( + goto :UnsupportedVersion +) +if %OSType% EQU Win8 reg query "%IFEO%\sppsvc.exe" %_Nul3% && ( +reg delete "%IFEO%\sppsvc.exe" /f %_Nul3% +call :StopService sppsvc +) + +if %ActWindows% EQU 0 if %ActOffice% EQU 0 set ActWindows=1 +set _AUR=1 +if %winbuild% GEQ 9600 ( + reg add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform" /v NoGenTicket /t REG_DWORD /d 1 /f %_Nul3% + if %winbuild% EQU 14393 reg add "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform" /v NoAcquireGT /t REG_DWORD /d 1 /f %_Nul3% +) +call :StopService sppsvc +if %OsppHook% NEQ 0 call :StopService osppsvc + +:ReturnHook +call :UpdateOSPPEntry osppsvc.exe + +SET Win10Gov=0 +SET "EditionWMI=" +SET "EditionID=" +IF %winbuild% LSS 14393 if %SSppHook% NEQ 0 GOTO :Main +SET "RegKey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages" +SET "Pattern=Microsoft-Windows-*Edition~31bf3856ad364e35" +SET "EditionPKG=FFFFFFFF" +FOR /F "TOKENS=8 DELIMS=\" %%A IN ('REG QUERY "%RegKey%" /f "%Pattern%" /k %_Nul6% ^| FIND /I "CurrentVersion"') DO ( + REG QUERY "%RegKey%\%%A" /v "CurrentState" %_Nul2% | FIND /I "0x70" %_Nul1% && ( + FOR /F "TOKENS=3 DELIMS=-~" %%B IN ('ECHO %%A') DO SET "EditionPKG=%%B" + ) +) +IF /I "%EditionPKG:~-7%"=="Edition" ( +SET "EditionID=%EditionPKG:~0,-7%" +) ELSE ( +FOR /F "TOKENS=3 DELIMS=: " %%A IN ('DISM /English /Online /Get-CurrentEdition %_Nul6% ^| FIND /I "Current Edition :"') DO SET "EditionID=%%A" +) +net start sppsvc /y %_Nul3% +set "_qr=%_zz7% SoftwareLicensingProduct %_zz2% %_zz5%ApplicationID='%_wApp%' %adoff% AND PartialProductKey is not NULL%_zz6% %_zz3% LicenseFamily %_zz8%" +FOR /F "TOKENS=2 DELIMS==" %%A IN ('%_qr% %_Nul6%') DO SET "EditionWMI=%%A" +IF "%EditionWMI%"=="" ( +IF %winbuild% GEQ 17063 FOR /F "SKIP=2 TOKENS=2*" %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%B" +IF %winbuild% LSS 14393 ( + FOR /F "SKIP=2 TOKENS=2*" %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%B" + GOTO :Main + ) +) +IF NOT "%EditionWMI%"=="" SET "EditionID=%EditionWMI%" +IF /I "%EditionID%"=="IoTEnterprise" SET "EditionID=Enterprise" +IF /I "%EditionID%"=="IoTEnterpriseS" 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 not defined _C16R reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" ( +reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set "_C16R=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration" +) +set "_C15R=" +reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" ( +reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && call set "_C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration" +if not defined _C15R reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && call set "_C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag" +) +set "_C14R=" +if %_wow%==0 (reg query HKLM\SOFTWARE\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set "_C14R=1") else (reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set "_C14R=1") +for %%A in (14,15,16,19,21) do call :officeLoc %%A +if %_O14MSI% EQU 1 set "_C14R=" + +set S_OK=1 +call :RunSPP +if %ActOffice% NEQ 0 call :RunOSPP +if %ActOffice% EQU 0 (echo.&echo Office activation is OFF...) + +if exist "!_temp!\crv*.txt" del /f /q "!_temp!\crv*.txt" +if exist "!_temp!\*chk.txt" del /f /q "!_temp!\*chk.txt" +if exist "!_temp!\slmgr.vbs" del /f /q "!_temp!\slmgr.vbs" +call :StopService sppsvc +if %OsppHook% NEQ 0 call :StopService osppsvc + +sc start sppsvc trigger=timer;sessionid=0 %_Nul3% + +goto TheEnd + +:RunSPP +set spp=SoftwareLicensingProduct +set sps=SoftwareLicensingService +set W1nd0ws=1 +set WinPerm=0 +set WinVL=0 +set Off1ce=0 +set 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 + +: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%) +) +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 + +:sppchkwin +set _officespp=0 +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%" +if %winbuild% GEQ 14393 if %WinPerm% EQU 0 if %_gvlk% EQU 0 %_qr% %_Nul2% | findstr /i Windows %_Nul1% && (set _gvlk=1) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% LicenseStatus %_zz4%" +%_qr% %_Nul2% | findstr "1" %_Nul1% && (echo.&call :activate&exit /b) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%" +%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b) +if %winbuild% GEQ 14393 if %_gvlk% EQU 1 exit /b +if %WinPerm% EQU 1 exit /b +if %winbuild% LSS 10240 (call :winchk&exit /b) +for %%A in ( +b71515d9-89a2-4c60-88c8-656fbcca7f3a,af43f7f0-3b1e-4266-a123-1fdb53f4323b,075aca1f-05d7-42e5-a3ce-e349e7be7078 +11a37f09-fb7f-4002-bd84-f3ae71d11e90,43f2ab05-7c87-4d56-b27c-44d0f9a3dabd,2cf5af84-abab-4ff0-83f8-f040fb2576eb +6ae51eeb-c268-4a21-9aae-df74c38b586d,ff808201-fec6-4fd4-ae16-abbddade5706,34260150-69ac-49a3-8a0d-4a403ab55763 +4dfd543d-caa6-4f69-a95f-5ddfe2b89567,5fe40dd6-cf1f-4cf2-8729-92121ac2e997,903663f7-d2ab-49c9-8942-14aa9e0a9c72 +2cc171ef-db48-4adc-af09-7c574b37f139,5b2add49-b8f4-42e0-a77c-adad4efeeeb1 +) do ( +if /i '%app%' EQU '%%A' exit /b +) +if not defined EditionID (call :winchk&exit /b) +if %winbuild% LSS 14393 (call :winchk&exit /b) +if /i '%app%' EQU '32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee' if /i %EditionID% NEQ EnterpriseS exit /b +if /i '%app%' EQU 'ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69' if /i %EditionID% NEQ CloudEdition exit /b +if /i '%app%' EQU 'd30136fc-cb4b-416e-a23d-87207abc44a9' if /i %EditionID% NEQ CloudEditionN exit /b +if /i '%app%' EQU '0df4f814-3f57-4b8b-9a9d-fddadcd69fac' if /i %EditionID% NEQ CloudE exit /b +if /i '%app%' EQU 'e0c42288-980c-4788-a014-c080d2e1926e' if /i %EditionID% NEQ Education exit /b +if /i '%app%' EQU '73111121-5638-40f6-bc11-f1d7b0d64300' if /i %EditionID% NEQ Enterprise exit /b +if /i '%app%' EQU '2de67392-b7a7-462a-b1ca-108dd189f588' if /i %EditionID% NEQ Professional exit /b +if /i '%app%' EQU '3f1afc82-f8ac-4f6c-8005-1d233e606eee' if /i %EditionID% NEQ ProfessionalEducation exit /b +if /i '%app%' EQU '82bbc092-bc50-4e16-8e18-b74fc486aec3' if /i %EditionID% NEQ ProfessionalWorkstation exit /b +if /i '%app%' EQU '3c102355-d027-42c6-ad23-2e7ef8a02585' if /i %EditionID% NEQ EducationN exit /b +if /i '%app%' EQU 'e272e3e2-732f-4c65-a8f0-484747d0d947' if /i %EditionID% NEQ EnterpriseN exit /b +if /i '%app%' EQU 'a80b5abf-76ad-428b-b05d-a47d2dffeebf' if /i %EditionID% NEQ ProfessionalN exit /b +if /i '%app%' EQU '5300b18c-2e33-4dc2-8291-47ffcec746dd' if /i %EditionID% NEQ ProfessionalEducationN exit /b +if /i '%app%' EQU '4b1571d3-bafb-4b40-8087-a961be2caf65' if /i %EditionID% NEQ ProfessionalWorkstationN exit /b +if /i '%app%' EQU '58e97c99-f377-4ef1-81d5-4ad5522b5fd8' if /i %EditionID% NEQ Core exit /b +if /i '%app%' EQU 'cd918a57-a41b-4c82-8dce-1a538e221a83' if /i %EditionID% NEQ CoreSingleLanguage exit /b +if /i '%app%' EQU 'ec868e65-fadf-4759-b23e-93fe37f2cc29' if /i %EditionID% NEQ ServerRdsh exit /b +if /i '%app%' EQU 'e4db50ea-bda1-4566-b047-0ca50abc6f07' if /i %EditionID% NEQ ServerRdsh exit /b +set "_qr=%_zz1% %spp% %_zz2% "Description like '%%KMSCLIENT%%'" %_zz3% ID %_zz4%" +if /i "%app%" EQU "e4db50ea-bda1-4566-b047-0ca50abc6f07" ( +%_qr% | findstr /i "ec868e65-fadf-4759-b23e-93fe37f2cc29" %_Nul3% && (exit /b) +) +call :winchk +exit /b + +:winchk +if not defined tok (if %winbuild% GEQ 9200 (set "tok=4") else (set "tok=7")) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%LicenseStatus='1' and Description like '%%KMSCLIENT%%' %adoff% %_zz6% %_zz3% Name %_zz4%" +%_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && (exit /b) +echo. +set "_qr=%_zz1% %spp% %_zz2% %_zz5%LicenseStatus='1' and GracePeriodRemaining='0' %adoff% and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%" +%_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && ( +set WinPerm=1 +) +set WinOEM=0 +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Name %_zz4%" +if %WinPerm% EQU 0 %_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && set WinOEM=1 +set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Description %_zz8%" +if %WinOEM% EQU 1 ( +for /f "tokens=%tok% delims=, " %%G in ('%_qr%') do set "channel=%%G" +for %%A in (VOLUME_MAK, RETAIL, OEM_DM, OEM_SLP, OEM_COA, OEM_COA_SLP, OEM_COA_NSLP, OEM_NONSLP, OEM) do if /i "%%A"=="!channel!" set WinPerm=1 +) +if %WinPerm% EQU 0 ( +copy /y %SysPath%\slmgr.vbs "!_temp!\slmgr.vbs" %_Nul3% +cscript //nologo "!_temp!\slmgr.vbs" /xpr %_Nul2% | findstr /i "permanently" %_Nul3% && set WinPerm=1 +) +set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Name %_zz8%" +if %WinPerm% EQU 1 ( +for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x +echo Product is Permanently Activated. +exit /b +) +call :insKey +exit /b + +:esuchk +set _officespp=0 +set ESU_ADD=1 +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% LicenseStatus %_zz4%" +%_qr% %_Nul2% | findstr "1" %_Nul1% && (echo.&call :activate&exit /b) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='77db037b-95c3-48d7-a3ab-a9c6d41093e0'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "3fcc2df2-f625-428d-909a-1f76efc849b6" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='0e00c25d-8795-4fb7-9572-3803d91b6880'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "dadfcd24-6e37-47be-8f7f-4ceda614cece" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='4220f546-f522-46df-8202-4d07afd26454'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "0c29c85e-12d7-4af8-8e4d-ca1e424c480c" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='553673ed-6ddf-419c-a153-b760283472fd'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "f2b21bfc-a6b0-4413-b4bb-9f06b55f2812" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='04fa0286-fa74-401e-bbe9-fbfbb158010d'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "bfc078d0-8c7f-475c-8519-accc46773113" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='16c08c85-0c8b-4009-9b2b-f1f7319e45f9'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "23c6188f-c9d8-457e-81b6-adb6dacb8779" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='8e7bfb1e-acc1-4f56-abae-b80fce56cd4b'%_zz6% %_zz3% LicenseStatus %_zz4%" +if /i "%app%" EQU "e7cce015-33d6-41c1-9831-022ba63fe1da" ( +%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b) +) +set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%" +%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b) +call :insKey +exit /b + +:RunOSPP +set spp=OfficeSoftwareProtectionProduct +set sps=OfficeSoftwareProtectionService +set Off1ce=0 +set 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 + +:offchk +set ls=0 +set ls2=0 +set ls3=0 +set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='Office%~1'%_zz6% %_zz3% LicenseStatus %_zz8%" +for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set /a ls=%%A +set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='Office%~3'%_zz6% %_zz3% LicenseStatus %_zz8%" +if /i not "%~3"=="" for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set /a ls2=%%A +set "_qr=%_zz7% %spp% %_zz2% %_zz5%LicenseFamily='Office%~5'%_zz6% %_zz3% LicenseStatus %_zz8%" +if /i not "%~5"=="" for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set /a ls3=%%A +if "%ls3%"=="1" ( +echo Checking: %~6 +echo Product is Permanently Activated. +exit /b +) +if "%ls2%"=="1" ( +echo Checking: %~4 +echo Product is Permanently Activated. +exit /b +) +if "%ls%"=="1" ( +echo Checking: %~2 +echo Product is Permanently Activated. +exit /b +) +call :insKey +exit /b + +:offchk21 +if /i '%app%' EQU 'f3fb2d68-83dd-4c8b-8f09-08e0d950ac3b' exit /b +if /i '%app%' EQU '76093b1b-7057-49d7-b970-638ebcbfd873' exit /b +if /i '%app%' EQU 'a3b44174-2451-4cd6-b25f-66638bfb9046' exit /b +if /i '%app%' EQU 'fbdb3e18-a8ef-4fb3-9183-dffd60bd0984' ( +call :offchk "21ProPlus2021VL_MAK_AE1" "Office ProPlus 2021" "21ProPlus2021VL_MAK_AE2" +exit /b +) +if /i '%app%' EQU '080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3' ( +call :offchk "21Standard2021VL_MAK_AE" "Office Standard 2021" +exit /b +) +if /i '%app%' EQU '76881159-155c-43e0-9db7-2d70a9a3a4ca' ( +call :offchk "21ProjectPro2021VL_MAK_AE1" "Project Pro 2021" "21ProjectPro2021VL_MAK_AE2" +exit /b +) +if /i '%app%' EQU '6dd72704-f752-4b71-94c7-11cec6bfc355' ( +call :offchk "21ProjectStd2021VL_MAK_AE" "Project Standard 2021" +exit /b +) +if /i '%app%' EQU 'fb61ac9a-1688-45d2-8f6b-0674dbffa33c' ( +call :offchk "21VisioPro2021VL_MAK_AE" "Visio Pro 2021" +exit /b +) +if /i '%app%' EQU '72fce797-1884-48dd-a860-b2f6a5efd3ca' ( +call :offchk "21VisioStd2021VL_MAK_AE" "Visio Standard 2021" +exit /b +) +call :insKey +exit /b + +:offchk19 +if /i '%app%' EQU '0bc88885-718c-491d-921f-6f214349e79c' exit /b +if /i '%app%' EQU 'fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9' exit /b +if /i '%app%' EQU '500f6619-ef93-4b75-bcb4-82819998a3ca' exit /b +if /i '%app%' EQU '85dd8b5f-eaa4-4af3-a628-cce9e77c9a03' ( +call :offchk "19ProPlus2019VL_MAK_AE" "Office ProPlus 2019" +exit /b +) +if /i '%app%' EQU '6912a74b-a5fb-401a-bfdb-2e3ab46f4b02' ( +call :offchk "19Standard2019VL_MAK_AE" "Office Standard 2019" +exit /b +) +if /i '%app%' EQU '2ca2bf3f-949e-446a-82c7-e25a15ec78c4' ( +call :offchk "19ProjectPro2019VL_MAK_AE" "Project Pro 2019" +exit /b +) +if /i '%app%' EQU '1777f0e3-7392-4198-97ea-8ae4de6f6381' ( +call :offchk "19ProjectStd2019VL_MAK_AE" "Project Standard 2019" +exit /b +) +if /i '%app%' EQU '5b5cf08f-b81a-431d-b080-3450d8620565' ( +call :offchk "19VisioPro2019VL_MAK_AE" "Visio Pro 2019" +exit /b +) +if /i '%app%' EQU 'e06d7df3-aad0-419d-8dfb-0ac37e2bdf39' ( +call :offchk "19VisioStd2019VL_MAK_AE" "Visio Standard 2019" +exit /b +) +call :insKey +exit /b + +:offchk16 +if /i '%app%' EQU 'd450596f-894d-49e0-966a-fd39ed4c4c64' ( +call :offchk "16ProPlusVL_MAK" "Office ProPlus 2016" +exit /b +) +if /i '%app%' EQU 'dedfa23d-6ed1-45a6-85dc-63cae0546de6' ( +call :offchk "16StandardVL_MAK" "Office Standard 2016" +exit /b +) +if /i '%app%' EQU '4f414197-0fc2-4c01-b68a-86cbb9ac254c' ( +call :offchk "16ProjectProVL_MAK" "Project Pro 2016" +exit /b +) +if /i '%app%' EQU 'da7ddabc-3fbe-4447-9e01-6ab7440b4cd4' ( +call :offchk "16ProjectStdVL_MAK" "Project Standard 2016" +exit /b +) +if /i '%app%' EQU '6bf301c1-b94a-43e9-ba31-d494598c47fb' ( +call :offchk "16VisioProVL_MAK" "Visio Pro 2016" +exit /b +) +if /i '%app%' EQU 'aa2a7821-1827-4c2c-8f1d-4513a34dda97' ( +call :offchk "16VisioStdVL_MAK" "Visio Standard 2016" +exit /b +) +if /i '%app%' EQU '829b8110-0e6f-4349-bca4-42803577788d' ( +call :offchk "16ProjectProXC2RVL_MAKC2R" "Project Pro 2016 C2R" +exit /b +) +if /i '%app%' EQU 'cbbaca45-556a-4416-ad03-bda598eaa7c8' ( +call :offchk "16ProjectStdXC2RVL_MAKC2R" "Project Standard 2016 C2R" +exit /b +) +if /i '%app%' EQU 'b234abe3-0857-4f9c-b05a-4dc314f85557' ( +call :offchk "16VisioProXC2RVL_MAKC2R" "Visio Pro 2016 C2R" +exit /b +) +if /i '%app%' EQU '361fe620-64f4-41b5-ba77-84f8e079b1f7' ( +call :offchk "16VisioStdXC2RVL_MAKC2R" "Visio Standard 2016 C2R" +exit /b +) +call :insKey +exit /b + +:offchk15 +if /i '%app%' EQU 'b322da9c-a2e2-4058-9e4e-f59a6970bd69' ( +call :offchk "ProPlusVL_MAK" "Office ProPlus 2013" +exit /b +) +if /i '%app%' EQU 'b13afb38-cd79-4ae5-9f7f-eed058d750ca' ( +call :offchk "StandardVL_MAK" "Office Standard 2013" +exit /b +) +if /i '%app%' EQU '4a5d124a-e620-44ba-b6ff-658961b33b9a' ( +call :offchk "ProjectProVL_MAK" "Project Pro 2013" +exit /b +) +if /i '%app%' EQU '427a28d1-d17c-4abf-b717-32c780ba6f07' ( +call :offchk "ProjectStdVL_MAK" "Project Standard 2013" +exit /b +) +if /i '%app%' EQU 'e13ac10e-75d0-4aff-a0cd-764982cf541c' ( +call :offchk "VisioProVL_MAK" "Visio Pro 2013" +exit /b +) +if /i '%app%' EQU 'ac4efaf0-f81f-4f61-bdf7-ea32b02ab117' ( +call :offchk "VisioStdVL_MAK" "Visio Standard 2013" +exit /b +) +call :insKey +exit /b + +:offchk14 +if /i '%app%' EQU '6f327760-8c5c-417c-9b61-836a98287e0c' ( +call :offchk "ProPlus-MAK" "Office ProPlus 2010" "ProPlusAcad-MAK" "Office Professional Academic 2010" +exit /b +) +if /i '%app%' EQU '9da2a678-fb6b-4e67-ab84-60dd6a9c819a' ( +call :offchk "Standard-MAK" "Office Standard 2010" "StandardAcad-MAK" "Office Standard Academic 2010" +exit /b +) +if /i '%app%' EQU 'ea509e87-07a1-4a45-9edc-eba5a39f36af' ( +call :offchk "SmallBusBasics-MAK" "Office Small Business Basics 2010" +exit /b +) +if /i '%app%' EQU 'df133ff7-bf14-4f95-afe3-7b48e7e331ef' ( +call :offchk "ProjectPro-MAK" "Project Pro 2010" +exit /b +) +if /i '%app%' EQU '5dc7bf61-5ec9-4996-9ccb-df806a2d0efe' ( +call :offchk "ProjectStd-MAK" "Project Standard 2010" "ProjectStd-MAK2" "Project Standard 2010" +exit /b +) +if /i '%app%' EQU '92236105-bb67-494f-94c7-7f7a607929bd' ( +call :offchk "VisioPrem-MAK" "Visio Premium 2010" "VisioPro-MAK" "Visio Pro 2010" +exit /b +) +if defined vPrem exit /b +if /i '%app%' EQU 'e558389c-83c3-4b29-adfe-5e4d7f46c358' ( +call :offchk "VisioPro-MAK" "Visio Pro 2010" "VisioStd-MAK" "Visio Standard 2010" +exit /b +) +if defined vProf exit /b +if /i '%app%' EQU '9ed833ff-4f92-4f36-b370-8683a4f13275' ( +call :offchk "VisioStd-MAK" "Visio Standard 2010" +exit /b +) +call :insKey +exit /b + +:officeLoc +set loc_off%1=0 +set _O%1MSI=0 +if %1 EQU 19 ( +if defined _C16R reg query %_C16R% /v ProductReleaseIds %_Nul2% | findstr 2019 %_Nul1% && set loc_off%1=1 +exit /b +) +if %1 EQU 21 ( +if defined _C16R reg query %_C16R% /v ProductReleaseIds %_Nul2% | findstr 2021 %_Nul1% && set loc_off%1=1 +exit /b +) + +for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\%1.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" ( +set loc_off%1=1 +set _O%1MSI=1 +) +for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\%1.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" ( +set loc_off%1=1 +set _O%1MSI=1 +) + +if %1 EQU 16 if defined _C16R ( +for /f "skip=2 tokens=2*" %%a in ('reg query %_C16R% /v ProductReleaseIds') do echo %%b> "!_temp!\c2rchk.txt" +for %%a in (%LV16Ids%,ProjectProX,ProjectStdX,VisioProX,VisioStdX) do ( + findstr /I /C:"%%aVolume" "!_temp!\c2rchk.txt" %_Nul1% && set loc_off%1=1 + ) +for %%a in (%LR16Ids%) do ( + findstr /I /C:"%%aRetail" "!_temp!\c2rchk.txt" %_Nul1% && set loc_off%1=1 + ) +exit /b +) + +if %1 EQU 15 if defined _C15R ( +set loc_off%1=1 +exit /b +) + +if exist "%ProgramFiles%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1 +if not %xOS%==x86 if exist "%ProgramW6432%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1 +if not %xOS%==x86 if exist "%ProgramFiles(x86)%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1 +exit /b + +: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 + +:insKey +set S_OK=1 +echo. +set "_key=" +set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%" +if %ESU_ADD% EQU 0 for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Installing Key: %%x +if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Installing Key: %%x +set ESU_ADD=0 +call :keys %app% +if "%_key%"=="" (echo No associated KMS Client key found&exit /b) +set "_qr=wmic path %sps% where Version='%slsv%' call InstallProductKey ProductKey="%_key%"" +if %WMI_VBS% NEQ 0 set "_qr=%_csp% %sps% "%_key%"" +%_qr% %_Nul3% +set ERRORCODE=%ERRORLEVEL% +if %ERRORCODE% NEQ 0 ( +cmd /c exit /b %ERRORCODE% +echo Failed: 0x!=ExitCode! +set S_OK=0 +exit /b +) +set "_qr=wmic path %sps% where Version='%slsv%' call RefreshLicenseStatus" +if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%sps%.Version='%slsv%'" RefreshLicenseStatus" +if %sps% EQU SoftwareLicensingService %_qr% %_Nul3% + +:activate +set S_OK=1 +if %sps% EQU SoftwareLicensingService ( +if %_officespp% EQU 0 (reg delete "HKLM\%SPPk%\%_wApp%\%app%" /f %_Null%) else (reg delete "HKLM\%SPPk%\%_oApp%\%app%" /f %_Null%) +) else ( +reg delete "HKLM\%OPPk%\%_oA14%\%app%" /f %_Null% +reg delete "HKLM\%OPPk%\%_oApp%\%app%" /f %_Null% +) +set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%" +if %W1nd0ws% EQU 0 if %_officespp% EQU 0 if %sps% EQU SoftwareLicensingService ( +reg add "HKLM\%SPPk%\%_wApp%\%app%" /f /v KeyManagementServiceName /t REG_SZ /d "127.0.0.2" %_Nul3% +reg add "HKLM\%SPPk%\%_wApp%\%app%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3% +for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x +echo Product is KMS 2038 Activated. +set _keepkms38=1 +exit /b +) +set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%" +if %act_attempt% LSS 1 ( +if %ESU_ADD% EQU 0 for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Activating: %%x +if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Activating: %%x +) + +set ESU_ADD=0 +set "_qr=wmic path %spp% where ID='%app%' call Activate" +if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%spp%.ID='%app%'" Activate" +%_qr% %_Nul3% +call set ERRORCODE=%ERRORLEVEL% +if %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 +) +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 +) +set Act_OK=0 +if %gpr% EQU 43200 if %_officespp% EQU 0 if %winbuild% GEQ 9200 set Act_OK=1 +if %gpr% EQU 64800 set Act_OK=1 +if %gpr% GTR 259200 if %Win10Gov% EQU 1 set Act_OK=1 +if %gpr% EQU 259200 set Act_OK=1 + +if %ERRORCODE% EQU 0 if %Act_OK% EQU 1 ( +call :_color %_Green% "Product Activation Successful" +echo Remaining Period: %gpr2% days ^(%gpr% minutes^) +set /a act_attempt=0 +exit /b +) + +if not !server_num! gtr %max_servers% ( +if %act_attempt% LSS 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 %winbuild% GEQ 9200 ( +%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" +if defined notx86 ( +%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" /reg:32 +%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" /reg:32 +) +) +goto :activate +) +) + +cmd /c exit /b %ERRORCODE% +if %ERRORCODE% NEQ 0 ( +call :_color %_Red% "Product Activation Failed: 0x!=ExitCode!" +) else ( +call :_color %_Red% "Product Activation Failed" +) +echo Remaining Period: %gpr2% days ^(%gpr% minutes^) +set S_OK=0 +set act_failed=1 +set /a act_attempt=0 +exit /b + +:StopService +sc query %1 | find /i "STOPPED" %_Nul1% || net stop %1 /y %_Nul3% +sc query %1 | find /i "STOPPED" %_Nul1% || sc stop %1 %_Nul3% +goto :eof + +:UpdateOSPPEntry +if /i %1 EQU osppsvc.exe ( +reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" %_Nul3% +reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3% +) +goto :eof + +:CheckFR + +set WMIe=0 +call :CheckWS +if %WMIe% EQU 1 ( +echo. +echo %_err% +echo Failed running WMI query check. +) +goto :eof + +:CheckWS +set "_qrw=%_zz1% Win32_ComputerSystem %_zz3% CreationClassName %_zz4%" +set "_qrs=%_zz1% SoftwareLicensingService %_zz3% Version %_zz4%" + +%_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 + +:C2RR2V +set RanR2V=1 +set "_SLMGR=%SysPath%\slmgr.vbs" +if %_Debug% EQU 0 ( +set "_cscript=cscript //Nologo //B" +) else ( +set "_cscript=cscript //Nologo" +) +set _LTSC=0 +set "_tag="&set "_ons= 2016" +sc query ClickToRunSvc %_Nul3% +set error1=%errorlevel% +sc query OfficeSvc %_Nul3% +set error2=%errorlevel% +if %error1% EQU 1060 if %error2% EQU 1060 ( +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" +) 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 +) +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 + +:d30136fc-cb4b-416e-a23d-87207abc44a9 +set "_key=6XN7V%yh%PCBDC%yh%BDBRH%yh%8DQY7%yh%G6R44" &:: SE N {Cloud N} +exit /b + +:: Windows 10 [RS5] +:32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee +set "_key=M7XTQ%yh%FN8P6%yh%TTKYV%yh%9D4CC%yh%J462D" &:: Enterprise LTSC 2019 +exit /b + +:7103a333-b8c8-49cc-93ce-d37c09687f92 +set "_key=92NFX%yh%8DJQP%yh%P6BBQ%yh%THF9C%yh%7CG2H" &:: Enterprise LTSC 2019 N +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 + +:: Windows 10 [RS3] +:82bbc092-bc50-4e16-8e18-b74fc486aec3 +set "_key=NRG8B%yh%VKK3Q%yh%CXVCJ%yh%9G2XF%yh%6Q84J" &:: Pro Workstation +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 + +:: Windows 10 [RS2] +:e0b2d383-d112-413f-8a80-97f373a5820c +set "_key=YYVX9%yh%NTFWV%yh%6MDM3%yh%9PT4T%yh%4M68B" &:: Enterprise G +exit /b + +:e38454fb-41a4-4f59-a5dc-25080e354730 +set "_key=44RPN%yh%FTY23%yh%9VTTB%yh%MP9BX%yh%T84FV" &:: Enterprise G N +exit /b + +:: 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 + +:3f1afc82-f8ac-4f6c-8005-1d233e606eee +set "_key=6TP4R%yh%GNPTD%yh%KYYHQ%yh%7B7DP%yh%J447Y" &:: Pro Education +exit /b + +:5300b18c-2e33-4dc2-8291-47ffcec746dd +set "_key=YVWGF%yh%BXNMC%yh%HTQYQ%yh%CPQ99%yh%66QFC" &:: Pro Education N +exit /b + +:: Windows 10 [TH] +:58e97c99-f377-4ef1-81d5-4ad5522b5fd8 +set "_key=TX9XD%yh%98N7V%yh%6WMQ6%yh%BX7FG%yh%H8Q99" &:: Home +exit /b + +:7b9e1751-a8da-4f75-9560-5fadfe3d8e38 +set "_key=3KHY7%yh%WNT83%yh%DGQKR%yh%F7HPR%yh%844BM" &:: Home N +exit /b + +:cd918a57-a41b-4c82-8dce-1a538e221a83 +set "_key=7HNRX%yh%D7KGG%yh%3K4RQ%yh%4WPJ4%yh%YTDFH" &:: Home Single Language +exit /b + +:a9107544-f4a0-4053-a96a-1479abdef912 +set "_key=PVMJN%yh%6DFY6%yh%9CCP6%yh%7BKTT%yh%D3WVR" &:: Home China +exit /b + +: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 + +:3c102355-d027-42c6-ad23-2e7ef8a02585 +set "_key=2WH4N%yh%8QGBV%yh%H22JP%yh%CT43Q%yh%MDWWJ" &:: Education N +exit /b + +:73111121-5638-40f6-bc11-f1d7b0d64300 +set "_key=NPPR9%yh%FWDCX%yh%D2C8J%yh%H872K%yh%2YT43" &:: Enterprise +exit /b + +:e272e3e2-732f-4c65-a8f0-484747d0d947 +set "_key=DPH2V%yh%TTNVB%yh%4X9Q3%yh%TJR4H%yh%KHJW4" &:: Enterprise N +exit /b + +:7b51a46c-0c04-4e8f-9af4-8496cca90d5e +set "_key=WNMTR%yh%4C88C%yh%JK8YV%yh%HQ7T2%yh%76DF9" &:: Enterprise 2015 LTSB +exit /b + +:87b838b7-41b6-4590-8318-5797951d8529 +set "_key=2F77B%yh%TNFGY%yh%69QQF%yh%B8YKP%yh%D69TJ" &:: Enterprise 2015 LTSB N +exit /b + +:: Windows Server 2022 [Fe] +:9bd77860-9b31-4b7b-96ad-2564017315bf +set "_key=VDYBN%yh%27WPP%yh%V4HQT%yh%9VMD4%yh%VMK7H" &:: Standard +exit /b + +:ef6cfc9f-8c5d-44ac-9aad-de6a2ea0ae03 +set "_key=WX4NM%yh%KYWYW%yh%QJJR4%yh%XV3QB%yh%6VM33" &:: Datacenter +exit /b + +:8c8f0ad3-9a43-4e05-b840-93b8d1475cbc +set "_key=6N379%yh%GGTMK%yh%23C6M%yh%XVVTC%yh%CKFRQ" &:: Azure Core +exit /b + +:f5e9429c-f50b-4b98-b15c-ef92eb5cff39 +set "_key=67KN8%yh%4FYJW%yh%2487Q%yh%MQ2J7%yh%4C4RG" &:: Standard ACor +exit /b + +:39e69c41-42b4-4a0a-abad-8e3c10a797cc +set "_key=QFND9%yh%D3Y9C%yh%J3KKY%yh%6RPVP%yh%2DPYV" &:: Datacenter ACor +exit /b + +:: Windows Server 2019 [RS5] +:de32eafd-aaee-4662-9444-c1befb41bde2 +set "_key=N69G4%yh%B89J2%yh%4G8F4%yh%WWYCC%yh%J464C" &:: Standard +exit /b + +:34e1ae55-27f8-4950-8877-7a03be5fb181 +set "_key=WMDGN%yh%G9PQG%yh%XVVXX%yh%R3X43%yh%63DFG" &:: Datacenter +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 + +:90c362e5-0da1-4bfd-b53b-b87d309ade43 +set "_key=6NMRW%yh%2C8FM%yh%D24W7%yh%TQWMY%yh%CWH2D" &:: Datacenter ACor +exit /b + +:034d3cbb-5d4b-4245-b3f8-f84571314078 +set "_key=WVDHN%yh%86M7X%yh%466P6%yh%VHXV7%yh%YY726" &:: Essentials +exit /b + +:8de8eb62-bbe0-40ac-ac17-f75595071ea3 +set "_key=GRFBW%yh%QNDC4%yh%6QBHG%yh%CCK3B%yh%2PR88" &:: ServerARM64 +exit /b + +:19b5e0fb-4431-46bc-bac1-2f1873e4ae73 +set "_key=NTBV8%yh%9K7Q8%yh%V27C6%yh%M2BTV%yh%KHMXV" &:: Azure Datacenter - ServerTurbine +exit /b + +:: Windows Server 2016 [RS4] +:43d9af6e-5e86-4be8-a797-d072a046896c +set "_key=K9FYF%yh%G6NCK%yh%73M32%yh%XMVPY%yh%F9DRR" &:: ServerARM64 +exit /b + +:: Windows Server 2016 [RS3] +:61c5ef22-f14f-4553-a824-c4b31e84b100 +set "_key=PTXN8%yh%JFHJM%yh%4WC78%yh%MPCBR%yh%9W4KR" &:: Standard ACor +exit /b + +:e49c08e7-da82-42f8-bde2-b570fbcae76c +set "_key=2HXDN%yh%KRXHB%yh%GPYC7%yh%YCKFJ%yh%7FVDG" &:: Datacenter ACor +exit /b + +:: Windows Server 2016 [RS1] +:8c1c5410-9f39-4805-8c9d-63a07706358f +set "_key=WC2BQ%yh%8NRM3%yh%FDDYY%yh%2BFGV%yh%KHKQY" &:: Standard +exit /b + +:21c56779-b449-4d20-adfc-eece0e1ad74b +set "_key=CB7KF%yh%BWN84%yh%R7R2Y%yh%793K2%yh%8XDDG" &:: Datacenter +exit /b + +:3dbf341b-5f6c-4fa7-b936-699dce9e263f +set "_key=VP34G%yh%4NPPG%yh%79JTQ%yh%864T4%yh%R3MQX" &:: Azure Core +exit /b + +:2b5a1b0f-a5ab-4c54-ac2f-a6d94824a283 +set "_key=JCKRF%yh%N37P4%yh%C2D82%yh%9YXRT%yh%4M63B" &:: Essentials +exit /b + +:7b4433f4-b1e7-4788-895a-c45378d38253 +set "_key=QN4C6%yh%GBJD2%yh%FB422%yh%GHWJK%yh%GJG2R" &:: Cloud Storage +exit /b + +:: Windows 8.1 +:fe1c3238-432a-43a1-8e25-97e7d1ef10f3 +set "_key=M9Q9P%yh%WNJJT%yh%6PXPY%yh%DWX8H%yh%6XWKK" &:: Core +exit /b + +: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 + +:ffee456a-cd87-4390-8e07-16146c672fd0 +set "_key=XYTND%yh%K6QKT%yh%K2MRH%yh%66RTM%yh%43JKP" &:: Core ARM +exit /b + +:c06b6981-d7fd-4a35-b7b4-054742b7af67 +set "_key=GCRJD%yh%8NW9H%yh%F2CDX%yh%CCM8D%yh%9D6T9" &:: Pro +exit /b + +:7476d79f-8e48-49b4-ab63-4d0b813a16e4 +set "_key=HMCNV%yh%VVBFX%yh%7HMBH%yh%CTY9B%yh%B4FXY" &:: Pro N +exit /b + +:096ce63d-4fac-48a9-82a9-61ae9e800e5f +set "_key=789NJ%yh%TQK6T%yh%6XTH8%yh%J39CJ%yh%J8D3P" &:: Pro with Media Center +exit /b + +:81671aaf-79d1-4eb1-b004-8cbbe173afea +set "_key=MHF9N%yh%XY6XB%yh%WVXMC%yh%BTDCT%yh%MKKG7" &:: Enterprise +exit /b + +: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 + +:cd4e2d9f-5059-4a50-a92d-05d5bb1267c7 +set "_key=FNFKF%yh%PWTVT%yh%9RC8H%yh%32HB2%yh%JB34X" &:: Embedded Industry Enterprise +exit /b + +: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 + +:c6ddecd6-2354-4c19-909b-306a3058484e +set "_key=Q6HTR%yh%N24GM%yh%PMJFP%yh%69CD8%yh%2GXKR" &:: with Bing N +exit /b + +:b8f5e3a3-ed33-4608-81e1-37d6c9dcfd9c +set "_key=KF37N%yh%VDV38%yh%GRRTV%yh%XH8X6%yh%6F3BB" &:: with Bing Single Language +exit /b + +:ba998212-460a-44db-bfb5-71bf09d1c68b +set "_key=R962J%yh%37N87%yh%9VVK2%yh%WJ74P%yh%XTMHR" &:: with Bing China +exit /b + +:e58d87b5-8126-4580-80fb-861b22f79296 +set "_key=MX3RK%yh%9HNGX%yh%K3QKC%yh%6PJ3F%yh%W8D7B" &:: Pro for Students +exit /b + +:cab491c7-a918-4f60-b502-dab75e334f40 +set "_key=TNFGH%yh%2R6PB%yh%8XM3K%yh%QYHX2%yh%J4296" &:: Pro for Students N +exit /b + +:: Windows Server 2012 R2 +:b3ca044e-a358-4d68-9883-aaa2941aca99 +set "_key=D2N9P%yh%3P6X9%yh%2R39C%yh%7RTCD%yh%MDVJX" &:: Standard +exit /b + +:00091344-1ea4-4f37-b789-01750ba6988c +set "_key=W3GGN%yh%FT8W3%yh%Y4M27%yh%J84CP%yh%Q3VJ9" &:: Datacenter +exit /b + +:21db6ba4-9a7b-4a14-9e29-64a60c59301d +set "_key=KNC87%yh%3J2TX%yh%XB4WP%yh%VCPJV%yh%M4FWM" &:: Essentials +exit /b + +:b743a2be-68d4-4dd3-af32-92425b7bb623 +set "_key=3NPTF%yh%33KPT%yh%GGBPR%yh%YX76B%yh%39KDD" &:: Cloud Storage +exit /b + +:: Windows 8 +:c04ed6bf-55c8-4b47-9f8e-5a1f31ceee60 +set "_key=BN3D2%yh%R7TKB%yh%3YPBD%yh%8DRP2%yh%27GG4" &:: Core +exit /b + +:197390a0-65f6-4a95-bdc4-55d58a3b0253 +set "_key=8N2M2%yh%HWPGY%yh%7PGT9%yh%HGDD8%yh%GVGGY" &:: Core N +exit /b + +: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 + +:af35d7b7-5035-4b63-8972-f0b747b9f4dc +set "_key=DXHJF%yh%N9KQX%yh%MFPVR%yh%GHGQK%yh%Y7RKV" &:: Core ARM +exit /b + +:a98bcd6d-5343-4603-8afe-5908e4611112 +set "_key=NG4HW%yh%VH26C%yh%733KW%yh%K6F98%yh%J8CK4" &:: Pro +exit /b + +: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 + +:458e1bec-837a-45f6-b9d5-925ed5d299de +set "_key=32JNW%yh%9KQ84%yh%P47T8%yh%D8GGY%yh%CWCK7" &:: Enterprise +exit /b + +:e14997e7-800a-4cf7-ad10-de4b45b578db +set "_key=JMNMF%yh%RHW7P%yh%DMY6X%yh%RF3DR%yh%X2BQT" &:: Enterprise N +exit /b + +:10018baf-ce21-4060-80bd-47fe74ed4dab +set "_key=RYXVT%yh%BNQG7%yh%VD29F%yh%DBMRY%yh%HT73M" &:: Embedded Industry Pro +exit /b + +: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 + +:7d5486c7-e120-4771-b7f1-7b56c6d3170c +set "_key=HM7DN%yh%YVMH3%yh%46JC3%yh%XYTG7%yh%CYQJJ" &:: MultiPoint Standard +exit /b + +:95fd1c83-7df5-494a-be8b-1300e1c9d1cd +set "_key=XNH6W%yh%2V9GX%yh%RGJ4K%yh%Y8X6F%yh%QGJ2G" &:: MultiPoint Premium +exit /b + +:: Windows 7 +:b92e9980-b9d5-4821-9c94-140f632f6312 +set "_key=FJ82H%yh%XT6CR%yh%J8D7P%yh%XQJJ2%yh%GPDD4" &:: Professional +exit /b + +:54a09a0d-d57b-4c10-8b69-a842d6590ad5 +set "_key=MRPKT%yh%YTG23%yh%K7D7T%yh%X2JMM%yh%QY7MG" &:: Professional N +exit /b + +:5a041529-fef8-4d07-b06f-b59b573b32d2 +set "_key=W82YF%yh%2Q76Y%yh%63HXB%yh%FGJG9%yh%GF7QX" &:: Professional E +exit /b + +:ae2ee509-1b34-41c0-acb7-6d4650168915 +set "_key=33PXH%yh%7Y6KF%yh%2VJC9%yh%XBBR8%yh%HVTHH" &:: Enterprise +exit /b + +:1cb6d605-11b3-4e14-bb30-da91c8e3983a +set "_key=YDRBP%yh%3D83W%yh%TY26F%yh%D46B2%yh%XCKRJ" &:: Enterprise N +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 + +:e1a8296a-db37-44d1-8cce-7bc961d59c54 +set "_key=XGY72%yh%BRBBT%yh%FF8MH%yh%2GG8H%yh%W7KCW" &:: Embedded Standard +exit /b + +:aa6dd3aa-c2b4-40e2-a544-a6bbb3f5c395 +set "_key=73KQT%yh%CD9G6%yh%K7TQG%yh%66MRP%yh%CQ22C" &:: Embedded ThinPC +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 + +:68531fb9-5511-4989-97be-d11a0f55633f +set "_key=YC6KT%yh%GKW9T%yh%YTKYR%yh%T4X34%yh%R7VHC" &:: Standard +exit /b + +:7482e61b-c589-4b7f-8ecc-46d455ac3b87 +set "_key=74YFP%yh%3QFB3%yh%KQT8W%yh%PMXWJ%yh%7M648" &:: Datacenter +exit /b + +:620e2b3d-09e7-42fd-802a-17a13652fe7a +set "_key=489J6%yh%VHDMP%yh%X63PK%yh%3K798%yh%CPX3Y" &:: Enterprise +exit /b + +:8a26851c-1c7e-48d3-a687-fbca9b9ac16b +set "_key=GT63C%yh%RJFQ3%yh%4GMB6%yh%BRFB9%yh%CB83V" &:: Itanium +exit /b + +:f772515c-0e87-48d5-a676-e6962c3e1195 +set "_key=736RG%yh%XDKJK%yh%V34PF%yh%BHK87%yh%J6X3K" &:: MultiPoint Server - ServerEmbeddedSolution +exit /b + +:: Office 2021 +:fbdb3e18-a8ef-4fb3-9183-dffd60bd0984 +set "_key=FXYTK%yh%NJJ8C%yh%GB6DW%yh%3DYQT%yh%6F7TH" &:: Professional Plus +exit /b + +:080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3 +set "_key=KDX7X%yh%BNVR8%yh%TXXGX%yh%4Q7Y8%yh%78VT3" &:: Standard +exit /b + +:76881159-155c-43e0-9db7-2d70a9a3a4ca +set "_key=FTNWT%yh%C6WBT%yh%8HMGF%yh%K9PRX%yh%QV9H8" &:: Project Professional +exit /b + +:6dd72704-f752-4b71-94c7-11cec6bfc355 +set "_key=J2JDC%yh%NJCYY%yh%9RGQ4%yh%YXWMH%yh%T3D4T" &:: Project Standard +exit /b + +:fb61ac9a-1688-45d2-8f6b-0674dbffa33c +set "_key=KNH8D%yh%FGHT4%yh%T8RK3%yh%CTDYJ%yh%K2HT4" &:: Visio Professional +exit /b + +:72fce797-1884-48dd-a860-b2f6a5efd3ca +set "_key=MJVNY%yh%BYWPY%yh%CWV6J%yh%2RKRT%yh%4M8QG" &:: Visio Standard +exit /b + +:1fe429d8-3fa7-4a39-b6f0-03dded42fe14 +set "_key=WM8YG%yh%YNGDD%yh%4JHDC%yh%PG3F4%yh%FC4T4" &:: Access +exit /b + +:ea71effc-69f1-4925-9991-2f5e319bbc24 +set "_key=NWG3X%yh%87C9K%yh%TC7YY%yh%BC2G7%yh%G6RVC" &:: Excel +exit /b + +:a5799e4c-f83c-4c6e-9516-dfe9b696150b +set "_key=C9FM6%yh%3N72F%yh%HFJXB%yh%TM3V9%yh%T86R9" &:: Outlook +exit /b + +:6e166cc3-495d-438a-89e7-d7c9e6fd4dea +set "_key=TY7XF%yh%NFRBR%yh%KJ44C%yh%G83KF%yh%GX27K" &:: PowerPoint +exit /b + +:aa66521f-2370-4ad8-a2bb-c095e3e4338f +set "_key=2MW9D%yh%N4BXM%yh%9VBPG%yh%Q7W6M%yh%KFBGQ" &:: Publisher +exit /b + +:1f32a9af-1274-48bd-ba1e-1ab7508a23e8 +set "_key=HWCXN%yh%K3WBT%yh%WJBKY%yh%R8BD9%yh%XK29P" &:: Skype for Business +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 + +:6912a74b-a5fb-401a-bfdb-2e3ab46f4b02 +set "_key=6NWWJ%yh%YQWMR%yh%QKGCB%yh%6TMB3%yh%9D9HK" &:: Standard +exit /b + +:2ca2bf3f-949e-446a-82c7-e25a15ec78c4 +set "_key=B4NPR%yh%3FKK7%yh%T2MBV%yh%FRQ4W%yh%PKD2B" &:: Project Professional +exit /b + +: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 +exit /b + +:e06d7df3-aad0-419d-8dfb-0ac37e2bdf39 +set "_key=7TQNQ%yh%K3YQQ%yh%3PFH7%yh%CCPPM%yh%X4VQ2" &:: Visio Standard +exit /b + +:9e9bceeb-e736-4f26-88de-763f87dcc485 +set "_key=9N9PT%yh%27V4Y%yh%VJ2PD%yh%YXFMF%yh%YTFQT" &:: Access +exit /b + +:237854e9-79fc-4497-a0c1-a70969691c6b +set "_key=TMJWT%yh%YYNMB%yh%3BKTF%yh%644FC%yh%RVXBD" &:: Excel +exit /b + +:c8f8a301-19f5-4132-96ce-2de9d4adbd33 +set "_key=7HD7K%yh%N4PVK%yh%BHBCQ%yh%YWQRW%yh%XW4VK" &:: Outlook +exit /b + +:3131fd61-5e4f-4308-8d6d-62be1987c92c +set "_key=RRNCX%yh%C64HY%yh%W2MM7%yh%MCH9G%yh%TJHMQ" &:: PowerPoint +exit /b + +:9d3e4cca-e172-46f1-a2f4-1d2107051444 +set "_key=G2KWX%yh%3NW6P%yh%PY93R%yh%JXK2T%yh%C9Y9V" &:: Publisher +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 + +:0bc88885-718c-491d-921f-6f214349e79c +set "_key=VQ9DP%yh%NVHPH%yh%T9HJC%yh%J9PDT%yh%KTQRG" &:: Pro Plus 2019 Preview +exit /b + +:fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9 +set "_key=XM2V9%yh%DN9HH%yh%QB449%yh%XDGKC%yh%W2RMW" &:: Project Pro 2019 Preview +exit /b + +:500f6619-ef93-4b75-bcb4-82819998a3ca +set "_key=N2CG9%yh%YD3YK%yh%936X4%yh%3WR82%yh%Q3X4H" &:: Visio Pro 2019 Preview +exit /b + +: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 + +:a3b44174-2451-4cd6-b25f-66638bfb9046 +set "_key=2XYX7%yh%NXXBK%yh%9CK7W%yh%K2TKW%yh%JFJ7G" &:: Visio Pro 2021 Preview +exit /b + +:: Office 2016 +:829b8110-0e6f-4349-bca4-42803577788d +set "_key=WGT24%yh%HCNMF%yh%FQ7XH%yh%6M8K7%yh%DRTW9" &:: Project Professional C2R-P +exit /b + +:cbbaca45-556a-4416-ad03-bda598eaa7c8 +set "_key=D8NRQ%yh%JTYM3%yh%7J2DX%yh%646CT%yh%6836M" &:: Project Standard C2R-P +exit /b + +:b234abe3-0857-4f9c-b05a-4dc314f85557 +set "_key=69WXN%yh%MBYV6%yh%22PQG%yh%3WGHK%yh%RM6XC" &:: Visio Professional C2R-P +exit /b + +:361fe620-64f4-41b5-ba77-84f8e079b1f7 +set "_key=NY48V%yh%PPYYH%yh%3F4PX%yh%XJRKJ%yh%W4423" &:: Visio Standard C2R-P +exit /b + +:e914ea6e-a5fa-4439-a394-a9bb3293ca09 +set "_key=DMTCJ%yh%KNRKX%yh%26982%yh%JYCKT%yh%P7KB6" &:: MondoR +exit /b + +:9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce +set "_key=HFTND%yh%W9MK4%yh%8B7MJ%yh%B6C4G%yh%XQBR2" &:: Mondo +exit /b + +:d450596f-894d-49e0-966a-fd39ed4c4c64 +set "_key=XQNVK%yh%8JYDB%yh%WJ9W3%yh%YJ8YR%yh%WFG99" &:: Professional Plus +exit /b + +:dedfa23d-6ed1-45a6-85dc-63cae0546de6 +set "_key=JNRGM%yh%WHDWX%yh%FJJG3%yh%K47QV%yh%DRTFM" &:: Standard +exit /b + +:4f414197-0fc2-4c01-b68a-86cbb9ac254c +set "_key=YG9NW%yh%3K39V%yh%2T3HJ%yh%93F3Q%yh%G83KT" &:: Project Professional +exit /b + +:da7ddabc-3fbe-4447-9e01-6ab7440b4cd4 +set "_key=GNFHQ%yh%F6YQM%yh%KQDGJ%yh%327XX%yh%KQBVC" &:: Project Standard +exit /b + +: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 + +:67c0fc0c-deba-401b-bf8b-9c8ad8395804 +set "_key=GNH9Y%yh%D2J4T%yh%FJHGG%yh%QRVH7%yh%QPFDW" &:: Access +exit /b + +:c3e65d36-141f-4d2f-a303-a842ee756a29 +set "_key=9C2PK%yh%NWTVB%yh%JMPW8%yh%BFT28%yh%7FTBF" &:: Excel +exit /b + +: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 + +:d70b1bba-b893-4544-96e2-b7a318091c33 +set "_key=J7MQP%yh%HNJ4Y%yh%WJ7YM%yh%PFYGF%yh%BY6C6" &:: Powerpoint +exit /b + +:041a06cb-c5b8-4772-809f-416d03d16654 +set "_key=F47MM%yh%N3XJP%yh%TQXJ9%yh%BP99D%yh%8K837" &:: Publisher +exit /b + +: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 + +:: Office 2013 +:dc981c6b-fc8e-420f-aa43-f8f33e5c0923 +set "_key=42QTK%yh%RN8M7%yh%J3C4G%yh%BBGYM%yh%88CYV" &:: Mondo +exit /b + +: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 + +:4a5d124a-e620-44ba-b6ff-658961b33b9a +set "_key=FN8TT%yh%7WMH6%yh%2D4X9%yh%M337T%yh%2342K" &:: Project Professional +exit /b + +: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 + +:ac4efaf0-f81f-4f61-bdf7-ea32b02ab117 +set "_key=J484Y%yh%4NKBF%yh%W2HMG%yh%DBMJC%yh%PGWR7" &:: Visio Standard +exit /b + +: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 + +: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 + +:1b9f11e3-c85c-4e1b-bb29-879ad2c909e3 +set "_key=2MG3G%yh%3BNTT%yh%3MFW9%yh%KDQW3%yh%TCK7R" &:: Lync +exit /b + +:efe1f3e6-aea2-4144-a208-32aa872b6545 +set "_key=TGN6P%yh%8MMBC%yh%37P2F%yh%XHXXK%yh%P34VW" &:: OneNote +exit /b + +: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 + +:00c79ff1-6850-443d-bf61-71cde0de305f +set "_key=PN2WF%yh%29XG2%yh%T9HJ7%yh%JQPJR%yh%FCXK4" &:: Publisher +exit /b + +:d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3 +set "_key=6Q7VD%yh%NX8JD%yh%WJ2VH%yh%88V73%yh%4GBJ7" &:: Word +exit /b + +:: Office 2010 +:09ed9640-f020-400a-acd8-d7d867dfd9c2 +set "_key=YBJTT%yh%JG6MD%yh%V9Q7P%yh%DBKXJ%yh%38W9R" &:: Mondo +exit /b + +:ef3d4e49-a53d-4d81-a2b1-2ca6c2556b2c +set "_key=7TC2V%yh%WXF6P%yh%TD7RT%yh%BQRXR%yh%B8K32" &:: Mondo2 +exit /b + +:6f327760-8c5c-417c-9b61-836a98287e0c +set "_key=VYBBJ%yh%TRJPB%yh%QFQRF%yh%QFT4D%yh%H3GVB" &:: Professional Plus +exit /b + +:9da2a678-fb6b-4e67-ab84-60dd6a9c819a +set "_key=V7QKV%yh%4XVVR%yh%XYV4D%yh%F7DFM%yh%8R6BM" &:: Standard +exit /b + +:df133ff7-bf14-4f95-afe3-7b48e7e331ef +set "_key=YGX6F%yh%PGV49%yh%PGW3J%yh%9BTGG%yh%VHKC6" &:: Project Professional +exit /b + +:5dc7bf61-5ec9-4996-9ccb-df806a2d0efe +set "_key=4HP3K%yh%88W3F%yh%W2K3D%yh%6677X%yh%F9PGB" &:: Project Standard +exit /b + +:92236105-bb67-494f-94c7-7f7a607929bd +set "_key=D9DWC%yh%HPYVV%yh%JGF4P%yh%BTWQB%yh%WX8BJ" &:: Visio Premium +exit /b + +:e558389c-83c3-4b29-adfe-5e4d7f46c358 +set "_key=7MCW8%yh%VRQVK%yh%G677T%yh%PDJCM%yh%Q8TCP" &:: Visio Professional +exit /b + +:9ed833ff-4f92-4f36-b370-8683a4f13275 +set "_key=767HD%yh%QGMWX%yh%8QTDB%yh%9G3R2%yh%KHFGJ" &:: Visio Standard +exit /b + +:8ce7e872-188c-4b98-9d90-f8f90b7aad02 +set "_key=V7Y44%yh%9T38C%yh%R2VJK%yh%666HK%yh%T7DDX" &:: Access +exit /b + +:cee5d470-6e3b-4fcc-8c2b-d17428568a9f +set "_key=H62QG%yh%HXVKF%yh%PP4HP%yh%66KMR%yh%CW9BM" &:: Excel +exit /b + +:8947d0b8-c33b-43e1-8c56-9b674c052832 +set "_key=QYYW6%yh%QP4CB%yh%MBV6G%yh%HYMCJ%yh%4T3J4" &:: Groove - SharePoint Workspace +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 + +:ecb7c192-73ab-4ded-acf4-2399b095d0cc +set "_key=7YDC2%yh%CWM8M%yh%RRTJC%yh%8MDVC%yh%X3DWQ" &:: Outlook +exit /b + +:45593b1d-dfb1-4e91-bbfb-2d5d0ce2227a +set "_key=RC8FX%yh%88JRY%yh%3PF7C%yh%X8P67%yh%P4VTT" &:: Powerpoint +exit /b + +:b50c4f75-599b-43e8-8dcd-1081a7967241 +set "_key=BFK7F%yh%9MYHM%yh%V68C7%yh%DRQ66%yh%83YTP" &:: Publisher +exit /b + +:2d0882e7-a4e7-423b-8ccc-70d91e0158b1 +set "_key=HVHB3%yh%C6FV7%yh%KQX9W%yh%YQG79%yh%CRY7T" &:: Word +exit /b + +:ea509e87-07a1-4a45-9edc-eba5a39f36af +set "_key=D6QFG%yh%VBYP2%yh%XQHM7%yh%J97RH%yh%VVRCK" &:: Small Business Basics +exit /b + +:TheEnd + +if %act_failed% EQU 1 ( +echo ____________________________________________________________________ +echo. +call :_errorinfo +) + +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. +) else ( +call :Clear-KMS-Cache +) +) + +if not [%Act_OK%]==[1] ( +echo. +echo Troubleshoot +) + +if defined _unattended exit /b + +echo ____________________________________________________________________ +echo. +call :_color %_Yellow% "Premi un tasto per uscire" +pause >nul +exit /b + +::======================================================================================================================================== + +:_errorinfo + +call :CheckFR + +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) +) + +if not defined _intcon ( +call :_color %_Red% "Internet is not connected." +exit /b +) + +if [%ERRORCODE%]==[-1073418124] ( +echo Checking Port 1688 connection, it may take a while... +echo. + +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 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 +) 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 +) +echo. +) + +echo KMS server is not an issue in this case. +exit /b + +::======================================================================================================================================== + +:setserv + +:: Multi KMS servers integration and servers randomization + +set srvlist= +set -= + +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 + +:getserv + +if %server_num% equ %max_servers% set /a server_num+=1&set KMS_IP=222.184.9.98&exit /b +set /a rand=%Random%%%(15+1-1)+1 +if defined !server%rand%! goto :getserv +set KMS_IP=!server%rand%! +set !server%rand%!=1 + +:: Get IPv4 address of KMS server to use for the activation, works even if ICMP echo is disabled. +:: Microsoft and Antivirus's may flag the issue if public KMS server host name is directly used for the activation. + +set /a server_num+=1 +(for /f "delims=[] tokens=2" %%a in ('ping -4 -n 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%a" +if [%KMS_IP%]==[!KMS_IP!] for /f "delims=[] tokens=2" %%# in ('pathping -4 -h 1 -n -p 1 -q 1 -w 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%#" +if not [%KMS_IP%]==[!KMS_IP!] exit /b +goto :getserv +) + +:========================================================================================================================================== + +:Clear-KMS-Cache + +set OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform +set SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform + +set _wApp=55c92734-d682-4d71-983e-d6ec3f16059f +set _oApp=0ff1ce15-a989-479d-af46-f275c6370663 +set _oA14=59a52881-a989-479d-af46-f275c6370663 + +%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName +%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServicePort +%nul% reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing +%nul% reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching +%nul% reg delete "HKLM\%SPPk%\%_wApp%" /f +if %winbuild% GEQ 9200 ( +if defined notx86 ( +%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName /reg:32 +%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServicePort /reg:32 +%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32 +) +%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f +) +if %winbuild% GEQ 9600 ( +%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f +%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f +) +%nul% reg delete "HKLM\%OPPk%" /f /v KeyManagementServiceName +%nul% reg delete "HKLM\%OPPk%" /f /v KeyManagementServicePort +%nul% reg delete "HKLM\%OPPk%" /f /v DisableDnsPublishing +%nul% reg delete "HKLM\%OPPk%" /f /v DisableKeyManagementServiceHostCaching +%nul% reg delete "HKLM\%OPPk%\%_oA14%" /f +%nul% reg delete "HKLM\%OPPk%\%_oApp%" /f + +:: check KMS38 lock + +%nul% reg query "HKLM\%SPPk%\%_wApp%" && ( +set error_=9 +echo Failed to completely clear KMS Cache. +reg query "HKLM\%SPPk%\%_wApp%" /s 2>nul | findstr /i "127.0.0.2" >nul && echo 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 + +set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" + +set "_C16R=" +for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1" +for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath /reg:32" 2^>nul') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1" +if %winbuild% GEQ 9200 if defined _C16R ( +echo. +echo ## Notice ## +echo. +echo To make sure Office programs do not show a non-genuine banner, +echo please run the activation option once, and don't uninstall afterward. +echo __________________________________________________________________________________________ +) + +set error_= +echo. +call :Clear-KMS-Cache +call :clearstuff + +if defined error_ ( +if [%error_%]==[1] ( +echo __________________________________________________________________________________________ +%eline% +echo Try Again / Restart the System +echo __________________________________________________________________________________________ +) +) else ( +echo __________________________________________________________________________________________ +echo. +call :_color %Green% "Online KMS Complete Uninstall was done successfully." +echo __________________________________________________________________________________________ +) + +if defined _unattended timeout /t 2 & exit /b + +echo. +call :_color %_Yellow% "Premi un tasto per uscire" +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% +) + +reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Renewal" >nul && ( +echo Deleting [Task] Online_KMS_Activation_Script-Renewal +schtasks /delete /tn Online_KMS_Activation_Script-Renewal /f %nul% +) + +reg query "%key%" /f Path /s | find /i "\Online_KMS_Activation_Script-Run_Once" >nul && ( +echo Deleting [Task] Online_KMS_Activation_Script-Run_Once +schtasks /delete /tn Online_KMS_Activation_Script-Run_Once /f %nul% +) + +If exist "%windir%\Online_KMS_Activation_Script\" ( +echo Deleting [Folder] %windir%\Online_KMS_Activation_Script\ +rmdir /s /q "%windir%\Online_KMS_Activation_Script\" %nul% +) + +if exist "%ProgramData%\Online_KMS_Activation.cmd" ( +echo Deleting [File] %ProgramData%\Online_KMS_Activation.cmd +del /f /q "%ProgramData%\Online_KMS_Activation.cmd" %nul% +) + +If exist "%ProgramData%\Online_KMS_Activation\" ( +echo Deleting [Folder] %ProgramData%\Online_KMS_Activation\ +rmdir /s /q "%ProgramData%\Online_KMS_Activation\" %nul% +) + +If exist "%ProgramData%\Activation-Renewal\" ( +echo Deleting [Folder] %ProgramData%\Activation-Renewal\ +rmdir /s /q "%ProgramData%\Activation-Renewal\" %nul% +) + +If exist "%ProgramFiles%\Activation-Renewal\" ( +echo Deleting [Folder] %ProgramFiles%\Activation-Renewal\ +rmdir /s /q "%ProgramFiles%\Activation-Renewal\" %nul% +) + +reg query "HKCR\DesktopBackground\shell\Activate Windows - Office" %nul% && ( +echo Deleting [Registry] HKCR\DesktopBackground\shell\Activate Windows - Office +Reg delete "HKCR\DesktopBackground\shell\Activate Windows - Office" /f %nul% +) + +reg query "%key%" /f Path /s | find /i "\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 + +set error_= +set "_dest=%ProgramFiles%\Activation-Renewal" +set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks" + +call :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 +) + +if not exist "%_dest%\" md "%_dest%\" %nul% +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) +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 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 + +::======================================================================================================================================== + +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 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% +) + +%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 __________________________________________________________________________________________ +) + +::======================================================================================================================================== + +:RenDone + +if defined _unattended exit /b + +echo. +call :_color %_Yellow% "Premi un tasto per uscire" +pause >nul +exit /b + +::======================================================================================================================================== + +:createInfo.txt + +( +echo The use of this script is to renew your Windows/Office KMS license using online KMS. +echo: +echo If renewal/activation Scheduled tasks were created then following would exist, +echo: +echo - Scheduled tasks +echo Activation-Renewal [Renewal / Weekly] +echo Activation-Run_Once [Activation Task - deletes itself once activated] +echo The scheduled tasks runs only if the system is connected to the Internet. +echo: +echo - Files +echo C:\Program Files\Activation-Renewal\Activation_task.cmd +echo C:\Program Files\Activation-Renewal\Info.txt +echo C:\Program Files\Activation-Renewal\Logs.txt +echo ______________________________________________________________________________________________ +echo: +)>"%_dest%\Info.txt" +exit /b + +::======================================================================================================================================== + +:renewal: + + + + Microsoft Corporation + 1999-01-01T12:00:00.34375 + WindowsAddict + 1.0 + Online K-M-S Activation-Renewal - Weekly Task + \Activation-Renewal + D:P(A;;FA;;;SY)(A;;FA;;;BA)(A;;FRFX;;;LS)(A;;FRFW;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)(A;;FR;;;S-1-5-4) + + + + 1999-01-01T12:00:00 + true + + + + + 1 + + + + + + S-1-5-18 + HighestAvailable + + + + IgnoreNew + false + false + true + true + true + + false + false + + true + true + true + false + false + true + false + PT10M + 7 + + PT2M + 3 + + + + + %ProgramFiles%\Activation-Renewal\Activation_task.cmd + Task + + + +:renewal: + +:run_once: + + + + Microsoft Corporation + 1999-01-01T12:00:00.34375 + WindowsAddict + 1.0 + Online K-M-S Activation Run Once - Run and Delete itself on first Internet Contact + \Activation-Run_Once + D:P(A;;FA;;;SY)(A;;FA;;;BA)(A;;FRFX;;;LS)(A;;FRFW;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)(A;;FR;;;S-1-5-4) + + + + true + + + + + S-1-5-18 + HighestAvailable + + + + IgnoreNew + false + false + true + true + true + + false + false + + true + true + true + false + false + true + false + PT10M + 7 + + PT2M + 3 + + + + + %ProgramFiles%\Activation-Renewal\Activation_task.cmd + Task + + + +:run_once: + +::======================================================================================================================================== + +:: Extract the text from batch script without character and file encoding issue + +:RenExport + +%psc% "$f=[io.file]::ReadAllText('!_batp!') -split \":%~1\:.*`r`n\"; [io.file]::WriteAllText('%~2',$f[1].Trim(),[System.Text.Encoding]::%~3);" +exit /b + +::======================================================================================================================================== + +:_extracttask: +@echo off + +:: Renew K-M-S activation with Online servers via scheduled task + +if not "%~1"=="Task" ( +echo. +echo ====== Error ====== +echo. +echo This file is supposed to be run only by the scheduled task. +echo. +echo Premi un tasto per uscire +pause >nul +exit /b +) + +:: Set Path variable, it helps if it is misconfigured in the system + +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%" +) + +>nul fltmc || 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 + +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 +) + +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 +) + +setlocal EnableDelayedExpansion +if exist "%ProgramFiles%\Activation-Renewal\" call :_taskstart>>"%ProgramFiles%\Activation-Renewal\Logs.txt" & exit + +::======================================================================================================================================== + +:_taskstart + +echo. +echo %date%, %time% + +set /a loop=1 +set /a max_loop=4 + +call :_tasksetserv + +:_intrepeat + +:: Check Internet connection. Works even if ICMP echo is disabled. + +for %%a in (%srvlist%) do ( +for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do ( +if not [%%#]==[] goto _taskIntConnected +) +) + +nslookup dns.msftncsi.com 2>nul | find "131.107.255.255" 1>nul +if [%errorlevel%]==[0] goto _taskIntConnected + +if %loop%==%max_loop% ( +set _tserror=1 +goto _taskend +) + +echo. +echo Error: Internet is not connected +echo Waiting 30 seconds + +timeout /t 30 >nul +set /a loop=%loop%+1 +goto _intrepeat + +:_taskIntConnected + +::======================================================================================================================================== + +:: Check not x86 Windows + +set notx86= +for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b +if /i not "%arch%"=="x86" set notx86=1 + +::======================================================================================================================================== + +set "OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" +set "SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" + +set "slp=SoftwareLicensingProduct" +set "ospp=OfficeSoftwareProtectionProduct" + +set "_wApp=55c92734-d682-4d71-983e-d6ec3f16059f" +set "_oApp=0ff1ce15-a989-479d-af46-f275c6370663" +set "_oA14=59a52881-a989-479d-af46-f275c6370663" + +::======================================================================================================================================== + +:: Clean existing KMS cache from the registry / Set port value to 1688 + +%nul% reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName +%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" +%nul% reg delete "HKLM\%SPPk%\%_wApp%" /f +if %winbuild% GEQ 9200 ( +if defined notx86 ( +%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32 +%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32 +%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32 +) +%nul% reg delete "HKLM\%SPPk%\%_oApp%" /f +%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" +) +if %winbuild% GEQ 9600 ( +%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f +%nul% reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f +) +%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" +%nul% reg delete "HKLM\%OPPk%\%_oA14%" /f +%nul% reg delete "HKLM\%OPPk%\%_oApp%" /f + +::======================================================================================================================================== + +:: Check WMI and sppsvc Errors + +set applist= +net start sppsvc /y %nul% +if %_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")) + +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. +) + +::======================================================================================================================================== + +:: Check installed volume products activation ID's + +call :_taskgetids sppwid %slp% windows +call :_taskgetids sppoid %slp% office +call :_taskgetids osppid %ospp% office + +::======================================================================================================================================== + +echo. +echo Renewing KMS activation for all installed Volume products + +if not defined sppwid if not defined sppoid if not defined osppid ( +echo. +echo No installed Volume Windows / Office product found +echo. +echo Renewing KMS server +call :_taskgetserv +call :_taskregserv +goto :_skipact +) + +::======================================================================================================================================== + +:: Check KMS38 activation + +set gpr=0 +set _kms38=0 +if defined sppwid if %winbuild% GEQ 14393 ( +set _path=%slp% +set _actid=%sppwid% +call :_taskgetgrace +) + +if %gpr% NEQ 0 if %gpr% GTR 259200 ( +set _kms38=1 +call :_taskchkEnterpriseG _kms38 +) + +:: Set specific KMS host to Local Host so that global KMS IP can not replace KMS38 activation but can be used with Office and other Windows Editions. + +if %_kms38% EQU 1 ( +%nul% reg add "HKLM\%SPPk%\%_wApp%\%sppwid%" /f /v KeyManagementServiceName /t REG_SZ /d "127.0.0.2" +%nul% reg add "HKLM\%SPPk%\%_wApp%\%sppwid%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" +) + +::======================================================================================================================================== + +echo. +if defined sppwid ( +set _path=%slp% +set _actid=%sppwid% +call :_actprod +call :_act act_win +call :_actinfo act_win +) else ( +echo Checking: Volume version of Windows is not installed +) + +if defined sppoid ( +set _path=%slp% +for %%# in (%sppoid%) do ( +echo. +set _actid=%%# +call :_actprod +call :_act +call :_actinfo +) +) + +if defined osppid ( +set _path=%ospp% +for %%# in (%osppid%) do ( +echo. +set _actid=%%# +call :_actprod +call :_act +call :_actinfo +) +) + +if not defined sppoid if not defined osppid ( +echo. +echo Checking: Volume version of Office is not installed +) + +:_skipact + +::======================================================================================================================================== + +if defined run_once ( +echo. +echo Deleting Scheduled Task Activation-Run_Once +schtasks /delete /tn Activation-Run_Once /f %nul% +) + +::======================================================================================================================================== + +:_taskend + +echo. +echo Exiting +echo ______________________________________________________________________ + +if defined _tserror (exit /b 123456789) else (exit /b 0) + +::======================================================================================================================================== + +:_act + +set errorcode=12345 +set /a act_attempt=0 + +:_act2 + +if %act_attempt% GTR 4 exit /b + +if not [%act_ok%]==[1] ( +call :_taskgetserv +call :_taskregserv +) + +if not !server_num! GTR %max_servers% ( + +if [%1]==[act_win] if %_kms38% EQU 1 ( +set act_ok=1 +exit /b +) + +if %_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 }" + +call set errorcode=!errorlevel! + +if !errorcode! EQU 0 ( +set act_ok=1 +exit /b +) +if [%1]==[act_win] if !errorcode! EQU -1073418187 if %winbuild% LSS 9200 ( +set act_ok=1 +exit /b +) + +set act_ok=0 +set /a act_attempt+=1 +goto _act2 +) +exit /b + +:_actprod + +if %_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 + +::======================================================================================================================================== + +:_actinfo + +if [%1]==[act_win] if %_kms38% EQU 1 ( +echo Windows is activated with KMS38 +exit /b +) + +if %errorcode% EQU 12345 ( +echo Product Activation Failed +echo Unable to test KMS servers due to restricted or no Internet +set _tserror=1 +exit /b +) + +if %errorcode% EQU -1073418187 ( +echo Product Activation Failed: 0xC004F035 +if [%1]==[act_win] if %winbuild% LSS 9200 echo Windows 7 cannot be KMS-activated on this computer due to unqualified OEM BIOS +exit /b +) + +if %errorcode% EQU -1073417728 ( +echo Product Activation Failed: 0xC004F200 +echo Windows needs to rebuild the activation-related files. +set _tserror=1 +exit /b +) + +set gpr=0 +set gpr2=0 +call :_taskgetgrace +set /a "gpr2=(%gpr%+1440-1)/1440" + +if %errorcode% EQU 0 if %gpr% EQU 0 ( +echo Product Activation succeeded, but Remaining Period failed to increase. +if [%1]==[act_win] if %winbuild% LSS 9200 echo This could be related to the error described in KB4487266 +set _tserror=1 +exit /b +) + +set _actpass=1 +if %gpr% EQU 43200 if [%1]==[act_win] if %winbuild% GEQ 9200 set _actpass=0 +if %gpr% EQU 64800 set _actpass=0 +if %gpr% GTR 259200 if [%1]==[act_win] call :_taskchkEnterpriseG _actpass +if %gpr% EQU 259200 set _actpass=0 + +if %errorcode% EQU 0 if %_actpass% EQU 0 ( +echo Product Activation Successful +echo Remaining Period: %gpr2% days ^(%gpr% minutes^) +exit /b +) + +cmd /c exit /b %errorcode% +if %errorcode% NEQ 0 ( +echo Product Activation Failed: 0x!=ExitCode! +) else ( +echo Product Activation Failed +) +echo Remaining Period: %gpr2% days ^(%gpr% minutes^) +set _tserror=1 +exit /b + +::======================================================================================================================================== + +:_taskgetids + +set %1= +if %_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 + +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 + +for %%# in (e0b2d383-d112-413f-8a80-97f373a5820c e38454fb-41a4-4f59-a5dc-25080e354730) do (if %sppwid%==%%# set %1=0) +exit /b + +::======================================================================================================================================== + +:_taskregserv + +%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" +%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" + +if %winbuild% GEQ 9200 ( +%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" +if defined notx86 ( +%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32 +%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32 +) +) +exit /b + +::======================================================================================================================================== + +:_tasksetserv + +:: Multi KMS servers integration and servers randomization + +set srvlist= +set -= + +set "srvlist=kms.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 + +:_taskgetserv + +if %server_num% geq %max_servers% (set /a server_num+=1&set KMS_IP=222.184.9.98&exit /b) +set /a rand=%Random%%%(15+1-1)+1 +if defined !server%rand%! goto :_taskgetserv +set KMS_IP=!server%rand%! +set !server%rand%!=1 + +:: Get IPv4 address of KMS server to use for the activation, works even if ICMP echo is disabled. +:: Microsoft and Antivirus's may flag the issue if public KMS server host name is directly used for the activation. + +set /a server_num+=1 +(for /f "delims=[] tokens=2" %%a in ('ping -4 -n 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%a" +if [%KMS_IP%]==[!KMS_IP!] for /f "delims=[] tokens=2" %%# in ('pathping -4 -h 1 -n -p 1 -q 1 -w 1 %KMS_IP% 2^>nul') do set "KMS_IP=%%#" +if not [%KMS_IP%]==[!KMS_IP!] exit /b +goto :_taskgetserv +) + +:: Ver:1.9 +::======================================================================================================================================== +:_extracttask: + +:====================================================================================================================================================== + +:_color + +if %_NCS% EQU 1 ( +if defined _unattended (echo %~2) else (echo %esc%[%~1%~2%esc%[0m) +) else ( +if defined _unattended (echo %~2) else (call :batcol %~1 "%~2") +) +exit /b + +:_color2 + +if %_NCS% EQU 1 ( +echo %esc%[%~1%~2%esc%[%~3%~4%esc%[0m +) else ( +call :batcol %~1 "%~2" %~3 "%~4" +) +exit /b + +::======================================= + +:: Colored text with pure batch method +:: Thanks to @dbenham and @jeb +:: stackoverflow.com/a/10407642 + +:batcol + +pushd %_coltemp% +if not exist "'" ("'" set /p "=.") +setlocal +set "s=%~2" +set "t=%~4" +call :_batcol %1 s %3 t +del /f /q "'" +del /f /q "`.txt" +popd +exit /b + +:_batcol + +setlocal EnableDelayedExpansion +set "s=!%~2!" +set "t=!%~4!" +for /f delims^=^ eol^= %%i in ("!s!") do ( + if "!" equ "" setlocal DisableDelayedExpansion + >`.txt (echo %%i\..\') + findstr /a:%~1 /f:`.txt "." + `.txt (echo %%i\..\') + findstr /a:%~3 /f:`.txt "." + nul +rem check the code below admin elevation to understand why it's here +) +) + +if exist %SystemRoot%\Sysnative\cmd.exe if not defined r1 ( +setlocal EnableDelayedExpansion +start %SystemRoot%\Sysnative\cmd.exe /c ""!_cmdf!" %* r1" +exit /b +) + +:: Re-launch the script with ARM32 process if it was initiated by x64 process on ARM64 Windows + +if exist %SystemRoot%\SysArm32\cmd.exe if %PROCESSOR_ARCHITECTURE%==AMD64 if not defined r2 ( +setlocal EnableDelayedExpansion +start %SystemRoot%\SysArm32\cmd.exe /c ""!_cmdf!" %* r2" +exit /b +) + +::======================================================================================================================================== + +:: Check if Null service is working, it's important for the batch script + +sc query Null | find /i "RUNNING" +if %errorlevel% NEQ 0 ( +echo: +echo Null service is not running, script may crash... +echo: +echo: +echo Troubleshoot.html +echo: +echo: +ping 127.0.0.1 -n 10 +) +cls + +:: Check LF line ending + +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: +ping 127.0.0.1 -n 6 >nul +popd +exit /b +) +popd + +::======================================================================================================================================== + +cls +color 07 +title WinCustomizer KMS38 + +set _args= +set _elev= +set _unattended=0 + +set _args=%* +if defined _args set _args=%_args:"=% +if defined _args ( +for %%A in (%_args%) do ( +if /i "%%A"=="/KMS38" set _act=1 +if /i "%%A"=="/KMS38-RemoveProtection" set _rem=1 +if /i "%%A"=="/KMS38-NoEditionChange" set _NoEditionChange=1 +if /i "%%A"=="-el" set _elev=1 +) +) + +for %%A in (%_act% %_rem% %_NoEditionChange%) do (if "%%A"=="1" set _unattended=1) + +::======================================================================================================================================== + +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) + +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 _k38= +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=Troubleshoot script and select Fix Licensing option." +) + +set "specific_kms=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\55c92734-d682-4d71-983e-d6ec3f16059f" + +::======================================================================================================================================== + +if %winbuild% LSS 14393 ( +%eline% +echo Unsupported OS version detected [%winbuild%]. +echo KMS38 Activation is supported for Windows 10/11/Server, build 14393 and later. +goto dk_done +) + +for %%# in (powershell.exe) do @if "%%~$PATH:#"=="" ( +%nceline% +echo Unable to find powershell.exe in the system. +goto dk_done +) + +::======================================================================================================================================== + +:: Fix special characters limitation in path name + +set "_work=%~dp0" +if "%_work:~-1%"=="\" set "_work=%_work:~0,-1%" + +set "_batf=%~f0" +set "_batp=%_batf:'=''%" + +set _PSarg="""%~f0""" -el %_args% + +set "_ttemp=%userprofile%\AppData\Local\Temp" + +setlocal EnableDelayedExpansion + +::======================================================================================================================================== + +echo "!_batf!" | find /i "!_ttemp!" %nul1% && ( +if /i not "!_work!"=="!_ttemp!" ( +%eline% +echo Script is launched from the temp folder, +echo Most likely you are running the script directly from the archive file. +echo: +echo Extract the archive file and launch the script from the extracted folder. +goto dk_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 +%eline% +echo This script needs admin rights. +echo To do so, right click on this script and select 'Run as administrator'. +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 + +if %_unattended%==1 set quedit=1 +for %%# in (%_args%) do (if /i "%%#"=="-qedit" set quedit=1) + +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 +) + +::======================================================================================================================================== +cls + +::======================================================================================================================================== + +if %_rem%==1 goto :k_uninstall + +:k_menu + +if %_unattended%==0 ( +cls +mode 76, 25 +title WinCustomizer KMS38 + +goto :k_menu2 + +) +goto :k_menu2 + +::======================================================================================================================================== + +:k_menu2 + +cls +mode 110, 34 +if exist "%Systemdrive%\Windows\System32\spp\store_test\" mode 134, 34 +title WinCustomizer KMS3 + +echo: +echo Initializing... + +:: Check PowerShell + +%psc% $ExecutionContext.SessionState.LanguageMode %nul2% | find /i "Full" %nul1% || ( +%eline% +%psc% $ExecutionContext.SessionState.LanguageMode +echo: +echo PowerShell is not working. Aborting... +echo If you have applied restrictions on Powershell then undo those changes. +echo: +echo Troubleshoot +goto dk_done +) + +::======================================================================================================================================== + +call :dk_product +call :dk_ckeckwmic + +:: Show info for potential script stuck scenario + +sc start sppsvc %nul% +if %errorlevel% NEQ 1056 if %errorlevel% NEQ 0 ( +echo: +echo Error code: %errorlevel% +call :dk_color %Red% "Failed to start [sppsvc] service, rest of the process may take a long time..." +echo: +) + +::======================================================================================================================================== + +:: Check if system is permanently activated or not + +call :dk_checkperm +if defined _perm ( +cls +echo ___________________________________________________________________________________________ +echo: +call :dk_color2 %_White% " " %Green% "Checking: %winos% is Permanently Activated." +call :dk_color2 %_White% " " %Gray% "Activation is not required." +echo ___________________________________________________________________________________________ +if %_unattended%==1 goto dk_done +echo: +choice /C:10 /N /M "> [1] Activate [0] %_exitmsg% : " +if errorlevel 2 exit /b +) +cls + +::======================================================================================================================================== + +:: Check Evaluation version + +set _eval= +set _evalserv= + +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 + +if defined _eval ( +reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID %nul2% | find /i "Eval" %nul1% && ( +%eline% +echo [%winos% ^| %winbuild%] +if defined _evalserv ( +echo Server Evaluation cannot be activated. Convert it to full Server OS. +echo: +echo 'Change Edition' option. +) else ( +echo Evaluation Editions cannot be activated. +echo You need to install full version of %winos% +echo: +) +goto dk_done +) +) + +::======================================================================================================================================== + +:: Check clipup.exe for the detection and activation of server cor and acor editions + +set a_cor= +if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*CorEdition~*.mum" if not exist "%systemroot%\System32\clipup.exe" set a_cor=1 + +if defined a_cor ( +if not exist "!_work!\clipup.exe" ( +%eline% +echo clipup.exe doesn't exist in Server Cor/Acor [No GUI] version. +echo It's required for KMS38 Activation. +goto dk_done +) +) + +::======================================================================================================================================== + +call :dk_checksku + +if not defined osSKU ( +%eline% +echo SKU value was not detected properly. Aborting... +goto dk_done +) + +::======================================================================================================================================== + +set error= + +cls +echo: +for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b +for /f "tokens=6-7 delims=[]. " %%i in ('ver') do if "%%j"=="" (set fullbuild=%%i) else (set fullbuild=%%i.%%j) +echo Checking OS Info [%winos% ^| %fullbuild% ^| %arch%] + +::======================================================================================================================================== + +:: Check Windows Script Host + +set _WSH=1 +reg query "HKCU\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled %nul2% | find /i "0x0" %nul1% && (set _WSH=0) +reg query "HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled %nul2% | find /i "0x0" %nul1% && (set _WSH=0) + +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 not "%arch%"=="x86" reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f /reg:32 %nul% +echo Enabling Windows Script Host [Successful] +) + +::======================================================================================================================================== + +echo Initiating Diagnostic Tests... + +set "_serv=ClipSVC sppsvc KeyIso Winmgmt" + +:: Client License Service (ClipSVC) +:: Software Protection :: CNG Key Isolation :: Windows Management Instrumentation @@ -1824,6 +5999,7 @@ if %_wmic% EQU 0 for /f "tokens=2 delims==" %%a in ('%psc% "(([WMISEARCHER]'SELE if not defined app ( call :dk_color %Red% "Checking Installed GVLK Activation ID [Not Found] Aborting..." +call :dk_color2 %Blue% "Troubleshoot" goto :dk_done ) @@ -1878,6 +6054,7 @@ goto :k_final if not exist %SystemRoot%\system32\ClipUp.exe ( call :dk_color %Red% "Checking ClipUp.exe File [Not found, aborting the process]" +call :dk_color2 %Blue% "Troubleshoot" goto :k_final ) @@ -1994,6 +6171,7 @@ goto :k_final call :dk_color %Red% "Activation Failed" if not defined error call :dk_color %Blue% "%_fixmsg%" +call :dk_color2 %Blue% "Troubleshoot" ::======================================================================================================================================== @@ -2044,6 +6222,31 @@ goto :dk_done ::======================================================================================================================================== +:k_uninstall + +cls +mode 99, 28 +title Remove KMS38 Protection + +%nul% reg delete "HKLM\%specific_kms%" /f +%nul% reg delete "HKU\S-1-5-20\%specific_kms%" /f + +%nul% reg query "HKLM\%specific_kms%" && ( +%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':regdel\:.*';iex ($f[1]);" +%nul% reg delete "HKLM\%specific_kms%" /f +) + +echo: +%nul% reg query "HKLM\%specific_kms%" && ( +call :dk_color %Red% "Removing Specific KMS Host [Failed]" +) || ( +echo Removing Specific KMS Host [Successful] +) + +goto :dk_done + +::======================================================================================================================================== + :: This code runs to protect/undo below registry key for KMS38 protection :: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\55c92734-d682-4d71-983e-d6ec3f16059f @@ -2445,7 +6648,7 @@ echo "%error_code%" | findstr /i "0x800410 0x800440" %nul1% && set wmifailed=1& if defined wmifailed ( set error=1 call :dk_color %Red% "Checking WMI [Not Responding]" -call :dk_color %Blue% "Troubleshoot WMI" +call :dk_color %Blue% "Troubleshoot and run Fix WMI option." set showfix=1 ) @@ -2481,7 +6684,6 @@ set error=1 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]" -call :dk_color %Blue% "Troubleshoot" set error=1 set showfix=1 ) @@ -2627,7 +6829,7 @@ exit /b echo: if %_unattended%==1 timeout /t 2 & exit /b -call :dk_color %_Yellow% "Press any key to %_exitmsg%..." +call :dk_color %_Yellow% "Premi un tasto per uscire" pause %nul1% exit /b @@ -2745,3 +6947,6 @@ set notfoundaltactID=1 ) ) exit /b + +::======================================================================================================================================== +:: Leave empty line below