2022-07-25 19:55:07 +03:00
@ setlocal DisableDelayedExpansion
@ echo off
: :=================================================================================================
: :
: : Online KMS Script is a fork of @abbodi1406's KMS_VL_ALL forums.mydigitallife.net/posts/838808
: :
: : This fork's purpose is to avoid having any KMS binary files and activate Windows/Office using
: : only transparent batch script with online public KMS servers.
: :_____________________________________
: :
: : Online KMS Activation Script is a part of 'Microsoft Activation Scripts' (MAS) project.
: :
: : Homepage: massgrave.dev
: : Email: windowsaddict@protonmail.com
: :
: :=================================================================================================
: :========================================================================================================================================
: : Re-launch the script with x64 process if it was initiated by x86 process on x64 bit Windows
: : or with ARM64 process if it was initiated by x86/ARM32 process on ARM64 Windows
set " _cmdf= %~f0 "
for %% # in ( %* ) do (
if /i " %% # " == " r1 " set r1 = 1
if /i " %% # " == " r2 " set r2 = 1
)
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
)
: : 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% "
)
: : Check LF line ending
pushd " %~dp0 "
> nul findstr /rxc:" .* " " %~nx0 "
if not %errorlevel% == 0 (
echo :
echo Error: This is not a correct file. It has LF line ending issue.
echo :
echo Press any key to exit...
pause > nul
popd
exit /b
)
popd
: :========================================================================================================================================
cls
color 07
title Online KMS Activation
set WMI_VBS = 0
set _Debug = 0
set Silent = 0
set Logger = 0
set AutoR2V = 1
set SkipKMS38 = 1
set ActWindows = 1
set ActOffice = 1
set _uni =
set _args =
set _elev =
set _renetask =
set _renacttask =
set _unattended =
set _args = %*
if defined _args set _args = %_args:"=%
if defined _args (
set _unattended = 1
if " %_args% " == " -el " set _unattended =
for %% A in ( %_args% ) do (
if /i " %% A " == " -el " ( set _elev = 1
) else if /i "%%A"=="/rt" (set _renetask=1
) else if /i "%%A"=="/rat" (set _renacttask=1
) else if /i "%%A"=="/uni" (set _uni=1
) else if /i "%%A"=="/w" (set ActWindows=1&set ActOffice=0
) else if /i "%%A"=="/o" (set ActWindows=0&set ActOffice=1
) else if /i "%%A"=="/wo" (set ActWindows=1&set ActOffice=1
) else if /i "%%A"=="/d" (set _Debug=1
) else if /i "%%A"=="/l" (set Logger=1&set Silent=1
)
)
)
: :========================================================================================================================================
set winbuild = 1
set " nul=>nul 2>&1 "
set psc = powershell.exe
for /f " tokens=6 delims=[]. " %% G in ( 'ver' ) do set winbuild = %% G
set _NCS = 1
if %winbuild% LSS 10586 set _NCS = 0
if %winbuild% GEQ 10586 reg query " HKCU\Console " /v ForceV2 2 > nul | find /i " 0x0 " 1 > nul && ( set _NCS = 0)
call : _colorprep
set " _buf={$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;} "
set " nceline=echo. &echo ==== ERROR ==== &echo. "
set " eline=echo. &call :_color %Red% " ==== ERROR ====" &echo. "
if %_Debug% EQU 1 set _unattended = 1
: :========================================================================================================================================
if %winbuild% LSS 7600 (
%nceline%
echo Unsupported OS version detected.
echo Project is supported for Windows 7/8/8.1/10/11 and their Server equivalent.
goto Done
)
for %% # in ( powershell.exe) do @ if " %% ~$PATH:# " == " " (
%nceline%
echo Unable to find powershell.exe in the system.
goto Done
)
: :========================================================================================================================================
: : Fix for the special characters limitation in path name
set " _work= %~dp0 "
if " %_work:~-1% " == " \ " set " _work= %_work:~0,-1% "
set " _batf= %~f0 "
set " _batp= %_batf:'=''% "
set _PSarg = " " " %~f0 " " " -el %_args%
set " _ttemp= %temp% "
setlocal EnableDelayedExpansion
: :========================================================================================================================================
echo " !_batf! " | find /i " !_ttemp! " 1 > nul && (
if /i not " !_work! " == " !_ttemp! " (
%nceline%
echo Script is launched from the temp folder,
echo Most likely you are running the script directly from the archive file.
echo .
echo Extract the archive file and launch the script from the extracted folder.
goto Done
)
)
: :========================================================================================================================================
: : Elevate script as admin and pass arguments and preventing loop
%nul% reg query HKU\S-1-5-19 || (
if not defined _elev %nul% %psc% " start cmd.exe -arg '/c \ " !_PSarg:'=''! \" ' -verb runas " && exit /b
%nceline%
echo This script require administrator privileges.
echo To do so, right click on this script and select 'Run as administrator'.
goto 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
)
wmic path Win32_ComputerSystem get CreationClassName /value 2 > nul | find /i " ComputerSystem " 1 > nul || (
%nceline%
echo wmic.exe is not responding in the system.
echo Aborting...
goto Done
)
set _WSH = 1
reg query " HKCU\SOFTWARE\Microsoft\Windows Script Host\Settings " /v Enabled 2 > nul | find /i " 0x0 " 1 > nul && ( set _WSH = 0)
reg query " HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings " /v Enabled 2 > nul | find /i " 0x0 " 1 > nul && ( set _WSH = 0)
if %_WSH% EQU 0 (
%nceline%
echo Windows Script Host is disabled.
echo It is required for this script to work.
echo Aborting...
goto Done
)
: :========================================================================================================================================
if %~z0 GEQ 500000 ( set " _exitmsg=Go back " ) else ( set " _exitmsg=Exit " )
: : Check not x86 Windows
set notx86 =
for /f " skip=2 tokens=2* " %% a in ( 'reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE' ) do set arch = %% b
if /i not " %arch% " == " x86 " set notx86 = 1
: :========================================================================================================================================
if defined _uni goto _Complete_Uninstall
if defined _renacttask set ActTask = 1& goto : RenTask
if defined _renetask set ActTask = & goto : RenTask
: :========================================================================================================================================
set " _title=Online KMS Activation "
set _gui =
: _KMS_Menu
set _tskinstalled =
reg query " HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks " /f Path /s | find /i " \Activation-Renewal " > nul && (
set _tskinstalled = 1
)
set _oldtsk =
if not defined _tskinstalled (
reg query " HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks " /f Path /s | find /i " \Online_KMS_Activation_Script-Renewal " > nul && (
set _oldtsk = 1
)
)
if defined _unattended (
call : Activation_Start
goto Done
)
cls
set _gui = 1
title %_title%
mode con: cols=76 lines=30
echo .
echo .
echo .
echo .
echo . ______________________________________________________________
echo .
if %_Debug% == 0 (
echo . [1] Activate - Windows
echo . [2] Activate - Office
echo . [3] Activate - All
) else (
call : _color2 %_White% " [1] Activate - Windows " %_Red% " [Debug Mode] "
call : _color2 %_White% " [2] Activate - Office " %_Red% " [Debug Mode] "
call : _color2 %_White% " [3] Activate - All " %_Red% " [Debug Mode] "
)
echo .
if defined _tskinstalled call : _color2 %_White% " [4] Install Auto-Renewal " %_Green% " [Installed] "
if defined _oldtsk call : _color2 %_White% " [4] Install Auto-Renewal " %_Red% " [Old Installed] "
if not defined _tskinstalled if not defined _oldtsk echo . [4] Install Auto-Renewal
echo . [5] Uninstall
echo . _______________________________________________
echo .
echo . [6] Enable Debug Mode
echo . _______________________________________________
echo .
echo . [7] %_exitmsg%
echo . ______________________________________________________________
echo .
call : _color2 %_White% " " %_Green% " Enter a menu option in the Keyboard [1,2,3,4,5,6,7] "
choice /C:1234567 /N
set _el = %errorlevel%
if %_el% == 7 exit /b
if %_el% == 6 ( if %_Debug% == 0 ( set _Debug = 1) else ( set _Debug = 0) ) & goto _KMS_Menu
if %_el% == 5 call : _Complete_Uninstall & cls & goto _KMS_Menu
if %_el% == 4 set ActTask = & call : RenTask & goto _KMS_Menu
if %_el% == 3 cls & setlocal & set " ActWindows=1 " & set " ActOffice=1 " & call : Activation_Start & endlocal & cls & goto _KMS_Menu
if %_el% == 2 cls & setlocal & set " ActWindows=0 " & set " ActOffice=1 " & call : Activation_Start & endlocal & cls & goto _KMS_Menu
if %_el% == 1 cls & setlocal & set " ActWindows=1 " & set " ActOffice=0 " & call : Activation_Start & endlocal & cls & goto _KMS_Menu
goto _KMS_Menu
: :========================================================================================================================================
: Done
if defined _unattended exit /b
echo .
echo Press any key to exit...
pause > nul
exit /b
: =========================================================================================================================================
: Activation_Start
@ 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% )
)
set " _Null=1>nul 2>nul "
set KMS_Port = 1688
if %_Debug% EQU 1 set _unattended = 1
set " _run=nul "
if %Logger% EQU 1 set _run = " %~dpn0 _Silent.log "
set " SysPath= %SystemRoot% \System32 "
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 "
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
)
set " _Local= %LocalAppData% "
set " _temp= %SystemRoot% \Temp "
set " _log= %~dpn0 "
set " _work= %~dp0 "
if " %_work:~-1% " == " \ " set " _work= %_work:~0,-1% "
set _UNC = 0
if " %_work:~0,2% " == " \\ " set _UNC = 1
for /f " skip=2 tokens=2* " %% a in ( 'reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop' ) do call set " _dsk= %% b "
if exist " %PUBLIC% \Desktop\desktop.ini " set " _dsk= %PUBLIC% \Desktop "
set " _mO21a=Detected Office 2021 C2R Retail is activated "
set " _mO19a=Detected Office 2019 C2R Retail is activated "
set " _mO16a=Detected Office 2016 C2R Retail is activated "
set " _mO15a=Detected Office 2013 C2R Retail is activated "
set " _mO21c=Detected Office 2021 C2R Retail could not be converted to Volume "
set " _mO19c=Detected Office 2019 C2R Retail could not be converted to Volume "
set " _mO16c=Detected Office 2016 C2R Retail could not be converted to Volume "
set " _mO15c=Detected Office 2013 C2R Retail could not be converted to Volume "
set " _mO14c=Detected Office 2010 C2R Retail is not supported by KMS_VL_ALL "
set " _mO14m=Detected Office 2010 MSI Retail is not supported by KMS_VL_ALL "
set " _mO15m=Detected Office 2013 MSI Retail is not supported by KMS_VL_ALL "
set " _mO16m=Detected Office 2016 MSI Retail is not supported by KMS_VL_ALL "
set " _mOuwp=Detected Office 365/2016 UWP is not supported by KMS_VL_ALL "
set DO16Ids = ProPlus,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 " _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
%nul% %psc% " & %_buf% "
title %_title%
) else (
title Online KMS Activation
)
if defined _gui if %_Debug% == 1 mode con cols=98 lines=30
if %_Debug% EQU 0 (
set " _Nul1=1>nul "
set " _Nul2=2>nul "
set " _Nul6=2 ^ >nul "
set " _Nul3=1>nul 2>nul "
set " _Pause=pause >nul "
if %Silent% EQU 0 ( call : Begin ) else ( call : Begin > !_run! 2 >& 1 )
) else (
set " _Nul1= "
set " _Nul2= "
set " _Nul6= "
set " _Nul3= "
set " _log=!_dsk!\ %~n0 "
if %Silent% EQU 0 (
echo .
echo Running in Debug Mode...
if not defined _args ( echo The window will be closed when finished) else ( echo please wait...)
echo .
echo Writing debug log to:
echo " !_log! _Debug.log "
)
@ echo on
@ prompt $G
@ call : Begin > " !_log! _tmp.log " 2 >& 1 & cmd /u /c type " !_log! _tmp.log " > " !_log! _Debug.log " & del " !_log! _tmp.log "
)
@ echo off
if defined _gui if %_Debug% == 1 (
echo .
call : _color %_Yellow% " Press any key to go back... "
pause > nul
exit /b
)
@ exit /b
: Begin
: :========================================================================================================================================
set act_failed = 0
set /a act_attempt = 0
echo .
echo Initializing...
: : Check Internet connection. Works even if ICMP echo is disabled.
call : setserv
for %% a in ( %srvlist% ) do (
for /f " delims=[] tokens=2 " %% # in ( 'ping -n 1 %% a' ) do (
if not [%% #]== [] goto IntConnected
)
)
nslookup dns.msftncsi.com 2 > nul | find " 131.107.255.255 " 1 > nul
if %errorlevel% ]== [0] goto IntConnected
cls
if %_Debug% == 1 (
echo Error: Internet is not connected.
exit /b
)
if defined _unattended (
echo .
call : _color %_Red% " Internet is not connected, continuing the process anyway. "
) else (
%eline%
echo Internet is not connected.
echo :
call : _color %_Yellow% " Press any key to go back... "
pause > nul
exit /b
)
: IntConnected
call : getserv
: :========================================================================================================================================
set " _wApp=55c92734-d682-4d71-983e-d6ec3f16059f "
set " _oApp=0ff1ce15-a989-479d-af46-f275c6370663 "
set " _oA14=59a52881-a989-479d-af46-f275c6370663 "
set " IFEO=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options "
set " OPPk=SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform "
set " SPPk=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform "
set SSppHook = 0
for /f %% A in ( 'dir /b /ad %SysPath% \spp\tokens\skus' ) do (
if %winbuild% GEQ 9200 if exist " %SysPath% \spp\tokens\skus\ %% A\*GVLK*.xrm-ms " set SSppHook = 1
if %winbuild% LSS 9200 if exist " %SysPath% \spp\tokens\skus\ %% A\*VLKMS*.xrm-ms " set SSppHook = 1
if %winbuild% LSS 9200 if exist " %SysPath% \spp\tokens\skus\ %% A\*VL-BYPASS*.xrm-ms " set SSppHook = 1
)
set OsppHook = 1
sc query osppsvc %_Nul3%
if %errorlevel% EQU 1060 set OsppHook = 0
set ESU_KMS = 0
if %winbuild% LSS 9200 for /f %% A in ( 'dir /b /ad %SysPath% \spp\tokens\channels' ) do (
if exist " %SysPath% \spp\tokens\channels\ %% A\*VL-BYPASS*.xrm-ms " set ESU_KMS = 1
)
if %ESU_KMS% EQU 1 ( set " adoff=and LicenseDependsOn is NULL " & set " addon=and LicenseDependsOn is not NULL " ) else ( set " adoff= " & set " addon= " )
set ESU_EDT = 0
if %ESU_KMS% EQU 1 for %% A in ( %ESUEditions% ) do (
if exist " %SysPath% \spp\tokens\skus\Security-SPP-Component-SKU- %% A\*.xrm-ms " set ESU_EDT = 1
)
: : if %ESU_EDT% EQU 1 set SSppHook=1
set ESU_ADD = 0
if %winbuild% GEQ 9200 (
set OSType = Win8
set SppVer = SppExtComObj.exe
) else if %winbuild% GEQ 7600 (
set OSType = Win7
set SppVer = sppsvc.exe
) else (
goto : UnsupportedVersion
)
if %OSType% EQU Win8 reg query " %IFEO% \sppsvc.exe " %_Nul3% && (
reg delete " %IFEO% \sppsvc.exe " /f %_Nul3%
call : StopService sppsvc
)
if %ActWindows% EQU 0 if %ActOffice% EQU 0 set ActWindows = 1
set _AUR = 1
if %winbuild% GEQ 9600 (
reg add " HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform " /v NoGenTicket /t REG_DWORD /d 1 /f %_Nul3%
if %winbuild% EQU 14393 reg add " HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform " /v NoAcquireGT /t REG_DWORD /d 1 /f %_Nul3%
)
call : StopService sppsvc
if %OsppHook% NEQ 0 call : StopService osppsvc
: ReturnHook
call : UpdateOSPPEntry osppsvc.exe
SET Win10Gov = 0
SET " EditionWMI= "
SET " EditionID= "
IF %winbuild% LSS 14393 if %SSppHook% NEQ 0 GOTO : Main
SET " RegKey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages "
SET " Pattern=Microsoft-Windows-*Edition~31bf3856ad364e35 "
SET " EditionPKG=FFFFFFFF "
FOR /F " TOKENS=8 DELIMS=\ " %% A IN ( 'REG QUERY " %RegKey% " /f " %Pattern% " /k %_Nul6% ^| FIND /I "CurrentVersion"' ) DO (
REG QUERY " %RegKey% \ %% A " /v " CurrentState " %_Nul2% | FIND /I " 0x70 " %_Nul1% && (
FOR /F " TOKENS=3 DELIMS=-~ " %% B IN ( 'ECHO %% A' ) DO SET " EditionPKG= %% B "
)
)
IF /I " %EditionPKG:~-7% " == " Edition " (
SET " EditionID= %EditionPKG:~0,-7% "
) ELSE (
FOR /F " TOKENS=3 DELIMS=: " %% A IN ( 'DISM /English /Online /Get-CurrentEdition %_Nul6% ^| FIND /I "Current Edition :"' ) DO SET " EditionID= %% A "
)
net start sppsvc /y %_Nul3%
set " _qr= %_zz7% SoftwareLicensingProduct %_zz2% %_zz5% ApplicationID=' %_wApp% ' %adoff% AND PartialProductKey is not NULL %_zz6% %_zz3% LicenseFamily %_zz8% "
FOR /F " TOKENS=2 DELIMS== " %% A IN ( ' %_qr% %_Nul6% ' ) DO SET " EditionWMI= %% A "
IF " %EditionWMI% " == " " (
IF %winbuild% GEQ 17063 FOR /F " SKIP=2 TOKENS=2* " %% A IN ( 'REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId' ) DO SET " EditionID= %% B "
IF %winbuild% LSS 14393 (
FOR /F " SKIP=2 TOKENS=2* " %% A IN ( 'REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId' ) DO SET " EditionID= %% B "
GOTO : Main
)
)
IF NOT " %EditionWMI% " == " " SET " EditionID= %EditionWMI% "
IF /I " %EditionID% " == " IoTEnterprise " SET " EditionID=Enterprise "
IF /I " %EditionID% " == " IoTEnterpriseS " IF %winbuild% LSS 22610 SET " EditionID=EnterpriseS "
IF /I " %EditionID% " == " ProfessionalSingleLanguage " SET " EditionID=Professional "
IF /I " %EditionID% " == " ProfessionalCountrySpecific " SET " EditionID=Professional "
IF /I " %EditionID% " == " EnterpriseG " SET Win10Gov = 1
IF /I " %EditionID% " == " EnterpriseGN " SET Win10Gov = 1
: Main
if defined EditionID ( set " _winos=Windows %EditionID% edition " ) else ( set " _winos=Detected Windows " )
for /f " skip=2 tokens=2* " %% a in ( 'reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName %_Nul6% ' ) do if not errorlevel 1 set " _winos= %% b "
set " nKMS=does not support KMS activation... "
set " nEval=Evaluation Editions cannot be activated. Please install full Windows OS. "
if exist " %SystemRoot% \Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum " set _eval = 1
if exist " %SystemRoot% \Servicing\Packages\Microsoft-Windows-Server*EvalEdition~*.mum " set " nEval=Server Evaluation cannot be activated. Please convert to full Server OS. "
if exist " %SystemRoot% \Servicing\Packages\Microsoft-Windows-Server*EvalCorEdition~*.mum " set _eval = 1& set " nEval=Server Evaluation cannot be activated. Please convert to full Server OS. "
set " _C16R= "
reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6% ' ) do if exist " %% b\root\Licenses16\ProPlus*.xrm-ms " (
reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set " _C16R=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration "
)
if not defined _C16R reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6% ' ) do if exist " %% b\root\Licenses16\ProPlus*.xrm-ms " (
reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set " _C16R=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration "
)
set " _C15R= "
reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath %_Nul3% && for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6% ' ) do if exist " %% b\root\Licenses\ProPlus*.xrm-ms " (
reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && call set " _C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration "
if not defined _C15R reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && call set " _C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag "
)
set " _C14R= "
if %_wow% == 0 ( reg query HKLM\SOFTWARE\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set " _C14R=1 " ) else ( reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set " _C14R=1 " )
for %% A in ( 14,15,16,19,21) do call : officeLoc %% A
if %_O14MSI% EQU 1 set " _C14R= "
set S_OK = 1
call : RunSPP
if %ActOffice% NEQ 0 call : RunOSPP
if %ActOffice% EQU 0 ( echo .& echo Office activation is OFF...)
if exist " !_temp! \crv*.txt " del /f /q " !_temp! \crv*.txt "
if exist " !_temp! \*chk.txt " del /f /q " !_temp! \*chk.txt "
if exist " !_temp! \slmgr.vbs " del /f /q " !_temp! \slmgr.vbs "
call : StopService sppsvc
if %OsppHook% NEQ 0 call : StopService osppsvc
sc start sppsvc trigger=timer;sessionid=0 %_Nul3%
goto TheEnd
: RunSPP
set spp = SoftwareLicensingProduct
set sps = SoftwareLicensingService
set W1nd0ws = 1
set WinPerm = 0
set WinVL = 0
set Off1ce = 0
set 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.& echo Check Troubleshooting in MAS extras section.& 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) )
)
set sub_O365 = 0
set sub_proj = 0
set sub_vis = 0
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_vis% 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_vis% 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_vis% 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
if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 (
set vol_off15 = 0
if defined _C15R 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 %1 MSI = 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 %1 MSI = 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 %1 MSI = 1
)
if %1 EQU 16 if defined _C16R (
for /f " skip=2 tokens=2* " %% a in ( 'reg query %_C16R% /v ProductReleaseIds' ) do echo %% b> " !_temp! \c2rchk.txt "
for %% a in ( %LV16Ids% ,ProjectProX,ProjectStdX,VisioProX,VisioStdX) do (
findstr /I /C:" %% aVolume " " !_temp! \c2rchk.txt " %_Nul1% && set loc_off %1 = 1
)
for %% a in ( %LR16Ids% ) do (
findstr /I /C:" %% aRetail " " !_temp! \c2rchk.txt " %_Nul1% && set loc_off %1 = 1
)
exit /b
)
if %1 EQU 15 if defined _C15R (
set loc_off %1 = 1
exit /b
)
if exist " %ProgramFiles% \Microsoft Office\Office %1 \OSPP.VBS " set loc_off %1 = 1
if not %xOS% == x86 if exist " %ProgramW6432% \Microsoft Office\Office %1 \OSPP.VBS " set loc_off %1 = 1
if not %xOS% == x86 if exist " %ProgramFiles(x86)% \Microsoft Office\Office %1 \OSPP.VBS " set loc_off %1 = 1
exit /b
: insKey
set S_OK = 1
echo .
set " _key= "
set " _qr= %_zz7% %spp% %_zz2% %_zz5% ID=' %app% ' %_zz6% %_zz3% Name %_zz8% "
if %ESU_ADD% EQU 0 for /f " tokens=2 delims== " %% x in ( ' %_qr% ' ) do echo Installing Key: %% x
if %ESU_ADD% EQU 1 for /f " tokens=2 delims==f " %% x in ( ' %_qr% ' ) do echo Installing Key: %% x
set ESU_ADD = 0
call : keys %app%
if " %_key% " == " " ( echo No associated KMS Client key found& exit /b)
set " _qr=wmic path %sps% where Version=' %slsv% ' call InstallProductKey ProductKey= " %_key% " "
if %WMI_VBS% NEQ 0 set " _qr= %_csp% %sps% " %_key% " "
%_qr% %_Nul3%
set ERRORCODE = %ERRORLEVEL%
if %ERRORCODE% NEQ 0 (
cmd /c exit /b %ERRORCODE%
echo Failed: 0x!=ExitCode!
set S_OK = 0
exit /b
)
set " _qr=wmic path %sps% where Version=' %slsv% ' call RefreshLicenseStatus "
if %WMI_VBS% NEQ 0 set " _qr= %_csm% " %sps% .Version='%slsv% '" RefreshLicenseStatus "
if %sps% EQU SoftwareLicensingService %_qr% %_Nul3%
: activate
set S_OK = 1
if %sps% EQU SoftwareLicensingService (
if %_officespp% EQU 0 ( reg delete " HKLM\ %SPPk% \ %_wApp% \ %app% " /f %_Null% ) else ( reg delete " HKLM\ %SPPk% \ %_oApp% \ %app% " /f %_Null% )
) else (
reg delete " HKLM\ %OPPk% \ %_oA14% \ %app% " /f %_Null%
reg delete " HKLM\ %OPPk% \ %_oApp% \ %app% " /f %_Null%
)
set " _qr= %_zz7% %spp% %_zz2% %_zz5% ID=' %app% ' %_zz6% %_zz3% Name %_zz8% "
if %W1nd0ws% EQU 0 if %_officespp% EQU 0 if %sps% EQU SoftwareLicensingService (
reg add " HKLM\ %SPPk% \ %_wApp% \ %app% " /f /v KeyManagementServiceName /t REG_SZ /d " 127.0.0.2 " %_Nul3%
reg add " HKLM\ %SPPk% \ %_wApp% \ %app% " /f /v KeyManagementServicePort /t REG_SZ /d " %KMS_Port% " %_Nul3%
for /f " tokens=2 delims== " %% x in ( ' %_qr% ' ) do echo Checking: %% x
echo Product is KMS 2038 Activated.
set _keepkms38 = 1
exit /b
)
set " _qr= %_zz7% %spp% %_zz2% %_zz5% ID=' %app% ' %_zz6% %_zz3% Name %_zz8% "
if %act_attempt% LSS 1 (
if %ESU_ADD% EQU 0 for /f " tokens=2 delims== " %% x in ( ' %_qr% ' ) do echo Activating: %% x
if %ESU_ADD% EQU 1 for /f " tokens=2 delims==f " %% x in ( ' %_qr% ' ) do echo Activating: %% x
)
set ESU_ADD = 0
set " _qr=wmic path %spp% where ID=' %app% ' call Activate "
if %WMI_VBS% NEQ 0 set " _qr= %_csm% " %spp% .ID='%app% '" Activate "
%_qr% %_Nul3%
call set ERRORCODE = %ERRORLEVEL%
if %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.
echo .
echo Verify that these services are working correctly:
echo Windows Management Instrumentation [WinMgmt]
echo Software Protection [sppsvc]
)
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 PackageGUID" %_Nul6% ' ) do ( set " _GUID= %% b " )
for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6% ' ) do ( set " _ProductIds= %% b " )
set " _Config=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration "
set " _PRIDs=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs "
) else (
for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6% ' ) do ( set " _InstallRoot= %% b\root " )
for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v PackageGUID" %_Nul6% ' ) do ( set " _GUID= %% b " )
for /f " skip=2 tokens=2* " %% a in ( '"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6% ' ) do ( set " _ProductIds= %% b " )
set " _Config=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration "
set " _PRIDs=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\ProductReleaseIDs "
)
set " _LicensesPath= %_InstallRoot% \Licenses16 "
set " _Integrator= %_InstallRoot% \integration\integrator.exe "
for /f " skip=2 tokens=2* " %% a in ( '"reg query %_PRIDs% /v ActiveConfiguration" %_Nul6% ' ) do set " _PRIDs= %_PRIDs% \ %% b "
if " %_ProductIds% " == " " (
if %_Office15% EQU 0 ( 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 "
) else (
set _spp = OfficeSoftwareProtectionProduct
set _sps = OfficeSoftwareProtectionService
set _vbsi = " !_OSPP15VBS! " /inslic:
)
set " _wmi= "
set " _qr= %_zz7% %_sps% %_zz3% Version %_zz8% "
for /f " tokens=2 delims== " %% # in ( ' %_qr% ' ) do set _wmi = %% #
if " %_wmi% " == " " (
echo Error: %_sps% WMI version is not detected
call : CheckWS
goto : %_fC2R%
)
set _Identity = 0
set _vNext = 0
dir /b /s /a:-d " !_Local! \Microsoft\Office\Licenses\*1* " %_Nul3% && set _Identity = 1
dir /b /s /a:-d " !ProgramData! \Microsoft\Office\Licenses\*1* " %_Nul3% && set _Identity = 1
set kNext = HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext
if %_Identity% EQU 1 reg query %kNext% /v MigrationToV5Done %_Nul2% | find /i " 0x1 " %_Nul1% && set _vNext = 1
if %_vNext% EQU 1 (
reg query %kNext% | findstr /i /r " .*retail " %_Nul2% | findstr /i /v " project visio " %_Nul2% | find /i " 0x2 " %_Nul1% && ( set sub_O365 = 1)
reg query %kNext% | findstr /i /r " .*retail " %_Nul2% | findstr /i /v " project visio " %_Nul2% | find /i " 0x3 " %_Nul1% && ( set sub_O365 = 1)
reg query %kNext% | findstr /i /r " .*volume " %_Nul2% | findstr /i /v " project visio " %_Nul2% | find /i " 0x2 " %_Nul1% && ( set sub_O365 = 1)
reg query %kNext% | findstr /i /r " .*volume " %_Nul2% | findstr /i /v " project visio " %_Nul2% | find /i " 0x3 " %_Nul1% && ( set sub_O365 = 1)
reg query %kNext% | findstr /i /r " project.* " %_Nul2% | find /i " 0x2 " %_Nul1% && set sub_proj = 1
reg query %kNext% | findstr /i /r " project.* " %_Nul2% | find /i " 0x3 " %_Nul1% && set sub_proj = 1
reg query %kNext% | findstr /i /r " visio.* " %_Nul2% | find /i " 0x2 " %_Nul1% && set sub_vis = 1
reg query %kNext% | findstr /i /r " visio.* " %_Nul2% | find /i " 0x3 " %_Nul1% && set sub_vis = 1
)
set _Retail = 0
set " _ocq=ApplicationID=' %_oApp% ' AND LicenseStatus='1' AND PartialProductKey is not NULL "
if %WMI_VBS% EQU 0 wmic path %_spp% where (%_ocq% ) get Description %_Nul2% | findstr /V /R " ^ $ " > " !_temp! \crvRetail.txt "
set " _qr= %_csq% %_spp% " %_ocq% " Description "
if %WMI_VBS% NEQ 0 %_qr% %_Nul2% > " !_temp! \crvRetail.txt "
find /i " RETAIL channel " " !_temp! \crvRetail.txt " %_Nul1% && set _Retail = 1
find /i " RETAIL(MAK) channel " " !_temp! \crvRetail.txt " %_Nul1% && set _Retail = 1
find /i " TIMEBASED_SUB channel " " !_temp! \crvRetail.txt " %_Nul1% && set _Retail = 1
set " _copp= "
if exist " %SysPath% \msvcr100.dll " (
set _copp = 1
) else if exist "!_InstallRoot!\vfs\System\msvcr100.dll" (
set _copp = " !_InstallRoot! \vfs\System "
) else if exist "!_Install15Root!\vfs\System\msvcr100.dll" (
set _copp = " !_Install15Root! \vfs\System "
) else if exist "%SystemRoot%\SysWOW64\msvcr100.dll" (
set _copp = 1
set xBit = x86
) else if exist "!_InstallRoot!\vfs\SystemX86\msvcr100.dll" (
set _copp = " !_InstallRoot! \vfs\SystemX86 "
set xBit = x86
) else if exist "!_Install15Root!\vfs\SystemX86\msvcr100.dll" (
set _copp = " !_Install15Root! \vfs\SystemX86 "
set xBit = x86
)
if not exist " !_work! \bin\cleanospp %xBit% .exe " (
set " _copp= "
)
set rancopp = 0
if %_Identity% EQU 0 if %_Retail% EQU 0 if %_OMSI% EQU 0 if defined _copp (
set rancopp = 1
if " !_copp! " == " 1 " (
%_Nul3% " !_work! \bin\cleanospp %xBit% .exe " -Licenses
) else (
pushd %_copp%
%_Nul3% copy /y " !_work! \bin\cleanospp %xBit% .exe " cleanospp.exe
%_Nul3% cleanospp.exe -Licenses
%_Nul3% del /f /q cleanospp.exe
popd
)
)
set _O16O365 = 0
set _C16Msg = 0
set _C15Msg = 0
set " _qr= %_csq% %_spp% " %_ocq% " LicenseFamily "
if %_Retail% EQU 1 if %WMI_VBS% EQU 0 wmic path %_spp% where (%_ocq% ) get LicenseFamily %_Nul2% | findstr /V /R " ^ $ " > " !_temp! \crvRetail.txt "
if %_Retail% EQU 1 if %WMI_VBS% NEQ 0 %_qr% %_Nul2% > " !_temp! \crvRetail.txt "
set " _qr= %_csq% %_spp% " ApplicationID='%_oApp% '" LicenseFamily "
if %WMI_VBS% EQU 0 wmic path %_spp% where " ApplicationID=' %_oApp% ' " get LicenseFamily %_Nul2% | findstr /V /R " ^ $ " > " !_temp! \crvVolume.txt " 2 >& 1
if %WMI_VBS% NEQ 0 %_qr% %_Nul2% > " !_temp! \crvVolume.txt " 2 >& 1
if %_Office16% EQU 0 goto : R15V
set _O21Ids = ProPlus2021,ProjectPro2021,VisioPro2021,Standard2021,ProjectStd2021,VisioStd2021,Access2021,SkypeforBusiness2021
set _O19Ids = ProPlus2019,ProjectPro2019,VisioPro2019,Standard2019,ProjectStd2019,VisioStd2019,Access2019,SkypeforBusiness2019
set _O16Ids = ProjectPro,VisioPro,Standard,ProjectStd,VisioStd,Access,SkypeforBusiness
set _A21Ids = Excel2021,Outlook2021,PowerPoint2021,Publisher2021,Word2021
set _A19Ids = Excel2019,Outlook2019,PowerPoint2019,Publisher2019,Word2019
set _A16Ids = Excel,Outlook,PowerPoint,Publisher,Word
set _V21Ids = %_O21Ids% ,%_A21Ids%
set _V19Ids = %_O19Ids% ,%_A19Ids%
set _V16Ids = Mondo,%_O16Ids% ,%_A16Ids% ,OneNote
set _R16Ids = %_V16Ids% ,Professional,HomeBusiness,HomeStudent,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud
set _RetIds = %_V21Ids% ,Professional2021,HomeBusiness2021,HomeStudent2021,%_V19Ids% ,Professional2019,HomeBusiness2019,HomeStudent2019,%_R16Ids%
set _Suites = Mondo,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud,ProPlus,Standard,Professional,HomeBusiness,HomeStudent,ProPlus2019,Standard2019,Professional2019,HomeBusiness2019,HomeStudent2019,ProPlus2021,Standard2021,Professional2021,HomeBusiness2021,HomeStudent2021
set _PrjSKU = ProjectPro,ProjectStd,ProjectPro2019,ProjectStd2019,ProjectPro2021,ProjectStd2021
set _VisSKU = VisioPro,VisioStd,VisioPro2019,VisioStd2019,VisioPro2021,VisioStd2021
echo %_ProductIds% > " !_temp! \crvProductIds.txt "
for %% a in ( %_RetIds% ,ProPlus) do (
set _ %% a = 0
)
for %% a in ( %_RetIds% ) do (
findstr /I /C:" %% aRetail " " !_temp! \crvProductIds.txt " %_Nul1% && set _ %% a = 1
)
if !_LTSC! EQU 0 for %% a in ( %_V21Ids% ) do (
set _ %% a = 0
)
if !_LTSC! EQU 1 for %% a in ( %_V21Ids% ) do (
findstr /I /C:" %% aVolume " " !_temp! \crvProductIds.txt " %_Nul1% && (
find /i " Office21 %% aVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ %% a = 0) || ( set _ %% a = 1)
)
)
for %% a in ( %_V19Ids% ) do (
findstr /I /C:" %% aVolume " " !_temp! \crvProductIds.txt " %_Nul1% && (
find /i " Office19 %% aVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ %% a = 0) || ( set _ %% a = 1)
)
)
for %% a in ( %_V16Ids% ) do (
findstr /I /C:" %% aVolume " " !_temp! \crvProductIds.txt " %_Nul1% && (
find /i " Office16 %% aVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ %% a = 0) || ( set _ %% a = 1)
)
)
reg query %_PRIDs% \ProPlusRetail.16 %_Nul3% && (
find /i " Office16ProPlusVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ProPlus = 0) || ( set _ProPlus = 1)
)
reg query %_PRIDs% \ProPlusVolume.16 %_Nul3% && (
find /i " Office16ProPlusVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ProPlus = 0) || ( set _ProPlus = 1)
)
if %_Retail% EQU 1 for %% a in ( %_RetIds% ) do (
findstr /I /C:" %% aRetail " " !_temp! \crvProductIds.txt " %_Nul1% && (
find /i " Office16 %% aR_Retail " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aR_OEM " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aR_Sub " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aR_PIN " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aE5R_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aEDUR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aMSDNR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aO365R_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aCO365R_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aVL_MAK " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office16 %% aXC2RVL_MAKC2R " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R16 = 1)
find /i " Office19 %% aR_Retail " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R19 = 1)
find /i " Office19 %% aR_OEM " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R19 = 1)
find /i " Office19 %% aMSDNR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R19 = 1)
find /i " Office19 %% aVL_MAK " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R19 = 1)
find /i " Office21 %% aR_Retail " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R21 = 1)
find /i " Office21 %% aR_OEM " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R21 = 1)
find /i " Office21 %% aMSDNR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R21 = 1)
find /i " Office21 %% aVL_MAK " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R21 = 1)
)
)
if %_Retail% EQU 1 reg query %_PRIDs% \ProPlusRetail.16 %_Nul3% && (
find /i " Office16ProPlusR_Retail " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R16 = 1)
find /i " Office16ProPlusR_OEM " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R16 = 1)
find /i " Office16ProPlusMSDNR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R16 = 1)
find /i " Office16ProPlusVL_MAK " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R16 = 1)
)
set " _qr= %_zz1% %_spp% %_zz2% " ApplicationID='%_oApp% ' AND LicenseFamily like 'Office16O365%% '" %_zz3% LicenseFamily %_zz4% "
find /i " Office16MondoVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && (
%_qr% %_Nul2% | find /i " O365 " %_Nul1% && (
for %% a in ( O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud) do set _ %% a = 0
)
)
if %sub_O365% EQU 1 (
for %% a in ( %_Suites% ) do set _ %% a = 0
echo .
echo Microsoft Office is activated with a subscription.
)
if %sub_proj% EQU 1 (
for %% a in ( %_PrjSKU% ) do set _ %% a = 0
echo .
echo Microsoft Project is activated with a subscription.
)
if %sub_vis% EQU 1 (
for %% a in ( %_VisSKU% ) do set _ %% a = 0
echo .
echo Microsoft Visio is activated with a subscription.
)
for %% a in ( %_RetIds% ,ProPlus) do if !_%%a! EQU 1 (
set _C16Msg = 1
)
if %_C16Msg% EQU 1 (
echo .
echo Converting Office C2R Retail-to-Volume:
)
if %_C16Msg% EQU 0 ( if %_Office15% EQU 1 ( goto : R15V ) else ( goto : GVLKC2R ) )
if !_Mondo! EQU 1 (
call : InsLic Mondo
)
if !_O365ProPlus! EQU 1 (
echo O365ProPlus 2016 Suite ^< -^> Mondo 2016 Licenses
call : InsLic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
if !_Mondo! EQU 0 call : InsLic Mondo
)
if !_O365Business! EQU 1 if !_O365ProPlus! EQU 0 (
set _O365ProPlus = 1
echo O365Business 2016 Suite ^< -^> Mondo 2016 Licenses
call : InsLic O365Business NCHRJ-3VPGW-X73DM-6B36K-3RQ6B
if !_Mondo! EQU 0 call : InsLic Mondo
)
if !_O365SmallBusPrem! EQU 1 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (
set _O365ProPlus = 1
echo O365SmallBusPrem 2016 Suite ^< -^> Mondo 2016 Licenses
call : InsLic O365SmallBusPrem 3FBRX-NFP7C-6JWVK-F2YGK-H499R
if !_Mondo! EQU 0 call : InsLic Mondo
)
if !_O365HomePrem! EQU 1 if !_O365SmallBusPrem! EQU 0 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (
set _O365ProPlus = 1
echo O365HomePrem 2016 Suite ^< -^> Mondo 2016 Licenses
call : InsLic O365HomePrem 9FNY8-PWWTY-8RY4F-GJMTV-KHGM9
if !_Mondo! EQU 0 call : InsLic Mondo
)
if !_O365EduCloud! EQU 1 if !_O365HomePrem! EQU 0 if !_O365SmallBusPrem! EQU 0 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (
set _O365ProPlus = 1
echo O365EduCloud 2016 Suite ^< -^> Mondo 2016 Licenses
call : InsLic O365EduCloud 8843N-BCXXD-Q84H8-R4Q37-T3CPT
if !_Mondo! EQU 0 call : InsLic Mondo
)
if !_O365ProPlus! EQU 1 set _O16O365 = 1
if !_Mondo! EQU 1 if !_O365ProPlus! EQU 0 (
echo Mondo 2016 Suite
call : InsLic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
if %_Office15% EQU 1 ( goto : R15V ) else ( goto : GVLKC2R )
)
if !_ProPlus2021! EQU 1 if !_O365ProPlus! EQU 0 (
echo ProPlus 2021 Suite
call : InsLic ProPlus2021
)
if !_ProPlus2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 (
echo ProPlus 2019 Suite -^> ProPlus%_ons% Licenses
call : InsLic ProPlus%_tag%
)
if !_ProPlus! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 (
echo ProPlus 2016 Suite -^> ProPlus%_ons% Licenses
call : InsLic ProPlus%_tag%
)
if !_Professional2021! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 (
echo Professional 2021 Suite -^> ProPlus 2021 Licenses
call : InsLic ProPlus2021
)
if !_Professional2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 (
echo Professional 2019 Suite -^> ProPlus%_ons% Licenses
call : InsLic ProPlus%_tag%
)
if !_Professional! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 (
echo Professional 2016 Suite -^> ProPlus%_ons% Licenses
call : InsLic ProPlus%_tag%
)
if !_Standard2021! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 (
echo Standard 2021 Suite
call : InsLic Standard2021
)
if !_Standard2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 (
echo Standard 2019 Suite -^> Standard%_ons% Licenses
call : InsLic Standard%_tag%
)
if !_Standard! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 (
echo Standard 2016 Suite -^> Standard%_ons% Licenses
call : InsLic Standard%_tag%
)
for %% a in ( ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a2021! EQU 1 (
echo %% a 2021 SKU
call : InsLic %% a2021
)
for %% a in ( ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a2019! EQU 1 (
if !_%%a2021! EQU 0 (
echo %% a 2019 SKU -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a! EQU 1 (
if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
echo %% a 2016 SKU -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( HomeBusiness,HomeStudent) do if !_%%a2021! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 (
set _Standard2021 = 1
echo %% a 2021 Suite -^> Standard 2021 Licenses
call : InsLic Standard2021
)
)
for %% a in ( HomeBusiness,HomeStudent) do if !_%%a2019! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 (
set _Standard2019 = 1
echo %% a 2019 Suite -^> Standard%_ons% Licenses
call : InsLic Standard%_tag%
)
)
for %% a in ( HomeBusiness,HomeStudent) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
set _Standard = 1
echo %% a 2016 Suite -^> Standard%_ons% Licenses
call : InsLic Standard%_tag%
)
)
for %% a in ( %_A21Ids% ,OneNote) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 (
echo %% a App
call : InsLic %% a
)
)
for %% a in ( %_A16Ids% ) do if !_%%a2019! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 (
echo %% a 2019 App -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( %_A16Ids% ) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
echo %% a 2016 App -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( Access) do if !_%%a2021! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 (
echo %% a 2021 App
call : InsLic %% a2021
)
)
for %% a in ( Access) do if !_%%a2019! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_%%a2021! EQU 0 (
echo %% a 2019 App -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( Access) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
echo %% a 2016 App -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( SkypeforBusiness) do if !_%%a2021! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 (
echo %% a 2021 App
call : InsLic %% a2021
)
)
for %% a in ( SkypeforBusiness) do if !_%%a2019! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_%%a2021! EQU 0 (
echo %% a 2019 App -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
for %% a in ( SkypeforBusiness) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
echo %% a 2016 App -^> %% a%_ons% Licenses
call : InsLic %% a%_tag%
)
)
if %_Office15% EQU 1 ( goto : R15V ) else ( goto : GVLKC2R )
: R15V
for %% # in ( " !_Licenses15Path! \client-issuance-*.xrm-ms " ) do (
%_cscript% %_vbsi% " !_Licenses15Path! \ %% ~nx# "
)
%_cscript% %_vbsi% " !_Licenses15Path! \pkeyconfig-office.xrm-ms "
set _O15Ids = Standard,ProjectPro,VisioPro,ProjectStd,VisioStd,Access,Lync
set _A15Ids = Excel,Groove,InfoPath,OneNote,Outlook,PowerPoint,Publisher,Word
set _R15Ids = SPD,Mondo,%_O15Ids% ,%_A15Ids% ,Professional,HomeBusiness,HomeStudent,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem
set _V15Ids = Mondo,%_O15Ids% ,%_A15Ids%
echo %_Product15Ids% > " !_temp! \crvProduct15s.txt "
for %% a in ( %_R15Ids% ,ProPlus) do (
set _ %% a = 0
)
for %% a in ( %_R15Ids% ) do (
findstr /I /C:" %% aRetail " " !_temp! \crvProduct15s.txt " %_Nul1% && set _ %% a = 1
)
for %% a in ( %_V15Ids% ) do (
findstr /I /C:" %% aVolume " " !_temp! \crvProduct15s.txt " %_Nul1% && (
find /i " Office %% aVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ %% a = 0) || ( set _ %% a = 1)
)
)
reg query %_PR15IDs% \Active\ProPlusRetail\x-none %_Nul3% && (
find /i " OfficeProPlusVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ProPlus = 0) || ( set _ProPlus = 1)
)
reg query %_PR15IDs% \Active\ProPlusVolume\x-none %_Nul3% && (
find /i " OfficeProPlusVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && ( set _ProPlus = 0) || ( set _ProPlus = 1)
)
if %_Retail% EQU 1 for %% a in ( %_R15Ids% ) do (
findstr /I /C:" %% aRetail " " !_temp! \crvProduct15s.txt " %_Nul1% && (
find /i " Office %% aR_Retail " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aR_OEM " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aR_Sub " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aR_PIN " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aMSDNR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aO365R_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aCO365R_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
find /i " Office %% aVL_MAK " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ %% a = 0 & set aC2R15 = 1)
)
)
if %_Retail% EQU 1 reg query %_PR15IDs% \Active\ProPlusRetail\x-none %_Nul3% && (
find /i " OfficeProPlusR_Retail " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R15 = 1)
find /i " OfficeProPlusR_OEM " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R15 = 1)
find /i " OfficeProPlusMSDNR_ " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R15 = 1)
find /i " OfficeProPlusVL_MAK " " !_temp! \crvRetail.txt " %_Nul1% && ( set _ProPlus = 0 & set aC2R15 = 1)
)
set " _qr= %_zz1% %_spp% %_zz2% " ApplicationID='%_oApp% ' AND LicenseFamily like 'OfficeO365%% '" %_zz3% LicenseFamily %_zz4% "
find /i " OfficeMondoVL_KMS_Client " " !_temp! \crvVolume.txt " %_Nul1% && (
%_qr% %_Nul2% | find /i " O365 " %_Nul1% && (
for %% a in ( O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem) do set _ %% a = 0
)
)
for %% a in ( %_R15Ids% ,ProPlus) do if !_%%a! EQU 1 (
set _C15Msg = 1
)
if %_C15Msg% EQU 1 if %_C16Msg% EQU 0 (
echo .
echo Converting Office C2R Retail-to-Volume:
)
if %_C15Msg% EQU 0 goto : GVLKC2R
if !_Mondo! EQU 1 (
call : Ins15Lic Mondo
)
if !_O365ProPlus! EQU 1 if !_O16O365! EQU 0 (
echo O365ProPlus 2013 Suite ^< -^> Mondo 2013 Licenses
call : Ins15Lic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
if !_Mondo! EQU 0 call : Ins15Lic Mondo
)
if !_O365SmallBusPrem! EQU 1 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
set _O365ProPlus = 1
echo O365SmallBusPrem 2013 Suite ^< -^> Mondo 2013 Licenses
call : Ins15Lic O365SmallBusPrem 3FBRX-NFP7C-6JWVK-F2YGK-H499R
if !_Mondo! EQU 0 call : Ins15Lic Mondo
)
if !_O365HomePrem! EQU 1 if !_O365SmallBusPrem! EQU 0 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
set _O365ProPlus = 1
echo O365HomePrem 2013 Suite ^< -^> Mondo 2013 Licenses
call : Ins15Lic O365HomePrem 9FNY8-PWWTY-8RY4F-GJMTV-KHGM9
if !_Mondo! EQU 0 call : Ins15Lic Mondo
)
if !_O365Business! EQU 1 if !_O365HomePrem! EQU 0 if !_O365SmallBusPrem! EQU 0 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
set _O365ProPlus = 1
echo O365Business 2013 Suite ^< -^> Mondo 2013 Licenses
call : Ins15Lic O365Business MCPBN-CPY7X-3PK9R-P6GTT-H8P8Y
if !_Mondo! EQU 0 call : Ins15Lic Mondo
)
if !_Mondo! EQU 1 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
echo Mondo 2013 Suite
call : Ins15Lic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
goto : GVLKC2R
)
if !_SPD! EQU 1 if !_Mondo! EQU 0 if !_O365ProPlus! EQU 0 (
echo SharePoint Designer 2013 App -^> Mondo 2013 Licenses
call : Ins15Lic Mondo
goto : GVLKC2R
)
if !_ProPlus! EQU 1 if !_O365ProPlus! EQU 0 (
echo ProPlus 2013 Suite
call : Ins15Lic ProPlus
)
if !_Professional! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 (
echo Professional 2013 Suite -^> ProPlus 2013 Licenses
call : Ins15Lic ProPlus
)
if !_Standard! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 (
echo Standard 2013 Suite
call : Ins15Lic Standard
)
for %% a in ( ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a! EQU 1 (
echo %% a 2013 SKU
call : Ins15Lic %% a
)
for %% a in ( HomeBusiness,HomeStudent) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 if !_Standard! EQU 0 (
set _Standard = 1
echo %% a 2013 Suite -^> Standard 2013 Licenses
call : Ins15Lic Standard
)
)
for %% a in ( %_A15Ids% ) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 if !_Standard! EQU 0 (
echo %% a 2013 App
call : Ins15Lic %% a
)
)
for %% a in ( Access) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 (
echo %% a 2013 App
call : Ins15Lic %% a
)
)
for %% a in ( Lync) do if !_%%a! EQU 1 (
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 (
echo SkypeforBusiness 2015 App
call : Ins15Lic %% a
)
)
goto : GVLKC2R
: InsLic
set " _ID= %1 Volume "
set " _pkey= "
if not " %2 " == " " (
set " _ID= %1 Retail "
set " _pkey=PidKey= %2 "
)
reg delete %_Config% /f /v %_ID% .OSPPReady %_Nul3%
" !_Integrator! " /I /License PRIDName=%_ID% .16 %_pkey% PackageGUID=" %_GUID% " PackageRoot=" !_InstallRoot! " %_Nul1%
reg add %_Config% /f /v %_ID% .OSPPReady /t REG_SZ /d 1 %_Nul1%
reg query %_Config% /v ProductReleaseIds | findstr /I " %_ID% " %_Nul1%
if %errorlevel% NEQ 0 (
for /f " skip=2 tokens=2* " %% a in ( 'reg query %_Config% /v ProductReleaseIds' ) do reg add %_Config% /v ProductReleaseIds /t REG_SZ /d " %% b, %_ID% " /f %_Nul1%
)
exit /b
: Ins15Lic
set " _ID= %1 Volume "
set " _patt= %1 VL_ "
set " _pkey= "
if not " %2 " == " " (
set " _ID= %1 Retail "
set " _patt= %1 R_ "
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= "
)
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 hy = -
goto : %1 %_Nul2%
: : Windows 11 [Ni]
: 59eb965c-9150-42b7-a0ec-22151b9897c5
set " _key=KBN8V %hy% HFGQ4 %hy% MGXVD %hy% 347P6 %hy% PDQGT " & :: IoT Enterprise LTSC
exit /b
: : Windows 11 [Co]
: ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69
set " _key=37D7F %hy% N49CB %hy% WQR8W %hy% TBJ73 %hy% FM8RX " & :: SE {Cloud}
exit /b
: d30136fc-cb4b-416e-a23d-87207abc44a9
set " _key=6XN7V %hy% PCBDC %hy% BDBRH %hy% 8DQY7 %hy% G6R44 " & :: SE N {Cloud N}
exit /b
: : Windows 10 [RS5]
: 32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee
set " _key=M7XTQ %hy% FN8P6 %hy% TTKYV %hy% 9D4CC %hy% J462D " & :: Enterprise LTSC 2019
exit /b
: 7103a333-b8c8-49cc-93ce-d37c09687f92
set " _key=92NFX %hy% 8DJQP %hy% P6BBQ %hy% THF9C %hy% 7CG2H " & :: Enterprise LTSC 2019 N
exit /b
: ec868e65-fadf-4759-b23e-93fe37f2cc29
set " _key=CPWHC %hy% NT2C7 %hy% VYW78 %hy% DHDB2 %hy% PG3GK " & :: Enterprise for Virtual Desktops
exit /b
: 0df4f814-3f57-4b8b-9a9d-fddadcd69fac
set " _key=NBTWJ %hy% 3DR69 %hy% 3C4V8 %hy% C26MC %hy% GQ9M6 " & :: Lean
exit /b
: : Windows 10 [RS3]
: 82bbc092-bc50-4e16-8e18-b74fc486aec3
set " _key=NRG8B %hy% VKK3Q %hy% CXVCJ %hy% 9G2XF %hy% 6Q84J " & :: Pro Workstation
exit /b
: 4b1571d3-bafb-4b40-8087-a961be2caf65
set " _key=9FNHH %hy% K3HBT %hy% 3W4TD %hy% 6383H %hy% 6XYWF " & :: Pro Workstation N
exit /b
: e4db50ea-bda1-4566-b047-0ca50abc6f07
set " _key=7NBT4 %hy% WGBQX %hy% MP4H7 %hy% QXFF8 %hy% YP3KX " & :: Enterprise Remote Server
exit /b
: : Windows 10 [RS2]
: e0b2d383-d112-413f-8a80-97f373a5820c
set " _key=YYVX9 %hy% NTFWV %hy% 6MDM3 %hy% 9PT4T %hy% 4M68B " & :: Enterprise G
exit /b
: e38454fb-41a4-4f59-a5dc-25080e354730
set " _key=44RPN %hy% FTY23 %hy% 9VTTB %hy% MP9BX %hy% T84FV " & :: Enterprise G N
exit /b
: : Windows 10 [RS1]
: 2d5a5a60-3040-48bf-beb0-fcd770c20ce0
set " _key=DCPHK %hy% NFMTC %hy% H88MJ %hy% PFHPY %hy% QJ4BJ " & :: Enterprise 2016 LTSB
exit /b
: 9f776d83-7156-45b2-8a5c-359b9c9f22a3
set " _key=QFFDN %hy% GRT3P %hy% VKWWX %hy% X7T3R %hy% 8B639 " & :: Enterprise 2016 LTSB N
exit /b
: 3f1afc82-f8ac-4f6c-8005-1d233e606eee
set " _key=6TP4R %hy% GNPTD %hy% KYYHQ %hy% 7B7DP %hy% J447Y " & :: Pro Education
exit /b
: 5300b18c-2e33-4dc2-8291-47ffcec746dd
set " _key=YVWGF %hy% BXNMC %hy% HTQYQ %hy% CPQ99 %hy% 66QFC " & :: Pro Education N
exit /b
: : Windows 10 [TH]
: 58e97c99-f377-4ef1-81d5-4ad5522b5fd8
set " _key=TX9XD %hy% 98N7V %hy% 6WMQ6 %hy% BX7FG %hy% H8Q99 " & :: Home
exit /b
: 7b9e1751-a8da-4f75-9560-5fadfe3d8e38
set " _key=3KHY7 %hy% WNT83 %hy% DGQKR %hy% F7HPR %hy% 844BM " & :: Home N
exit /b
: cd918a57-a41b-4c82-8dce-1a538e221a83
set " _key=7HNRX %hy% D7KGG %hy% 3K4RQ %hy% 4WPJ4 %hy% YTDFH " & :: Home Single Language
exit /b
: a9107544-f4a0-4053-a96a-1479abdef912
set " _key=PVMJN %hy% 6DFY6 %hy% 9CCP6 %hy% 7BKTT %hy% D3WVR " & :: Home China
exit /b
: 2de67392-b7a7-462a-b1ca-108dd189f588
set " _key=W269N %hy% WFGWX %hy% YVC9B %hy% 4J6C9 %hy% T83GX " & :: Pro
exit /b
: a80b5abf-76ad-428b-b05d-a47d2dffeebf
set " _key=MH37W %hy% N47XK %hy% V7XM9 %hy% C7227 %hy% GCQG9 " & :: Pro N
exit /b
: e0c42288-980c-4788-a014-c080d2e1926e
set " _key=NW6C2 %hy% QMPVW %hy% D7KKK %hy% 3GKT6 %hy% VCFB2 " & :: Education
exit /b
: 3c102355-d027-42c6-ad23-2e7ef8a02585
set " _key=2WH4N %hy% 8QGBV %hy% H22JP %hy% CT43Q %hy% MDWWJ " & :: Education N
exit /b
: 73111121-5638-40f6-bc11-f1d7b0d64300
set " _key=NPPR9 %hy% FWDCX %hy% D2C8J %hy% H872K %hy% 2YT43 " & :: Enterprise
exit /b
: e272e3e2-732f-4c65-a8f0-484747d0d947
set " _key=DPH2V %hy% TTNVB %hy% 4X9Q3 %hy% TJR4H %hy% KHJW4 " & :: Enterprise N
exit /b
: 7b51a46c-0c04-4e8f-9af4-8496cca90d5e
set " _key=WNMTR %hy% 4C88C %hy% JK8YV %hy% HQ7T2 %hy% 76DF9 " & :: Enterprise 2015 LTSB
exit /b
: 87b838b7-41b6-4590-8318-5797951d8529
set " _key=2F77B %hy% TNFGY %hy% 69QQF %hy% B8YKP %hy% D69TJ " & :: Enterprise 2015 LTSB N
exit /b
: : Windows Server 2022 [Fe]
: 9bd77860-9b31-4b7b-96ad-2564017315bf
set " _key=VDYBN %hy% 27WPP %hy% V4HQT %hy% 9VMD4 %hy% VMK7H " & :: Standard
exit /b
: ef6cfc9f-8c5d-44ac-9aad-de6a2ea0ae03
set " _key=WX4NM %hy% KYWYW %hy% QJJR4 %hy% XV3QB %hy% 6VM33 " & :: Datacenter
exit /b
: 8c8f0ad3-9a43-4e05-b840-93b8d1475cbc
set " _key=6N379 %hy% GGTMK %hy% 23C6M %hy% XVVTC %hy% CKFRQ " & :: Azure Core
exit /b
: f5e9429c-f50b-4b98-b15c-ef92eb5cff39
set " _key=67KN8 %hy% 4FYJW %hy% 2487Q %hy% MQ2J7 %hy% 4C4RG " & :: Standard ACor
exit /b
: 39e69c41-42b4-4a0a-abad-8e3c10a797cc
set " _key=QFND9 %hy% D3Y9C %hy% J3KKY %hy% 6RPVP %hy% 2DPYV " & :: Datacenter ACor
exit /b
: : Windows Server 2019 [RS5]
: de32eafd-aaee-4662-9444-c1befb41bde2
set " _key=N69G4 %hy% B89J2 %hy% 4G8F4 %hy% WWYCC %hy% J464C " & :: Standard
exit /b
: 34e1ae55-27f8-4950-8877-7a03be5fb181
set " _key=WMDGN %hy% G9PQG %hy% XVVXX %hy% R3X43 %hy% 63DFG " & :: Datacenter
exit /b
: a99cc1f0-7719-4306-9645-294102fbff95
set " _key=FDNH6 %hy% VW9RW %hy% BXPJ7 %hy% 4XTYG %hy% 239TB " & :: Azure Core
exit /b
: 73e3957c-fc0c-400d-9184-5f7b6f2eb409
set " _key=N2KJX %hy% J94YW %hy% TQVFB %hy% DG9YT %hy% 724CC " & :: Standard ACor
exit /b
: 90c362e5-0da1-4bfd-b53b-b87d309ade43
set " _key=6NMRW %hy% 2C8FM %hy% D24W7 %hy% TQWMY %hy% CWH2D " & :: Datacenter ACor
exit /b
: 034d3cbb-5d4b-4245-b3f8-f84571314078
set " _key=WVDHN %hy% 86M7X %hy% 466P6 %hy% VHXV7 %hy% YY726 " & :: Essentials
exit /b
: 8de8eb62-bbe0-40ac-ac17-f75595071ea3
set " _key=GRFBW %hy% QNDC4 %hy% 6QBHG %hy% CCK3B %hy% 2PR88 " & :: ServerARM64
exit /b
: 19b5e0fb-4431-46bc-bac1-2f1873e4ae73
set " _key=NTBV8 %hy% 9K7Q8 %hy% V27C6 %hy% M2BTV %hy% KHMXV " & :: Azure Datacenter %hy% ServerTurbine
exit /b
: : Windows Server 2016 [RS4]
: 43d9af6e-5e86-4be8-a797-d072a046896c
set " _key=K9FYF %hy% G6NCK %hy% 73M32 %hy% XMVPY %hy% F9DRR " & :: ServerARM64
exit /b
: : Windows Server 2016 [RS3]
: 61c5ef22-f14f-4553-a824-c4b31e84b100
set " _key=PTXN8 %hy% JFHJM %hy% 4WC78 %hy% MPCBR %hy% 9W4KR " & :: Standard ACor
exit /b
: e49c08e7-da82-42f8-bde2-b570fbcae76c
set " _key=2HXDN %hy% KRXHB %hy% GPYC7 %hy% YCKFJ %hy% 7FVDG " & :: Datacenter ACor
exit /b
: : Windows Server 2016 [RS1]
: 8c1c5410-9f39-4805-8c9d-63a07706358f
set " _key=WC2BQ %hy% 8NRM3 %hy% FDDYY %hy% 2BFGV %hy% KHKQY " & :: Standard
exit /b
: 21c56779-b449-4d20-adfc-eece0e1ad74b
set " _key=CB7KF %hy% BWN84 %hy% R7R2Y %hy% 793K2 %hy% 8XDDG " & :: Datacenter
exit /b
: 3dbf341b-5f6c-4fa7-b936-699dce9e263f
set " _key=VP34G %hy% 4NPPG %hy% 79JTQ %hy% 864T4 %hy% R3MQX " & :: Azure Core
exit /b
: 2b5a1b0f-a5ab-4c54-ac2f-a6d94824a283
set " _key=JCKRF %hy% N37P4 %hy% C2D82 %hy% 9YXRT %hy% 4M63B " & :: Essentials
exit /b
: 7b4433f4-b1e7-4788-895a-c45378d38253
set " _key=QN4C6 %hy% GBJD2 %hy% FB422 %hy% GHWJK %hy% GJG2R " & :: Cloud Storage
exit /b
: : Windows 8.1
: fe1c3238-432a-43a1-8e25-97e7d1ef10f3
set " _key=M9Q9P %hy% WNJJT %hy% 6PXPY %hy% DWX8H %hy% 6XWKK " & :: Core
exit /b
: 78558a64-dc19-43fe-a0d0-8075b2a370a3
set " _key=7B9N3 %hy% D94CG %hy% YTVHR %hy% QBPX3 %hy% RJP64 " & :: Core N
exit /b
: c72c6a1d-f252-4e7e-bdd1-3fca342acb35
set " _key=BB6NG %hy% PQ82V %hy% VRDPW %hy% 8XVD2 %hy% V8P66 " & :: Core Single Language
exit /b
: db78b74f-ef1c-4892-abfe-1e66b8231df6
set " _key=NCTT7 %hy% 2RGK8 %hy% WMHRF %hy% RY7YQ %hy% JTXG3 " & :: Core China
exit /b
: ffee456a-cd87-4390-8e07-16146c672fd0
set " _key=XYTND %hy% K6QKT %hy% K2MRH %hy% 66RTM %hy% 43JKP " & :: Core ARM
exit /b
: c06b6981-d7fd-4a35-b7b4-054742b7af67
set " _key=GCRJD %hy% 8NW9H %hy% F2CDX %hy% CCM8D %hy% 9D6T9 " & :: Pro
exit /b
: 7476d79f-8e48-49b4-ab63-4d0b813a16e4
set " _key=HMCNV %hy% VVBFX %hy% 7HMBH %hy% CTY9B %hy% B4FXY " & :: Pro N
exit /b
: 096ce63d-4fac-48a9-82a9-61ae9e800e5f
set " _key=789NJ %hy% TQK6T %hy% 6XTH8 %hy% J39CJ %hy% J8D3P " & :: Pro with Media Center
exit /b
: 81671aaf-79d1-4eb1-b004-8cbbe173afea
set " _key=MHF9N %hy% XY6XB %hy% WVXMC %hy% BTDCT %hy% MKKG7 " & :: Enterprise
exit /b
: 113e705c-fa49-48a4-beea-7dd879b46b14
set " _key=TT4HM %hy% HN7YT %hy% 62K67 %hy% RGRQJ %hy% JFFXW " & :: Enterprise N
exit /b
: 0ab82d54-47f4-4acb-818c-cc5bf0ecb649
set " _key=NMMPB %hy% 38DD4 %hy% R2823 %hy% 62W8D %hy% VXKJB " & :: Embedded Industry Pro
exit /b
: cd4e2d9f-5059-4a50-a92d-05d5bb1267c7
set " _key=FNFKF %hy% PWTVT %hy% 9RC8H %hy% 32HB2 %hy% JB34X " & :: Embedded Industry Enterprise
exit /b
: f7e88590-dfc7-4c78-bccb-6f3865b99d1a
set " _key=VHXM3 %hy% NR6FT %hy% RY6RT %hy% CK882 %hy% KW2CJ " & :: Embedded Industry Automotive
exit /b
: e9942b32-2e55-4197-b0bd-5ff58cba8860
set " _key=3PY8R %hy% QHNP9 %hy% W7XQD %hy% G6DPH %hy% 3J2C9 " & :: with Bing
exit /b
: c6ddecd6-2354-4c19-909b-306a3058484e
set " _key=Q6HTR %hy% N24GM %hy% PMJFP %hy% 69CD8 %hy% 2GXKR " & :: with Bing N
exit /b
: b8f5e3a3-ed33-4608-81e1-37d6c9dcfd9c
set " _key=KF37N %hy% VDV38 %hy% GRRTV %hy% XH8X6 %hy% 6F3BB " & :: with Bing Single Language
exit /b
: ba998212-460a-44db-bfb5-71bf09d1c68b
set " _key=R962J %hy% 37N87 %hy% 9VVK2 %hy% WJ74P %hy% XTMHR " & :: with Bing China
exit /b
: e58d87b5-8126-4580-80fb-861b22f79296
set " _key=MX3RK %hy% 9HNGX %hy% K3QKC %hy% 6PJ3F %hy% W8D7B " & :: Pro for Students
exit /b
: cab491c7-a918-4f60-b502-dab75e334f40
set " _key=TNFGH %hy% 2R6PB %hy% 8XM3K %hy% QYHX2 %hy% J4296 " & :: Pro for Students N
exit /b
: : Windows Server 2012 R2
: b3ca044e-a358-4d68-9883-aaa2941aca99
set " _key=D2N9P %hy% 3P6X9 %hy% 2R39C %hy% 7RTCD %hy% MDVJX " & :: Standard
exit /b
: 00091344-1ea4-4f37-b789-01750ba6988c
set " _key=W3GGN %hy% FT8W3 %hy% Y4M27 %hy% J84CP %hy% Q3VJ9 " & :: Datacenter
exit /b
: 21db6ba4-9a7b-4a14-9e29-64a60c59301d
set " _key=KNC87 %hy% 3J2TX %hy% XB4WP %hy% VCPJV %hy% M4FWM " & :: Essentials
exit /b
: b743a2be-68d4-4dd3-af32-92425b7bb623
set " _key=3NPTF %hy% 33KPT %hy% GGBPR %hy% YX76B %hy% 39KDD " & :: Cloud Storage
exit /b
: : Windows 8
: c04ed6bf-55c8-4b47-9f8e-5a1f31ceee60
set " _key=BN3D2 %hy% R7TKB %hy% 3YPBD %hy% 8DRP2 %hy% 27GG4 " & :: Core
exit /b
: 197390a0-65f6-4a95-bdc4-55d58a3b0253
set " _key=8N2M2 %hy% HWPGY %hy% 7PGT9 %hy% HGDD8 %hy% GVGGY " & :: Core N
exit /b
: 8860fcd4-a77b-4a20-9045-a150ff11d609
set " _key=2WN2H %hy% YGCQR %hy% KFX6K %hy% CD6TF %hy% 84YXQ " & :: Core Single Language
exit /b
: 9d5584a2-2d85-419a-982c-a00888bb9ddf
set " _key=4K36P %hy% JN4VD %hy% GDC6V %hy% KDT89 %hy% DYFKP " & :: Core China
exit /b
: af35d7b7-5035-4b63-8972-f0b747b9f4dc
set " _key=DXHJF %hy% N9KQX %hy% MFPVR %hy% GHGQK %hy% Y7RKV " & :: Core ARM
exit /b
: a98bcd6d-5343-4603-8afe-5908e4611112
set " _key=NG4HW %hy% VH26C %hy% 733KW %hy% K6F98 %hy% J8CK4 " & :: Pro
exit /b
: ebf245c1-29a8-4daf-9cb1-38dfc608a8c8
set " _key=XCVCF %hy% 2NXM9 %hy% 723PB %hy% MHCB7 %hy% 2RYQQ " & :: Pro N
exit /b
: a00018a3-f20f-4632-bf7c-8daa5351c914
set " _key=GNBB8 %hy% YVD74 %hy% QJHX6 %hy% 27H4K %hy% 8QHDG " & :: Pro with Media Center
exit /b
: 458e1bec-837a-45f6-b9d5-925ed5d299de
set " _key=32JNW %hy% 9KQ84 %hy% P47T8 %hy% D8GGY %hy% CWCK7 " & :: Enterprise
exit /b
: e14997e7-800a-4cf7-ad10-de4b45b578db
set " _key=JMNMF %hy% RHW7P %hy% DMY6X %hy% RF3DR %hy% X2BQT " & :: Enterprise N
exit /b
: 10018baf-ce21-4060-80bd-47fe74ed4dab
set " _key=RYXVT %hy% BNQG7 %hy% VD29F %hy% DBMRY %hy% HT73M " & :: Embedded Industry Pro
exit /b
: 18db1848-12e0-4167-b9d7-da7fcda507db
set " _key=NKB3R %hy% R2F8T %hy% 3XCDP %hy% 7Q2KW %hy% XWYQ2 " & :: Embedded Industry Enterprise
exit /b
: : Windows Server 2012
: f0f5ec41-0d55-4732-af02-440a44a3cf0f
set " _key=XC9B7 %hy% NBPP2 %hy% 83J2H %hy% RHMBY %hy% 92BT4 " & :: Standard
exit /b
: d3643d60-0c42-412d-a7d6-52e6635327f6
set " _key=48HP8 %hy% DN98B %hy% MYWDG %hy% T2DCC %hy% 8W83P " & :: Datacenter
exit /b
: 7d5486c7-e120-4771-b7f1-7b56c6d3170c
set " _key=HM7DN %hy% YVMH3 %hy% 46JC3 %hy% XYTG7 %hy% CYQJJ " & :: MultiPoint Standard
exit /b
: 95fd1c83-7df5-494a-be8b-1300e1c9d1cd
set " _key=XNH6W %hy% 2V9GX %hy% RGJ4K %hy% Y8X6F %hy% QGJ2G " & :: MultiPoint Premium
exit /b
: : Windows 7
: b92e9980-b9d5-4821-9c94-140f632f6312
set " _key=FJ82H %hy% XT6CR %hy% J8D7P %hy% XQJJ2 %hy% GPDD4 " & :: Professional
exit /b
: 54a09a0d-d57b-4c10-8b69-a842d6590ad5
set " _key=MRPKT %hy% YTG23 %hy% K7D7T %hy% X2JMM %hy% QY7MG " & :: Professional N
exit /b
: 5a041529-fef8-4d07-b06f-b59b573b32d2
set " _key=W82YF %hy% 2Q76Y %hy% 63HXB %hy% FGJG9 %hy% GF7QX " & :: Professional E
exit /b
: ae2ee509-1b34-41c0-acb7-6d4650168915
set " _key=33PXH %hy% 7Y6KF %hy% 2VJC9 %hy% XBBR8 %hy% HVTHH " & :: Enterprise
exit /b
: 1cb6d605-11b3-4e14-bb30-da91c8e3983a
set " _key=YDRBP %hy% 3D83W %hy% TY26F %hy% D46B2 %hy% XCKRJ " & :: Enterprise N
exit /b
: 46bbed08-9c7b-48fc-a614-95250573f4ea
set " _key=C29WB %hy% 22CC8 %hy% VJ326 %hy% GHFJW %hy% H9DH4 " & :: Enterprise E
exit /b
: db537896-376f-48ae-a492-53d0547773d0
set " _key=YBYF6 %hy% BHCR3 %hy% JPKRB %hy% CDW7B %hy% F9BK4 " & :: Embedded POSReady 7
exit /b
: e1a8296a-db37-44d1-8cce-7bc961d59c54
set " _key=XGY72 %hy% BRBBT %hy% FF8MH %hy% 2GG8H %hy% W7KCW " & :: Embedded Standard
exit /b
: aa6dd3aa-c2b4-40e2-a544-a6bbb3f5c395
set " _key=73KQT %hy% CD9G6 %hy% K7TQG %hy% 66MRP %hy% CQ22C " & :: Embedded ThinPC
exit /b
: : Windows Server 2008 R2
: a78b8bd9-8017-4df5-b86a-09f756affa7c
set " _key=6TPJF %hy% RBVHG %hy% WBW2R %hy% 86QPH %hy% 6RTM4 " & :: Web
exit /b
: cda18cf3-c196-46ad-b289-60c072869994
set " _key=TT8MH %hy% CG224 %hy% D3D7Q %hy% 498W2 %hy% 9QCTX " & :: HPC
exit /b
: 68531fb9-5511-4989-97be-d11a0f55633f
set " _key=YC6KT %hy% GKW9T %hy% YTKYR %hy% T4X34 %hy% R7VHC " & :: Standard
exit /b
: 7482e61b-c589-4b7f-8ecc-46d455ac3b87
set " _key=74YFP %hy% 3QFB3 %hy% KQT8W %hy% PMXWJ %hy% 7M648 " & :: Datacenter
exit /b
: 620e2b3d-09e7-42fd-802a-17a13652fe7a
set " _key=489J6 %hy% VHDMP %hy% X63PK %hy% 3K798 %hy% CPX3Y " & :: Enterprise
exit /b
: 8a26851c-1c7e-48d3-a687-fbca9b9ac16b
set " _key=GT63C %hy% RJFQ3 %hy% 4GMB6 %hy% BRFB9 %hy% CB83V " & :: Itanium
exit /b
: f772515c-0e87-48d5-a676-e6962c3e1195
set " _key=736RG %hy% XDKJK %hy% V34PF %hy% BHK87 %hy% J6X3K " & :: MultiPoint Server %hy% ServerEmbeddedSolution
exit /b
: : Office 2021
: fbdb3e18-a8ef-4fb3-9183-dffd60bd0984
set " _key=FXYTK %hy% NJJ8C %hy% GB6DW %hy% 3DYQT %hy% 6F7TH " & :: Professional Plus
exit /b
: 080a45c5-9f9f-49eb-b4b0-c3c610a5ebd3
set " _key=KDX7X %hy% BNVR8 %hy% TXXGX %hy% 4Q7Y8 %hy% 78VT3 " & :: Standard
exit /b
: 76881159-155c-43e0-9db7-2d70a9a3a4ca
set " _key=FTNWT %hy% C6WBT %hy% 8HMGF %hy% K9PRX %hy% QV9H8 " & :: Project Professional
exit /b
: 6dd72704-f752-4b71-94c7-11cec6bfc355
set " _key=J2JDC %hy% NJCYY %hy% 9RGQ4 %hy% YXWMH %hy% T3D4T " & :: Project Standard
exit /b
: fb61ac9a-1688-45d2-8f6b-0674dbffa33c
set " _key=KNH8D %hy% FGHT4 %hy% T8RK3 %hy% CTDYJ %hy% K2HT4 " & :: Visio Professional
exit /b
: 72fce797-1884-48dd-a860-b2f6a5efd3ca
set " _key=MJVNY %hy% BYWPY %hy% CWV6J %hy% 2RKRT %hy% 4M8QG " & :: Visio Standard
exit /b
: 1fe429d8-3fa7-4a39-b6f0-03dded42fe14
set " _key=WM8YG %hy% YNGDD %hy% 4JHDC %hy% PG3F4 %hy% FC4T4 " & :: Access
exit /b
: ea71effc-69f1-4925-9991-2f5e319bbc24
set " _key=NWG3X %hy% 87C9K %hy% TC7YY %hy% BC2G7 %hy% G6RVC " & :: Excel
exit /b
: a5799e4c-f83c-4c6e-9516-dfe9b696150b
set " _key=C9FM6 %hy% 3N72F %hy% HFJXB %hy% TM3V9 %hy% T86R9 " & :: Outlook
exit /b
: 6e166cc3-495d-438a-89e7-d7c9e6fd4dea
set " _key=TY7XF %hy% NFRBR %hy% KJ44C %hy% G83KF %hy% GX27K " & :: PowerPoint
exit /b
: aa66521f-2370-4ad8-a2bb-c095e3e4338f
set " _key=2MW9D %hy% N4BXM %hy% 9VBPG %hy% Q7W6M %hy% KFBGQ " & :: Publisher
exit /b
: 1f32a9af-1274-48bd-ba1e-1ab7508a23e8
set " _key=HWCXN %hy% K3WBT %hy% WJBKY %hy% R8BD9 %hy% XK29P " & :: Skype for Business
exit /b
: abe28aea-625a-43b1-8e30-225eb8fbd9e5
set " _key=TN8H9 %hy% M34D3 %hy% Y64V9 %hy% TR72V %hy% X79KV " & :: Word
exit /b
: : Office 2019
: 85dd8b5f-eaa4-4af3-a628-cce9e77c9a03
set " _key=NMMKJ %hy% 6RK4F %hy% KMJVX %hy% 8D9MJ %hy% 6MWKP " & :: Professional Plus
exit /b
: 6912a74b-a5fb-401a-bfdb-2e3ab46f4b02
set " _key=6NWWJ %hy% YQWMR %hy% QKGCB %hy% 6TMB3 %hy% 9D9HK " & :: Standard
exit /b
: 2ca2bf3f-949e-446a-82c7-e25a15ec78c4
set " _key=B4NPR %hy% 3FKK7 %hy% T2MBV %hy% FRQ4W %hy% PKD2B " & :: Project Professional
exit /b
: 1777f0e3-7392-4198-97ea-8ae4de6f6381
set " _key=C4F7P %hy% NCP8C %hy% 6CQPT %hy% MQHV9 %hy% JXD2M " & :: Project Standard
exit /b
: 5b5cf08f-b81a-431d-b080-3450d8620565
set " _key=9BGNQ %hy% K37YR %hy% RQHF2 %hy% 38RQ3 %hy% 7VCBB " & :: Visio Professional
exit /b
: e06d7df3-aad0-419d-8dfb-0ac37e2bdf39
set " _key=7TQNQ %hy% K3YQQ %hy% 3PFH7 %hy% CCPPM %hy% X4VQ2 " & :: Visio Standard
exit /b
: 9e9bceeb-e736-4f26-88de-763f87dcc485
set " _key=9N9PT %hy% 27V4Y %hy% VJ2PD %hy% YXFMF %hy% YTFQT " & :: Access
exit /b
: 237854e9-79fc-4497-a0c1-a70969691c6b
set " _key=TMJWT %hy% YYNMB %hy% 3BKTF %hy% 644FC %hy% RVXBD " & :: Excel
exit /b
: c8f8a301-19f5-4132-96ce-2de9d4adbd33
set " _key=7HD7K %hy% N4PVK %hy% BHBCQ %hy% YWQRW %hy% XW4VK " & :: Outlook
exit /b
: 3131fd61-5e4f-4308-8d6d-62be1987c92c
set " _key=RRNCX %hy% C64HY %hy% W2MM7 %hy% MCH9G %hy% TJHMQ " & :: PowerPoint
exit /b
: 9d3e4cca-e172-46f1-a2f4-1d2107051444
set " _key=G2KWX %hy% 3NW6P %hy% PY93R %hy% JXK2T %hy% C9Y9V " & :: Publisher
exit /b
: 734c6c6e-b0ba-4298-a891-671772b2bd1b
set " _key=NCJ33 %hy% JHBBY %hy% HTK98 %hy% MYCV8 %hy% HMKHJ " & :: Skype for Business
exit /b
: 059834fe-a8ea-4bff-b67b-4d006b5447d3
set " _key=PBX3G %hy% NWMT6 %hy% Q7XBW %hy% PYJGG %hy% WXD33 " & :: Word
exit /b
: 0bc88885-718c-491d-921f-6f214349e79c
set " _key=VQ9DP %hy% NVHPH %hy% T9HJC %hy% J9PDT %hy% KTQRG " & :: Pro Plus 2019 Preview
exit /b
: fc7c4d0c-2e85-4bb9-afd4-01ed1476b5e9
set " _key=XM2V9 %hy% DN9HH %hy% QB449 %hy% XDGKC %hy% W2RMW " & :: Project Pro 2019 Preview
exit /b
: 500f6619-ef93-4b75-bcb4-82819998a3ca
set " _key=N2CG9 %hy% YD3YK %hy% 936X4 %hy% 3WR82 %hy% Q3X4H " & :: Visio Pro 2019 Preview
exit /b
: f3fb2d68-83dd-4c8b-8f09-08e0d950ac3b
set " _key=HFPBN %hy% RYGG8 %hy% HQWCW %hy% 26CH6 %hy% PDPVF " & :: Pro Plus 2021 Preview
exit /b
: 76093b1b-7057-49d7-b970-638ebcbfd873
set " _key=WDNBY %hy% PCYFY %hy% 9WP6G %hy% BXVXM %hy% 92HDV " & :: Project Pro 2021 Preview
exit /b
: a3b44174-2451-4cd6-b25f-66638bfb9046
set " _key=2XYX7 %hy% NXXBK %hy% 9CK7W %hy% K2TKW %hy% JFJ7G " & :: Visio Pro 2021 Preview
exit /b
: : Office 2016
: 829b8110-0e6f-4349-bca4-42803577788d
set " _key=WGT24 %hy% HCNMF %hy% FQ7XH %hy% 6M8K7 %hy% DRTW9 " & :: Project Professional C2R%hy% P
exit /b
: cbbaca45-556a-4416-ad03-bda598eaa7c8
set " _key=D8NRQ %hy% JTYM3 %hy% 7J2DX %hy% 646CT %hy% 6836M " & :: Project Standard C2R%hy% P
exit /b
: b234abe3-0857-4f9c-b05a-4dc314f85557
set " _key=69WXN %hy% MBYV6 %hy% 22PQG %hy% 3WGHK %hy% RM6XC " & :: Visio Professional C2R%hy% P
exit /b
: 361fe620-64f4-41b5-ba77-84f8e079b1f7
set " _key=NY48V %hy% PPYYH %hy% 3F4PX %hy% XJRKJ %hy% W4423 " & :: Visio Standard C2R%hy% P
exit /b
: e914ea6e-a5fa-4439-a394-a9bb3293ca09
set " _key=DMTCJ %hy% KNRKX %hy% 26982 %hy% JYCKT %hy% P7KB6 " & :: MondoR
exit /b
: 9caabccb-61b1-4b4b-8bec-d10a3c3ac2ce
set " _key=HFTND %hy% W9MK4 %hy% 8B7MJ %hy% B6C4G %hy% XQBR2 " & :: Mondo
exit /b
: d450596f-894d-49e0-966a-fd39ed4c4c64
set " _key=XQNVK %hy% 8JYDB %hy% WJ9W3 %hy% YJ8YR %hy% WFG99 " & :: Professional Plus
exit /b
: dedfa23d-6ed1-45a6-85dc-63cae0546de6
set " _key=JNRGM %hy% WHDWX %hy% FJJG3 %hy% K47QV %hy% DRTFM " & :: Standard
exit /b
: 4f414197-0fc2-4c01-b68a-86cbb9ac254c
set " _key=YG9NW %hy% 3K39V %hy% 2T3HJ %hy% 93F3Q %hy% G83KT " & :: Project Professional
exit /b
: da7ddabc-3fbe-4447-9e01-6ab7440b4cd4
set " _key=GNFHQ %hy% F6YQM %hy% KQDGJ %hy% 327XX %hy% KQBVC " & :: Project Standard
exit /b
: 6bf301c1-b94a-43e9-ba31-d494598c47fb
set " _key=PD3PC %hy% RHNGV %hy% FXJ29 %hy% 8JK7D %hy% RJRJK " & :: Visio Professional
exit /b
: aa2a7821-1827-4c2c-8f1d-4513a34dda97
set " _key=7WHWN %hy% 4T7MP %hy% G96JF %hy% G33KR %hy% W8GF4 " & :: Visio Standard
exit /b
: 67c0fc0c-deba-401b-bf8b-9c8ad8395804
set " _key=GNH9Y %hy% D2J4T %hy% FJHGG %hy% QRVH7 %hy% QPFDW " & :: Access
exit /b
: c3e65d36-141f-4d2f-a303-a842ee756a29
set " _key=9C2PK %hy% NWTVB %hy% JMPW8 %hy% BFT28 %hy% 7FTBF " & :: Excel
exit /b
: d8cace59-33d2-4ac7-9b1b-9b72339c51c8
set " _key=DR92N %hy% 9HTF2 %hy% 97XKM %hy% XW2WJ %hy% XW3J6 " & :: OneNote
exit /b
: ec9d9265-9d1e-4ed0-838a-cdc20f2551a1
set " _key=R69KK %hy% NTPKF %hy% 7M3Q4 %hy% QYBHW %hy% 6MT9B " & :: Outlook
exit /b
: d70b1bba-b893-4544-96e2-b7a318091c33
set " _key=J7MQP %hy% HNJ4Y %hy% WJ7YM %hy% PFYGF %hy% BY6C6 " & :: Powerpoint
exit /b
: 041a06cb-c5b8-4772-809f-416d03d16654
set " _key=F47MM %hy% N3XJP %hy% TQXJ9 %hy% BP99D %hy% 8K837 " & :: Publisher
exit /b
: 83e04ee1-fa8d-436d-8994-d31a862cab77
set " _key=869NQ %hy% FJ69K %hy% 466HW %hy% QYCP2 %hy% DDBV6 " & :: Skype for Business
exit /b
: bb11badf-d8aa-470e-9311-20eaf80fe5cc
set " _key=WXY84 %hy% JN2Q9 %hy% RBCCQ %hy% 3Q3J3 %hy% 3PFJ6 " & :: Word
exit /b
: : Office 2013
: dc981c6b-fc8e-420f-aa43-f8f33e5c0923
set " _key=42QTK %hy% RN8M7 %hy% J3C4G %hy% BBGYM %hy% 88CYV " & :: Mondo
exit /b
: b322da9c-a2e2-4058-9e4e-f59a6970bd69
set " _key=YC7DK %hy% G2NP3 %hy% 2QQC3 %hy% J6H88 %hy% GVGXT " & :: Professional Plus
exit /b
: b13afb38-cd79-4ae5-9f7f-eed058d750ca
set " _key=KBKQT %hy% 2NMXY %hy% JJWGP %hy% M62JB %hy% 92CD4 " & :: Standard
exit /b
: 4a5d124a-e620-44ba-b6ff-658961b33b9a
set " _key=FN8TT %hy% 7WMH6 %hy% 2D4X9 %hy% M337T %hy% 2342K " & :: Project Professional
exit /b
: 427a28d1-d17c-4abf-b717-32c780ba6f07
set " _key=6NTH3 %hy% CW976 %hy% 3G3Y2 %hy% JK3TX %hy% 8QHTT " & :: Project Standard
exit /b
: e13ac10e-75d0-4aff-a0cd-764982cf541c
set " _key=C2FG9 %hy% N6J68 %hy% H8BTJ %hy% BW3QX %hy% RM3B3 " & :: Visio Professional
exit /b
: ac4efaf0-f81f-4f61-bdf7-ea32b02ab117
set " _key=J484Y %hy% 4NKBF %hy% W2HMG %hy% DBMJC %hy% PGWR7 " & :: Visio Standard
exit /b
: 6ee7622c-18d8-4005-9fb7-92db644a279b
set " _key=NG2JY %hy% H4JBT %hy% HQXYP %hy% 78QH9 %hy% 4JM2D " & :: Access
exit /b
: f7461d52-7c2b-43b2-8744-ea958e0bd09a
set " _key=VGPNG %hy% Y7HQW %hy% 9RHP7 %hy% TKPV3 %hy% BG7GB " & :: Excel
exit /b
: fb4875ec-0c6b-450f-b82b-ab57d8d1677f
set " _key=H7R7V %hy% WPNXQ %hy% WCYYC %hy% 76BGV %hy% VT7GH " & :: Groove
exit /b
: a30b8040-d68a-423f-b0b5-9ce292ea5a8f
set " _key=DKT8B %hy% N7VXH %hy% D963P %hy% Q4PHY %hy% F8894 " & :: InfoPath
exit /b
: 1b9f11e3-c85c-4e1b-bb29-879ad2c909e3
set " _key=2MG3G %hy% 3BNTT %hy% 3MFW9 %hy% KDQW3 %hy% TCK7R " & :: Lync
exit /b
: efe1f3e6-aea2-4144-a208-32aa872b6545
set " _key=TGN6P %hy% 8MMBC %hy% 37P2F %hy% XHXXK %hy% P34VW " & :: OneNote
exit /b
: 771c3afa-50c5-443f-b151-ff2546d863a0
set " _key=QPN8Q %hy% BJBTJ %hy% 334K3 %hy% 93TGY %hy% 2PMBT " & :: Outlook
exit /b
: 8c762649-97d1-4953-ad27-b7e2c25b972e
set " _key=4NT99 %hy% 8RJFH %hy% Q2VDH %hy% KYG2C %hy% 4RD4F " & :: Powerpoint
exit /b
: 00c79ff1-6850-443d-bf61-71cde0de305f
set " _key=PN2WF %hy% 29XG2 %hy% T9HJ7 %hy% JQPJR %hy% FCXK4 " & :: Publisher
exit /b
: d9f5b1c6-5386-495a-88f9-9ad6b41ac9b3
set " _key=6Q7VD %hy% NX8JD %hy% WJ2VH %hy% 88V73 %hy% 4GBJ7 " & :: Word
exit /b
: : Office 2010
: 09ed9640-f020-400a-acd8-d7d867dfd9c2
set " _key=YBJTT %hy% JG6MD %hy% V9Q7P %hy% DBKXJ %hy% 38W9R " & :: Mondo
exit /b
: ef3d4e49-a53d-4d81-a2b1-2ca6c2556b2c
set " _key=7TC2V %hy% WXF6P %hy% TD7RT %hy% BQRXR %hy% B8K32 " & :: Mondo2
exit /b
: 6f327760-8c5c-417c-9b61-836a98287e0c
set " _key=VYBBJ %hy% TRJPB %hy% QFQRF %hy% QFT4D %hy% H3GVB " & :: Professional Plus
exit /b
: 9da2a678-fb6b-4e67-ab84-60dd6a9c819a
set " _key=V7QKV %hy% 4XVVR %hy% XYV4D %hy% F7DFM %hy% 8R6BM " & :: Standard
exit /b
: df133ff7-bf14-4f95-afe3-7b48e7e331ef
set " _key=YGX6F %hy% PGV49 %hy% PGW3J %hy% 9BTGG %hy% VHKC6 " & :: Project Professional
exit /b
: 5dc7bf61-5ec9-4996-9ccb-df806a2d0efe
set " _key=4HP3K %hy% 88W3F %hy% W2K3D %hy% 6677X %hy% F9PGB " & :: Project Standard
exit /b
: 92236105-bb67-494f-94c7-7f7a607929bd
set " _key=D9DWC %hy% HPYVV %hy% JGF4P %hy% BTWQB %hy% WX8BJ " & :: Visio Premium
exit /b
: e558389c-83c3-4b29-adfe-5e4d7f46c358
set " _key=7MCW8 %hy% VRQVK %hy% G677T %hy% PDJCM %hy% Q8TCP " & :: Visio Professional
exit /b
: 9ed833ff-4f92-4f36-b370-8683a4f13275
set " _key=767HD %hy% QGMWX %hy% 8QTDB %hy% 9G3R2 %hy% KHFGJ " & :: Visio Standard
exit /b
: 8ce7e872-188c-4b98-9d90-f8f90b7aad02
set " _key=V7Y44 %hy% 9T38C %hy% R2VJK %hy% 666HK %hy% T7DDX " & :: Access
exit /b
: cee5d470-6e3b-4fcc-8c2b-d17428568a9f
set " _key=H62QG %hy% HXVKF %hy% PP4HP %hy% 66KMR %hy% CW9BM " & :: Excel
exit /b
: 8947d0b8-c33b-43e1-8c56-9b674c052832
set " _key=QYYW6 %hy% QP4CB %hy% MBV6G %hy% HYMCJ %hy% 4T3J4 " & :: Groove %hy% SharePoint Workspace
exit /b
: ca6b6639-4ad6-40ae-a575-14dee07f6430
set " _key=K96W8 %hy% 67RPQ %hy% 62T9Y %hy% J8FQJ %hy% BT37T " & :: InfoPath
exit /b
: ab586f5c-5256-4632-962f-fefd8b49e6f4
set " _key=Q4Y4M %hy% RHWJM %hy% PY37F %hy% MTKWH %hy% D3XHX " & :: OneNote
exit /b
: ecb7c192-73ab-4ded-acf4-2399b095d0cc
set " _key=7YDC2 %hy% CWM8M %hy% RRTJC %hy% 8MDVC %hy% X3DWQ " & :: Outlook
exit /b
: 45593b1d-dfb1-4e91-bbfb-2d5d0ce2227a
set " _key=RC8FX %hy% 88JRY %hy% 3PF7C %hy% X8P67 %hy% P4VTT " & :: Powerpoint
exit /b
: b50c4f75-599b-43e8-8dcd-1081a7967241
set " _key=BFK7F %hy% 9MYHM %hy% V68C7 %hy% DRQ66 %hy% 83YTP " & :: Publisher
exit /b
: 2d0882e7-a4e7-423b-8ccc-70d91e0158b1
set " _key=HVHB3 %hy% C6FV7 %hy% KQX9W %hy% YQG79 %hy% CRY7T " & :: Word
exit /b
: ea509e87-07a1-4a45-9edc-eba5a39f36af
set " _key=D6QFG %hy% VBYP2 %hy% XQHM7 %hy% J97RH %hy% VVRCK " & :: Small Business Basics
exit /b
: TheEnd
if %act_failed% EQU 1 (
echo __________________________________________________________________
echo .
call : _errorinfo
)
echo .
if not defined _tskinstalled if not defined _oldtsk (
if %winbuild% GEQ 9200 (
call : leavenonexistentkms %nul%
echo Keeping the non-existent IP address 10.0.0.10 as KMS Server.
) else (
call : Clear-KMS-Cache
)
)
if defined _tskinstalled echo Renewal Task found, keeping the online KMS IP in the system.
if defined _oldtsk echo Renewal Task found, keeping the online KMS IP in the system.
if defined _unattended exit /b
echo ___________________________________________________________________
echo .
call : _color %_Yellow% " Press any key to go back... "
pause > nul
exit /b
: :========================================================================================================================================
: _errorinfo
( set msg1 = echo Try again and if the issue still persist then either use a^
& echo different Internet connection or use this offline KMS activator^
& echo KMS_VL_ALL by @abbodi1406 pastebin.com/raw/cpdmr6HZ
)
call : CheckFR
if !server_num! GTR %max_servers% (
ping -n 1 one.one.one.one 1 > nul || ping -n 1 resolver1.opendns.com 1 > nul || (
call : _color %_Red% " Unable to test KMS servers due to restricted or no Internet. "
echo .
%msg1%
exit /b
)
)
echo Restart the system and try again.
echo KMS server is not an issue in this case.
echo Check Troubleshooting steps in the ReadMe.
exit /b
: :========================================================================================================================================
: setserv
: : Multi KMS servers integration and servers randomization
set srvlist =
set - =
set " srvlist=win.km %-% s.pub xincheng213 %-% 618.cn kms.six %-% yin.com kms.moec %-% lub.org kms.cgts %-% oft.com "
set " srvlist= %srvlist% kms.03 %-% k.org kms.moey %-% uuko.com kms.lol %-% i.best kms.zhuxi %-% aole.org kms.ca %-% tqu.com "
set " srvlist= %srvlist% kms.lol %-% i.beer kms.ca %-% ry.tech kms.wx %-% lost.com kms.moeyu %-% uko.top kms.ghp %-% ym.com "
set n = 1
for %% a in ( %srvlist% ) do ( set %% a = & set server!n! = %% a& set /a n += 1 )
set max_servers = 15
set /a server_num = 0
exit /b
: getserv
if %server_num% equ %max_servers% set /a server_num += 1 & set KMS_IP = 222.184.9.98& exit /b
set /a rand =% Random %%% ( 15 + 1 - 1 ) + 1
if defined !server%rand%! goto : getserv
set KMS_IP = !server%rand%!
set !server%rand%! = 1
: : Get IPv4 address of KMS server to use for the activation, works even if ICMP echo is disabled.
: : Microsoft and Antivirus's may flag the issue if public KMS server host name is directly used for the activation.
set /a server_num += 1
( for /f " delims=[] tokens=2 " %% a in ( 'ping -4 -n 1 %KMS_IP% 2^>nul' ) do set " KMS_IP= %% a "
if %KMS_IP% ]== [!KMS_IP!] for /f " delims=[] tokens=2 " %% # in ( 'pathping -4 -h 1 -n -p 1 -q 1 -w 1 %KMS_IP% 2^>nul' ) do set " KMS_IP= %% # "
if not [%KMS_IP% ]== [!KMS_IP!] exit /b
goto : getserv
)
: ==========================================================================================================================================
: Clear-KMS-Cache
set OPPk = SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform
set SPPk = SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform
set _wApp = 55c92734-d682-4d71-983e-d6ec3f16059f
set _oApp = 0ff1ce15-a989-479d-af46-f275c6370663
set _oA14 = 59a52881-a989-479d-af46-f275c6370663
%nul% reg delete " HKLM\ %SPPk% " /f /v KeyManagementServiceName
%nul% reg delete " HKLM\ %SPPk% " /f /v KeyManagementServicePort
%nul% reg delete " HKLM\ %SPPk% " /f /v DisableDnsPublishing
%nul% reg delete " HKLM\ %SPPk% " /f /v DisableKeyManagementServiceHostCaching
%nul% reg delete " HKLM\ %SPPk% \ %_wApp% " /f
if %winbuild% GEQ 9200 (
if defined notx86 (
%nul% reg delete " HKLM\ %SPPk% " /f /v KeyManagementServiceName /reg:32
%nul% reg delete " HKLM\ %SPPk% " /f /v KeyManagementServicePort /reg:32
%nul% reg delete " HKLM\ %SPPk% \ %_oApp% " /f /reg:32
)
%nul% reg delete " HKLM\ %SPPk% \ %_oApp% " /f
)
if %winbuild% GEQ 9600 (
%nul% reg delete " HKU\S-1-5-20\ %SPPk% \ %_wApp% " /f
%nul% reg delete " HKU\S-1-5-20\ %SPPk% \ %_oApp% " /f
)
%nul% reg delete " HKLM\ %OPPk% " /f /v KeyManagementServiceName
%nul% reg delete " HKLM\ %OPPk% " /f /v KeyManagementServicePort
%nul% reg delete " HKLM\ %OPPk% " /f /v DisableDnsPublishing
%nul% reg delete " HKLM\ %OPPk% " /f /v DisableKeyManagementServiceHostCaching
%nul% reg delete " HKLM\ %OPPk% \ %_oA14% " /f
%nul% reg delete " HKLM\ %OPPk% \ %_oApp% " /f
: : check KMS38 lock
%nul% reg query " HKLM\ %SPPk% \ %_wApp% " && (
set error_ = 9
echo Failed to completely clear KMS Cache.
reg query " HKLM\ %SPPk% \ %_wApp% " /s 2 > nul | findstr /i " 127.0.0.2 " > nul && echo Most likely, the KMS38 activation is locked.
) || (
echo Cleared KMS Cache successfully.
)
exit /b
: =========================================================================================================================================
: leavenonexistentkms
reg add " HKLM\ %SPPk% " /f /v KeyManagementServiceName /t REG_SZ /d " 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 exit /b
echo .
call : _color %_Yellow% " Press any key to go back... "
pause > nul
exit /b
: clearstuff
reg query " %key% " /f Path /s | find /i " \Activation-Renewal " > nul && (
echo Deleting [Task] Activation-Renewal
schtasks /delete /tn Activation-Renewal /f %nul%
)
reg query " %key% " /f Path /s | find /i " \Activation-Run_Once " > nul && (
echo Deleting [Task] Activation-Run_Once
schtasks /delete /tn Activation-Run_Once /f %nul%
)
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%
)
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-Run_Once " > nul && ( set error_ = 1)
reg query " %key% " /f Path /s | find /i " \Online_KMS_Activation_Script-Run_Once " > nul && ( set error_ = 1)
If exist " %windir% \Online_KMS_Activation_Script\ " ( set error_ = 1)
reg query " HKCR\DesktopBackground\shell\Activate Windows - Office " %nul% && ( 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)
exit /b
: =========================================================================================================================================
: RenTask
cls
mode con cols=91 lines=30
title Install Activation Auto-Renewal
set error_ =
set " _dest= %ProgramData% \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 "
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
call : RenExport _extracttask " %_dest% \Activation_task.cmd " 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 __________________________________________________________________________________________
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 to run the Activation from the previous menu atleast once. "
echo __________________________________________________________________________________________
)
: :========================================================================================================================================
: RenDone
if defined _unattended exit /b
echo .
call : _color %_Yellow% " Press any key to go back... "
pause > nul
exit /b
: :========================================================================================================================================
: createInfo.txt
(
echo The use of this script is to activate/renew your Windows/Office 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:\ProgramData\Activation-Renewal\Activation_task.cmd
echo C:\ProgramData\Activation-Renewal\Info.txt
echo C:\ProgramData\Activation-Renewal\Logs.txt
echo ______________________________________________________________________________________________
echo :
echo Online KMS Activation Script is a part of 'Microsoft Activation Scripts' [MAS] project.
echo :
echo Homepage: massgrave.dev
echo Email: windowsaddict@protonmail.com
)>"%_dest%\Info.txt"
exit /b
: :========================================================================================================================================
: renewal :
< ?xml version=" 1.0 " encoding=" UTF-16 " ?>
< Task version=" 1.3 " xmlns=" http://schemas.microsoft.com/windows/2004/02/mit/task " >
< RegistrationInfo>
< Source> Microsoft Corporation< /Source>
< Date> 1999-01-01T12:00:00.34375< /Date>
< Author> WindowsAddict< /Author>
< Version> 1.0< /Version>
< Description> Online_K-M-S_Activation-Renewal - Weekly Task< /Description>
< URI> \Activation-Renewal< /URI>
< SecurityDescriptor> D:P(A;;FA;;;SY)(A;;FA;;;BA)(A;;FRFX;;;LS)(A;;FRFW;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)(A;;FR;;;S-1-5-4)< /SecurityDescriptor>
< /RegistrationInfo>
< Triggers>
< CalendarTrigger>
< StartBoundary> 1999-01-01T12:00:00< /StartBoundary>
< Enabled> true< /Enabled>
< ScheduleByWeek>
< DaysOfWeek>
< Sunday />
< /DaysOfWeek>
< WeeksInterval> 1< /WeeksInterval>
< /ScheduleByWeek>
< /CalendarTrigger>
< /Triggers>
< Principals>
< Principal id=" LocalSystem " >
< UserId> S-1-5-18< /UserId>
< RunLevel> HighestAvailable< /RunLevel>
< /Principal>
< /Principals>
< Settings>
< MultipleInstancesPolicy> IgnoreNew< /MultipleInstancesPolicy>
< DisallowStartIfOnBatteries> false< /DisallowStartIfOnBatteries>
< StopIfGoingOnBatteries> false< /StopIfGoingOnBatteries>
< AllowHardTerminate> true< /AllowHardTerminate>
< StartWhenAvailable> true< /StartWhenAvailable>
< RunOnlyIfNetworkAvailable> true< /RunOnlyIfNetworkAvailable>
< IdleSettings>
< StopOnIdleEnd> false< /StopOnIdleEnd>
< RestartOnIdle> false< /RestartOnIdle>
< /IdleSettings>
< AllowStartOnDemand> true< /AllowStartOnDemand>
< Enabled> true< /Enabled>
< Hidden> true< /Hidden>
< RunOnlyIfIdle> false< /RunOnlyIfIdle>
< DisallowStartOnRemoteAppSession> false< /DisallowStartOnRemoteAppSession>
< UseUnifiedSchedulingEngine> true< /UseUnifiedSchedulingEngine>
< WakeToRun> false< /WakeToRun>
< ExecutionTimeLimit> PT10M< /ExecutionTimeLimit>
< Priority> 7< /Priority>
< RestartOnFailure>
< Interval> PT2M< /Interval>
< Count> 3< /Count>
< /RestartOnFailure>
< /Settings>
< Actions Context=" LocalSystem " >
< Exec>
< Command> %ProgramData% \Activation-Renewal\Activation_task.cmd< /Command>
< Arguments> Task< /Arguments>
< /Exec>
< /Actions>
< /Task>
: renewal :
: run_once :
< ?xml version=" 1.0 " encoding=" UTF-16 " ?>
< Task version=" 1.3 " xmlns=" http://schemas.microsoft.com/windows/2004/02/mit/task " >
< RegistrationInfo>
< Source> Microsoft Corporation< /Source>
< Date> 1999-01-01T12:00:00.34375< /Date>
< Author> WindowsAddict< /Author>
< Version> 1.0< /Version>
< Description> Online_K-M-S_Activation-Run_Once - Run and Delete itself on first Internet Contact< /Description>
< URI> \Activation-Run_Once< /URI>
< SecurityDescriptor> D:P(A;;FA;;;SY)(A;;FA;;;BA)(A;;FRFX;;;LS)(A;;FRFW;;;S-1-5-80-123231216-2592883651-3715271367-3753151631-4175906628)(A;;FR;;;S-1-5-4)< /SecurityDescriptor>
< /RegistrationInfo>
< Triggers>
< LogonTrigger>
< Enabled> true< /Enabled>
< /LogonTrigger>
< /Triggers>
< Principals>
< Principal id=" LocalSystem " >
< UserId> S-1-5-18< /UserId>
< RunLevel> HighestAvailable< /RunLevel>
< /Principal>
< /Principals>
< Settings>
< MultipleInstancesPolicy> IgnoreNew< /MultipleInstancesPolicy>
< DisallowStartIfOnBatteries> false< /DisallowStartIfOnBatteries>
< StopIfGoingOnBatteries> false< /StopIfGoingOnBatteries>
< AllowHardTerminate> true< /AllowHardTerminate>
< StartWhenAvailable> true< /StartWhenAvailable>
< RunOnlyIfNetworkAvailable> true< /RunOnlyIfNetworkAvailable>
< IdleSettings>
< StopOnIdleEnd> false< /StopOnIdleEnd>
< RestartOnIdle> false< /RestartOnIdle>
< /IdleSettings>
< AllowStartOnDemand> true< /AllowStartOnDemand>
< Enabled> true< /Enabled>
< Hidden> true< /Hidden>
< RunOnlyIfIdle> false< /RunOnlyIfIdle>
< DisallowStartOnRemoteAppSession> false< /DisallowStartOnRemoteAppSession>
< UseUnifiedSchedulingEngine> true< /UseUnifiedSchedulingEngine>
< WakeToRun> false< /WakeToRun>
< ExecutionTimeLimit> PT10M< /ExecutionTimeLimit>
< Priority> 7< /Priority>
< RestartOnFailure>
< Interval> PT2M< /Interval>
< Count> 3< /Count>
< /RestartOnFailure>
< /Settings>
< Actions Context=" LocalSystem " >
< Exec>
< Command> %ProgramData% \Activation-Renewal\Activation_task.cmd< /Command>
< Arguments> Task< /Arguments>
< /Exec>
< /Actions>
< /Task>
: run_once :
: :========================================================================================================================================
: : Extract the text from batch script without character and file encoding issue
: RenExport
%nul% %psc% " $f=[io.file]::ReadAllText('!_batp!') -split \ " :%~1 \:.*`r`n\" ; [io.file]::WriteAllText(' %~2 ',$f[1].Trim(),[System.Text.Encoding]:: %~3 ); "
exit /b
: :========================================================================================================================================
: _extracttask :
@ echo off
: : Renew K-M-S activation with Online servers via scheduled task
: :============================================================================
: :
: : This script is a part of 'Microsoft Activation Scripts' (MAS) project.
: :
: : Homepage: massgrave.dev
: : Email: windowsaddict@protonmail.com
: :
: :============================================================================
if not " %~1 " == " Task " (
echo .
echo ====== Error ======
echo .
echo This file is supposed to be run only by the scheduled task.
echo .
echo Press any key to exit
pause > nul
exit /b
)
: : Set Path variable, it helps if it is misconfigured in the system
set " 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% "
)
reg query HKU\S-1-5-19 1 > nul 2 > nul || exit /b
: :========================================================================================================================================
set _tserror =
set " nul=>nul 2>&1 "
for /f " tokens=6 delims=[]. " %% G in ( 'ver' ) do set winbuild = %% G
set psc = 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 " %ProgramData% \Activation-Renewal\ " call : _taskstart >> " %ProgramData% \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.
echo See KB2736303 for details.
set _tserror = 1
exit /b
)
set gpr = 0
set gpr2 = 0
call : _taskgetgrace
set /a " gpr2=( %gpr% +1440-1)/1440 "
if %errorcode% EQU 0 if %gpr% EQU 0 (
echo Product Activation succeeded, but Remaining Period failed to increase.
if %1 ]== [act_win] if %winbuild% LSS 9200 echo This could be related to the error described in KB4487266
set _tserror = 1
exit /b
)
set _actpass = 1
if %gpr% EQU 43200 if %1 ]== [act_win] if %winbuild% GEQ 9200 set _actpass = 0
if %gpr% EQU 64800 set _actpass = 0
if %gpr% GTR 259200 if %1 ]== [act_win] call : _taskchkEnterpriseG _actpass
if %gpr% EQU 259200 set _actpass = 0
if %errorcode% EQU 0 if %_actpass% EQU 0 (
echo Product Activation Successful
echo Remaining Period: %gpr2% days ^( %gpr% minutes^)
exit /b
)
cmd /c exit /b %errorcode%
if %errorcode% NEQ 0 (
echo Product Activation Failed: 0x!=ExitCode!
) else (
echo Product Activation Failed
)
echo Remaining Period: %gpr2% days ^( %gpr% minutes^)
set _tserror = 1
exit /b
: :========================================================================================================================================
: _taskgetids
set %1 =
if %_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% "
: : Thanks to @dialmak for Office non-genuine banner solution
: : forum.ru-board.com/topic.cgi?forum=35&topic=81283&start=6080#19
if %winbuild% GEQ 9200 (
%nul% reg add " HKLM\ %SPPk% \ %_oApp% " /f /v KeyManagementServiceName /t REG_SZ /d " %KMS_IP% "
if defined notx86 (
%nul% reg add " HKLM\ %SPPk% " /f /v KeyManagementServiceName /t REG_SZ /d " %KMS_IP% " /reg:32
%nul% reg add " HKLM\ %SPPk% \ %_oApp% " /f /v KeyManagementServiceName /t REG_SZ /d " %KMS_IP% " /reg:32
)
)
exit /b
: :========================================================================================================================================
: _tasksetserv
: : Multi KMS servers integration and servers randomization
set srvlist =
set - =
set " srvlist=win.km %-% s.pub xincheng213 %-% 618.cn kms.six %-% yin.com kms.moec %-% lub.org kms.cgts %-% oft.com "
set " srvlist= %srvlist% kms.03 %-% k.org kms.moey %-% uuko.com kms.lol %-% i.best kms.zhuxi %-% aole.org kms.ca %-% tqu.com "
set " srvlist= %srvlist% kms.lol %-% i.beer kms.ca %-% ry.tech kms.wx %-% lost.com kms.moeyu %-% uko.top kms.ghp %-% ym.com "
set n = 1
for %% a in ( %srvlist% ) do ( set %% a = & set server!n! = %% a& set /a n += 1 )
set max_servers = 15
set /a server_num = 0
exit /b
: _taskgetserv
if %server_num% geq %max_servers% ( set /a server_num += 1 & set KMS_IP = 222.184.9.98& exit /b)
set /a rand =% Random %%% ( 15 + 1 - 1 ) + 1
if defined !server%rand%! goto : _taskgetserv
set KMS_IP = !server%rand%!
set !server%rand%! = 1
: : Get IPv4 address of KMS server to use for the activation, works even if ICMP echo is disabled.
: : Microsoft and Antivirus's may flag the issue if public KMS server host name is directly used for the activation.
set /a server_num += 1
( for /f " delims=[] tokens=2 " %% a in ( 'ping -4 -n 1 %KMS_IP% 2^>nul' ) do set " KMS_IP= %% a "
if %KMS_IP% ]== [!KMS_IP!] for /f " delims=[] tokens=2 " %% # in ( 'pathping -4 -h 1 -n -p 1 -q 1 -w 1 %KMS_IP% 2^>nul' ) do set " KMS_IP= %% # "
if not [%KMS_IP% ]== [!KMS_IP!] exit /b
goto : _taskgetserv
)
: : Ver:1.6
: :========================================================================================================================================
: _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 " ' " ( < nul > " ' " set /p " =. " )
setlocal
set " s= %~2 "
set " t= %~4 "
call : _batcol %1 s %3 t
del /f /q " ' "
del /f /q " `.txt "
popd
exit /b
: _batcol
setlocal EnableDelayedExpansion
set " s=! %~2 ! "
set " t=! %~4 ! "
for /f delims^= ^ eol^= %% i in ( " !s! " ) do (
if " ! " equ " " setlocal DisableDelayedExpansion
> `.txt ( echo %% i\..\')
findstr /a:%~1 /f:`.txt " . "
< nul set /p " = %_BS% %_BS% %_BS% %_BS% %_BS% %_BS% %_BS% "
)
if " %~4 " == " " echo (& exit /b
setlocal EnableDelayedExpansion
for /f delims^= ^ eol^= %% i in ( " !t! " ) do (
if " ! " equ " " setlocal DisableDelayedExpansion
> `.txt ( echo %% i\..\')
findstr /a:%~3 /f:`.txt " . "
< nul set /p " = %_BS% %_BS% %_BS% %_BS% %_BS% %_BS% %_BS% "
)
echo (
exit /b
: :=======================================
: _colorprep
if %_NCS% EQU 1 (
for /F %% a in ( 'echo prompt $E ^| cmd' ) do set " esc= %% a "
set " Red= " 41;97m" "
set " Gray= " 100;97m" "
set " Black= " 30m" "
set " Green= " 42;97m" "
set " Blue= " 44;97m" "
set " Yellow= " 43;97m" "
set " Magenta= " 45;97m" "
set " _Red= " 40;91m" "
set " _Green= " 40;92m" "
set " _Blue= " 40;94m" "
set " _White= " 40;37m" "
set " _Yellow= " 40;93m" "
exit /b
)
for /f %% A in ( '"prompt $H&for %% B in (1) do rem"' ) do set " _BS= %% A %% A "
set " _coltemp= %SystemRoot% \Temp "
set " Red= " CF" "
set " Gray= " 8F" "
set " Black= " 00" "
set " Green= " 2F" "
set " Blue= " 1F" "
set " Yellow= " 6F" "
set " Magenta= " 5F" "
set " _Red= " 0C" "
set " _Green= " 0A" "
set " _Blue= " 09" "
set " _White= " 07" "
set " _Yellow= " 0E" "
exit /b
: :========================================================================================================================================
