mirror of
https://github.com/massgravel/Microsoft-Activation-Scripts.git
synced 2024-12-22 17:35:32 +00:00
9037 lines
349 KiB
Batchfile
9037 lines
349 KiB
Batchfile
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
:: For command line switches, check https://massgrave.dev/
|
|
:: If you want to better understand script, read from MAS separate files version.
|
|
:::
|
|
::============================================================================
|
|
::
|
|
:: This 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:
|
|
popd
|
|
ping 127.0.0.1 -n 6 > nul
|
|
exit /b
|
|
)
|
|
popd
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
color 07
|
|
title Microsoft Activation Scripts AIO
|
|
|
|
set _args=
|
|
set _elev=
|
|
set _MASunattended=
|
|
|
|
set _args=%*
|
|
if defined _args set _args=%_args:"=%
|
|
if defined _args (
|
|
for %%A in (%_args%) do (
|
|
if /i "%%A"=="-el" set _elev=1
|
|
)
|
|
)
|
|
|
|
if defined _args echo "%_args%" | find /i "/" >nul && set _MASunattended=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 "nceline=echo: &echo ==== ERROR ==== &echo:"
|
|
set "eline=echo: &call :_color %Red% "==== ERROR ====" &echo:"
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %winbuild% LSS 7600 (
|
|
%nceline%
|
|
echo Unsupported OS version detected.
|
|
echo Project is supported only for Windows 7/8/8.1/10/11 and their Server equivalent.
|
|
goto MASend
|
|
)
|
|
|
|
for %%# in (powershell.exe) do @if "%%~$PATH:#"=="" (
|
|
%nceline%
|
|
echo Unable to find powershell.exe in the system.
|
|
echo Aborting...
|
|
goto MASend
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: 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 MASend
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Elevate script as admin and pass arguments and preventing loop
|
|
|
|
>nul fltmc || (
|
|
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 MASend
|
|
)
|
|
|
|
if not exist "%SystemRoot%\Temp\" mkdir "%SystemRoot%\Temp" 1>nul 2>nul
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Run script with parameters in unattended mode
|
|
|
|
set _elev=
|
|
if defined _args echo "%_args%" | find /i "/S" %nul% && (set "_silent=%nul%") || (set _silent=)
|
|
if defined _args echo "%_args%" | find /i "/" %nul% && (
|
|
echo "%_args%" | find /i "/HWID" %nul% && (setlocal & (call :HWIDActivation %_args% %_silent%) & cls & endlocal)
|
|
echo "%_args%" | find /i "/KMS38" %nul% && (setlocal & (call :KMS38Activation %_args% %_silent%) & cls & endlocal)
|
|
echo "%_args%" | find /i "/KMS-" %nul% && (setlocal & (call :KMSActivation %_args% %_silent%) & cls & endlocal)
|
|
echo "%_args%" | find /i "/Insert" %nul% && (setlocal & (call :insert_hwidkey %_args% %_silent%) & cls & endlocal)
|
|
exit /b
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
setlocal DisableDelayedExpansion
|
|
|
|
:: Check desktop location
|
|
|
|
set _desktop_=
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop') do call set "_desktop_=%%b"
|
|
if not defined _desktop_ for /f "delims=" %%a in ('%psc% "& {write-host $([Environment]::GetFolderPath('Desktop'))}"') do call set "_desktop_=%%a"
|
|
|
|
set "_pdesk=%_desktop_:'=''%"
|
|
setlocal EnableDelayedExpansion
|
|
|
|
::========================================================================================================================================
|
|
|
|
:MainMenu
|
|
|
|
cls
|
|
color 07
|
|
title Microsoft Activation Scripts AIO 1.7
|
|
mode 76, 30
|
|
set "mastemp=%SystemRoot%\Temp\__MAS"
|
|
if exist "%mastemp%\.*" rmdir /s /q "%mastemp%\" %nul%
|
|
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo: ______________________________________________________________
|
|
echo:
|
|
echo: Activation Methods:
|
|
echo:
|
|
echo: [1] HWID ^| Windows ^| Permanent
|
|
echo: [2] KMS38 ^| Windows ^| 2038 Year
|
|
echo: [3] Online KMS ^| Windows / Office ^| 180 Days
|
|
echo: __________________________________________________
|
|
echo:
|
|
echo: [4] Activation Status
|
|
echo: [5] Extras
|
|
echo: [6] Help
|
|
echo: [0] Exit
|
|
echo: ______________________________________________________________
|
|
echo:
|
|
call :_color2 %_White% " " %_Green% "Enter a menu option in the Keyboard [1,2,3,4,5,6,0] :"
|
|
choice /C:1234560 /N
|
|
set _erl=%errorlevel%
|
|
|
|
if %_erl%==7 exit /b
|
|
if %_erl%==6 start https://massgrave.dev & goto :MainMenu
|
|
if %_erl%==5 goto:Extras
|
|
if %_erl%==4 setlocal & call :_Check_Status_wmi & cls & endlocal & goto :MainMenu
|
|
if %_erl%==3 setlocal & call :KMSActivation & cls & endlocal & goto :MainMenu
|
|
if %_erl%==2 setlocal & call :KMS38Activation & cls & endlocal & goto :MainMenu
|
|
if %_erl%==1 setlocal & call :HWIDActivation & cls & endlocal & goto :MainMenu
|
|
goto :MainMenu
|
|
|
|
::========================================================================================================================================
|
|
|
|
:Extras
|
|
|
|
cls
|
|
title Extras
|
|
mode 76, 30
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo: ______________________________________________________________
|
|
echo:
|
|
echo: [1] Activation Troubleshoot
|
|
echo: [2] Change Windows Edition
|
|
echo:
|
|
echo: [3] Extract $OEM$ Folder
|
|
echo: [4] Insert Windows HWID Key
|
|
echo: [5] Activation Status [vbs]
|
|
echo: __________________________________________________
|
|
echo:
|
|
echo: [0] Go to Main Menu
|
|
echo: ______________________________________________________________
|
|
echo:
|
|
call :_color2 %_White% " " %_Green% "Enter a menu option in the Keyboard [1,2,3,4,5,0] :"
|
|
choice /C:123450 /N
|
|
set _erl=%errorlevel%
|
|
|
|
if %_erl%==6 goto :MainMenu
|
|
if %_erl%==5 setlocal & call :_Check_Status_vbs & cls & endlocal & goto :Extras
|
|
if %_erl%==4 setlocal & call :insert_hwidkey & cls & endlocal & goto :Extras
|
|
if %_erl%==3 goto:Extract$OEM$
|
|
if %_erl%==2 setlocal & call :change_edition & cls & endlocal & goto :Extras
|
|
if %_erl%==1 setlocal & call :troubleshoot & cls & endlocal & goto :Extras
|
|
goto :Extras
|
|
|
|
::========================================================================================================================================
|
|
|
|
:Extract$OEM$
|
|
|
|
cls
|
|
title Extract $OEM$ Folder
|
|
mode 76, 30
|
|
|
|
if not exist "!_desktop_!\" (
|
|
%eline%
|
|
echo Desktop location was not detected, aborting...
|
|
echo _____________________________________________________
|
|
echo:
|
|
call :_color %_Yellow% "Press any key to go back..."
|
|
pause >nul
|
|
goto Extras
|
|
)
|
|
|
|
if exist "!_desktop_!\$OEM$\" (
|
|
%eline%
|
|
echo $OEM$ folder already exists on the Desktop.
|
|
echo _____________________________________________________
|
|
echo:
|
|
call :_color %_Yellow% "Press any key to go back..."
|
|
pause >nul
|
|
goto Extras
|
|
)
|
|
|
|
:Extract$OEM$2
|
|
|
|
cls
|
|
title Extract $OEM$ Folder
|
|
mode 76, 30
|
|
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo: Extract $OEM$ folder on the desktop
|
|
echo: ______________________________________________________________
|
|
echo:
|
|
echo: [1] HWID
|
|
echo: [2] KMS38
|
|
echo: [3] Online KMS
|
|
echo:
|
|
echo: [4] HWID ^(Windows^) ^+ Online KMS ^(Office^)
|
|
echo: [5] KMS38 ^(Windows^) ^+ Online KMS ^(Office^)
|
|
echo: __________________________________________________
|
|
echo:
|
|
echo: [0] Go Back
|
|
echo: ______________________________________________________________
|
|
echo:
|
|
call :_color2 %_White% " " %_Green% "Enter a menu option in the Keyboard:"
|
|
choice /C:123450 /N
|
|
set _erl=%errorlevel%
|
|
|
|
if %_erl%==6 goto:Extras
|
|
if %_erl%==5 (set "_oem=KMS38 [Windows] + Online KMS [Office]" & set "para=/KMS38 /KMS-ActAndRenewalTask /KMS-Office" &goto:Extract$OEM$3)
|
|
if %_erl%==4 (set "_oem=HWID [Windows] + Online KMS [Office]" & set "para=/HWID /KMS-ActAndRenewalTask /KMS-Office" &goto:Extract$OEM$3)
|
|
if %_erl%==3 (set "_oem=Online KMS" & set "para=/KMS-ActAndRenewalTask /KMS-WindowsOffice" &goto:Extract$OEM$3)
|
|
if %_erl%==2 (set "_oem=KMS38" & set "para=/KMS38" &goto:Extract$OEM$3)
|
|
if %_erl%==1 (set "_oem=HWID" & set "para=/HWID" &goto:Extract$OEM$3)
|
|
goto :Extract$OEM$2
|
|
|
|
::========================================================================================================================================
|
|
|
|
:Extract$OEM$3
|
|
|
|
cls
|
|
set "_dir=!_desktop_!\$OEM$\$$\Setup\Scripts"
|
|
md "!_dir!\"
|
|
copy /y /b "!_batf!" "!_dir!\MAS_AIO.cmd" %nul%
|
|
|
|
(
|
|
echo @echo off
|
|
echo fltmc ^>nul ^|^| exit /b
|
|
echo call "%%~dp0MAS_AIO.cmd" %para%
|
|
echo cd \
|
|
echo ^(goto^) 2^>nul ^& ^(if "%%~dp0"=="%%SystemRoot%%\Setup\Scripts\" rd /s /q "%%~dp0"^)
|
|
)>"!_dir!\SetupComplete.cmd"
|
|
|
|
set _error=
|
|
if not exist "!_dir!\MAS_AIO.cmd" set _error=1
|
|
if not exist "!_dir!\SetupComplete.cmd" set _error=1
|
|
|
|
|
|
if defined _error (
|
|
%eline%
|
|
echo Failed to extract $OEM$ folder on the Desktop.
|
|
) else (
|
|
echo:
|
|
call :_color %Magenta% "%_oem%"
|
|
call :_color %Green% "$OEM$ folder is successfully created on the Desktop."
|
|
)
|
|
echo "%_oem%" | find /i "KMS38" 1>nul && (
|
|
echo:
|
|
echo To KMS38 activate Server Cor/Acor editions ^(No GUI Versions^),
|
|
echo Check this page https://massgrave.dev/oem-folder
|
|
)
|
|
echo ___________________________________________________________________
|
|
echo:
|
|
call :_color %_Yellow% "Press any key to go back..."
|
|
pause >nul
|
|
goto Extras
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:HWIDActivation
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
:: To activate, run the script with "/HWID" parameter or change 0 to 1 in below line
|
|
set _act=0
|
|
|
|
:: To disable changing edition if current edition doesn't support HWID activation, change the value to 1 from 0 or run the script with "/HWID-NoEditionChange" parameter
|
|
set _NoEditionChange=0
|
|
|
|
:: If value is changed in above lines or parameter is used then script will run in unattended mode
|
|
|
|
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
color 07
|
|
title HWID Activation
|
|
|
|
set _args=
|
|
set _elev=
|
|
set _unattended=0
|
|
|
|
set _args=%*
|
|
if defined _args set _args=%_args:"=%
|
|
if defined _args (
|
|
for %%A in (%_args%) do (
|
|
if /i "%%A"=="/HWID" set _act=1
|
|
if /i "%%A"=="/HWID-NoEditionChange" set _NoEditionChange=1
|
|
if /i "%%A"=="-el" set _elev=1
|
|
)
|
|
)
|
|
|
|
for %%A in (%_act% %_NoEditionChange%) do (if "%%A"=="1" set _unattended=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)
|
|
|
|
if %_NCS% EQU 1 (
|
|
for /F %%a in ('echo prompt $E ^| cmd') do set "esc=%%a"
|
|
set "Red="41;97m""
|
|
set "Gray="100;97m""
|
|
set "Green="42;97m""
|
|
set "Magenta="45;97m""
|
|
set "_White="40;37m""
|
|
set "_Green="40;92m""
|
|
set "_Yellow="40;93m""
|
|
) else (
|
|
set "Red="Red" "white""
|
|
set "Gray="Darkgray" "white""
|
|
set "Green="DarkGreen" "white""
|
|
set "Magenta="Darkmagenta" "white""
|
|
set "_White="Black" "Gray""
|
|
set "_Green="Black" "Green""
|
|
set "_Yellow="Black" "Yellow""
|
|
)
|
|
|
|
set "nceline=echo: &echo ==== ERROR ==== &echo:"
|
|
set "eline=echo: &call :dk_color %Red% "==== ERROR ====" &echo:"
|
|
if %~z0 GEQ 200000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit")
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %winbuild% LSS 10240 (
|
|
%eline%
|
|
echo Unsupported OS version detected.
|
|
echo Project is supported for Windows 10/11.
|
|
goto dk_done
|
|
)
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (
|
|
%eline%
|
|
echo HWID Activation is not supported for Windows Server.
|
|
echo Use KMS38 or KMS Activation.
|
|
goto dk_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
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
mode 102, 33
|
|
title HWID Activation
|
|
|
|
echo:
|
|
echo Initializing...
|
|
call :dk_product
|
|
call :dk_ckeckwmic
|
|
|
|
:: Show info for potential script stuck scenario
|
|
|
|
sc start sppsvc %nul%
|
|
if %errorlevel% NEQ 1056 if %errorlevel% NEQ 0 (
|
|
echo:
|
|
echo Error code: %errorlevel%
|
|
call :dk_color %Red% "Failed to start [sppsvc] service, rest of the process may take a long time..."
|
|
echo:
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check if system is permanently activated or not
|
|
|
|
call :dk_checkperm
|
|
if defined _perm (
|
|
cls
|
|
echo ___________________________________________________________________________________________
|
|
echo:
|
|
call :dk_color2 %_White% " " %Green% "Checking: %winos% is Permanently Activated."
|
|
call :dk_color2 %_White% " " %Gray% "Activation is not required."
|
|
echo ___________________________________________________________________________________________
|
|
if %_unattended%==1 goto dk_done
|
|
echo:
|
|
choice /C:10 /N /M "> [1] Activate [0] %_exitmsg% : "
|
|
if errorlevel 2 exit /b
|
|
)
|
|
cls
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check Evaluation version
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" (
|
|
reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID 2>nul | find /i "Eval" 1>nul && (
|
|
%eline%
|
|
echo [%winos% ^| %winbuild%]
|
|
echo Evaluation Editions cannot be activated. Download ^& Install full version of Windows OS.
|
|
echo:
|
|
echo https://massgrave.dev/
|
|
goto dk_done
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check SKU value / Check in multiple places to find Edition change corruption
|
|
|
|
set osSKU=
|
|
set regSKU=
|
|
set wmiSKU=
|
|
|
|
for /f "tokens=3 delims=." %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions" /v OSProductPfn 2^>nul') do set "regSKU=%%a"
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%a in ('"wmic Path Win32_OperatingSystem Get OperatingSystemSKU /format:LIST" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
if %_wmic% EQU 0 for /f "tokens=1" %%a in ('%psc% "([WMI]'Win32_OperatingSystem=@').OperatingSystemSKU" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
|
|
set osSKU=%wmiSKU%
|
|
if not defined osSKU set osSKU=%regSKU%
|
|
|
|
if not defined osSKU (
|
|
%eline%
|
|
echo SKU value was not detected properly. Aborting...
|
|
goto dk_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
set error=
|
|
|
|
:: Check Internet connection
|
|
|
|
cls
|
|
echo:
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b
|
|
echo Checking OS Info [%winos% ^| %winbuild% ^| %arch%]
|
|
|
|
set _intcon=
|
|
for /f "delims=[] tokens=2" %%# in ('ping -n 1 licensing.mp.microsoft.com') do if not [%%#]==[] set _intcon=1
|
|
|
|
%psc% "$t = New-Object Net.Sockets.TcpClient;try{$t.Connect("""licensing.mp.microsoft.com""", 443)}catch{};$t.Connected" | findstr /i true 1>nul
|
|
if %errorlevel% EQU 0 (
|
|
echo Checking Internet Connection [Connected]
|
|
) else (
|
|
set error=1
|
|
if defined _intcon (
|
|
call :dk_color %Red% "Checking Internet Connection [Internet Found But Cant Connect licensing.mp.microsoft.com]"
|
|
call :dk_color %Magenta% "Make sure restricted Internet [Office/College] is not connected and URL is not blocked in the system"
|
|
) else (
|
|
call :dk_color %Red% "Checking Internet Connection [Not Connected]"
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check Windows Script Host
|
|
|
|
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 (
|
|
reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%
|
|
reg add "HKCU\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%
|
|
if not "%arch%"=="x86" reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f /reg:32 %nul%
|
|
echo Enabling Windows Script Host [Successful]
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
echo Initiating Diagnostic Tests...
|
|
|
|
set "_serv=ClipSVC wlidsvc sppsvc LicenseManager Winmgmt wuauserv"
|
|
|
|
:: Client License Service (ClipSVC)
|
|
:: Microsoft Account Sign-in Assistant
|
|
:: Software Protection
|
|
:: Windows License Manager Service
|
|
:: Windows Management Instrumentation
|
|
:: Windows Update
|
|
|
|
call :dk_errorcheck
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Detect Key
|
|
|
|
set key=
|
|
set altkey=
|
|
set changekey=
|
|
set curedition=
|
|
set altedition=
|
|
set notworking=
|
|
set actidnotfound=
|
|
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v BuildBranch 2^>nul') do set "branch=%%b"
|
|
|
|
if defined applist call :hwiddata key attempt1
|
|
if not defined key call :hwiddata key attempt2
|
|
|
|
if defined notworking call :hwidfallback
|
|
if not defined key call :hwidfallback
|
|
|
|
if defined altkey (set key=%altkey%&set changekey=1&set notworking=)
|
|
|
|
if defined notworking if defined notfoundaltactID (
|
|
call :dk_color %Red% "Checking Alternate Edition For HWID [%altedition% Activation ID Not Found]"
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" (
|
|
call :dk_color %Magenta% "Evaluation Windows Found. Install Full version of Windows. https://massgrave.dev/"
|
|
)
|
|
)
|
|
|
|
if not defined key (
|
|
%eline%
|
|
echo [%winos% ^| %winbuild% ^| SKU:%osSKU%]
|
|
echo Unable to find this product in the supported product list.
|
|
echo Make sure you are using updated version of the script.
|
|
echo https://massgrave.dev
|
|
echo:
|
|
goto dk_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Install key
|
|
|
|
echo:
|
|
if defined changekey (
|
|
call :dk_color %Magenta% "[%altedition%] Edition product key will be used to enable HWID activation."
|
|
echo:
|
|
)
|
|
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingService where __CLASS='SoftwareLicensingService' call InstallProductKey ProductKey="%key%" %nul%
|
|
if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT Version FROM SoftwareLicensingService').Get()).InstallProductKey('%key%')" %nul%
|
|
if not %errorlevel%==0 cscript //nologo %windir%\system32\slmgr.vbs /ipk %key% %nul%
|
|
set errorcode=%errorlevel%
|
|
cmd /c exit /b %errorcode%
|
|
if %errorcode% NEQ 0 set "errorcode=[0x%=ExitCode%]"
|
|
|
|
if %errorcode% EQU 0 (
|
|
call :dk_refresh
|
|
echo Installing Generic Product Key [%key%] [Successful]
|
|
) else (
|
|
set error=1
|
|
call :dk_color %Red% "Installing Generic Product Key [%key%] [Failed] %errorcode%"
|
|
if defined applist if defined actidnotfound call :dk_color %Red% "Activation ID not found for this key. Make sure you are using updated version of MAS."
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Change Windows region to USA to avoid activation issues as Windows store license is not available in many countries
|
|
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKCU\Control Panel\International\Geo" /v Name 2^>nul') do set "name=%%b"
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKCU\Control Panel\International\Geo" /v Nation 2^>nul') do set "nation=%%b"
|
|
|
|
set regionchange=
|
|
if not "%name%"=="US" (
|
|
set regionchange=1
|
|
%psc% Set-WinHomeLocation -GeoId 244
|
|
if !errorlevel! EQU 0 (
|
|
echo Changing Windows Region To USA [Successful]
|
|
) else (
|
|
call :dk_color %Red% "Changing Windows Region To USA [Failed]"
|
|
)
|
|
)
|
|
|
|
::==========================================================================================================================================
|
|
|
|
:: Generate GenuineTicket.xml and apply
|
|
:: Most correct way to apply a ticket is by restarting ClipSVC service but we can not check the log details in this way
|
|
:: To get the log details and also to correctly apply ticket, script will install tickets two times (service restart + clipup -v -o)
|
|
|
|
set "tdir=%ProgramData%\Microsoft\Windows\ClipSVC\GenuineTicket"
|
|
if not exist "%tdir%\" md "%tdir%\" %nul%
|
|
|
|
if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul%
|
|
if exist "%tdir%\*.xml" del /f /q "%tdir%\*.xml" %nul%
|
|
|
|
call :hwiddata ticket
|
|
|
|
copy /y /b "%tdir%\GenuineTicket" "%tdir%\GenuineTicket.xml" %nul%
|
|
|
|
if not exist "%tdir%\GenuineTicket.xml" (
|
|
call :dk_color %Red% "Generating GenuineTicket.xml [Failed]"
|
|
echo [%encoded%]
|
|
if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul%
|
|
goto :dl_final
|
|
) else (
|
|
echo Generating GenuineTicket.xml [Successful]
|
|
)
|
|
|
|
set "_xmlexist=if exist "%tdir%\GenuineTicket.xml""
|
|
|
|
%_xmlexist% (
|
|
net stop ClipSVC /y %nul%
|
|
net start ClipSVC /y %nul%
|
|
%_xmlexist% timeout /t 2 %nul%
|
|
%_xmlexist% timeout /t 2 %nul%
|
|
|
|
%_xmlexist% (
|
|
if exist "%tdir%\*.xml" del /f /q "%tdir%\*.xml" %nul%
|
|
call :dk_color %Red% "Installing GenuineTicket.xml [Failed With ClipSVC Service Restart, Wait...]"
|
|
)
|
|
)
|
|
|
|
copy /y /b "%tdir%\GenuineTicket" "%tdir%\GenuineTicket.xml" %nul%
|
|
clipup -v -o
|
|
if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul%
|
|
|
|
::==========================================================================================================================================
|
|
|
|
call :dk_product
|
|
|
|
echo:
|
|
echo Activating...
|
|
echo:
|
|
|
|
call :dk_act
|
|
call :dk_checkperm
|
|
if defined _perm (
|
|
call :dk_color %Green% "%winos% is permanently activated."
|
|
goto :dl_final
|
|
)
|
|
|
|
|
|
if not defined error (
|
|
|
|
REM Clear store ID related registry to fix activation incase if there is any corruption
|
|
|
|
set "_ident=HKU\S-1-5-19\SOFTWARE\Microsoft\IdentityCRL"
|
|
reg delete "!_ident!" /f %nul%
|
|
reg query "!_ident!" %nul% && (
|
|
call :dk_color %Red% "Deleting a Registry [Failed] [!_ident!]"
|
|
) || (
|
|
echo Deleting a Registry [Successful] [!_ident!]
|
|
)
|
|
|
|
REM Refresh some services and license status
|
|
|
|
for %%# in (wlidsvc LicenseManager sppsvc) do (net stop %%# /y %nul% & net start %%# /y %nul%)
|
|
call :dk_refresh
|
|
call :dk_act
|
|
call :dk_checkperm
|
|
)
|
|
|
|
if defined _perm (
|
|
call :dk_color %Green% "%winos% is permanently activated."
|
|
) else (
|
|
call :dk_color %Red% "Activation Failed %error_code%"
|
|
if defined notworking (
|
|
call :dk_color %Magenta% "At the time of writing this, HWID Activation was not supported for this product."
|
|
) else (
|
|
call :dk_color2 %Magenta% "Check this page for help" %_Yellow% " https://massgrave.dev/troubleshoot"
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:dl_final
|
|
|
|
echo:
|
|
|
|
if defined regionchange (
|
|
%psc% Set-WinHomeLocation -GeoId %nation%
|
|
if !errorlevel! EQU 0 (
|
|
echo Restoring Windows Region [Successful]
|
|
) else (
|
|
call :dk_color %Red% "Restoring Windows Region [Failed] [%name%-%nation%]"
|
|
)
|
|
)
|
|
|
|
if %osSKU%==175 call :dk_color %Red% "ServerRdsh Editon does not officially support activation on non-azure platforms."
|
|
|
|
goto :dk_done
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Get Windows permanent activation status
|
|
|
|
:dk_checkperm
|
|
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingProduct where (LicenseStatus='1' and GracePeriodRemaining='0' and PartialProductKey is not NULL) get Name /value 2>nul | findstr /i "Windows" 1>nul && set _perm=1||set _perm=
|
|
if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT Name FROM SoftwareLicensingProduct WHERE LicenseStatus=1 AND GracePeriodRemaining=0 AND PartialProductKey IS NOT NULL').Get()).Name | %% {echo ('Name='+$_)}" 2>nul | findstr /i "Windows" 1>nul && set _perm=1||set _perm=
|
|
exit /b
|
|
|
|
:: Refresh license status
|
|
|
|
:dk_refresh
|
|
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingService where __CLASS='SoftwareLicensingService' call RefreshLicenseStatus %nul%
|
|
if %_wmic% EQU 0 %psc% "$null=(([WMICLASS]'SoftwareLicensingService').GetInstances()).RefreshLicenseStatus()" %nul%
|
|
exit /b
|
|
|
|
:: Activation command
|
|
|
|
:dk_act
|
|
|
|
set error_code=
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingProduct where "ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and PartialProductKey<>null" call Activate %nul%
|
|
if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT ID FROM SoftwareLicensingProduct WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND PartialProductKey IS NOT NULL').Get()).Activate()" %nul%
|
|
if not %errorlevel%==0 cscript //nologo %windir%\system32\slmgr.vbs /ato %nul%
|
|
set error_code=%errorlevel%
|
|
cmd /c exit /b %error_code%
|
|
if %error_code% NEQ 0 (set "error_code=[Error Code: 0x%=ExitCode%]") else (set error_code=)
|
|
exit /b
|
|
|
|
:: Get Windows Activation IDs
|
|
|
|
:dk_actids
|
|
|
|
set applist=
|
|
if %_wmic% EQU 1 set "chkapp=for /f "tokens=2 delims==" %%a in ('"wmic path SoftwareLicensingProduct where (ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f') get ID /VALUE" 2^>nul')"
|
|
if %_wmic% EQU 0 set "chkapp=for /f "tokens=2 delims==" %%a in ('%psc% "(([WMISEARCHER]'SELECT ID FROM SoftwareLicensingProduct WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f''').Get()).ID ^| %% {echo ('ID='+$_)}" 2^>nul')"
|
|
%chkapp% do (if defined applist (call set "applist=!applist! %%a") else (call set "applist=%%a"))
|
|
exit /b
|
|
|
|
:: Get Product name (WMI/REG methods are not reliable in all conditions, hence winbrand.dll method is used)
|
|
|
|
:dk_product
|
|
|
|
set winos=
|
|
set d1=[DllImport(\"winbrand\",CharSet=CharSet.Unicode)]public static extern string BrandingFormatString(string s);
|
|
set d2=$AP=Add-Type -Member '%d1%' -Name D1 -PassThru; $AP::BrandingFormatString('%%WINDOWS_LONG%%')
|
|
for /f "delims=" %%s in ('"%psc% %d2%"') do if not errorlevel 1 (set winos=%%s)
|
|
echo "%winos%" | find /i "Windows" 1>nul || (
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName 2^>nul') do set "winos=%%b"
|
|
if %winbuild% GEQ 22000 (
|
|
set winos=!winos:Windows 10=Windows 11!
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
:: Check wmic.exe
|
|
|
|
:dk_ckeckwmic
|
|
|
|
set _wmic=0
|
|
for %%# in (wmic.exe) do @if not "%%~$PATH:#"=="" (
|
|
wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "computersystem" 1>nul && set _wmic=1
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:dk_errorcheck
|
|
|
|
:: Check disabled services
|
|
|
|
set serv_ste=
|
|
for %%# in (%_serv%) do (
|
|
set serv_dis=
|
|
reg query HKLM\SYSTEM\CurrentControlSet\Services\%%# /v Start %nul% || set serv_dis=1
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Services\%%# /v Start 2^>nul') do if /i %%b equ 0x4 set serv_dis=1
|
|
if defined serv_dis (if defined serv_ste (set "serv_ste=!serv_ste! %%#") else (set "serv_ste=%%#"))
|
|
)
|
|
|
|
:: Change disabled services startup type to default
|
|
|
|
set serv_csts=
|
|
set serv_cste=
|
|
|
|
if defined serv_ste (
|
|
for %%# in (%serv_ste%) do (
|
|
if /i %%#==ClipSVC (reg add "HKLM\SYSTEM\CurrentControlSet\Services\%%#" /v "Start" /t REG_DWORD /d "3" /f %nul% & sc config %%# start= demand %nul%)
|
|
if /i %%#==wlidsvc sc config %%# start= demand %nul%
|
|
if /i %%#==sppsvc (reg add "HKLM\SYSTEM\CurrentControlSet\Services\%%#" /v "Start" /t REG_DWORD /d "2" /f %nul% & sc config %%# start= delayed-auto %nul%)
|
|
if /i %%#==LicenseManager sc config %%# start= demand %nul%
|
|
if /i %%#==Winmgmt sc config %%# start= auto %nul%
|
|
if /i %%#==wuauserv sc config %%# start= demand %nul%
|
|
if !errorlevel!==0 (
|
|
if defined serv_csts (set "serv_csts=!serv_csts! %%#") else (set "serv_csts=%%#")
|
|
) else (
|
|
set error=1
|
|
if defined serv_cste (set "serv_cste=!serv_cste! %%#") else (set "serv_cste=%%#")
|
|
)
|
|
)
|
|
)
|
|
|
|
if defined serv_csts echo Enabling Disabled Services [Successful] [%serv_csts%]
|
|
|
|
if defined serv_cste (
|
|
echo %serv_cste% | findstr /i "ClipSVC sppsvc" %nul% && (
|
|
call :dk_color %Red% "Enabling Disabled Services [Failed] [%serv_cste%] [Restart System]"
|
|
) || (
|
|
call :dk_color %Red% "Enabling Disabled Services [Failed] [%serv_cste%]"
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check if the services are able to run or not
|
|
:: Workarounds are added to get correct status and error code because sc query doesn't output correct results in some conditions
|
|
|
|
set serv_e=
|
|
for %%# in (%_serv%) do (
|
|
set errorcode=
|
|
set checkerror=
|
|
net start %%# /y %nul%
|
|
sc query %%# | find /i "4 RUNNING" %nul% || set checkerror=1
|
|
|
|
sc start %%# %nul%
|
|
set errorcode=!errorlevel!
|
|
if !errorcode! NEQ 1056 if !errorcode! NEQ 0 set checkerror=1
|
|
if defined checkerror if defined serv_e (set "serv_e=!serv_e!, %%#-!errorcode!") else (set "serv_e=%%#-!errorcode!")
|
|
)
|
|
|
|
if defined serv_e (
|
|
set error=1
|
|
call :dk_color %Red% "Starting Services [Failed] [%serv_e%]"
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Various error checks
|
|
|
|
for %%# in (wmic.exe) do @if "%%~$PATH:#"=="" (
|
|
call :dk_color %Gray% "Checking WMIC.exe [Not Found]"
|
|
)
|
|
|
|
|
|
%psc% $ExecutionContext.SessionState.LanguageMode 2>nul | find /i "Full" 1>nul || (
|
|
set error=1
|
|
call :dk_color %Red% "Checking Powershell [Not Responding]"
|
|
)
|
|
|
|
|
|
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 error=1
|
|
call :dk_color %Red% "Checking WMI [Not Responding] %_wmic%"
|
|
)
|
|
|
|
|
|
if not "%regSKU%"=="%wmiSKU%" (
|
|
set error=1
|
|
call :dk_color %Red% "Checking WMI/REG SKU [Difference Found - WMI:%wmiSKU% Reg:%regSKU%]"
|
|
)
|
|
|
|
|
|
DISM /English /Online /Get-CurrentEdition %nul%
|
|
set error_code=%errorlevel%
|
|
cmd /c exit /b %error_code%
|
|
if %error_code% NEQ 0 set "error_code=[0x%=ExitCode%]"
|
|
if %error_code% NEQ 0 (
|
|
call :dk_color %Red% "Checking DISM [Not Responding] %error_code%"
|
|
)
|
|
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" (
|
|
call :dk_color %Red% "Checking Eval Packages [Non-Eval Licenses are installed in Eval Windows]"
|
|
)
|
|
|
|
|
|
cscript //nologo %windir%\system32\slmgr.vbs /dlv %nul%
|
|
set error_code=%errorlevel%
|
|
cmd /c exit /b %error_code%
|
|
if %error_code% NEQ 0 set "error_code=0x%=ExitCode%"
|
|
if %error_code% NEQ 0 (
|
|
set error=1
|
|
call :dk_color %Red% "Checking slmgr /dlv [Not Responding] %error_code%"
|
|
)
|
|
|
|
|
|
reg query "HKU\S-1-5-20\Software\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\PersistedTSReArmed" %nul% && (
|
|
set error=1
|
|
call :dk_color %Red% "Checking Rearm [System Restart Is Required]"
|
|
)
|
|
|
|
|
|
reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ClipSVC\Volatile\PersistedSystemState" %nul% && (
|
|
set error=1
|
|
call :dk_color %Red% "Checking ClipSVC [System Restart Is Required]"
|
|
)
|
|
|
|
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v "SkipRearm" 2^>nul') do if /i %%b NEQ 0x0 (
|
|
reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform" /v "SkipRearm" /t REG_DWORD /d "0" /f %nul%
|
|
call :dk_color %Red% "Checking SkipRearm [Default 0 Value Not Found, Changing To 0]"
|
|
net stop sppsvc /y %nul%
|
|
net start sppsvc /y %nul%
|
|
set error=1
|
|
)
|
|
|
|
|
|
call :dk_actids
|
|
if not defined applist (
|
|
net stop sppsvc /y %nul%
|
|
cscript //nologo %windir%\system32\slmgr.vbs /rilc %nul%
|
|
if !errorlevel! NEQ 0 cscript //nologo %windir%\system32\slmgr.vbs /rilc %nul%
|
|
call :dk_refresh
|
|
call :dk_actids
|
|
if not defined applist (
|
|
set error=1
|
|
call :dk_color %Red% "Checking Activation IDs [Not Found]"
|
|
)
|
|
)
|
|
|
|
|
|
set token=0
|
|
if exist %Systemdrive%\Windows\System32\spp\store\2.0\tokens.dat set token=1
|
|
if exist %Systemdrive%\Windows\System32\spp\store_test\2.0\tokens.dat set token=1
|
|
if %token%==0 (
|
|
set error=1
|
|
call :dk_color %Red% "Checking SPP tokens.dat [Not Found]"
|
|
)
|
|
|
|
if not exist %SystemRoot%\system32\sppsvc.exe (
|
|
set error=1
|
|
call :dk_color %Red% "Checking sppsvc.exe File [Not Found]"
|
|
)
|
|
|
|
if /i %error_code% EQU 0xc0000022 (
|
|
echo "%serv_e%" | find /i "sppsvc" %nul% && (
|
|
call :dk_color %Magenta% "Looks like you may have used a Gaming spoofer. Check Activation Troubleshoot option in MAS."
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:dk_color
|
|
|
|
if %_NCS% EQU 1 (
|
|
echo %esc%[%~1%~2%esc%[0m
|
|
) else (
|
|
%psc% write-host -back '%1' -fore '%2' '%3'
|
|
)
|
|
exit /b
|
|
|
|
:dk_color2
|
|
|
|
if %_NCS% EQU 1 (
|
|
echo %esc%[%~1%~2%esc%[%~3%~4%esc%[0m
|
|
) else (
|
|
%psc% write-host -back '%1' -fore '%2' '%3' -NoNewline; write-host -back '%4' -fore '%5' '%6'
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:dk_done
|
|
|
|
echo:
|
|
if %_unattended%==1 timeout /t 2 & exit /b
|
|
call :dk_color %_Yellow% "Press any key to %_exitmsg%..."
|
|
pause >nul
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: 1st column = Activation ID
|
|
:: 2nd column = Generic Retail/OEM/MAK Key
|
|
:: 3rd column = SKU ID
|
|
:: 4th column = Key part number
|
|
:: 5th column = Ticket signature value. It's as it is, it's not encoded. (Check https://massgrave.dev/hwid.html#Manual_Activation to see how it's generated)
|
|
:: 6th column = 1 = activation is not working (at the time of writing this), 0 = activation is working
|
|
:: 7th column = Key Type
|
|
:: 8th column = WMI Edition ID
|
|
:: 9th column = Version name incase same Edition ID is used in different OS versions with different key
|
|
:: Separator = _
|
|
|
|
|
|
:hwiddata
|
|
|
|
for %%# in (
|
|
8b351c9c-f398-4515-9900-09df49427262_XGVPP-NMH47-7TTHJ-W3FW7-8HV2C___4_X19-99683_X9J5T0gPQprYpz2euPvoJGlkurIO9h6N8ypE0KWYVpy0nbCKYnqSUCD7u8ReXAmc085jX2uM5PKurSee9Yq/PxesgiysQHDBsOhr98MXZZiIgy4ssnz2gZF70KB8tO3X7kk9LHwxXfz3rlquYPod9swe90nqvVaJMWCpQK0InUw_0_OEM:NONSLP_Enterprise
|
|
c83cef07-6b72-4bbc-a28f-a00386872839_3V6Q6-NQXCX-V8YXR-9QCYV-QPFCT__27_X19-98746_WFZBjlVtHQumoaVE28/NHsRvv1lgkkfav6NPHqr6OC2u4vxkjjJkkl9OTF6DpHJu0IFrrQv+HYcdZ/WC5EzhOMqMxcujTBSAN7xLIVEbs72Db0Bi5iDAbOltJpk8QKKe18otQJ6vajW5WOPXjbgSJfDFaZQfiwvIJ1ICXt+stog_0_Volume:MAK_EnterpriseN
|
|
4de7cb65-cdf1-4de9-8ae8-e3cce27b9f2c_VK7JG-NPHTM-C97JM-9MPGT-3V66T__48_X19-98841_K3qev/5gQpX1RK1F9M9beEWWv/di1GsRF7OUcEMGTGDTYnaRenRcJaO8zOHQQvKDc57fon/v77ZpHQHT/jWWhWnLm7Ssory+s8tOs72fPjivVBDwpSPIEC1v+8Vpb4a3XCZet2e/Z5wmpCq9XDkowys3IcxYM0mHWBaNPu8gIe4_0_____Retail_Professional
|
|
9fbaf5d6-4d83-4422-870d-fdda6e5858aa_2B87N-8KFHP-DKV6R-Y2C8J-PKCKT__49_X19-98859_WcAcor6kQgxgkTRzcoxnb8UIoo5/ueYeaOKqy9/xAzlruHAKxhatXeGtSI58lXcCK5hxXkDmcyrRFwWSwdvg0txwTi7VusYcTNCLdmNWU/62iDrBhzMrCYtuhW9EV/g4+TlbjSm4PBJ0HMlI4YzAEnyJiBgKPDgBQ8Gj9LRbEgU_0_____Retail_ProfessionalN
|
|
f742e4ff-909d-4fe9-aacb-3231d24a0c58_4CPRK-NM3K3-X6XXQ-RXX86-WXCHW__98_X19-98877_MBDSEqlayxtVVEgIeAl8milgjS/BVHow6+MmpCyh9nweuctlT1+LbEHmDlnqDeLr9FQrN2FpEJtNr26rE0niMdvcAP51MfJsREyhWOEbrWwWyMH0KwDAci2WxWZTJp/SEZnq5HYYT1pPPLMWAkKRHJksJJFtg4zBtoyHvLjc35c_0_____Retail_CoreN
|
|
1d1bac85-7365-4fea-949a-96978ec91ae0_N2434-X9D7W-8PF6X-8DV9T-8TYMD__99_X19-99652_mpjCoh6soA/rwJutsjekZpA9vDUD8znR20V/c8FwSjuCcSbPhmP6bpJR9rfptAZqpagliMxA/OUZsx0Knt0n/hgOy2mv8pr24gI9uYXK8EfhG74bVdsyvZz1tyA6CaVR02ZahQvbKYzCmXUvsI+Wge3bHbKbVpn9Mvl+itn2a4g_0_____Retail_CoreCountrySpecific
|
|
3ae2cc14-ab2d-41f4-972f-5e20142771dc_BT79Q-G7N6G-PGBYW-4YWX6-6F4BT_100_X19-99661_KaUs6KwvtthPOsxd3x0tU/baKSv1DWSFOqbq7PbU/uYEY95p0Skzv3y4aXq+xVmfwSt8STL/4vSfFIAlsaRh7Vnq6Y/Ael8joeqI8hBN461fykoHxSELRMJ+eed50T0cJUS79ol6OTBOCCVeHgmtGVbHuL88TMWW69fGNdIMM3U_0_____Retail_CoreSingleLanguage
|
|
2b1f36bb-c1cd-4306-bf5c-a0367c2d97d8_YTMG3-N6DKC-DKB77-7M9GH-8HVX7_101_X19-98868_NpHxrAtA+GL6kawAP5Z2UdfUVcKFvf9UzEe6FIV/HztZqxpMBDFv2hdxCjD9+T8PKcW8j3n04McelOAgr3lD37Fu+wrvJIGX0dG3xEtU/MG9L9X5baBS8H6AmC6rq2+w5NUY8EchK9W2oatBflFb8IcfCSeAyOfsJei6bdu4mp8_0_____Retail_Core
|
|
2a6137f3-75c0-4f26-8e3e-d83d802865a4_XKCNC-J26Q9-KFHD2-FKTHY-KD72Y_119_X19-99606_gtywgqIP3j+bliKdunuseeZWtsOzWhj+DmSBq7nqeNarHutgbWEwvcRiGo+nwxONt9Ak/VyuO76ZWH/db3iRVTk1y61vFv15gVlOy1ovLjVHBvmPVdQXIne2N+pIMb0eBhZWHRX63mYdkZRZ0wg/+bj4xsjJv+qLpWhVCzNMge4_0_OEM:NONSLP_PPIPro
|
|
e558417a-5123-4f6f-91e7-385c1c7ca9d4_YNMGQ-8RYV3-4PGQ3-C8XTP-7CFBY_121_X19-98886_VuBmoSUdF63Cvwm9wNlc2yhD2tP9B72iVVWFNcbAwDGXF6o06oNMsIJ0VqGJDdBzZjVGw2wHokMabxZNDyIl90CO7trwgV8S0lLJVLymxyUaE3ThvN3YUsi9Q3H+5Kr0RpsojCWb+UQd/GY4bSXfyStXFylj6im7yv0db/ZWGbw_0_____Retail_Education
|
|
c5198a66-e435-4432-89cf-ec777c9d0352_84NGF-MHBT6-FXBX8-QWJK7-DRR8H_122_X19-98892_jQ6S2bbNoVrp/zvi8BEUwCf7fge1nAdspcjXyTeTySUiR+hXPiKQEWgyLqAdZ5Or+X2JGT/LZN1/eZ9P+REmzG/WQotZ+fyyPguoSsES+d312RkfmQoI5gVanEkGjZSU4YohREM/Vyf9MOO7dbH9MMEpFm2mje6OnhyJo2gux0g_0_____Retail_EducationN
|
|
cce9d2de-98ee-4ce2-8113-222620c64a27_KCNVH-YKWX8-GJJB9-H9FDT-6F7W2_125_X22-66075_wJ/BPDFz+13PVJtBqBo+E4LCm3LoMVALCQUun9kXGBULr7V8FQ5nKUudUGHDLNNVIIicdw9Uh26BKAt0/hnE7BpBkzwdi4qAdZgKXQ1t06Ek4+zXmoT225NvpaHsuhDkE687TtCB1ZWvAulA8G9ehE3HTJSoNm4wCFOQyIQQtqQ_1_Volume:MAK_EnterpriseS_VB
|
|
d06934ee-5448-4fd1-964a-cd077618aa06_43TBQ-NH92J-XKTM7-KT3KK-P39PB_125_X21-83233_V+y0SFmAnGwRwgNz+0sO0mj+XxSjbdRDpom1Iqx2BJcsf96Q5ittJOcMhKiNswyKuq5suM5vy60tA/AUdb1mrnnrnXfmz7nFam/BIOOfa18GA7vd1aNFufhpmCiMWxoGSewH/T1pnCZrsvGYIj//qC7aiQVKYBngO7UYWGaytgc_0_OEM:NONSLP_EnterpriseS_RS5
|
|
706e0cfd-23f4-43bb-a9af-1a492b9f1302_NK96Y-D9CD8-W44CQ-R8YTK-DYJWX_125_X21-05035_U2DIv+LAhSGz0rNbTiMQYaP3M41+0+ZioF7vh0COeeJSIruDFCZ3Li7ZM3dSleg6QTCxG04uZ3i3r1bCZv0+WAfU9rG+3BqLAwKlJS/31rETeRWvrxB1UK4mTMHwAJc9txDAc15ureqF+2b9pIIpwLljmFer6fI7z0iI6I/ZuTU_0_OEM:NONSLP_EnterpriseS_RS1
|
|
faa57748-75c8-40a2-b851-71ce92aa8b45_FWN7H-PF93Q-4GGP8-M8RF3-MDWWW_125_X19-99617_0frpwr4N/wBVRA/nOvAMqkxmRj6Vv9mA+jVNtnurAL1TjkPN/y+6YVUd5MP/Y4As4kddHoHiZXI+2siKHJsaV95ppXoHKR8d7FRVitr1F+82TbB7OVvdCclGrRZymnq25HvtSC3BROHt7ZXTgSCWMyB7MlbLiqHiTymOj5OMX1g_0_OEM:NONSLP_EnterpriseS_TH
|
|
2c060131-0e43-4e01-adc1-cf5ad1100da8_RQFNW-9TPM3-JQ73T-QV4VQ-DV9PT_126_X22-66108_UeA6O2iIW6zFMJzLMCQjVA7gUHOGRTiFB6LPrgjhgfJEXSZnDjxw8wsR+tp+JQWeaQDsVt06c2byH3z7Ft2wNk8n3gcXUknIjlcCckNjw05WDI64/wCqz+gtf1RajMEoV/mODpBx7rdLtCg03FyV7Z9LOib4/WLSmnxjDPKMG7s_1_Volume:MAK_EnterpriseSN_VB
|
|
e8f74caa-03fb-4839-8bcc-2e442b317e53_M33WV-NHY3C-R7FPM-BQGPT-239PG_126_X21-83264_NtP6sMWmOTCdABAbgIZfxZzRs8zaqzfaabLeFXQJvfJvQPLQPk2UxMliASJG+7YwwbTD8pyhUoQqUYrlCzJZ6jDSDyUTJkXgo9akR4fBOg6Z5wn5fW8NGAMDcLND5d9XxHl0gWH/HZNIs/GZaPJsCVVqPr7X8bk/y0DeIofxICU_1_Volume:MAK_EnterpriseSN_RS5
|
|
3d1022d8-969f-4222-b54b-327f5a5af4c9_2DBW3-N2PJG-MVHW3-G7TDK-9HKR4_126_X21-04921_WeNSkuiC3iyNT9tDqlj6KvM17UYMsYjEelyyMEyPEXSAbYA08lYtYJjCzxSE9T30p9dxqPIuj370OwHhAxG8a51/HoLNWR0grj08HmdOXUA8Ap4clEivxKM0zRvwPR6L2M2HQP0nN54c9It7ikzweJ0X2HHOb58oEw9LbMeUM/Y_0_Volume:MAK_EnterpriseSN_RS1
|
|
60c243e1-f90b-4a1b-ba89-387294948fb6_NTX6B-BRYC2-K6786-F6MVQ-M7V2X_126_X19-98770_QLG40WW/TtUqtir9K6FJCQXU1mfn27uutdOunHJ3gXk6v0Mbxaqu9GKqpg5xFzdFiOPb/8Bmk/ylwceXgoaUx1nKcBGb/Bg+jICiNMEYIbGyMuYiHb0iJeVbjbBLLfWuAAuUPftfnKPH3dAu1YvhaS5nv7a5wICrXdJWeVNpBxk_0_Volume:MAK_EnterpriseSN_TH
|
|
eb6d346f-1c60-4643-b960-40ec31596c45_DXG7C-N36C4-C4HTG-X4T3X-2YV77_161_X21-43626_vHO/5UEtrsDzGC30A2Ya5DYXlNMs7hVYiLvM7X31xkaFMxogbiy3ZDxBbjRku3VXyW+TYsFX/D/wdJgFmMrhsNrObkxqzYMMRjx+BpwOx2PspKpS2RyzovyRl8v93SvHB5IyoO2/3pm2YqJDK1hXLhms6+DDPuiofQt36q47reQ_0_____Retail_ProfessionalWorkstation
|
|
89e87510-ba92-45f6-8329-3afa905e3e83_WYPNQ-8C467-V2W6J-TX4WX-WT2RQ_162_X21-43644_phlxNLr+sk8cCCmAVU3k3XrtD6sFDeoaODc+21soKqePbVQbzPHgokS73ccok6/gDfu/u5UKc7omL8pm2IhIhf70oC+8M/FFp0zRFeC/ZFXdF2tL23oKWI9kZbvcaoZBiqaDGc1bNYi5KAZYaJU8wwqw16ZnohQJZ7QR9cgUfFQ_0_____Retail_ProfessionalWorkstationN
|
|
62f0c100-9c53-4e02-b886-a3528ddfe7f6_8PTT6-RNW4C-6V7J2-C2D3X-MHBPB_164_X21-04955_Px7QWdfy0esrMzQoydKlmIcGdfV0pQvbnumyrh4evDNF9gpENm8OIfZfljIynury0qZAkw4AG3uGyp+5IxZGIh6U3dz41uNVfEcA9NZ34OEBXMtjEOU1ZbJ8wp8JecQKwlORclvsri9OOi0GbGc0TYRanlci2jJL/3x/gSuWXCs_0_____Retail_ProfessionalEducation
|
|
13a38698-4a49-4b9e-8e83-98fe51110953_GJTYN-HDMQY-FRR76-HVGC7-QPF8P_165_X21-04956_GRSYno4+yqU/JMxHLDKdvdFWRz1uT90n5JkTvSqztDvXMf/mBhSV/OpppJWGo6UL0FwqYcu9oXl+Vx336pLAE5/EDzQHh+QCwOCDJiTKnd3hW/zrGMe6Sb0OAIkNNML9gcOBbr1IHFWhN99r8ZWl5JjpzMs2nPjejB1Ec8NCcpE_0_____Retail_ProfessionalEducationN
|
|
df96023b-dcd9-4be2-afa0-c6c871159ebe_NJCF7-PW8QT-3324D-688JX-2YV66_175_X21-41295_kkJyX1AwYgDYcGK1eIRdocybkbAfEtQkDxhRUhY89X2i2PSD9jcsGQgHWyD3KUKWb3bzR8QkDS3MTeieOw3EzD0RyAQhHc6lRR+rk18lh5UOVCgrZ6byxn29Ur+jAh0LJXImggC9JMGb2cTYaZckxzm3ICoAKwrmI9JnrzBTVmY_0_____Retail_ServerRdsh
|
|
d4ef7282-3d2c-4cf0-9976-8854e64a8d1e_V3WVW-N2PV2-CGWC3-34QGF-VMJ2C_178_X21-32983_YIMgXu2dZ9x1r1NLs3egTc/8EYc1RndYDvoX7QquQQLnhnhbSNBw3hmlqrQ0zNsTLut3EKpGZK2CwPspJJWE60lecdxI4211K748P6vkuqHPL4uFqXyKxTG3qRrtDIra5nnMn4GqG2fWuguzTXaumu8cJU3H1uTOsR1E/DQnJJ0_0_____Retail_Cloud
|
|
af5c9381-9240-417d-8d35-eb40cd03e484_NH9J3-68WK7-6FB93-4K3DF-DJ4F6_179_X21-32987_H0qrFdf+FQxcSRJDtEwd8OfwC4iH/25Q01jz3QuB9yhEqB0W1i83u0WDpVK04pvU1EDCCRRI/DhXynbkWpLC0chdTOW4k5jIy+aa0cD3fccz9ChSjVHMzyTg3abEVFAvy9rttUyxcFIOKcINXHTxTRp5cZPwOa393tlJyBiliAo_0_____Retail_CloudN
|
|
8ab9bdd1-1f67-4997-82d9-8878520837d9_XQQYW-NFFMW-XJPBH-K8732-CKFFD_188_X21-99378_Bwx3E7qmE6M8UR6+KPqLnnavI6ThNHHUO717RJY9di2YI9rzC3O0LceXOHjshSKwfwxosqFsD/p/inrJmabed1yA/ZWwISyGtAIGTtRgpuSE4TAfW6KEW0v7rcr2wwwDq7DHSuz4QN4odEGe9bvtx4zIZKufQzzN4TN2rd/BJkE_0_____OEM:DM_IoTEnterprise
|
|
ed655016-a9e8-4434-95d9-4345352c2552_QPM6N-7J2WJ-P88HH-P3YRH-YY74H_191_X21-99682_lE8qL1p4m68mv9wcxU2sdKZPIccybtOjr+aMAdV+sLHs9wzE26oz5GiSZ3UzpU7yoYrNMqwGkKX6mrCEGRLh+XR2Ricp7ELA1PkzaGm0FLUqaK2GNVQ00i+s6KcA2XRr/gWOhhGTqSCjpSi9cMiqMbftf9Bo/BJVK3ib9xU4OQw_0_OEM:NONSLP_IoTEnterpriseS_VB
|
|
d4bdc678-0a4b-4a32-a5b3-aaa24c3b0f24_K9VKN-3BGWV-Y624W-MCRMQ-BHDCD_202_X22-53884_hPcIn0dF9Dq6zlXd3RxBqVDPDnf5sTasTjUqhD6lGc9IkTc8476NHd1PV1Ds++VO34/dw2H2PWk33LT5Es6PnUi32Ypva4POy4QJo5W3qyduiJiHUOM5GS9yAkKfdHFgUXaUVwopYKq+EwmgxFmEvHYdWgREHgIMyNoKAZQK0Ok_0_____Retail_CloudEditionN
|
|
92fb8726-92a8-4ffc-94ce-f82e07444653_KY7PN-VR6RX-83W6Y-6DDYQ-T6R4W_203_X22-53847_DCP6QzPj+BD1EEmlBelBt7x9AmvQOfd7kdkUB0b0x6/TNHRnZtdyix3pNX2IDQtJbLnNLc2ZlMmupbZQrtyxe3xl8+xlCnHByXZpzFty9sGzq3MozHHA9u9WsJEf5R7tnFDplNM1UitlTVTAyuCGk83brY4zjmz/52pUQyQHzjI_0_____Retail_CloudEdition
|
|
d4f9b41f-205c-405e-8e08-3d16e88e02be_J7NJW-V6KBM-CC8RW-Y29Y4-HQ2MJ_205_X23-15027_U9eyfIBXrs++lyP6OjHHaF/wjieAxQeSKwzSkGBeTTpyCDcenq8t4cKvqDHnauSZzaVPWNoVcASkMCdlJi3EkR29KSgvx9/K2OB8LVH2PPpqvwjm1ZZdrvLMGhW83A/KRrtN9AOx7bnPC8MNLErnzbRRS9/aOrmp4Uzo8EIVagI_0_OEM:NONSLP_IoTEnterpriseSK
|
|
) do (
|
|
for /f "tokens=1-10 delims=_" %%A in ("%%#") do (
|
|
|
|
if %1==key if %osSKU%==%%C (
|
|
|
|
REM Detect key attempt 1
|
|
|
|
if "%2"=="attempt1" if not defined key (
|
|
echo "!applist!" | find /i "%%A" 1>nul && (
|
|
if %%F==1 set notworking=1
|
|
set key=%%B
|
|
)
|
|
)
|
|
|
|
REM Detect key attempt 2
|
|
|
|
if "%2"=="attempt2" if not defined key (
|
|
set actidnotfound=1
|
|
set 9th=%%I
|
|
if not defined 9th (
|
|
if %%F==1 set notworking=1
|
|
set key=%%B
|
|
) else (
|
|
echo "%branch%" | find /i "%%I" 1>nul && (
|
|
if %%F==1 set notworking=1
|
|
set key=%%B
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
REM Generate ticket
|
|
|
|
if %1==ticket if "%key%"=="%%B" (
|
|
set _nil=
|
|
set "string=OSMajorVersion=5;OSMinorVersion=1;OSPlatformId=2;PP=0;Pfn=Microsoft.Windows.%%C.%%D_8wekyb3d8bbwe;DownlevelGenuineState=1;$([char]0)"
|
|
for /f "tokens=* delims=" %%i in ('powershell [convert]::ToBas!_nil!e64String([Text.Encoding]::Unicode.GetBytes("""!string!"""^)^)') do set "encoded=%%i"
|
|
echo "!encoded!" | find "AAAA" 1>nul || exit /b
|
|
|
|
<nul set /p "=<?xml version="1.0" encoding="utf-8"?><genuineAuthorization xmlns="http://www.microsoft.com/DRM/SL/GenuineAuthorization/1.0"><version>1.0</version><genuineProperties origin="sppclient"><properties>OA3xOriginalProductId=;OA3xOriginalProductKey=;SessionId=!encoded!;TimeStampClient=2022-10-11T12:00:00Z</properties><signatures><signature name="clientLockboxKey" method="rsa-sha256">%%E=</signature></signatures></genuineProperties></genuineAuthorization>" >"%tdir%\GenuineTicket"
|
|
)
|
|
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Below code is used to get alternate edition name and key if current edition doesn't support HWID activation
|
|
|
|
:: ProfessionalCountrySpecific won't be converted because it's not a good idea to change CountrySpecific editions
|
|
|
|
:: 1st column = Current SKU ID
|
|
:: 2nd column = Current Edition Name
|
|
:: 3rd column = Current Edition Activation ID
|
|
:: 4th column = Alternate Edition Activation ID
|
|
:: 5th column = Alternate Edition HWID Key
|
|
:: 6th column = Alternate Edition Name
|
|
:: Separator = _
|
|
|
|
|
|
:hwidfallback
|
|
|
|
set notfoundaltactID=
|
|
if %_NoEditionChange%==1 exit /b
|
|
|
|
for %%# in (
|
|
125_EnterpriseS-2021___________cce9d2de-98ee-4ce2-8113-222620c64a27_ed655016-a9e8-4434-95d9-4345352c2552_QPM6N-7J2WJ-P88HH-P3YRH-YY74H_IoTEnterpriseS-2021
|
|
191_IoTEnterpriseS-Win11_______59eb965c-9150-42b7-a0ec-22151b9897c5_d4f9b41f-205c-405e-8e08-3d16e88e02be_J7NJW-V6KBM-CC8RW-Y29Y4-HQ2MJ_IoTEnterpriseSK-Win11
|
|
138_ProfessionalSingleLanguage_a48938aa-62fa-4966-9d44-9f04da3f72f2_4de7cb65-cdf1-4de9-8ae8-e3cce27b9f2c_VK7JG-NPHTM-C97JM-9MPGT-3V66T_Professional
|
|
) do (
|
|
for /f "tokens=1-6 delims=_" %%A in ("%%#") do if %osSKU%==%%A (
|
|
echo "!applist!" | find /i "%%C" 1>nul && (
|
|
echo "!applist!" | find /i "%%D" 1>nul && (
|
|
set altkey=%%E
|
|
set curedition=%%B
|
|
set altedition=%%F
|
|
) || (
|
|
set altedition=%%F
|
|
set notfoundaltactID=1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:KMS38Activation
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
|
|
:: To activate, run the script with /KMS38 parameter or change 0 to 1 in below line
|
|
set _act=0
|
|
|
|
:: To remove KMS38 protection, run the script with /KMS38-RemoveProtection parameter or change 0 to 1 in below line
|
|
set _rem=0
|
|
|
|
:: To disable changing edition if current edition doesn't support KMS38 activation, change the value to 1 from 0 or run the script with "/KMS38-NoEditionChange" parameter
|
|
set _NoEditionChange=0
|
|
|
|
:: If value is changed in above lines or parameter is used then script will run in unattended mode
|
|
|
|
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
color 07
|
|
title KMS38 Activation
|
|
|
|
set _args=
|
|
set _elev=
|
|
set _unattended=0
|
|
|
|
set _args=%*
|
|
if defined _args set _args=%_args:"=%
|
|
if defined _args (
|
|
for %%A in (%_args%) do (
|
|
if /i "%%A"=="/KMS38" set _act=1
|
|
if /i "%%A"=="/KMS38-RemoveProtection" set _rem=1
|
|
if /i "%%A"=="/KMS38-NoEditionChange" set _NoEditionChange=1
|
|
if /i "%%A"=="-el" set _elev=1
|
|
)
|
|
)
|
|
|
|
for %%A in (%_act% %_rem% %_NoEditionChange%) do (if "%%A"=="1" set _unattended=1)
|
|
|
|
::========================================================================================================================================
|
|
|
|
set 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)
|
|
|
|
if %_NCS% EQU 1 (
|
|
for /F %%a in ('echo prompt $E ^| cmd') do set "esc=%%a"
|
|
set "Red="41;97m""
|
|
set "Gray="100;97m""
|
|
set "Green="42;97m""
|
|
set "Magenta="45;97m""
|
|
set "_White="40;37m""
|
|
set "_Green="40;92m""
|
|
set "_Yellow="40;93m""
|
|
) else (
|
|
set "Red="Red" "white""
|
|
set "Gray="Darkgray" "white""
|
|
set "Green="DarkGreen" "white""
|
|
set "Magenta="Darkmagenta" "white""
|
|
set "_White="Black" "Gray""
|
|
set "_Green="Black" "Green""
|
|
set "_Yellow="Black" "Yellow""
|
|
)
|
|
|
|
set _k38=
|
|
set "nceline=echo: &echo ==== ERROR ==== &echo:"
|
|
set "eline=echo: &call :dk_color %Red% "==== ERROR ====" &echo:"
|
|
if %~z0 GEQ 200000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit")
|
|
set "specific_kms=SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\55c92734-d682-4d71-983e-d6ec3f16059f"
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %winbuild% LSS 14393 (
|
|
%eline%
|
|
echo Unsupported OS version detected.
|
|
echo Project is supported for Windows 10/11/Server, build 14393 and later.
|
|
goto dk_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
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %_rem%==1 goto :k_uninstall
|
|
|
|
:k_menu
|
|
|
|
if %_unattended%==0 (
|
|
cls
|
|
mode 76, 25
|
|
title KMS38 Activation
|
|
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo:
|
|
echo ____________________________________________________________
|
|
echo:
|
|
echo [1] KMS38 Activation
|
|
echo ____________________________________________
|
|
echo:
|
|
echo [2] Remove KM38 Protection
|
|
echo:
|
|
echo [0] %_exitmsg%
|
|
echo ____________________________________________________________
|
|
echo:
|
|
call :dk_color2 %_White% " " %_Green% "Enter a menu option in the Keyboard [1,2,0]"
|
|
choice /C:120 /N
|
|
set _el=!errorlevel!
|
|
if !_el!==3 exit /b
|
|
if !_el!==2 goto :k_uninstall
|
|
if !_el!==1 goto :k_menu2
|
|
goto :k_menu
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:k_menu2
|
|
|
|
cls
|
|
mode 102, 33
|
|
title KMS38 Activation
|
|
|
|
echo:
|
|
echo Initializing...
|
|
call :dk_product
|
|
call :dk_ckeckwmic
|
|
|
|
:: Show info for potential script stuck scenario
|
|
|
|
sc start sppsvc %nul%
|
|
if %errorlevel% NEQ 1056 if %errorlevel% NEQ 0 (
|
|
echo:
|
|
echo Error code: %errorlevel%
|
|
call :dk_color %Red% "Failed to start [sppsvc] service, rest of the process may take a long time..."
|
|
echo:
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check if system is permanently activated or not
|
|
|
|
call :dk_checkperm
|
|
if defined _perm (
|
|
cls
|
|
echo ___________________________________________________________________________________________
|
|
echo:
|
|
call :dk_color2 %_White% " " %Green% "Checking: %winos% is Permanently Activated."
|
|
call :dk_color2 %_White% " " %Gray% "Activation is not required."
|
|
echo ___________________________________________________________________________________________
|
|
if %_unattended%==1 goto dk_done
|
|
echo:
|
|
choice /C:10 /N /M "> [1] Activate [0] %_exitmsg% : "
|
|
if errorlevel 2 exit /b
|
|
)
|
|
cls
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check Evaluation version
|
|
|
|
set _eval=
|
|
set _evalserv=
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" set _eval=1
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalEdition~*.mum" set _evalserv=1
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalCorEdition~*.mum" set _eval=1 & set _evalserv=1
|
|
|
|
if defined _eval (
|
|
reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionID 2>nul | find /i "Eval" 1>nul && (
|
|
%eline%
|
|
echo [%winos% ^| %winbuild%]
|
|
if defined _evalserv (
|
|
echo Server Evaluation cannot be activated. Convert it to full Server OS.
|
|
echo:
|
|
echo Check 'Change Edition' Option in MAS.
|
|
) else (
|
|
echo Evaluation Editions cannot be activated. Download ^& Install full version of Windows OS.
|
|
echo:
|
|
echo https://massgrave.dev/
|
|
)
|
|
goto dk_done
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check clipup.exe for the detection and activation of server cor and acor editions
|
|
|
|
set a_cor=
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*CorEdition~*.mum" if not exist "%systemroot%\System32\clipup.exe" set a_cor=1
|
|
|
|
if defined a_cor (
|
|
if not exist "!_work!\clipup.exe" (
|
|
%eline%
|
|
echo clipup.exe doesn't exist in Server Cor/Acor [No GUI] version.
|
|
echo It's required for KMS38 Activation.
|
|
echo Check below page on how to activate it.
|
|
echo https://massgrave.dev/kms38.html
|
|
goto dk_done
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check SKU value / Check in multiple places to find Edition change corruption
|
|
|
|
set osSKU=
|
|
set regSKU=
|
|
set wmiSKU=
|
|
|
|
for /f "tokens=3 delims=." %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions" /v OSProductPfn 2^>nul') do set "regSKU=%%a"
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%a in ('"wmic Path Win32_OperatingSystem Get OperatingSystemSKU /format:LIST" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
if %_wmic% EQU 0 for /f "tokens=1" %%a in ('%psc% "([WMI]'Win32_OperatingSystem=@').OperatingSystemSKU" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
|
|
set osSKU=%wmiSKU%
|
|
if not defined osSKU set osSKU=%regSKU%
|
|
|
|
if not defined osSKU (
|
|
%eline%
|
|
echo SKU value was not detected properly. Aborting...
|
|
goto dk_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
set error=
|
|
|
|
cls
|
|
echo:
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b
|
|
echo Checking OS Info [%winos% ^| %winbuild% ^| %arch%]
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check Windows Script Host
|
|
|
|
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 (
|
|
reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%
|
|
reg add "HKCU\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%
|
|
if not "%arch%"=="x86" reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f /reg:32 %nul%
|
|
echo Enabling Windows Script Host [Successful]
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
echo Initiating Diagnostic Tests...
|
|
|
|
set "_serv=ClipSVC sppsvc Winmgmt"
|
|
|
|
:: Client License Service (ClipSVC)
|
|
:: Software Protection
|
|
:: Windows Management Instrumentation
|
|
|
|
call :dk_errorcheck
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check if GVLK (KMS key) is already installed or not
|
|
|
|
set _gvlk=
|
|
call :dk_channel
|
|
if /i "Volume:GVLK"=="%_channel%" set _gvlk=1
|
|
|
|
:: Detect Key
|
|
|
|
set key=
|
|
set pkey=
|
|
set altkey=
|
|
set changekey=
|
|
set curedition=
|
|
set altedition=
|
|
|
|
if defined applist call :kms38data getkey
|
|
|
|
if not defined key call :dk_gvlk %nul%
|
|
if defined applist if not defined key call :kms38fallback
|
|
|
|
if defined altkey (set key=%altkey%&set changekey=1)
|
|
|
|
if not defined key if defined notfoundaltactID (
|
|
call :dk_color %Red% "Checking Alternate Edition For KMS38 [%altedition% Activation ID Not Found]"
|
|
)
|
|
|
|
if not defined key if not defined _gvlk (
|
|
%eline%
|
|
echo [%winos% ^| %winbuild% ^| SKU:%osSKU%]
|
|
echo Unable to find this product in the supported product list.
|
|
echo Make sure you are using updated version of the script.
|
|
echo https://massgrave.dev
|
|
echo:
|
|
goto dk_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Install key
|
|
|
|
echo:
|
|
if defined changekey (
|
|
call :dk_color %Magenta% "[%altedition%] Edition product key will be used to enable KMS38 activation."
|
|
echo:
|
|
)
|
|
|
|
set _partial=
|
|
if not defined key (
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('wmic path SoftwareLicensingProduct where "ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and PartialProductKey<>null" Get PartialProductKey /value 2^>nul') do set "_partial=%%#"
|
|
if %_wmic% EQU 0 for /f "tokens=2 delims==" %%# in ('%psc% "(([WMISEARCHER]'SELECT PartialProductKey FROM SoftwareLicensingProduct WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND PartialProductKey IS NOT NULL').Get()).PartialProductKey | %% {echo ('PartialProductKey='+$_)}" 2^>nul') do set "_partial=%%#"
|
|
call echo Checking Installed Product Key [Partial Key - %%_partial%%] [Volume:GVLK]
|
|
)
|
|
|
|
set error_code=
|
|
if defined key (
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingService where __CLASS='SoftwareLicensingService' call InstallProductKey ProductKey="%key%" %nul%
|
|
if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT Version FROM SoftwareLicensingService').Get()).InstallProductKey('%key%')" %nul%
|
|
if not !errorlevel!==0 cscript //nologo %windir%\system32\slmgr.vbs /ipk %key% %nul%
|
|
set error_code=!errorlevel!
|
|
cmd /c exit /b !error_code!
|
|
if !error_code! NEQ 0 set "error_code=[0x!=ExitCode!]"
|
|
|
|
if !error_code! EQU 0 (
|
|
call :dk_refresh
|
|
echo Installing KMS Client Setup Key [%key%] [Successful]
|
|
) else (
|
|
set error=1
|
|
call :dk_color %Red% "Installing KMS Client Setup Key [%key%] [Failed] !error_code!"
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check activation ID for setting specific KMS host
|
|
|
|
set app=
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%a in ('"wmic path SoftwareLicensingProduct where (ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL) get ID /VALUE" 2^>nul') do call set "app=%%a"
|
|
if %_wmic% EQU 0 for /f "tokens=2 delims==" %%a in ('%psc% "(([WMISEARCHER]'SELECT ID FROM SoftwareLicensingProduct WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND Description like ''%%KMSCLIENT%%'' AND PartialProductKey IS NOT NULL').Get()).ID | %% {echo ('ID='+$_)}" 2^>nul') do call set "app=%%a"
|
|
|
|
if not defined app (
|
|
call :dk_color %Red% "Checking Installed GVLK Activation ID [Not Found] Aborting..."
|
|
goto :dk_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Set specific KMS host to Local Host
|
|
:: By doing this, global KMS IP can not replace KMS38 activation but can be used with Office and other Windows Editions
|
|
|
|
echo:
|
|
%nul% reg delete "HKLM\%specific_kms%" /f
|
|
%nul% reg delete "HKU\S-1-5-20\%specific_kms%" /f
|
|
|
|
%nul% reg query "HKLM\%specific_kms%" && (
|
|
%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':regdel\:.*';iex ($f[1]);"
|
|
%nul% reg delete "HKLM\%specific_kms%" /f
|
|
)
|
|
|
|
set k_error=
|
|
%nul% reg add "HKLM\%specific_kms%\%app%" /f /v KeyManagementServiceName /t REG_SZ /d "127.0.0.2" || set k_error=1
|
|
%nul% reg add "HKLM\%specific_kms%\%app%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" || set k_error=1
|
|
|
|
if not defined k_error (
|
|
echo Adding Specific KMS Host [LocalHost 127.0.0.2] [Successful]
|
|
) else (
|
|
call :dk_color %Red% "Adding Specific KMS Host [LocalHost 127.0.0.2] [Failed]"
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Copy clipup.exe to System32 directory to activate Server Cor/Acor editions
|
|
|
|
if defined a_cor (
|
|
set "_clipup=%systemroot%\System32\clipup.exe"
|
|
pushd "!_work!\"
|
|
copy /y /b "ClipUp.exe" "!_clipup!" %nul%
|
|
popd
|
|
|
|
echo:
|
|
if exist "!_clipup!" (
|
|
echo Copying clipup.exe File to [%systemroot%\System32\] [Successful]
|
|
) else (
|
|
call :dk_color %Red% "Copying clipup.exe File to [%systemroot%\System32\] [Failed] Aborting..."
|
|
goto :k_final
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Generate GenuineTicket.xml and apply
|
|
:: Most correct way to apply a ticket is by restarting ClipSVC service but we can not check the log details in this way
|
|
:: To get the log details and also to correctly apply ticket, script will install tickets two times (service restart + clipup -v -o)
|
|
|
|
set "tdir=%ProgramData%\Microsoft\Windows\ClipSVC\GenuineTicket"
|
|
if not exist "%tdir%\" md "%tdir%\" %nul%
|
|
|
|
if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul%
|
|
if exist "%tdir%\*.xml" del /f /q "%tdir%\*.xml" %nul%
|
|
|
|
:: Signature value is as it is, it's not encoded
|
|
:: Session ID is in Base64 encoded format. It's decoded value is "OSMajorVersion=5;OSMinorVersion=1;OSPlatformId=2;PP=0;GVLKExp=2038-01-19T03:14:07Z;DownlevelGenuineState=1;"
|
|
:: Check https://massgrave.dev/kms38.html#Manual_Activation to see how it's generated
|
|
|
|
set "signature=C52iGEoH+1VqzI6kEAqOhUyrWuEObnivzaVjyef8WqItVYd/xGDTZZ3bkxAI9hTpobPFNJyJx6a3uriXq3HVd7mlXfSUK9ydeoUdG4eqMeLwkxeb6jQWJzLOz41rFVSMtBL0e+ycCATebTaXS4uvFYaDHDdPw2lKY8ADj3MLgsA="
|
|
set "sessionId=TwBTAE0AYQBqAG8AcgBWAGUAcgBzAGkAbwBuAD0ANQA7AE8AUwBNAGkAbgBvAHIAVgBlAHIAcwBpAG8AbgA9ADEAOwBPAFMAUABsAGEAdABmAG8AcgBtAEkAZAA9ADIAOwBQAFAAPQAwADsARwBWAEwASwBFAHgAcAA9ADIAMAAzADgALQAwADEALQAxADkAVAAwADMAOgAxADQAOgAwADcAWgA7AEQAbwB3AG4AbABlAHYAZQBsAEcAZQBuAHUAaQBuAGUAUwB0AGEAdABlAD0AMQA7AAAA"
|
|
<nul set /p "=<?xml version="1.0" encoding="utf-8"?><genuineAuthorization xmlns="http://www.microsoft.com/DRM/SL/GenuineAuthorization/1.0"><version>1.0</version><genuineProperties origin="sppclient"><properties>OA3xOriginalProductId=;OA3xOriginalProductKey=;SessionId=%sessionId%;TimeStampClient=2022-10-11T12:00:00Z</properties><signatures><signature name="clientLockboxKey" method="rsa-sha256">%signature%</signature></signatures></genuineProperties></genuineAuthorization>" >"%tdir%\GenuineTicket"
|
|
|
|
copy /y /b "%tdir%\GenuineTicket" "%tdir%\GenuineTicket.xml" %nul%
|
|
|
|
if not exist "%tdir%\GenuineTicket.xml" (
|
|
call :dk_color %Red% "Generating GenuineTicket.xml [Failed]"
|
|
if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul%
|
|
goto :k_final
|
|
) else (
|
|
echo Generating GenuineTicket.xml [Successful]
|
|
)
|
|
|
|
set "_xmlexist=if exist "%tdir%\GenuineTicket.xml""
|
|
|
|
:: Stop sppsvc
|
|
|
|
net stop sppsvc /y %nul%
|
|
net stop sppsvc /y %nul%
|
|
net stop sppsvc /y %nul%
|
|
|
|
sc query sppsvc | find /i "1 STOPPED" %nul% && (
|
|
echo Stopping sppsvc Service [Successful]
|
|
) || (
|
|
call :dk_color %Red% "Stopping sppsvc Service [Failed]"
|
|
)
|
|
|
|
%_xmlexist% (
|
|
net stop ClipSVC /y %nul%
|
|
net start ClipSVC /y %nul%
|
|
%_xmlexist% timeout /t 2 %nul%
|
|
%_xmlexist% timeout /t 2 %nul%
|
|
|
|
%_xmlexist% (
|
|
if exist "%tdir%\*.xml" del /f /q "%tdir%\*.xml" %nul%
|
|
call :dk_color %Red% "Installing GenuineTicket.xml [Failed With ClipSVC Service Restart, Wait...]"
|
|
)
|
|
)
|
|
|
|
copy /y /b "%tdir%\GenuineTicket" "%tdir%\GenuineTicket.xml" %nul%
|
|
clipup -v -o
|
|
if exist "%tdir%\Genuine*" del /f /q "%tdir%\Genuine*" %nul%
|
|
|
|
::==========================================================================================================================================
|
|
|
|
call :dk_product
|
|
|
|
echo:
|
|
echo Activating...
|
|
echo:
|
|
|
|
call :k_checkexp
|
|
if defined _k38 (
|
|
call :k_actinfo
|
|
goto :k_final
|
|
)
|
|
|
|
:: Clear 180 Days KMS Activation lock with Windows SKU specific rearm and without the need to restart the system
|
|
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingProduct where ID='%app%' call ReArmsku %nul%
|
|
if %_wmic% EQU 0 %psc% "$null=([WMI]'SoftwareLicensingProduct=''%app%''').ReArmsku()" %nul%
|
|
|
|
if %errorlevel%==0 (
|
|
echo Applying SKU-ID Rearm [Successful]
|
|
) else (
|
|
call :dk_color %Red% "Applying SKU-ID Rearm [Failed]"
|
|
)
|
|
call :dk_refresh
|
|
|
|
echo:
|
|
call :k_checkexp
|
|
if defined _k38 (
|
|
call :k_actinfo
|
|
goto :k_final
|
|
)
|
|
|
|
call :dk_color %Red% "Activation Failed"
|
|
call :dk_color2 %Magenta% "Check this page for help" %_Yellow% " https://massgrave.dev/troubleshoot"
|
|
|
|
::========================================================================================================================================
|
|
|
|
:k_final
|
|
|
|
:: Remove the added Specific KMS Host (Local Host) if activation is not completed
|
|
|
|
echo:
|
|
if not defined _k38 (
|
|
%nul% reg delete "HKLM\%specific_kms%" /f
|
|
%nul% reg delete "HKU\S-1-5-20\%specific_kms%" /f
|
|
%nul% reg query "HKLM\%specific_kms%" && (
|
|
call :dk_color %Red% "Removing The Added Specific KMS Host [Failed]"
|
|
) || (
|
|
echo Removing The Added Specific KMS Host [Successful]
|
|
)
|
|
)
|
|
|
|
:: Protect KMS38 if opted by the user and conditions are correct
|
|
|
|
if defined _k38 (
|
|
%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':regdel\:.*';& ([ScriptBlock]::Create($f[1])) -protect;"
|
|
%nul% reg delete "HKLM\%specific_kms%" /f
|
|
%nul% reg query "HKLM\%specific_kms%" && (
|
|
call :dk_color %Magenta% "Protect KMS38 By KMS [Successful] [Locked A Registry Key]"
|
|
) || (
|
|
call :dk_color %Red% "Protect KMS38 By KMS [Failed To Lock A Registry Key]"
|
|
)
|
|
)
|
|
|
|
:: clipup.exe does not exist in server cor and acor editions by default, it was copied there with this script
|
|
|
|
if defined a_cor if exist "%_clipup%" del /f /q "%_clipup%" %nul%
|
|
|
|
if defined a_cor (
|
|
if exist "%_clipup%" (
|
|
call :dk_color %Red% "Deleting copied clipup.exe file [Failed]"
|
|
) else (
|
|
echo Deleting copied clipup.exe file [Successful]
|
|
)
|
|
)
|
|
|
|
if %osSKU%==175 call :dk_color %Red% "ServerRdsh Editon does not officially support activation on non-azure platforms."
|
|
|
|
goto :dk_done
|
|
|
|
::========================================================================================================================================
|
|
|
|
:k_uninstall
|
|
|
|
cls
|
|
mode 99, 28
|
|
title Remove KMS38 Protection
|
|
|
|
%nul% reg delete "HKLM\%specific_kms%" /f
|
|
%nul% reg delete "HKU\S-1-5-20\%specific_kms%" /f
|
|
|
|
%nul% reg query "HKLM\%specific_kms%" && (
|
|
%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':regdel\:.*';iex ($f[1]);"
|
|
%nul% reg delete "HKLM\%specific_kms%" /f
|
|
)
|
|
|
|
echo:
|
|
%nul% reg query "HKLM\%specific_kms%" && (
|
|
call :dk_color %Red% "Removing Specific KMS Host [Failed]"
|
|
) || (
|
|
echo Removing Specific KMS Host [Successful]
|
|
)
|
|
|
|
goto :dk_done
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: This code runs to protect/undo below registry key for KMS38 protection
|
|
:: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\55c92734-d682-4d71-983e-d6ec3f16059f
|
|
|
|
:: KMS38 protection stops 180 days KMS Activation from replacing KMS38 activation
|
|
|
|
:regdel:
|
|
param (
|
|
[switch]$protect
|
|
)
|
|
|
|
$SID = New-Object System.Security.Principal.SecurityIdentifier('S-1-5-32-544')
|
|
$Admin = ($SID.Translate([System.Security.Principal.NTAccount])).Value
|
|
|
|
if($protect) {
|
|
$ruleArgs = @("$Admin", "Delete, SetValue", "ContainerInherit", "None", "Deny")
|
|
} else {
|
|
$ruleArgs = @("$Admin", "FullControl", "Allow")
|
|
}
|
|
|
|
$path = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\55c92734-d682-4d71-983e-d6ec3f16059f'
|
|
$key = [Microsoft.Win32.RegistryKey]::OpenBaseKey('LocalMachine', 'Registry64').OpenSubKey($path, 'ReadWriteSubTree', 'ChangePermissions')
|
|
$acl = $key.GetAccessControl()
|
|
|
|
$rule = [System.Security.AccessControl.RegistryAccessRule]::new.Invoke($ruleArgs)
|
|
$acl.ResetAccessRule($rule)
|
|
$key.SetAccessControl($acl)
|
|
:regdel:
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check KMS activation status
|
|
|
|
:k_actinfo
|
|
|
|
set xpr=
|
|
for /f "tokens=* delims=" %%# in ('%psc% "$([DateTime]::Now.addMinutes(%gpr%)).ToString('yyyy-MM-dd HH:mm:ss')" 2^>nul') do set "xpr=%%#"
|
|
call :dk_color %Green% "%winos% is activated till !xpr!"
|
|
exit /b
|
|
|
|
:: Check remaining KMS activation grace period
|
|
|
|
:k_checkexp
|
|
|
|
set gpr=0
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('"wmic path SoftwareLicensingProduct where (ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL) get GracePeriodRemaining /VALUE" 2^>nul') do set "gpr=%%#"
|
|
if %_wmic% EQU 0 for /f "tokens=2 delims==" %%# in ('%psc% "(([WMISEARCHER]'SELECT GracePeriodRemaining FROM SoftwareLicensingProduct WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND Description like ''%%KMSCLIENT%%'' AND PartialProductKey IS NOT NULL').Get()).GracePeriodRemaining | %% {echo ('GracePeriodRemaining='+$_)}" 2^>nul') do set "gpr=%%#"
|
|
if %gpr% GTR 259200 (set _k38=1) else (set _k38=)
|
|
exit /b
|
|
|
|
:: Get Windows installed key channel
|
|
|
|
:dk_channel
|
|
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%# in ('wmic path SoftwareLicensingProduct where "ApplicationID='55c92734-d682-4d71-983e-d6ec3f16059f' and PartialProductKey<>null" Get ProductKeyChannel /value 2^>nul') do set "_channel=%%#"
|
|
if %_wmic% EQU 0 for /f "tokens=2 delims==" %%# in ('%psc% "(([WMISEARCHER]'SELECT ProductKeyChannel FROM SoftwareLicensingProduct WHERE ApplicationID=''55c92734-d682-4d71-983e-d6ec3f16059f'' AND PartialProductKey IS NOT NULL').Get()).ProductKeyChannel | %% {echo ('ProductKeyChannel='+$_)}" 2^>nul') do set "_channel=%%#"
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Get Product Key from pkeyhelper.dll for future new editions
|
|
:: It works on Windows 10 1803 (17134) and later builds.
|
|
|
|
:dk_pkey
|
|
|
|
set pkey=
|
|
set d1=[DllImport(\"pkeyhelper.dll\",CharSet=CharSet.Unicode)]public static extern int SkuGetProductKeyForEdition(int e, string c, out string k, out string p);
|
|
set d2=$AP=Add-Type -Member '%d1%' -Name D1 -PassThru; $k=''; $null=$AP::SkuGetProductKeyForEdition(%1, %2, [ref]$k, [ref]$null); $k
|
|
for /f %%a in ('%psc% "%d2%"') do if not errorlevel 1 (set pkey=%%a)
|
|
exit /b
|
|
|
|
:: Get channel name for the key which was extracted from pkeyhelper.dll
|
|
|
|
:dk_pkeychannel
|
|
|
|
set k=%1
|
|
set pkeychannel=
|
|
set p=%SystemRoot%\System32\spp\tokens\pkeyconfig\pkeyconfig.xrm-ms
|
|
set m=[System.Runtime.InteropServices.Marshal]
|
|
set d1=[DllImport(\"PidGenX.dll\",CharSet=CharSet.Unicode)]public static extern int PidGenX(string k,string p,string m,int u,IntPtr i,IntPtr d,IntPtr f);
|
|
set d2=$AP=Add-Type -Member '%d1%' -Name D1 -PassThru; $k='%k%'; $p='%p%'; $r=[byte[]]::new(0x04F8); $r[0]=0xF8; $r[1]=0x04; $f=%m%::AllocHGlobal(1272); %m%::Copy($r,0,$f,1272);
|
|
set d3=%d2% [void]$AP::PidGenX($k,$p,\"00000\",0,0,0,$f); %m%::Copy($f,$r,0,1272); %m%::FreeHGlobal($f); [System.Text.Encoding]::Unicode.GetString($r, 1016, 128).Replace('0','')
|
|
for /f %%a in ('%psc% "%d3%"') do if not errorlevel 1 (set pkeychannel=%%a)
|
|
exit /b
|
|
|
|
:dk_gvlk
|
|
|
|
for %%# in (pkeyhelper.dll) do @if "%%~$PATH:#"=="" exit /b
|
|
for %%# in (Volume:GVLK) do (
|
|
call :dk_pkey %osSKU% '%%#'
|
|
if defined pkey call :dk_pkeychannel !pkey!
|
|
if /i [!pkeychannel!]==[%%#] (
|
|
set key=!pkey!
|
|
exit /b
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: 1st column = Activation ID
|
|
:: 2nd column = GVLK (Generic volume licensing key)
|
|
:: 3rd column = SKU ID
|
|
:: 4th column = WMI Edition ID (For reference only)
|
|
:: 5th column = Build Branch name incase same Edition ID is used in different OS versions with different key (For reference only)
|
|
:: Separator = "_"
|
|
|
|
:kms38data
|
|
|
|
for %%# in (
|
|
73111121-5638-40f6-bc11-f1d7b0d64300_NPPR9-FWDCX-D2C8J-H872K-2YT43___4_Enterprise
|
|
9bd77860-9b31-4b7b-96ad-2564017315bf_VDYBN-27WPP-V4HQT-9VMD4-VMK7H___7_ServerStandard_FE
|
|
de32eafd-aaee-4662-9444-c1befb41bde2_N69G4-B89J2-4G8F4-WWYCC-J464C___7_ServerStandard_RS5
|
|
8c1c5410-9f39-4805-8c9d-63a07706358f_WC2BQ-8NRM3-FDDYY-2BFGV-KHKQY___7_ServerStandard_RS1
|
|
ef6cfc9f-8c5d-44ac-9aad-de6a2ea0ae03_WX4NM-KYWYW-QJJR4-XV3QB-6VM33___8_ServerDatacenter_FE
|
|
34e1ae55-27f8-4950-8877-7a03be5fb181_WMDGN-G9PQG-XVVXX-R3X43-63DFG___8_ServerDatacenter_RS5
|
|
21c56779-b449-4d20-adfc-eece0e1ad74b_CB7KF-BWN84-R7R2Y-793K2-8XDDG___8_ServerDatacenter_RS1
|
|
e272e3e2-732f-4c65-a8f0-484747d0d947_DPH2V-TTNVB-4X9Q3-TJR4H-KHJW4__27_EnterpriseN
|
|
2de67392-b7a7-462a-b1ca-108dd189f588_W269N-WFGWX-YVC9B-4J6C9-T83GX__48_Professional
|
|
a80b5abf-76ad-428b-b05d-a47d2dffeebf_MH37W-N47XK-V7XM9-C7227-GCQG9__49_ProfessionalN
|
|
034d3cbb-5d4b-4245-b3f8-f84571314078_WVDHN-86M7X-466P6-VHXV7-YY726__50_ServerSolution_RS5
|
|
2b5a1b0f-a5ab-4c54-ac2f-a6d94824a283_JCKRF-N37P4-C2D82-9YXRT-4M63B__50_ServerSolution_RS1
|
|
7b9e1751-a8da-4f75-9560-5fadfe3d8e38_3KHY7-WNT83-DGQKR-F7HPR-844BM__98_CoreN
|
|
a9107544-f4a0-4053-a96a-1479abdef912_PVMJN-6DFY6-9CCP6-7BKTT-D3WVR__99_CoreCountrySpecific
|
|
cd918a57-a41b-4c82-8dce-1a538e221a83_7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH_100_CoreSingleLanguage
|
|
58e97c99-f377-4ef1-81d5-4ad5522b5fd8_TX9XD-98N7V-6WMQ6-BX7FG-H8Q99_101_Core
|
|
7b4433f4-b1e7-4788-895a-c45378d38253_QN4C6-GBJD2-FB422-GHWJK-GJG2R_110_ServerCloudStorage
|
|
8de8eb62-bbe0-40ac-ac17-f75595071ea3_GRFBW-QNDC4-6QBHG-CCK3B-2PR88_120_ServerARM64_RS5
|
|
43d9af6e-5e86-4be8-a797-d072a046896c_K9FYF-G6NCK-73M32-XMVPY-F9DRR_120_ServerARM64_RS4
|
|
e0c42288-980c-4788-a014-c080d2e1926e_NW6C2-QMPVW-D7KKK-3GKT6-VCFB2_121_Education
|
|
3c102355-d027-42c6-ad23-2e7ef8a02585_2WH4N-8QGBV-H22JP-CT43Q-MDWWJ_122_EducationN
|
|
32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee_M7XTQ-FN8P6-TTKYV-9D4CC-J462D_125_EnterpriseS_RS5,VB
|
|
2d5a5a60-3040-48bf-beb0-fcd770c20ce0_DCPHK-NFMTC-H88MJ-PFHPY-QJ4BJ_125_EnterpriseS_RS1
|
|
7b51a46c-0c04-4e8f-9af4-8496cca90d5e_WNMTR-4C88C-JK8YV-HQ7T2-76DF9_125_EnterpriseS_TH1
|
|
7103a333-b8c8-49cc-93ce-d37c09687f92_92NFX-8DJQP-P6BBQ-THF9C-7CG2H_126_EnterpriseSN_RS5,VB
|
|
9f776d83-7156-45b2-8a5c-359b9c9f22a3_QFFDN-GRT3P-VKWWX-X7T3R-8B639_126_EnterpriseSN_RS1
|
|
87b838b7-41b6-4590-8318-5797951d8529_2F77B-TNFGY-69QQF-B8YKP-D69TJ_126_EnterpriseSN_TH1
|
|
39e69c41-42b4-4a0a-abad-8e3c10a797cc_QFND9-D3Y9C-J3KKY-6RPVP-2DPYV_145_ServerDatacenterACor_FE
|
|
90c362e5-0da1-4bfd-b53b-b87d309ade43_6NMRW-2C8FM-D24W7-TQWMY-CWH2D_145_ServerDatacenterACor_RS5
|
|
e49c08e7-da82-42f8-bde2-b570fbcae76c_2HXDN-KRXHB-GPYC7-YCKFJ-7FVDG_145_ServerDatacenterACor_RS3
|
|
f5e9429c-f50b-4b98-b15c-ef92eb5cff39_67KN8-4FYJW-2487Q-MQ2J7-4C4RG_146_ServerStandardACor_FE
|
|
73e3957c-fc0c-400d-9184-5f7b6f2eb409_N2KJX-J94YW-TQVFB-DG9YT-724CC_146_ServerStandardACor_RS5
|
|
61c5ef22-f14f-4553-a824-c4b31e84b100_PTXN8-JFHJM-4WC78-MPCBR-9W4KR_146_ServerStandardACor_RS3
|
|
82bbc092-bc50-4e16-8e18-b74fc486aec3_NRG8B-VKK3Q-CXVCJ-9G2XF-6Q84J_161_ProfessionalWorkstation
|
|
4b1571d3-bafb-4b40-8087-a961be2caf65_9FNHH-K3HBT-3W4TD-6383H-6XYWF_162_ProfessionalWorkstationN
|
|
3f1afc82-f8ac-4f6c-8005-1d233e606eee_6TP4R-GNPTD-KYYHQ-7B7DP-J447Y_164_ProfessionalEducation
|
|
5300b18c-2e33-4dc2-8291-47ffcec746dd_YVWGF-BXNMC-HTQYQ-CPQ99-66QFC_165_ProfessionalEducationN
|
|
8c8f0ad3-9a43-4e05-b840-93b8d1475cbc_6N379-GGTMK-23C6M-XVVTC-CKFRQ_168_ServerAzureCor_FE
|
|
a99cc1f0-7719-4306-9645-294102fbff95_FDNH6-VW9RW-BXPJ7-4XTYG-239TB_168_ServerAzureCor_RS5
|
|
3dbf341b-5f6c-4fa7-b936-699dce9e263f_VP34G-4NPPG-79JTQ-864T4-R3MQX_168_ServerAzureCor_RS1
|
|
e0b2d383-d112-413f-8a80-97f373a5820c_YYVX9-NTFWV-6MDM3-9PT4T-4M68B_171_EnterpriseG
|
|
e38454fb-41a4-4f59-a5dc-25080e354730_44RPN-FTY23-9VTTB-MP9BX-T84FV_172_EnterpriseGN
|
|
ec868e65-fadf-4759-b23e-93fe37f2cc29_CPWHC-NT2C7-VYW78-DHDB2-PG3GK_175_ServerRdsh_RS5
|
|
e4db50ea-bda1-4566-b047-0ca50abc6f07_7NBT4-WGBQX-MP4H7-QXFF8-YP3KX_175_ServerRdsh_RS3
|
|
0df4f814-3f57-4b8b-9a9d-fddadcd69fac_NBTWJ-3DR69-3C4V8-C26MC-GQ9M6_183_CloudE
|
|
59eb965c-9150-42b7-a0ec-22151b9897c5_KBN8V-HFGQ4-MGXVD-347P6-PDQGT_191_IoTEnterpriseS_NI
|
|
d30136fc-cb4b-416e-a23d-87207abc44a9_6XN7V-PCBDC-BDBRH-8DQY7-G6R44_202_CloudEditionN
|
|
ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69_37D7F-N49CB-WQR8W-TBJ73-FM8RX_203_CloudEdition
|
|
19b5e0fb-4431-46bc-bac1-2f1873e4ae73_NTBV8-9K7Q8-V27C6-M2BTV-KHMXV_407_ServerTurbine
|
|
) do (
|
|
for /f "tokens=1-5 delims=_" %%A in ("%%#") do if %osSKU%==%%C (
|
|
if %1==getkey if not defined key echo "!applist!" | find /i "%%A" >nul && set key=%%B
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Below code is used to get alternate edition name and key if current edition doesn't support KMS38 activation
|
|
:: ProfessionalCountrySpecific won't be converted because it's not a good idea to change CountrySpecific editions
|
|
|
|
:: 1st column = Current SKU ID
|
|
:: 2nd column = Current Edition Name
|
|
:: 3rd column = Current Edition Activation ID
|
|
:: 4th column = Alternate Edition Activation ID
|
|
:: 5th column = Alternate Edition GVLK
|
|
:: 6th column = Alternate Edition Name
|
|
:: Separator = _
|
|
|
|
|
|
:kms38fallback
|
|
|
|
set notfoundaltactID=
|
|
if %_NoEditionChange%==1 exit /b
|
|
|
|
for %%# in (
|
|
188_IoTEnterprise_______________8ab9bdd1-1f67-4997-82d9-8878520837d9_73111121-5638-40f6-bc11-f1d7b0d64300_NPPR9-FWDCX-D2C8J-H872K-2YT43_Enterprise
|
|
191_IoTEnterpriseS-2021_________ed655016-a9e8-4434-95d9-4345352c2552_32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee_M7XTQ-FN8P6-TTKYV-9D4CC-J462D_EnterpriseS-2021
|
|
205_IoTEnterpriseSK_____________d4f9b41f-205c-405e-8e08-3d16e88e02be_59eb965c-9150-42b7-a0ec-22151b9897c5_KBN8V-HFGQ4-MGXVD-347P6-PDQGT_IoTEnterpriseS-Win11
|
|
138_ProfessionalSingleLanguage__a48938aa-62fa-4966-9d44-9f04da3f72f2_2de67392-b7a7-462a-b1ca-108dd189f588_W269N-WFGWX-YVC9B-4J6C9-T83GX_Professional
|
|
) do (
|
|
for /f "tokens=1-6 delims=_" %%A in ("%%#") do if %osSKU%==%%A (
|
|
echo "!applist!" | find /i "%%C" 1>nul && (
|
|
echo "!applist!" | find /i "%%D" 1>nul && (
|
|
set altkey=%%E
|
|
set curedition=%%B
|
|
set altedition=%%F
|
|
) || (
|
|
set altedition=%%F
|
|
set notfoundaltactID=1
|
|
)
|
|
)
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:KMSActivation
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
cls
|
|
color 07
|
|
title Online KMS Activation
|
|
|
|
:: You are not supposed to edit anything below this.
|
|
|
|
set WMI_VBS=0
|
|
set _Debug=0
|
|
set Silent=0
|
|
set Logger=0
|
|
set AutoR2V=1
|
|
set SkipKMS38=1
|
|
set vNextOverride=1
|
|
set ActWindows=1
|
|
set ActOffice=1
|
|
|
|
set _uni=
|
|
set _args=
|
|
set _elev=
|
|
set _renetask=
|
|
set _renacttask=
|
|
set _unattended=
|
|
set _unattendedact=
|
|
|
|
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"=="/KMS-RenewalTask" (set _renetask=1
|
|
) else if /i "%%A"=="/KMS-ActAndRenewalTask" (set _renacttask=1
|
|
) else if /i "%%A"=="/KMS-Uninstall" (set _uni=1
|
|
) else if /i "%%A"=="/KMS-Windows" (set ActWindows=1&set ActOffice=0&set _unattendedact=1
|
|
) else if /i "%%A"=="/KMS-Office" (set ActWindows=0&set ActOffice=1&set _unattendedact=1
|
|
) else if /i "%%A"=="/KMS-WindowsOffice" (set ActWindows=1&set ActOffice=1&set _unattendedact=1
|
|
) else if /i "%%A"=="/KMS-KeepvNext" (set vNextOverride=0
|
|
) else if /i "%%A"=="/KMS-Debug" (set _Debug=1
|
|
) else if /i "%%A"=="/KMS-Logger" (set Logger=1&set Silent=1
|
|
)
|
|
)
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
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
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: 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%"
|
|
set "_Local=%LocalAppData%"
|
|
|
|
setlocal EnableDelayedExpansion
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %~z0 GEQ 300000 (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
|
|
|
|
::========================================================================================================================================
|
|
|
|
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 Check this page for help https://massgrave.dev/troubleshoot
|
|
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 (
|
|
reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%
|
|
reg add "HKCU\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f %nul%
|
|
if defined notx86 reg add "HKLM\Software\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f /reg:32 %nul%
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
if defined _uni goto _Complete_Uninstall
|
|
|
|
if defined _renetask set ActTask=&call:RenTask&timeout /t 2
|
|
cls
|
|
if defined _renacttask set ActTask=1&call:RenTask&timeout /t 2
|
|
cls
|
|
if defined _unattended if not defined _unattendedact goto Done
|
|
|
|
::========================================================================================================================================
|
|
|
|
set "_title=Online KMS Activation"
|
|
set _gui=
|
|
|
|
:_KMS_Menu
|
|
|
|
set sub_next=0
|
|
set sub_o365=0
|
|
set sub_proj=0
|
|
set sub_vsio=0
|
|
set _Identity=0
|
|
set kNext=HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext
|
|
dir /b /s /a:-d "!_Local!\Microsoft\Office\Licenses\*1*" %nul% && set _Identity=1
|
|
dir /b /s /a:-d "!ProgramData!\Microsoft\Office\Licenses\*1*" %nul% && set _Identity=1
|
|
if %_Identity% EQU 1 reg query %kNext% /v MigrationToV5Done 2>nul | find /i "0x1" %nul% && call :officeSub %nul%
|
|
|
|
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
|
|
timeout /t 2
|
|
goto Done
|
|
)
|
|
|
|
cls
|
|
set _gui=1
|
|
title %_title%
|
|
mode con: cols=76 lines=30
|
|
|
|
echo.
|
|
echo.
|
|
echo.
|
|
echo.
|
|
echo. ______________________________________________________________
|
|
echo.
|
|
echo. [1] Activate - Windows
|
|
echo. [2] Activate - Office
|
|
echo. [3] Activate - All
|
|
echo.
|
|
if defined _tskinstalled call :_color2 %_White% " [4] Install Auto-Renewal " %_Green% "[Installed]"
|
|
if defined _oldtsk call :_color2 %_White% " [4] Install Auto-Renewal " %_Red% "[Old Installed]"
|
|
if not defined _tskinstalled if not defined _oldtsk echo. [4] Install Auto-Renewal
|
|
echo. [5] Uninstall
|
|
echo. _______________________________________________
|
|
echo.
|
|
if %_Debug%==0 (
|
|
echo. [6] Enable Debug Mode [No]
|
|
) else (
|
|
call :_color2 %_White% " [6] Enable Debug Mode " %_Red% "[Yes]"
|
|
)
|
|
if %vNextOverride% EQU 1 (
|
|
if %sub_next% EQU 1 (
|
|
call :_color2 %_White% " [7] Override Office vNext " %_Red% "[Yes]"
|
|
) else (
|
|
echo [7] Override Office vNext [Yes]
|
|
)
|
|
) else (
|
|
if %sub_next% EQU 1 (
|
|
call :_color2 %_White% " [7] Override Office vNext " %_Yellow% "[No]"
|
|
) else (
|
|
echo [7] Override Office vNext [No]
|
|
)
|
|
)
|
|
echo. _______________________________________________
|
|
echo.
|
|
echo. [0] %_exitmsg%
|
|
echo. ______________________________________________________________
|
|
echo.
|
|
call :_color2 %_White% " " %_Green% "Enter a menu option in the Keyboard [1,2,3,4,5,6,7,0]"
|
|
choice /C:12345670 /N
|
|
set _el=%errorlevel%
|
|
|
|
if %_el%==8 exit /b
|
|
if %_el%==7 (if %vNextOverride% EQU 0 (set vNextOverride=1) else (set vNextOverride=0))&goto _KMS_Menu
|
|
if %_el%==6 (if %_Debug%==0 (set _Debug=1) else (set _Debug=0)) &goto _KMS_Menu
|
|
if %_el%==5 call:_Complete_Uninstall&cls&goto _KMS_Menu
|
|
if %_el%==4 set ActTask=&call:RenTask&goto _KMS_Menu
|
|
if %_el%==3 cls&setlocal&set "ActWindows=1"&set "ActOffice=1"&call :Activation_Start&endlocal&cls&goto _KMS_Menu
|
|
if %_el%==2 cls&setlocal&set "ActWindows=0"&set "ActOffice=1"&call :Activation_Start&endlocal&cls&goto _KMS_Menu
|
|
if %_el%==1 cls&setlocal&set "ActWindows=1"&set "ActOffice=0"&call :Activation_Start&endlocal&cls&goto _KMS_Menu
|
|
goto _KMS_Menu
|
|
|
|
::========================================================================================================================================
|
|
|
|
:Done
|
|
|
|
if defined _unattended exit /b
|
|
|
|
echo.
|
|
echo Press any key to go back...
|
|
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%)
|
|
)
|
|
|
|
call :Clear-KMS-Cache %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 this script"
|
|
set "_mO14m=Detected Office 2010 MSI Retail is not supported by this script"
|
|
set "_mO15m=Detected Office 2013 MSI Retail is not supported by this script"
|
|
set "_mO16m=Detected Office 2016 MSI Retail is not supported by this script"
|
|
set "_mOuwp=Detected Office 365/2016 UWP is not supported by this script"
|
|
set 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 this page for help https://massgrave.dev/troubleshoot &call :CheckWS
|
|
exit /b
|
|
)
|
|
)
|
|
)
|
|
if %WinVL% EQU 0 if %Off1ce% EQU 0 exit /b
|
|
set _gvlk=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%"
|
|
if %winbuild% GEQ 10240 %_qr% %_Nul2% | findstr /i Windows %_Nul1% && (set _gvlk=1)
|
|
set gpr=0
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% GracePeriodRemaining %_zz8%"
|
|
if %winbuild% GEQ 10240 if %SkipKMS38% NEQ 0 if %_gvlk% EQU 1 for /f "tokens=2 delims==" %%A in ('%_qr% %_Nul6%') do set "gpr=%%A"
|
|
set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL" %_zz3% LicenseFamily %_zz4%"
|
|
if %gpr% NEQ 0 if %gpr% GTR 259200 (
|
|
set W1nd0ws=0
|
|
%_qr% %_Nul2% | findstr /i EnterpriseG %_Nul1% && (call set W1nd0ws=1)
|
|
)
|
|
set "_qr=%_zz7% %sps% %_zz3% Version %_zz8%"
|
|
for /f "tokens=2 delims==" %%A in ('%_qr%') do set slsv=%%A
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" %_Nul3%
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%
|
|
if %winbuild% GEQ 9200 (
|
|
if not %xOS%==x86 (
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32 %_Nul3%
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" /reg:32 %_Nul3%
|
|
reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32 %_Null%
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" /reg:32 %_Nul3%
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" /reg:32 %_Nul3%
|
|
)
|
|
reg delete "HKLM\%SPPk%\%_oApp%" /f %_Null%
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "%KMS_IP%" %_Nul3%
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%
|
|
)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' %_zz6% %_zz3% ID %_zz8%"
|
|
if %W1nd0ws% EQU 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :sppchkwin)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' %adoff% %_zz6% %_zz3% ID %_zz8%"
|
|
if %W1nd0ws% EQU 1 if %ActWindows% NEQ 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :sppchkwin)
|
|
:: set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' %addon% %_zz6% %_zz3% ID %_zz8%"
|
|
:: if %ESU_EDT% EQU 1 if %ActWindows% NEQ 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :esuchk)
|
|
if %W1nd0ws% EQU 1 if %ActWindows% EQU 0 (echo.&echo Windows activation is OFF...)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' and Description like '%%KMSCLIENT%%' %_zz6% %_zz3% ID %_zz8%"
|
|
if %Off1ce% EQU 1 if %ActOffice% NEQ 0 for /f "tokens=2 delims==" %%G in ('%_qr%') do (set app=%%G&call :sppchkoff 1)
|
|
reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing %_Null%
|
|
reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching %_Null%
|
|
exit /b
|
|
|
|
:sppoff
|
|
set OffUWP=0
|
|
if %winbuild% GEQ 10240 reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msoxmled.exe" %_Nul3% && (
|
|
dir /b "%ProgramFiles%\WindowsApps\Microsoft.Office.Desktop*" %_Nul3% && set OffUWP=1
|
|
if not %xOS%==x86 dir /b "%ProgramW6432%\WindowsApps\Microsoft.Office.Desktop*" %_Nul3% && set OffUWP=1
|
|
)
|
|
rem nothing installed
|
|
if %loc_off21% EQU 0 if %loc_off19% EQU 0 if %loc_off16% EQU 0 if %loc_off15% EQU 0 (
|
|
if %winbuild% GEQ 9200 (
|
|
if %OffUWP% EQU 0 (echo.&echo No Installed Office 2013-2021 Product Detected...) else (echo.&echo %_mOuwp%)
|
|
exit /b
|
|
)
|
|
if %winbuild% LSS 9200 (if %loc_off14% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b))
|
|
)
|
|
if %vNextOverride% EQU 1 if %AutoR2V% EQU 1 (
|
|
set sub_o365=0
|
|
set sub_proj=0
|
|
set sub_vsio=0
|
|
if %sub_next% EQU 1 reg delete HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing /f %_Nul3%
|
|
)
|
|
set Off1ce=1
|
|
set _sC2R=sppoff
|
|
set _fC2R=ReturnSPP
|
|
set vol_off14=0&set vol_off15=0&set vol_off16=0&set vol_off19=0&set vol_off21=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%Description like '%%KMSCLIENT%%' AND NOT Name like '%%MondoR_KMS_Automation%%' %_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% > "!_temp!\sppchk.txt" 2>&1
|
|
find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off21=1)
|
|
find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off19=1)
|
|
find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off16=1)
|
|
find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off15=1)
|
|
if %winbuild% LSS 9200 find /i "Office 14" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off14=1)
|
|
for %%A in (14,15,16,19,21) do if !loc_off%%A! EQU 0 set vol_off%%A=0
|
|
set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%'" %_zz3% LicenseFamily %_zz4%"
|
|
if %vol_off16% EQU 1 find /i "Office16MondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off16=0)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%'" %_zz3% LicenseFamily %_zz4%"
|
|
if %vol_off15% EQU 1 find /i "OfficeMondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off15=0)
|
|
)
|
|
set ret_off14=0&set ret_off15=0&set ret_off16=0&set ret_off19=0&set ret_off21=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND NOT Name like '%%O365%%' %_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% > "!_temp!\sppchk.txt" 2>&1
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 21" %_Nul1% && (set ret_off21=1)
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 19" %_Nul1% && (set ret_off19=1)
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 16" %_Nul1% && (set ret_off16=1)
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 15" %_Nul1% && (set ret_off15=1)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oA14%'%_zz6% %_zz3% Description %_zz4%"
|
|
if %winbuild% LSS 9200 if %vol_off14% EQU 0 %_qr% %_Nul2% | findstr /i channel %_Nul1% && (set ret_off14=1)
|
|
set run_off21=0&set prr_off21=0&set prv_off21=0
|
|
if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 0 set run_off21=1
|
|
if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 1 (
|
|
for %%a in (%DO16Ids%) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
)
|
|
if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 1 if %prv_off21% LSS %prr_off21% (set vol_off21=0&set run_off21=1)
|
|
set run_off19=0&set prr_off19=0&set prv_off19=0
|
|
if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 0 set run_off19=1
|
|
if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 1 (
|
|
for %%a in (%DO16Ids%) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
)
|
|
if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 1 if %prv_off19% LSS %prr_off19% (set vol_off19=0&set run_off19=1)
|
|
set run_off16=0&set prr_off16=0&set prv_off16=0
|
|
if %loc_off16% EQU 1 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if defined _C16R (
|
|
for %%a in (%DO16Ids%) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16ProPlusVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16StandardVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
)
|
|
if %loc_off16% EQU 1 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if defined _C16R if %prv_off16% LSS %prr_off16% (set vol_off16=0&set run_off16=1)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%' %_zz6% %_zz3% LicenseFamily %_zz4%"
|
|
if %loc_off16% EQU 1 if %run_off16% EQU 0 if %sub_o365% EQU 0 if defined _C16R %_qr% %_Nul2% | find /i "O365" %_Nul1% && (
|
|
find /i "Office16MondoVL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1
|
|
)
|
|
set run_off15=0
|
|
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%1MSI=0
|
|
if %1 EQU 19 (
|
|
if defined _C16R reg query %_C16R% /v ProductReleaseIds %_Nul2% | findstr 2019 %_Nul1% && set loc_off%1=1
|
|
exit /b
|
|
)
|
|
if %1 EQU 21 (
|
|
if defined _C16R reg query %_C16R% /v ProductReleaseIds %_Nul2% | findstr 2021 %_Nul1% && set loc_off%1=1
|
|
exit /b
|
|
)
|
|
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\%1.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" (
|
|
set loc_off%1=1
|
|
set _O%1MSI=1
|
|
)
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\%1.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" (
|
|
set loc_off%1=1
|
|
set _O%1MSI=1
|
|
)
|
|
|
|
if %1 EQU 16 if defined _C16R (
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query %_C16R% /v ProductReleaseIds') do echo %%b> "!_temp!\c2rchk.txt"
|
|
for %%a in (%LV16Ids%,ProjectProX,ProjectStdX,VisioProX,VisioStdX) do (
|
|
findstr /I /C:"%%aVolume" "!_temp!\c2rchk.txt" %_Nul1% && set loc_off%1=1
|
|
)
|
|
for %%a in (%LR16Ids%) do (
|
|
findstr /I /C:"%%aRetail" "!_temp!\c2rchk.txt" %_Nul1% && set loc_off%1=1
|
|
)
|
|
exit /b
|
|
)
|
|
|
|
if %1 EQU 15 if defined _C15R (
|
|
set loc_off%1=1
|
|
exit /b
|
|
)
|
|
|
|
if exist "%ProgramFiles%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1
|
|
if not %xOS%==x86 if exist "%ProgramW6432%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1
|
|
if not %xOS%==x86 if exist "%ProgramFiles(x86)%\Microsoft Office\Office%1\OSPP.VBS" set loc_off%1=1
|
|
exit /b
|
|
|
|
:officeSub
|
|
reg query %kNext% | findstr /i /r ".*retail" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x2" %_Nul1% && (set sub_o365=1)
|
|
reg query %kNext% | findstr /i /r ".*retail" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x3" %_Nul1% && (set sub_o365=1)
|
|
reg query %kNext% | findstr /i /r ".*volume" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x2" %_Nul1% && (set sub_o365=1)
|
|
reg query %kNext% | findstr /i /r ".*volume" %_Nul2% | findstr /i /v "project visio" %_Nul2% | find /i "0x3" %_Nul1% && (set sub_o365=1)
|
|
reg query %kNext% | findstr /i /r "project.*" %_Nul2% | find /i "0x2" %_Nul1% && set sub_proj=1
|
|
reg query %kNext% | findstr /i /r "project.*" %_Nul2% | find /i "0x3" %_Nul1% && set sub_proj=1
|
|
reg query %kNext% | findstr /i /r "visio.*" %_Nul2% | find /i "0x2" %_Nul1% && set sub_vsio=1
|
|
reg query %kNext% | findstr /i /r "visio.*" %_Nul2% | find /i "0x3" %_Nul1% && set sub_vsio=1
|
|
if %sub_o365% EQU 1 set sub_next=1
|
|
if %sub_proj% EQU 1 set sub_next=1
|
|
if %sub_vsio% EQU 1 set sub_next=1
|
|
exit /b
|
|
|
|
:insKey
|
|
set S_OK=1
|
|
echo.
|
|
set "_key="
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"
|
|
if %ESU_ADD% EQU 0 for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Installing Key: %%x
|
|
if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Installing Key: %%x
|
|
set ESU_ADD=0
|
|
call :keys %app%
|
|
if "%_key%"=="" (echo No associated KMS Client key found&exit /b)
|
|
set "_qr=wmic path %sps% where Version='%slsv%' call InstallProductKey ProductKey="%_key%""
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csp% %sps% "%_key%""
|
|
%_qr% %_Nul3%
|
|
set ERRORCODE=%ERRORLEVEL%
|
|
if %ERRORCODE% NEQ 0 (
|
|
cmd /c exit /b %ERRORCODE%
|
|
echo Failed: 0x!=ExitCode!
|
|
set S_OK=0
|
|
exit /b
|
|
)
|
|
set "_qr=wmic path %sps% where Version='%slsv%' call RefreshLicenseStatus"
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%sps%.Version='%slsv%'" RefreshLicenseStatus"
|
|
if %sps% EQU SoftwareLicensingService %_qr% %_Nul3%
|
|
|
|
:activate
|
|
set S_OK=1
|
|
if %sps% EQU SoftwareLicensingService (
|
|
if %_officespp% EQU 0 (reg delete "HKLM\%SPPk%\%_wApp%\%app%" /f %_Null%) else (reg delete "HKLM\%SPPk%\%_oApp%\%app%" /f %_Null%)
|
|
) else (
|
|
reg delete "HKLM\%OPPk%\%_oA14%\%app%" /f %_Null%
|
|
reg delete "HKLM\%OPPk%\%_oApp%\%app%" /f %_Null%
|
|
)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"
|
|
if %W1nd0ws% EQU 0 if %_officespp% EQU 0 if %sps% EQU SoftwareLicensingService (
|
|
reg add "HKLM\%SPPk%\%_wApp%\%app%" /f /v KeyManagementServiceName /t REG_SZ /d "127.0.0.2" %_Nul3%
|
|
reg add "HKLM\%SPPk%\%_wApp%\%app%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%
|
|
for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x
|
|
echo Product is KMS 2038 Activated.
|
|
set _keepkms38=1
|
|
exit /b
|
|
)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"
|
|
if %act_attempt% LSS 1 (
|
|
if %ESU_ADD% EQU 0 for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Activating: %%x
|
|
if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Activating: %%x
|
|
)
|
|
|
|
set ESU_ADD=0
|
|
set "_qr=wmic path %spp% where ID='%app%' call Activate"
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%spp%.ID='%app%'" Activate"
|
|
%_qr% %_Nul3%
|
|
call set ERRORCODE=%ERRORLEVEL%
|
|
if %act_attempt% LSS 1 if %ERRORCODE% EQU -1073418187 (
|
|
echo Product Activation Failed: 0xC004F035
|
|
if %OSType% EQU Win7 echo Windows 7 cannot be KMS-activated on this computer due to unqualified OEM BIOS.
|
|
echo See Read Me for details.
|
|
exit /b
|
|
)
|
|
if %act_attempt% LSS 1 if %ERRORCODE% EQU -1073417728 (
|
|
echo Product Activation Failed: 0xC004F200
|
|
echo Windows needs to rebuild the activation-related files.
|
|
echo See KB2736303 for details.
|
|
exit /b
|
|
)
|
|
if %act_attempt% LSS 1 if %ERRORCODE% EQU -1073422315 (
|
|
echo Product Activation Failed: 0xC004E015
|
|
echo Running slmgr.vbs /rilc to mitigate.
|
|
cscript //Nologo //B %SysPath%\slmgr.vbs /rilc
|
|
)
|
|
set gpr=0
|
|
set gpr2=0
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% GracePeriodRemaining %_zz8%"
|
|
for /f "tokens=2 delims==" %%x in ('%_qr%') do (set gpr=%%x&set /a "gpr2=(%%x+1440-1)/1440")
|
|
if %act_attempt% LSS 1 if %ERRORCODE% EQU 0 if %gpr% EQU 0 (
|
|
echo Product Activation succeeded, but Remaining Period failed to increase.
|
|
if %OSType% EQU Win7 echo This could be related to the error described in KB4487266
|
|
exit /b
|
|
)
|
|
set Act_OK=0
|
|
if %gpr% EQU 43200 if %_officespp% EQU 0 if %winbuild% GEQ 9200 set Act_OK=1
|
|
if %gpr% EQU 64800 set Act_OK=1
|
|
if %gpr% GTR 259200 if %Win10Gov% EQU 1 set Act_OK=1
|
|
if %gpr% EQU 259200 set Act_OK=1
|
|
|
|
if %ERRORCODE% EQU 0 if %Act_OK% EQU 1 (
|
|
call :_color %_Green% "Product Activation Successful"
|
|
echo Remaining Period: %gpr2% days ^(%gpr% minutes^)
|
|
set /a act_attempt=0
|
|
exit /b
|
|
)
|
|
|
|
if not !server_num! gtr %max_servers% (
|
|
if %act_attempt% LSS 3 (
|
|
set /a act_attempt+=1
|
|
call :getserv
|
|
%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!"
|
|
%nul% reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!"
|
|
if %winbuild% GEQ 9200 (
|
|
%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!"
|
|
if defined notx86 (
|
|
%nul% reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" /reg:32
|
|
%nul% reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" /reg:32
|
|
)
|
|
)
|
|
goto :activate
|
|
)
|
|
)
|
|
|
|
cmd /c exit /b %ERRORCODE%
|
|
if %ERRORCODE% NEQ 0 (
|
|
call :_color %_Red% "Product Activation Failed: 0x!=ExitCode!"
|
|
) else (
|
|
call :_color %_Red% "Product Activation Failed"
|
|
)
|
|
echo Remaining Period: %gpr2% days ^(%gpr% minutes^)
|
|
set S_OK=0
|
|
set act_failed=1
|
|
set /a act_attempt=0
|
|
exit /b
|
|
|
|
:StopService
|
|
sc query %1 | find /i "STOPPED" %_Nul1% || net stop %1 /y %_Nul3%
|
|
sc query %1 | find /i "STOPPED" %_Nul1% || sc stop %1 %_Nul3%
|
|
goto :eof
|
|
|
|
:UpdateOSPPEntry
|
|
if /i %1 EQU osppsvc.exe (
|
|
reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "!KMS_IP!" %_Nul3%
|
|
reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "%KMS_Port%" %_Nul3%
|
|
)
|
|
goto :eof
|
|
|
|
:CheckFR
|
|
|
|
set WMIe=0
|
|
call :CheckWS
|
|
if %WMIe% EQU 1 (
|
|
echo.
|
|
echo %_err%
|
|
echo Failed running WMI query check.
|
|
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 _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
|
|
)
|
|
set rancopp=0
|
|
if %_Identity% EQU 0 if %_Retail% EQU 0 if %_OMSI% EQU 0 if defined _copp call :oppcln
|
|
goto :oppchk
|
|
|
|
:oppcln
|
|
set rancopp=1
|
|
set "_cleanloc=%SystemRoot%\Temp\_cleanospp"
|
|
if exist "%_cleanloc%\.*" rmdir /s /q "%_cleanloc%\" %nul%
|
|
md "%_cleanloc%\" %nul%
|
|
pushd "%_cleanloc%\"
|
|
setlocal
|
|
set "TMP=%SystemRoot%\Temp"
|
|
set "TEMP=%SystemRoot%\Temp"
|
|
%nul% %psc% "$b=[IO.File]::ReadAllText('!_batp!')-split'[:]cleanospp[:].*';iex $b[1]; B 1"
|
|
endlocal
|
|
popd
|
|
set extf=
|
|
if not exist "%_cleanloc%\BIN\cleanosppx64.exe" set extf=1
|
|
if not exist "%_cleanloc%\BIN\cleanosppx86.exe" set extf=1
|
|
if defined extf (
|
|
set "_copp="
|
|
echo Failed to extract cleanospp files
|
|
)
|
|
if "!_copp!"=="1" (
|
|
%_Nul3% "!_cleanloc!\bin\cleanospp%xBit%.exe" -Licenses
|
|
) else if not defined extf (
|
|
pushd %_copp%
|
|
%_Nul3% copy /y "!_cleanloc!\bin\cleanospp%xBit%.exe" cleanospp.exe
|
|
%_Nul3% cleanospp.exe -Licenses
|
|
%_Nul3% del /f /q cleanospp.exe
|
|
popd
|
|
)
|
|
cd \
|
|
if exist "%_cleanloc%\.*" rmdir /s /q "%_cleanloc%\" %nul%
|
|
exit /b
|
|
|
|
:oppchk
|
|
set _O16O365=0
|
|
set _C16Msg=0
|
|
set _C15Msg=0
|
|
set "_qr=%_csq% %_spp% "%_ocq%" LicenseFamily"
|
|
if %_Retail% EQU 1 if %WMI_VBS% EQU 0 wmic path %_spp% where (%_ocq%) get LicenseFamily %_Nul2% |findstr /V /R "^$" >"!_temp!\crvRetail.txt"
|
|
if %_Retail% EQU 1 if %WMI_VBS% NEQ 0 %_qr% %_Nul2% >"!_temp!\crvRetail.txt"
|
|
set "_qr=%_csq% %_spp% "ApplicationID='%_oApp%'" LicenseFamily"
|
|
if %WMI_VBS% EQU 0 wmic path %_spp% where "ApplicationID='%_oApp%'" get LicenseFamily %_Nul2% |findstr /V /R "^$" >"!_temp!\crvVolume.txt" 2>&1
|
|
if %WMI_VBS% NEQ 0 %_qr% %_Nul2% >"!_temp!\crvVolume.txt" 2>&1
|
|
|
|
if %_Office16% EQU 0 goto :R15V
|
|
|
|
set _O21Ids=ProPlus2021,ProjectPro2021,VisioPro2021,Standard2021,ProjectStd2021,VisioStd2021,Access2021,SkypeforBusiness2021
|
|
set _O19Ids=ProPlus2019,ProjectPro2019,VisioPro2019,Standard2019,ProjectStd2019,VisioStd2019,Access2019,SkypeforBusiness2019
|
|
set _O16Ids=ProjectPro,VisioPro,Standard,ProjectStd,VisioStd,Access,SkypeforBusiness
|
|
set _A21Ids=Excel2021,Outlook2021,PowerPoint2021,Publisher2021,Word2021
|
|
set _A19Ids=Excel2019,Outlook2019,PowerPoint2019,Publisher2019,Word2019
|
|
set _A16Ids=Excel,Outlook,PowerPoint,Publisher,Word
|
|
set _V21Ids=%_O21Ids%,%_A21Ids%
|
|
set _V19Ids=%_O19Ids%,%_A19Ids%
|
|
set _V16Ids=Mondo,%_O16Ids%,%_A16Ids%,OneNote
|
|
set _R16Ids=%_V16Ids%,Professional,HomeBusiness,HomeStudent,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud
|
|
set _RetIds=%_V21Ids%,Professional2021,HomeBusiness2021,HomeStudent2021,%_V19Ids%,Professional2019,HomeBusiness2019,HomeStudent2019,%_R16Ids%
|
|
set _Suites=Mondo,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud,ProPlus,Standard,Professional,HomeBusiness,HomeStudent,ProPlus2019,Standard2019,Professional2019,HomeBusiness2019,HomeStudent2019,ProPlus2021,Standard2021,Professional2021,HomeBusiness2021,HomeStudent2021
|
|
set _PrjSKU=ProjectPro,ProjectStd,ProjectPro2019,ProjectStd2019,ProjectPro2021,ProjectStd2021
|
|
set _VisSKU=VisioPro,VisioStd,VisioPro2019,VisioStd2019,VisioPro2021,VisioStd2021
|
|
|
|
echo %_ProductIds%>"!_temp!\crvProductIds.txt"
|
|
for %%a in (%_RetIds%,ProPlus) do (
|
|
set _%%a=0
|
|
)
|
|
for %%a in (%_RetIds%) do (
|
|
findstr /I /C:"%%aRetail" "!_temp!\crvProductIds.txt" %_Nul1% && set _%%a=1
|
|
)
|
|
if !_LTSC! EQU 0 for %%a in (%_V21Ids%) do (
|
|
set _%%a=0
|
|
)
|
|
if !_LTSC! EQU 1 for %%a in (%_V21Ids%) do (
|
|
findstr /I /C:"%%aVolume" "!_temp!\crvProductIds.txt" %_Nul1% && (
|
|
find /i "Office21%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)
|
|
)
|
|
)
|
|
for %%a in (%_V19Ids%) do (
|
|
findstr /I /C:"%%aVolume" "!_temp!\crvProductIds.txt" %_Nul1% && (
|
|
find /i "Office19%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)
|
|
)
|
|
)
|
|
for %%a in (%_V16Ids%) do (
|
|
findstr /I /C:"%%aVolume" "!_temp!\crvProductIds.txt" %_Nul1% && (
|
|
find /i "Office16%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)
|
|
)
|
|
)
|
|
reg query %_PRIDs%\ProPlusRetail.16 %_Nul3% && (
|
|
find /i "Office16ProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)
|
|
)
|
|
reg query %_PRIDs%\ProPlusVolume.16 %_Nul3% && (
|
|
find /i "Office16ProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)
|
|
)
|
|
if %_Retail% EQU 1 for %%a in (%_RetIds%) do (
|
|
findstr /I /C:"%%aRetail" "!_temp!\crvProductIds.txt" %_Nul1% && (
|
|
find /i "Office16%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aR_Sub" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aR_PIN" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aE5R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aEDUR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aCO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office16%%aXC2RVL_MAKC2R" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R16=1)
|
|
find /i "Office19%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)
|
|
find /i "Office19%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)
|
|
find /i "Office19%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)
|
|
find /i "Office19%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R19=1)
|
|
find /i "Office21%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)
|
|
find /i "Office21%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)
|
|
find /i "Office21%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)
|
|
find /i "Office21%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R21=1)
|
|
)
|
|
)
|
|
if %_Retail% EQU 1 reg query %_PRIDs%\ProPlusRetail.16 %_Nul3% && (
|
|
find /i "Office16ProPlusR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)
|
|
find /i "Office16ProPlusR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)
|
|
find /i "Office16ProPlusMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)
|
|
find /i "Office16ProPlusVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R16=1)
|
|
)
|
|
set "_qr=%_zz1% %_spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%'" %_zz3% LicenseFamily %_zz4%"
|
|
find /i "Office16MondoVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (
|
|
%_qr% %_Nul2% | find /i "O365" %_Nul1% && (
|
|
for %%a in (O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud) do set _%%a=0
|
|
)
|
|
)
|
|
if %sub_o365% EQU 1 (
|
|
for %%a in (%_Suites%) do set _%%a=0
|
|
echo.
|
|
echo Microsoft Office is activated with a vNext license.
|
|
)
|
|
if %sub_proj% EQU 1 (
|
|
for %%a in (%_PrjSKU%) do set _%%a=0
|
|
echo.
|
|
echo Microsoft Project is activated with a vNext license.
|
|
)
|
|
if %sub_vsio% EQU 1 (
|
|
for %%a in (%_VisSKU%) do set _%%a=0
|
|
echo.
|
|
echo Microsoft Visio is activated with a vNext license.
|
|
)
|
|
|
|
for %%a in (%_RetIds%,ProPlus) do if !_%%a! EQU 1 (
|
|
set _C16Msg=1
|
|
)
|
|
if %_C16Msg% EQU 1 (
|
|
echo.
|
|
echo Converting Office C2R Retail-to-Volume:
|
|
)
|
|
if %_C16Msg% EQU 0 (if %_Office15% EQU 1 (goto :R15V) else (goto :GVLKC2R))
|
|
|
|
if !_Mondo! EQU 1 (
|
|
call :InsLic Mondo
|
|
)
|
|
if !_O365ProPlus! EQU 1 (
|
|
echo O365ProPlus 2016 Suite ^<-^> Mondo 2016 Licenses
|
|
call :InsLic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
|
|
if !_Mondo! EQU 0 call :InsLic Mondo
|
|
)
|
|
if !_O365Business! EQU 1 if !_O365ProPlus! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365Business 2016 Suite ^<-^> Mondo 2016 Licenses
|
|
call :InsLic O365Business NCHRJ-3VPGW-X73DM-6B36K-3RQ6B
|
|
if !_Mondo! EQU 0 call :InsLic Mondo
|
|
)
|
|
if !_O365SmallBusPrem! EQU 1 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365SmallBusPrem 2016 Suite ^<-^> Mondo 2016 Licenses
|
|
call :InsLic O365SmallBusPrem 3FBRX-NFP7C-6JWVK-F2YGK-H499R
|
|
if !_Mondo! EQU 0 call :InsLic Mondo
|
|
)
|
|
if !_O365HomePrem! EQU 1 if !_O365SmallBusPrem! EQU 0 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365HomePrem 2016 Suite ^<-^> Mondo 2016 Licenses
|
|
call :InsLic O365HomePrem 9FNY8-PWWTY-8RY4F-GJMTV-KHGM9
|
|
if !_Mondo! EQU 0 call :InsLic Mondo
|
|
)
|
|
if !_O365EduCloud! EQU 1 if !_O365HomePrem! EQU 0 if !_O365SmallBusPrem! EQU 0 if !_O365Business! EQU 0 if !_O365ProPlus! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365EduCloud 2016 Suite ^<-^> Mondo 2016 Licenses
|
|
call :InsLic O365EduCloud 8843N-BCXXD-Q84H8-R4Q37-T3CPT
|
|
if !_Mondo! EQU 0 call :InsLic Mondo
|
|
)
|
|
if !_O365ProPlus! EQU 1 set _O16O365=1
|
|
if !_Mondo! EQU 1 if !_O365ProPlus! EQU 0 (
|
|
echo Mondo 2016 Suite
|
|
call :InsLic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
|
|
if %_Office15% EQU 1 (goto :R15V) else (goto :GVLKC2R)
|
|
)
|
|
if !_ProPlus2021! EQU 1 if !_O365ProPlus! EQU 0 (
|
|
echo ProPlus 2021 Suite
|
|
call :InsLic ProPlus2021
|
|
)
|
|
if !_ProPlus2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 (
|
|
echo ProPlus 2019 Suite -^> ProPlus%_ons% Licenses
|
|
call :InsLic ProPlus%_tag%
|
|
)
|
|
if !_ProPlus! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 (
|
|
echo ProPlus 2016 Suite -^> ProPlus%_ons% Licenses
|
|
call :InsLic ProPlus%_tag%
|
|
)
|
|
if !_Professional2021! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 (
|
|
echo Professional 2021 Suite -^> ProPlus 2021 Licenses
|
|
call :InsLic ProPlus2021
|
|
)
|
|
if !_Professional2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 (
|
|
echo Professional 2019 Suite -^> ProPlus%_ons% Licenses
|
|
call :InsLic ProPlus%_tag%
|
|
)
|
|
if !_Professional! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 (
|
|
echo Professional 2016 Suite -^> ProPlus%_ons% Licenses
|
|
call :InsLic ProPlus%_tag%
|
|
)
|
|
if !_Standard2021! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 (
|
|
echo Standard 2021 Suite
|
|
call :InsLic Standard2021
|
|
)
|
|
if !_Standard2019! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 (
|
|
echo Standard 2019 Suite -^> Standard%_ons% Licenses
|
|
call :InsLic Standard%_tag%
|
|
)
|
|
if !_Standard! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 (
|
|
echo Standard 2016 Suite -^> Standard%_ons% Licenses
|
|
call :InsLic Standard%_tag%
|
|
)
|
|
for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a2021! EQU 1 (
|
|
echo %%a 2021 SKU
|
|
call :InsLic %%a2021
|
|
)
|
|
for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a2019! EQU 1 (
|
|
if !_%%a2021! EQU 0 (
|
|
echo %%a 2019 SKU -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a! EQU 1 (
|
|
if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
|
|
echo %%a 2016 SKU -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do if !_%%a2021! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 (
|
|
set _Standard2021=1
|
|
echo %%a 2021 Suite -^> Standard 2021 Licenses
|
|
call :InsLic Standard2021
|
|
)
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do if !_%%a2019! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 (
|
|
set _Standard2019=1
|
|
echo %%a 2019 Suite -^> Standard%_ons% Licenses
|
|
call :InsLic Standard%_tag%
|
|
)
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
|
|
set _Standard=1
|
|
echo %%a 2016 Suite -^> Standard%_ons% Licenses
|
|
call :InsLic Standard%_tag%
|
|
)
|
|
)
|
|
for %%a in (%_A21Ids%,OneNote) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 (
|
|
echo %%a App
|
|
call :InsLic %%a
|
|
)
|
|
)
|
|
for %%a in (%_A16Ids%) do if !_%%a2019! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 (
|
|
echo %%a 2019 App -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (%_A16Ids%) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_Standard2021! EQU 0 if !_Standard2019! EQU 0 if !_Standard! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
|
|
echo %%a 2016 App -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (Access) do if !_%%a2021! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 (
|
|
echo %%a 2021 App
|
|
call :InsLic %%a2021
|
|
)
|
|
)
|
|
for %%a in (Access) do if !_%%a2019! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_%%a2021! EQU 0 (
|
|
echo %%a 2019 App -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (Access) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_Professional2021! EQU 0 if !_Professional2019! EQU 0 if !_Professional! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
|
|
echo %%a 2016 App -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (SkypeforBusiness) do if !_%%a2021! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 (
|
|
echo %%a 2021 App
|
|
call :InsLic %%a2021
|
|
)
|
|
)
|
|
for %%a in (SkypeforBusiness) do if !_%%a2019! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_%%a2021! EQU 0 (
|
|
echo %%a 2019 App -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
for %%a in (SkypeforBusiness) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus2021! EQU 0 if !_ProPlus2019! EQU 0 if !_ProPlus! EQU 0 if !_%%a2021! EQU 0 if !_%%a2019! EQU 0 (
|
|
echo %%a 2016 App -^> %%a%_ons% Licenses
|
|
call :InsLic %%a%_tag%
|
|
)
|
|
)
|
|
if %_Office15% EQU 1 (goto :R15V) else (goto :GVLKC2R)
|
|
|
|
:R15V
|
|
for %%# in ("!_Licenses15Path!\client-issuance-*.xrm-ms") do (
|
|
%_cscript% %_vbsi%"!_Licenses15Path!\%%~nx#"
|
|
)
|
|
%_cscript% %_vbsi%"!_Licenses15Path!\pkeyconfig-office.xrm-ms"
|
|
|
|
set _O15Ids=Standard,ProjectPro,VisioPro,ProjectStd,VisioStd,Access,Lync
|
|
set _A15Ids=Excel,Groove,InfoPath,OneNote,Outlook,PowerPoint,Publisher,Word
|
|
set _R15Ids=SPD,Mondo,%_O15Ids%,%_A15Ids%,Professional,HomeBusiness,HomeStudent,O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem
|
|
set _V15Ids=Mondo,%_O15Ids%,%_A15Ids%
|
|
|
|
echo %_Product15Ids%>"!_temp!\crvProduct15s.txt"
|
|
for %%a in (%_R15Ids%,ProPlus) do (
|
|
set _%%a=0
|
|
)
|
|
for %%a in (%_R15Ids%) do (
|
|
findstr /I /C:"%%aRetail" "!_temp!\crvProduct15s.txt" %_Nul1% && set _%%a=1
|
|
)
|
|
for %%a in (%_V15Ids%) do (
|
|
findstr /I /C:"%%aVolume" "!_temp!\crvProduct15s.txt" %_Nul1% && (
|
|
find /i "Office%%aVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _%%a=0) || (set _%%a=1)
|
|
)
|
|
)
|
|
reg query %_PR15IDs%\Active\ProPlusRetail\x-none %_Nul3% && (
|
|
find /i "OfficeProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)
|
|
)
|
|
reg query %_PR15IDs%\Active\ProPlusVolume\x-none %_Nul3% && (
|
|
find /i "OfficeProPlusVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (set _ProPlus=0) || (set _ProPlus=1)
|
|
)
|
|
if %_Retail% EQU 1 for %%a in (%_R15Ids%) do (
|
|
findstr /I /C:"%%aRetail" "!_temp!\crvProduct15s.txt" %_Nul1% && (
|
|
find /i "Office%%aR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aR_Sub" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aR_PIN" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aCO365R_" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
find /i "Office%%aVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _%%a=0 & set aC2R15=1)
|
|
)
|
|
)
|
|
if %_Retail% EQU 1 reg query %_PR15IDs%\Active\ProPlusRetail\x-none %_Nul3% && (
|
|
find /i "OfficeProPlusR_Retail" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)
|
|
find /i "OfficeProPlusR_OEM" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)
|
|
find /i "OfficeProPlusMSDNR_" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)
|
|
find /i "OfficeProPlusVL_MAK" "!_temp!\crvRetail.txt" %_Nul1% && (set _ProPlus=0 & set aC2R15=1)
|
|
)
|
|
set "_qr=%_zz1% %_spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%'" %_zz3% LicenseFamily %_zz4%"
|
|
find /i "OfficeMondoVL_KMS_Client" "!_temp!\crvVolume.txt" %_Nul1% && (
|
|
%_qr% %_Nul2% | find /i "O365" %_Nul1% && (
|
|
for %%a in (O365ProPlus,O365Business,O365SmallBusPrem,O365HomePrem) do set _%%a=0
|
|
)
|
|
)
|
|
|
|
for %%a in (%_R15Ids%,ProPlus) do if !_%%a! EQU 1 (
|
|
set _C15Msg=1
|
|
)
|
|
if %_C15Msg% EQU 1 if %_C16Msg% EQU 0 (
|
|
echo.
|
|
echo Converting Office C2R Retail-to-Volume:
|
|
)
|
|
if %_C15Msg% EQU 0 goto :GVLKC2R
|
|
|
|
if !_Mondo! EQU 1 (
|
|
call :Ins15Lic Mondo
|
|
)
|
|
if !_O365ProPlus! EQU 1 if !_O16O365! EQU 0 (
|
|
echo O365ProPlus 2013 Suite ^<-^> Mondo 2013 Licenses
|
|
call :Ins15Lic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
|
|
if !_Mondo! EQU 0 call :Ins15Lic Mondo
|
|
)
|
|
if !_O365SmallBusPrem! EQU 1 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365SmallBusPrem 2013 Suite ^<-^> Mondo 2013 Licenses
|
|
call :Ins15Lic O365SmallBusPrem 3FBRX-NFP7C-6JWVK-F2YGK-H499R
|
|
if !_Mondo! EQU 0 call :Ins15Lic Mondo
|
|
)
|
|
if !_O365HomePrem! EQU 1 if !_O365SmallBusPrem! EQU 0 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365HomePrem 2013 Suite ^<-^> Mondo 2013 Licenses
|
|
call :Ins15Lic O365HomePrem 9FNY8-PWWTY-8RY4F-GJMTV-KHGM9
|
|
if !_Mondo! EQU 0 call :Ins15Lic Mondo
|
|
)
|
|
if !_O365Business! EQU 1 if !_O365HomePrem! EQU 0 if !_O365SmallBusPrem! EQU 0 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
|
|
set _O365ProPlus=1
|
|
echo O365Business 2013 Suite ^<-^> Mondo 2013 Licenses
|
|
call :Ins15Lic O365Business MCPBN-CPY7X-3PK9R-P6GTT-H8P8Y
|
|
if !_Mondo! EQU 0 call :Ins15Lic Mondo
|
|
)
|
|
if !_Mondo! EQU 1 if !_O365ProPlus! EQU 0 if !_O16O365! EQU 0 (
|
|
echo Mondo 2013 Suite
|
|
call :Ins15Lic O365ProPlus DRNV7-VGMM2-B3G9T-4BF84-VMFTK
|
|
goto :GVLKC2R
|
|
)
|
|
if !_SPD! EQU 1 if !_Mondo! EQU 0 if !_O365ProPlus! EQU 0 (
|
|
echo SharePoint Designer 2013 App -^> Mondo 2013 Licenses
|
|
call :Ins15Lic Mondo
|
|
goto :GVLKC2R
|
|
)
|
|
if !_ProPlus! EQU 1 if !_O365ProPlus! EQU 0 (
|
|
echo ProPlus 2013 Suite
|
|
call :Ins15Lic ProPlus
|
|
)
|
|
if !_Professional! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 (
|
|
echo Professional 2013 Suite -^> ProPlus 2013 Licenses
|
|
call :Ins15Lic ProPlus
|
|
)
|
|
if !_Standard! EQU 1 if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 (
|
|
echo Standard 2013 Suite
|
|
call :Ins15Lic Standard
|
|
)
|
|
for %%a in (ProjectPro,VisioPro,ProjectStd,VisioStd) do if !_%%a! EQU 1 (
|
|
echo %%a 2013 SKU
|
|
call :Ins15Lic %%a
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 if !_Standard! EQU 0 (
|
|
set _Standard=1
|
|
echo %%a 2013 Suite -^> Standard 2013 Licenses
|
|
call :Ins15Lic Standard
|
|
)
|
|
)
|
|
for %%a in (%_A15Ids%) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 if !_Standard! EQU 0 (
|
|
echo %%a 2013 App
|
|
call :Ins15Lic %%a
|
|
)
|
|
)
|
|
for %%a in (Access) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 if !_Professional! EQU 0 (
|
|
echo %%a 2013 App
|
|
call :Ins15Lic %%a
|
|
)
|
|
)
|
|
for %%a in (Lync) do if !_%%a! EQU 1 (
|
|
if !_O365ProPlus! EQU 0 if !_ProPlus! EQU 0 (
|
|
echo SkypeforBusiness 2015 App
|
|
call :Ins15Lic %%a
|
|
)
|
|
)
|
|
goto :GVLKC2R
|
|
|
|
:InsLic
|
|
set "_ID=%1Volume"
|
|
set "_pkey="
|
|
if not "%2"=="" (
|
|
set "_ID=%1Retail"
|
|
set "_pkey=PidKey=%2"
|
|
)
|
|
reg delete %_Config% /f /v %_ID%.OSPPReady %_Nul3%
|
|
"!_Integrator!" /I /License PRIDName=%_ID%.16 %_pkey% PackageGUID="%_GUID%" PackageRoot="!_InstallRoot!" %_Nul1%
|
|
reg add %_Config% /f /v %_ID%.OSPPReady /t REG_SZ /d 1 %_Nul1%
|
|
reg query %_Config% /v ProductReleaseIds | findstr /I "%_ID%" %_Nul1%
|
|
if %errorlevel% NEQ 0 (
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query %_Config% /v ProductReleaseIds') do reg add %_Config% /v ProductReleaseIds /t REG_SZ /d "%%b,%_ID%" /f %_Nul1%
|
|
)
|
|
exit /b
|
|
|
|
:Ins15Lic
|
|
set "_ID=%1Volume"
|
|
set "_patt=%1VL_"
|
|
set "_pkey="
|
|
if not "%2"=="" (
|
|
set "_ID=%1Retail"
|
|
set "_patt=%1R_"
|
|
set "_pkey=%2"
|
|
)
|
|
reg delete %_OSPP15Ready% /f /v %_ID%.OSPPReady %_Nul3%
|
|
for %%# in ("!_Licenses15Path!\%_patt%*.xrm-ms") do (
|
|
%_cscript% %_vbsi%"!_Licenses15Path!\%%~nx#"
|
|
)
|
|
set "_qr=wmic path %_sps% where Version='%_wmi%' call InstallProductKey ProductKey="%_pkey%""
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csp% %_sps% "%_pkey%""
|
|
if defined _pkey %_qr% %_Nul3%
|
|
reg add %_OSPP15Ready% /f /v %_ID%.OSPPReady /t %_OSPP15ReadT% /d 1 %_Nul1%
|
|
reg query %_Con15fig% %_Nul2% | findstr /I "%_ID%" %_Nul1%
|
|
if %errorlevel% NEQ 0 (
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query %_Con15fig% %_Nul6%') do reg add %_Con15fig% /t REG_SZ /d "%%b,%_ID%" /f %_Nul1%
|
|
)
|
|
exit /b
|
|
|
|
:GVLKC2R
|
|
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
|
|
|
|
call :CheckFR
|
|
|
|
set _intcon=
|
|
for %%a in (dns.msftncsi.com licensing.mp.microsoft.com) do (
|
|
for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do (if not [%%#]==[] set _intcon=1)
|
|
)
|
|
|
|
if not defined _intcon (
|
|
call :_color %_Red% "Internet is not connected."
|
|
exit /b
|
|
)
|
|
|
|
set _portcon=
|
|
for %%a in (%srvlist%) do if not defined _portcon (
|
|
%psc% "$t = New-Object Net.Sockets.TcpClient;try{$t.Connect("""%%a""", 1688)}catch{};$t.Connected" | findstr /i true 1>nul && set _portcon=1
|
|
)
|
|
|
|
if not defined _portcon (
|
|
echo Internet is found but failed to connect KMS servers on Port 1688.
|
|
echo.
|
|
echo Make sure restricted Internet [Office/College] is not connected,
|
|
echo or Port 1688 is not blocked in the firewall.
|
|
echo.
|
|
echo Either use another Internet connection or use offline KMS activator
|
|
echo https://github.com/abbodi1406/KMS_VL_ALL_AIO
|
|
exit /b
|
|
)
|
|
|
|
if [%ERRORCODE%]==[-1073418124] (
|
|
echo KMS server port 1688 test is passed.
|
|
echo Make sure system files are not blocked in firewall.
|
|
echo.
|
|
echo If the issue persist, try offline KMS activator,
|
|
echo https://github.com/abbodi1406/KMS_VL_ALL_AIO
|
|
echo.
|
|
)
|
|
|
|
echo KMS server is not an issue in this case.
|
|
call :_color2 %Magenta% "Check this page for help" %_Yellow% " https://massgrave.dev/troubleshoot"
|
|
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 KMS38 activation is locked.
|
|
) || (
|
|
echo Cleared KMS Cache successfully.
|
|
)
|
|
exit /b
|
|
|
|
:=========================================================================================================================================
|
|
|
|
:leavenonexistentkms
|
|
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "10.0.0.10"
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"
|
|
reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing
|
|
reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching
|
|
if not defined _keepkms38 reg delete "HKLM\%SPPk%\%_wApp%" /f
|
|
if %winbuild% GEQ 9200 (
|
|
if not %xOS%==x86 (
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "10.0.0.10" /reg:32
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32
|
|
reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "10.0.0.10" /reg:32
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" /reg:32
|
|
)
|
|
reg delete "HKLM\%SPPk%\%_oApp%" /f
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServiceName /t REG_SZ /d "10.0.0.10"
|
|
reg add "HKLM\%SPPk%\%_oApp%" /f /v KeyManagementServicePort /t REG_SZ /d "1688"
|
|
)
|
|
if %winbuild% GEQ 9600 (
|
|
reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f
|
|
reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f
|
|
)
|
|
reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "10.0.0.10"
|
|
reg delete "HKLM\%OPPk%" /f /v KeyManagementServicePort
|
|
reg delete "HKLM\%OPPk%" /f /v DisableDnsPublishing
|
|
reg delete "HKLM\%OPPk%" /f /v DisableKeyManagementServiceHostCaching
|
|
reg delete "HKLM\%OPPk%\%_oA14%" /f
|
|
reg delete "HKLM\%OPPk%\%_oApp%" /f
|
|
goto :eof
|
|
|
|
:=========================================================================================================================================
|
|
|
|
:_Complete_Uninstall
|
|
|
|
cls
|
|
mode con: cols=91 lines=30
|
|
title Online KMS Complete Uninstall
|
|
|
|
set "key=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\taskcache\tasks"
|
|
|
|
set "_C16R="
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1"
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath /reg:32" 2^>nul') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1"
|
|
if %winbuild% GEQ 9200 if defined _C16R (
|
|
echo.
|
|
echo ## Notice ##
|
|
echo.
|
|
echo To make sure Office programs do not show a non-genuine banner,
|
|
echo please run the activation option once, and don't uninstall afterward.
|
|
echo __________________________________________________________________________________________
|
|
)
|
|
|
|
set error_=
|
|
echo.
|
|
call :Clear-KMS-Cache
|
|
call :clearstuff
|
|
|
|
if defined error_ (
|
|
if [%error_%]==[1] (
|
|
echo __________________________________________________________________________________________
|
|
%eline%
|
|
echo Try Again / Restart the System
|
|
echo __________________________________________________________________________________________
|
|
)
|
|
) else (
|
|
echo __________________________________________________________________________________________
|
|
echo.
|
|
call :_color %Green% "Online KMS Complete Uninstall was done successfully."
|
|
echo __________________________________________________________________________________________
|
|
)
|
|
|
|
if defined _unattended timeout /t 2 & exit /b
|
|
|
|
echo.
|
|
call :_color %_Yellow% "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.7
|
|
::========================================================================================================================================
|
|
:_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
|
|
|
|
::========================================================================================================================================
|
|
|
|
:cleanospp:
|
|
$a='.,;{-}[+](/)_|^=?'+'O123456789ABCDeFGHyIdJKLMoN0PQRSTYUWXVZabcfghijklmnpqrstuvwxz'+'!@#$&~E<*`%\>'; $91=@"
|
|
using System.IO; public class Bat{public static void File(int x,string fo,string d,ref string[] f){unchecked{int n=0,c=0xff,q=0
|
|
,v=0x5b,z=f[x].Length; byte[]b=new byte[0x100]; while(c>0) b[c--]=0x5b; while(c<0x5b) b[d[c]]=(byte)c++; using (FileStream o=new
|
|
FileStream(fo,FileMode.Create)){for(int i=0;i!=z;i++){c=b[f[x][i]];if(c==0x5b)continue;if(v==0x5b){v=c;}else{v+=c*0x5b;q|=v<<n;if(
|
|
(v&0x1fff)>88){n-=1;}n+=14;v=0x5b;do{o.Writ`eByte((byte)q);n-=8;q>>=8;}while(n>0x7);}}if(v!=0x5b)o.Writ`eByte((byte)(q|v<<n));}}}}
|
|
"@; $c=new-object CodeDom.Compiler.CompilerParameters; $c.GenerateInMemory=1; $s=new-object Microsoft.CSharp.CSharpCodeProvider
|
|
function B([int]$i=1){[Bat]::File($i+1,$i,$a,[ref]$b);expand -R $i -F:* .;del $i -force}; $9=$s.CompileAssemblyFromSource($c,$91)
|
|
|
|
<#
|
|
: Text to File conversion and vice-versa
|
|
: Compressed2TXT
|
|
: github.com/AveYo/Compressed2TXT
|
|
:
|
|
: Encoded files details:
|
|
:
|
|
: BIN\
|
|
: cleanosppx64.exe SHA-1: d30a0e4e5911d3ca705617d17225372731c770e2
|
|
: cleanosppx86.exe SHA-1: 39ed8659e7ca16aaccb86def94ce6cec4c847dd6
|
|
:
|
|
: https://massgrave.dev/unreadable-codes-in-mas-aio.html
|
|
#>
|
|
|
|
:cleanospp:[
|
|
::AVEYO...Q5u2......*D........j}?.d,..;>_}..O}..v;qGy+yK;.......Q5Cf&gn}v;nrMFzHJebzC2r2y@IR5?bp~]..p...l|....w+Zcp{->RU4qoOcWts?K8Q
|
|
::#(lK`@sOkWs!BpVCKi_.Gz8)P().\Fx@L.quL--_;.B.X$~p`lrg!Yj=2SZs|@$C}[qxw*<M5G_v*1,Tc-sf?ocl2]~eXsGX=5~*ihr(`@af{4O5X!T!x!L(C6tEc[Q@@!
|
|
::,r0gT5vJeKTmr}f{ykK.<OV>z_..}V0RT;YkLxte6hCe!z7cXup8Z88{\2f8=Pna,L-F<2BBhs.9\w@}1INx1/m;2wXi!fe/,b>3]1t^J7]w~]YQYLxl}FEs|{autWtHu8
|
|
::Zp!x`_*\p!vRh4;>..F7->s/B#]m)EPNG/w0A$OOS=s{|2,V}6%9tQEIh37=/keUZ9qH$0{9}RnE~,P_h8LS^J<M7wxnA1L#AjO5|$r1FLX$2L,F*pi|eR4{Sq4skdLOre
|
|
::zzVr$q)XAl)?qYX]2k0_NG<lRqzjt=_A^9}gO<@E^`;,bLJVD5yw>=,mrkq+QtrIiV^_v2O+YKI#OsW`6Jp3uR%T?<&6}U.$i_-S|tsI)A{A8A7)Ro\.zs.<_iOC.qs$VB
|
|
::y7vGpR*%[w@ffzZ!CppP=.z_$C!C&5p<6?)B5!!%^mxHy0q%l&fb*wn##JY|iW.1Ra;sQj!9JORB$CR<6u.X?SeSAipH\d?mtgnBrtZvdZ4+Z@cK1NwsQ_^=Ji.h,cK`&i
|
|
::!ZY@LZ9|U$YngSRw1[\C6nBYZWFM6F,7~PBkx2,YfdDCS>03)(yn{sVii*_H)xlcM+RK3I4ZzcwLrX/{6YBK*rf+_GCFXFjR/#g7toZ[$4*.lrSH0\[y#^%ub7.Z<E$4$d
|
|
::}D.0Efk%U2^gZ,UO!2T91Y0ft/[73c?m4xyu-(GZBnA!+hi9KnRK,yy5s(Upf1egDuMc1t[0i;#8/sV}o{4Zo2yeJyIJne}a4j6Kp]Eb>&WyRL~bTL`685r_w/l5t_we)]
|
|
::RL{WV~0Gcerz.*44h=Ak*\I^0FDE&sXSdmx/RC#0{P[qRQB|Bl*SV|^#-B4LLxh2uE[mH-B,`FcKvAZZWs%a`cjMJWTd.K;[aF5CSi]{[jr?1ucN-OBnc%sZ=5<p7mLo@/
|
|
::+l-v4aBBwkVOq\uIJLlXfk!59{ef[W<\#/_?z<B%#dq3%pbKi)WPlTr4k,{xh}+^R7\vmnl)qLP=%?I%UP2zO&>aY{5H%\m=<$UiU?IRQ-|Pj^;o+EZHDmK7E?Za$zkJhd
|
|
::Z\vuqPA5]TlqP}c_3kpe+|*ux`~S0oz;ezH54\b62Oee9;zGGV)-\{yPasOL`=?i>!8(`5[Rty[gPZQn869Kgi*bYJx#0S?&07<3WSN!lBba2_~l2P>G4ANo+KITny\Nm/
|
|
::bgQsbIz=!tVil.21cLp^<\5UD>;aEK}\8W<AGC&`*m!*.9&SXo/!qS%OcPBQ0==D\P-kko}x~R.l(@LbLL,z%HiqiO>]^/fQ@Z|hlpZVvGfGrK[M{POy{YmhKeMGg\;e!*
|
|
::`7wp*qKGuq&(Lo0b.+%@l~NRW(S^|!#o5dC,bn&@?T1wn>X)ZEU*`oXi[7w]W[yyaa)1Y{|<DP$\A?!rs{B_ovnO0)2n{l+Je5=$gmM<hN<GtKq-_(|^ZaXhl!_e#d42Mw
|
|
::IFC;<KP{ym]!`3$%ZkG#y%@m/p4~vO&L(B)0[/S@}}@GFL=%j{Pr1|TPZa\)g<0,;SL`wER_X%3l10EQ=8BHm6DXl09izM#hA`$[w&aw<hBvl,sTGFzs3WDLwSD(/Gf3&$
|
|
::2\GAx%9`J*>dDuA~9(^K,\P)(].<A^;u^IXvgyzUHroq+vThu0WTRM]H,oR4q0.lUB`})BCqNM|M5qMN>TfNa30!mSKAIlQUKY=)al7n`T<o4LZ]_ZZ\bm4O;NY6@NoR\s
|
|
::kc+9FwWBZx;]X!Z6#!+6!SzJi;x(*qUnK;+CH$KX{fBQ0+e=Uk{!8;A[H%5~AFe&fWOtn7T0MA96$wUWx0>>`;nAB_wYgG6nK`Hn=mOWfLbD{&1tAMmN0y$LTNWov\?sO!
|
|
::-BOh02QhE3?iopO+G2ZTwZqPJN08}H6\>=jg3T#nAxXd*])O]WB_caew@?9!L1Vp_1)U-W|4CyNfdI3GV+<)iBF<pNX0dVZcLd@LKol_@lm&206x!5+9{o1dG5zd@OoF4g
|
|
::I``#k5d&?zv+Oaa97j6X,7<{ioU*)5<=;{dTZQkN>bB@,*.t*vU%{^UrP7Fa_)FE\I@l4T|IB]s@>XT^BiqYP,`JmW`/AD5JeGc/z%HnvL^%6^7g<O\[<iG{^e+0/|s4]g
|
|
::_W/b#]7OR9Ga0i>xGnmd6rqWZvY#Vq4C_;i$NIZ~,DrV*uPR|-%%\e);rLR!v+K|}iL=o`j]ScZRIAlDYmk0,ADmCZBCEZ?jhw&$(LP15FG*T2TUX%D+ZwJ^WWA_BT)Bn,
|
|
::>C.NkY7a6mnDHIX{=5rb*&bW3fTng95)8XlwV|sle^U|]JI~(qf!HZktQ/RG[$YxLP8{D0lX?)Fl>-avn1(O]K?XVEuu&}A2=H>JpS3zQ,QfOpvkvAeUd$+zMvwt+rR*=?
|
|
::6H}NM`l\u3H3E,OYDI=[{S-z*w$I+Gz2na4~?zj6MF>xXGx{VW&mw`9XWU\~KH5e2k,G_G7@Q8}Swp@y$*qN](]KTjV@Ew;m=<0!2?}MvWe>*pJBrm2;&Y,o90mZtSKBYu
|
|
::]<&-Y3J?(Ot;z_#pM*$[j!*Iggf!Z}1F-z8nfZ_&9ad%0TZkr3\+{dC8keiH~Nee+h%-xc}A+,t()%,/*<\|mu3,}Wj{hF_T*a}Ml+XMwlI|a7=ky]%2[ckY}#~y(`\8T2
|
|
::JUaFFX@7$9LcyiyWznl|?+J\~^a~7~)|2&I~GpST(#)Ss]qk_~=h%k.c~!T_<q[zs%BLU9gO-AMV&z<<;M%w#XdNV/A6&T!&t?801-TJ)F[8+=J;N+H1c9([Bq`j*dakX{
|
|
::{xWIT@_]??>7^At!y2^Y*1RZ=f}zq^Tzw$V\Y[[Fj6(_sJBt~\>Zj2;Fj9Dupk1EuI.MWtDYeSX@q36JIhTbNRw{AeM]+?7%/A;![&D,CRa)oQt.`@7vESa/v/iJOIh%[f
|
|
::bHkE8lBQ\d<D6?S)%8[-mzU<05[BUcRq]sOF|!`M<{v(lp3*ooJqkLtmkXv3o@BwAb2R@1Sq^r7|Ymz9Dgr~i_.Hs\g91JEjUg<xvW-wj.v-~-q}k6d#r|Zhp%XoVLhE\A
|
|
::pb.=gEl~6h{)>0~s<<?N2V<]Lp>J^RikG<~*$y!Rr{at#WthL4</E8<X&@Z8-.{8f~_A*\oO~w=J<W;ZjeaDQM$N!pt[&jFX|mr_Ol*pF/75^ol`KFNg%{soykfKh}<Zh0
|
|
::p2y!PmcJvY1qNIyHs^8sCAAu^x#DbC60fXPsz5qaZ;U&b&&)r/Y|PKP(&c.38ohs/ji,Jq)QNVfE!TB]N^L[dec)j_}T.MAHM~Q?TRoqCa4BW)Fhw_K@VOB,nxtKdU^Hy@
|
|
::U2?w2R9mP=|Fv.l2h}W25Nozt_g3>x<=6U!8b{FlG}4VkEa/?Vd}>{\.uyeInH}n8n1{A)18adnE1,ac`BdhEf}kdx13Lz(yMJd+c!$g~9XZVg4n`#!D\;A8~XzIy~J44F
|
|
::Z@CJX`7rx\7o#q2cFW5IiL(dc,<\{)%k<3,8]@`HQ,k,DzSij4j_f2XW%cVcpsD&vZK}l?Sz$Nk}q_JGB~*qovn`iP[sN5Bh;K8bBht=UmS|44Z|fxHQ/EQ`&$@lSI;FiG
|
|
::X/bWUh;_lD5\(anZEwl%duHxqL5!Y?wcw~LR%?d~ImQgH`,-?|~C2ae!FBn4pz>Yajjdzv\]#v>a=&/rS%cjO,KN20K[Nd!,_$hDVA}}=&yAtO_5L;V{)|plFw9YAa`-EJ
|
|
::bn\sw6?oO+Nd7bTEW(eB-,)ZMni2ily\mp\Y!CIloe#k*)o.,ed|-49PR9@4S?.+=Tkw1R.81#=QJ3b?^$@S*L_+tA(L$@[X+5?`M5(T@)ugqp]l_{EZ#1d]e#AV?o7K=[
|
|
::5v//o)>@P%VMO},AUkp[UJB3MLl\<U`%}bLn2Ms\[2TcNs0P4i\H6.=rT0tfwtPXcu7?^xOK}{y2[WW\9B&yVj$BrxGP>(Qm.X~l8=$6Gq)0{EKYc|!\~o$xX7O@QbX7HZ
|
|
::2Nnoz7saM%[nGcl,dB?7LJGm2d=a`dpD6%}\)r(EJ8$GNGJ2r8+4[}ZxV\r}#cf04\D``x0Z@K&Uwl6u6+Lu/W%G4ddVYMnzO-*3dZ#7!)=N7|B2{!@efFUre<|h2(l2^t
|
|
::kKAp[*Q}Zl&!Z#~lw^qkprFPv~vBGz~H);A{!]|3LNpD?T7~$[Nd*g*rpkeQ0+hdwt9Z=h{?Y!;ol*O&9N1Oa8dLjzmEZNQc?sZd9k@iLC=`4MG?UbGDA[MKY_B?zO0GvT
|
|
::mn)d-hd@buZ~wMOgF1/)s+c.&xieLo//t|x9Sjba?BLzlTzVc\#Lp9^x;=%X9=*UNkn)FsKxb=Hni<.a;Qvg.Z>y!0x_g94}[7iSDhXiN%z.bM3]a7EsY{+j#9uj|o>lfU
|
|
::wM$|#QO{}<{kHsqk6W6.#\yiV@%2bivkx29<adzZ#*.)u9Ri)IBx6}/C~OKWFWTI]]E|UGd`[L$NShRc2IQhBf$m0Dzc5>1W0KN$Qz%2]Iy~G]SRr?a\.fzGHMB;DEXFO*
|
|
::w{6rFN{dD|q~QsPG`t[lx8!yQme^OGq9yp}.Rjku)S@b7V4I=p/%J}leN-~c4^z]Oge3Ewi-KB3Nqu*R+Q5$|8&5p8cXlu^WY6lB$+hYI/o*Nx6jl+m#K#@jn9FpZz{EVA
|
|
::Gc1~b2Mrf_u&PH!le*K2[cQ+WD?F8#B58=_6xcS}/%,Wl|O>Z7k!U0fF_~Ub+M?)lc$94,jV]gw1PijzSjCVq=3)H&-fd/iJtqAHX(X\j<3XYtMDRt}\3Ey>r58Yi?uT_z
|
|
::`AGKSZdeuFIYF^QY+3n^wcgF<&6Cz,#cj-DXftH@Sx+unM-(0/XM\XB=~*=x*6}SVYjM!|.3%%Bj_M|#sjC|*dTu{3Pr_toq28Lf2ev~8RE69w!`78B|]Kqs~in,Mk`1GK
|
|
::qc\Ky}fpyd*[trJR+]i;pV=zK$}%@~L>\i\\p[33=6V?Bp1GDW~bnI*uf{#4xq[]8;E|P@_c1GJAz4YuiFz}D/A4v}4~ANel,c`#CP!-mX>ZxJ|CKL\s]XO}^HdmSXkCZH
|
|
::&<DU5oo6~EO-f7BjLP+L=BUG>8;=+TWK!J^hOSwYft|7F9&faK&3XFOoAUPnhj6NNxeh6zt}nrTN9z<AH*yw3dBrBVV[XHeMn4;4lc$J#*.%)%DW[|[`3EC87{A0Re%~;!
|
|
::oA}B+y/]v]|90!#(9axE}0>1a.(&sn@j~!|[|8Z;2g^CV6@z.E$C_s`cP!4n5(?JThA[DPB6FC]ck>Rra.Sase|<i*\I<FD|w4$JGqq%<KEK5.-x=,)3TP0kwH*lV`gUib
|
|
::FDNXGaTK]uQhConfSzeG)k3B24(?*%0c;j|@5-.!tFYvQ,]gtKBHDG4A)`Eyr$p2V2D5sw9rq7M_O|b]{[$Ui0TP^X\XjVtme)YRN;Ten&tlpZu,WMm/|}>&-,*}f(9Q(e
|
|
::i7J`#Id,QPpB.=x?o`_\`7j(k#^PxmBa`!g4(^F[;vI0@qoTA5t<E|!THG|%?b~jjuEh<e?%F,%|Rj5TDG}F&]z|4y3*wR>]o(kjZubJHc)R;I6L(Q/-|mUSgyh?`Zd{3O
|
|
::YVRxgeV%DUi<c@P77,dNu;~*J5lZ(,*?6}2JA@Hjh.m;ZqYGS%D=Ie)LA,V1R*j.wEUZaX#p%/YQ,QT.-n=n(k}@WU8*.SQ]bR20V!j_stIHtDIR3uCQ626KVnV66wZXqR
|
|
::zzeOhnN}zNZNF8y42Y7)ghNA^G7|HOS-}q2TgUlW.)aE(</eTaD4zdN/YbxOxp<VM0,G9%`r9&F62K.hu]6Pz5IY;vp4#+\\hSVL@hbH,un,,OgxDam,Ly<K5./,8dS?sV
|
|
::dC>;d6PG|(6P\q(#nuBXt{GkH1+<zMg-eMQ<F}i0_}y;]XHXTS./i0IVO4$r##PkC4_UnP8T37[(!2eD>B^XCufNRsp_c#B\%N\S+BH#;tSQOGp]X}rw5E8h`;QKtH#-|p
|
|
::1s6-5vftZGS/EBwn0Rxx?=/ykq`{=;gg#$,_M-Dly3jV3iPC&fA6P)j+;SH9r6]P!i!p>XuUkrwLv$<gzu->,@lXt%vN.g,pJp&KH_vLKsMuPRP)lrV9=<D-4^rJqImCX}
|
|
::N).=UL_4q}>?%W~5BWB,.qA<r<6n5hqsW;K^ie=6B^LIN6/;ugu9}Z#8WuM6{8xAKn|W\y|cM#|Ia8Sc?9k/a6PvkIvOcX%Ff-MZu]SROR}Od9`Pw|{39qQvPt/A5_;cAZ
|
|
::V3+{1X)057ofxH.~8T<_3g_LC&<zps=JbX(7NW<;yb3seR*2A/h_sd.*,O!n@+%CpYN;AehUqX~=9V,M#W?UwyT+qjnvG.N2PTRjflUFk3Q1le11o|,gs&WZ,%%z<7m\?N
|
|
::[Q>4+Zd^yD_]5So[zPNZjQf7c(7V|DsrEr7#n1HuRO-CFbWLTrc7T]$_mSQaCRFu3y47MjE/,p]_GjxISK.Y>CpK[8M$s{ofgb/<#gV)L2S=-;eP/F\,X1c^u}A4J+[|vK
|
|
::~iEDq,wai<&P9E_e-D8=>RlS<c*ah$c/dbcp+Kqi$Ga|0]CSv>3FaxJ;,^NYa#\9HehKI*o[&)p3lsqO8AF^x!4&}|,s?*<OwIjTqK%Cu1zSWf],*O1+xG&g[GP<*/wYUU
|
|
::FbHiq/I|P{R>T&O]?mtPT?D8hvP}WW.eo%@vg]PLg]HO%uFd#J#y8((e;;=deySsr^+jBR0RlOdjRkZ9YuFci)BJrnoU7&CYdWGV/KvPcG!;A3jof#gu0tW8~geu@d*Oyp
|
|
::}SF*-uPf/G$5T]Ae/(C;~g_,lNRrF1#;)piPG7M_yjIWKvqrU=W<^mReji2z9[.068~tJjn;D|,C;InF)hLhRYH__xzC`3;1NBv=.5O=5`Egt?iWk9NpnMa1z,a={M[V=q
|
|
::gc[,&j&qPFF;1Gx3F$b5@UR6nJ,;y0w[^/NwgiYJMI,VSeuyi/w7Z2E2qqwh8N96m}rrcmXTU^n3aqQ2S3yUJ!ExYF~b8k)S[=CDM}$|3a(WS;>m,<y{qN)JAY;BXJ#YIe
|
|
::$YI`dVSa|Sh.r;Hd0<]N5k-@$y,UGLkIk`GupEyU~//GkoM6ax15FbA<7ZUuE@C`MbJS5SD5_V}|c<p}Lu=))+-j~}lp)yG#?g!nz^_73k(&;(k7GbroG_9BgwoUeS6xl5
|
|
::]RYf%h;V(c_[.Y-E.J|7iGDQ~]{tP4kp%MCHv*W&TLJ)oS?dzNJU(#{9_tF4H%n]TB@cImZcVSI1^Ck7oQ&L;zXZ$k@2P}*=5s)b7<cmg{^<R1X/u6Z^lz;.j^Dswut/B1
|
|
::q9YtV[^k5DC0A_@As-&BwqYr>@1[fTGc^W8fMsUH+bG#/Xw,[=j59U>[;oF8doOGU(@FR!&gi_\,/7~q1M8o.=a@w7cMf#BXGaO-<dTz-wyV\R!ejuy{Ml?IV{1J>ixWFy
|
|
::<qfH^[]|C4rX[F.cb3\*OPr=b1SIyrP}[,Zn7xF(Ak@sy35F+T8W#<CGcpxe&xWKk,%rIj.cXeFfoZ]S9&?r4<`&gNrT\7r])5Nx9i\b&9}XjU@IImFR_f4=?&;sH+5PFg
|
|
::-R&EEzGi&PVh>O(-vSn>IS0gU<-QA.e3+8i=@70|obrU|+\GYC|f!XfMHI%9ByToU1[c\OCp9G_;?f]js5k(>B6D3UJfJYWUvsu1Hr!O=I8SFd<nuJn%>!prYTE^~2{3CK
|
|
::SM=coAB/www<v<Qiy1\[^tj)9q}3iN~ew}afa)r5IqjrVb5[]*@iWFADh%$[[zP&l}]oxODNcQXjy~iB|z8p06cD/v8y&$c(TY#4/3[%^4dq8F0tg5>9K2<_,KkZ^;%3p]
|
|
::?![?hF]]e^%fHUsR24uvg9zoVRE~=dqMkGb~L{tG6uO8q&Z<e_Y`D;fEvH)t)OE(Om9%@=?~O7QXnKVnnP$V#*4}7)yyos^\\+CaH1&~R+-fKPZAF/{~8v@?2~aFS`|haj
|
|
::,$Qe=i>V6@];J)4WQHcyKxvh4kcE8l@%[<wDShU\Q%NFKD.cEmI4QJ-dbbQ%5`S.(N5E6K{=mU_1SMhxSqYWJk$bxeZU_u/)Qe.zRwoc4gD^Xs[?0)Up{WdDYK@%0TOW;9
|
|
::tiiK85a_\1NYPWkTYdufKq9nkBjb60bnPsd=o;U3r`Z!#`6qYw%VUT+>y9&;xB#eP{hRd|qOtzFn/PRU#$<=jY[Dngn{Xv4uNaW|Qg<l%a?B_wN^GfzivYEvt[ziM^w&+P
|
|
::+bhK;Qk<r@{[=+{2%DuwCe1hVP96OraPS}Q-goL%FbFnj@wt!jUE(IvPV_;4]26$}SuH7pP,^%/q]|N*CY(8C4W{Q,-?Sw^gLmheE{HhOTFF1T4ugxY|_7wzt,u8pkp5``
|
|
::LsY=vg2b9i<=pL7al\{KQ6H[hN5pv_Ro/c9i%GdMUr-9O|k#@?n?.{0)\dgxz_/E);kT/K^vN?{eq,#ei6`^p+/(Md3.Y3#4h0PsNw|%/q|D|?swv^5EN10|4PBh[fE-m6
|
|
::Jb<krnZ1Wd.,lZ|Q#V{6j#9Y%UM38@coXI0m`F]Chr_3TjWf<gA*.jTNvy)M%wdG},$GA=\+KQGd;c/LoQ`Ud,gJWR+Wj{l)`KNY(Q9EPrX-dR}<i|NsbVbrxWWWkjxYuv
|
|
::Uf;kE?)#0I/-`xEtE7XWh4;p%$L~QwBcQij*7zcw0vVEcMKrUb/u^FV6~]KB6sFJJlu]hl@ef|Ab/qK;^T}*F_CRzh?%BfK-kP-|do=i^`AJI8&GByi\tk<!o8-8jL-5zl
|
|
::=+9f*Y[h;#7_[78A_jHL|5382|I4NI/8,>pv-DqI6PYnc@ut[F)c/~$,pDWKP*Mw|fH5BdTT^2#YvToXp4](gPLV2!wO#$tmMXz?gTto`7}}P;2?%aCdFH*!?[uUib\4&|
|
|
::1jS$p17&zUBLY_z%tz0i}l&HmzUVvoYUPqBT+YDu^k#O9C=62lFAnbP2qWh,^D^@NU?1$jkVJx!5on~NpHRQ(Jj8iMpOls@Zft=M;Q<W3DyXG2tuH9-B^XKn;v%|jBZqxJ
|
|
::zTQ2>z`=83GqF!R^Sn!8.Q.jy;Zrk~ehz=0s4_f/~$r_4/|UT+^]()Jgf?1,^<VNwla%~PTP8RP,&x%pQ{CA11qa/i+=|&~p!HTc\?feu2|2=w}1PLT22=$0?Y&mtc*-UQ
|
|
::*O?c~pP34*%lh=37WhvD-<-$u0EI#20CCe\+QX%i;(pPL-v(rTk`%eI,nX!<Zlc\6pT}H1gAEWee#k|hr`FnXQR~y0mAykq(7A@jSGJEo;%_?!J!FjQP;Hj(7z,B,GjBa8
|
|
::tmOI]cRT]@4@EFQ?[%`}!}@8\&v=ppWJ<\AVW$RC,ua-G>hSZx5Y_uNE9H3VVijpG$6^DGgl-d.>1xw~c<n!w(kFr[MiN[H2#JB-z!>_iZ>lCp`l)/OrOottQw9Q<|M+5T
|
|
::&q;._tX}fCJ_IjwT>lW><N@o@f\Qzl^a@-;or.als5P*XzM`C[OL#Nb#4zE-XXkG&2?5p\qJIly$dWQE;sPe28(,`wc5d;N*y`I)#-$mycw)}Gf.D}(lq3{O3DNT4E/AiB
|
|
::8u(dNB^({`M/T.&z|M7QBzVXD}8~2gHr2wSZ!aF2+~>pL;(v8deUqqF1E(%Ua0=B^,fhFybOMl3f7}PEc;9|~,Q-*[y.gq3I}6Zy\Rd;]!FFzn-3zG9U{}k6[o?#cpb0D!
|
|
::[m0u8]e1zH#u`%OY3rt>Wxy0rmpD_}hE%zh?E\R{VxD31-\P]Fh$p^?,z!d675Pgb;^4>J*ny!?wGWAQh,0Zc1RZ[ihuDZ&1feA8yMuy~o3P\aJa7F3+e=8xSZKUMF9ol2
|
|
::#PTGb}EivmF<xAEm3d_i<&l{V%$3~ma)jY0;8cpX};DPgA^/95.y+DQE2V0G)0u>DdKSY/@j=2Ol+2p_c8R/8Me#_x.S[(&Tyoya<&d<1Wl^yp&F|$PdGyb^6Tyi~|7X`q
|
|
::z}Q~2wZ8L1J%s#Yp0Et]is./6@X-stdozPW*dN91y^FhZg`U4DnZRyDnc55?;9zd1/z$NA*2m,v|8/GkS8m}Ia5EK|iExm,1sc73qrTS-]Q_=3Ir$SM(7?o#s|`?MS,}h#
|
|
::QWcAN\+TYA3-5a$$7I_lJsm|T12&sJ=LA2{c,L-m+$i1`ScPizNL!1BT6[bF*s%w4qTRto%sBz{Ne%J4VLWZuJHpdv+YVLtV-<QoVs^Z2$.1y0ICOZR5/9gL3/u$.6hi{y
|
|
::m/B^>6O]uL)789pmwcbcxMZj4/~$x9b/J<C$0lxuvXBV/bbl\vtf$+T_j3F&_gA(F=/%Pf%hoS9G2*WD8!J0.T1AudDgVKvM>lC/a&LFBGw*]rglxvVG`Y2]9/f-U45Ja~
|
|
::L<p\yK7)MGb\5\&j;3~S|)J]rMfo^u,N;hcIMDuyOB>*441#Qo7ZIU`ueLj?3UXcu26pa}%{<sJw>\p8jA-[h=x_n9u!,[uPf+3=Wg\fN]dXZApOCDI?,@+a%wE0XngP>s
|
|
::-Qvzmiv)V4q#@O&d\gGYCEZ=}0x5R.Awt*%M4~4~BgpsJ\tR%;vkEch>!?Jda,_)pmKm4JL`p!s%_2L67l$;VXVw^Q4f4+bK`D#i>q&h{[c#XZ~{UhX5)_sA1u`59]yXn6
|
|
::O.G]s$@NvK[W;,u+v_*TXRrMdPT-jPm7aFT_W+BJi8i$EED*h{arRMOH?=1DS5568X6bzYEnh(jF&oe8$ay5HO;YOo3EvG[ON|5p~nwF}).R{O8,;+W17Jv%=`s6OV@QM-
|
|
::y59(3H-fT<wvKw/DG3R1^t>A~QR^QC/F[&(MTfr8;d\*OtTfqLs8necZh+5/3AJd=3suJuVceb!g%A=cQ!Mvx7q$DKVB2^P22,lI]1(tr)2t~~t$MYR&R5EBKIdP{.b;\)
|
|
::r/m>-Pk3h_uac1~9l}wlFh&tlB+o^+V~9OhsEiRmmwi\]zDP`4Q_+^-5p7<Pe5X8br<lRt{N<nUHHy1f#?{U<GO+~@@I\/M~*TpE5I%]ER#G.j.D,t!Ho>&l$cDbwJ*}<~
|
|
::F!g_t0WEZNoDV5jwY%),PfN8Un@n,.b5D6_>qOf$Q>u,fU?;([7_-WG<AC(wm8eILQG&5QDD-s+o~4z--*5#`E!(@]0MVL?/b<o5g\,>,>NP..yR3;D)CZ0(|ZEVl/Jn}F
|
|
::UkOT)uIk@I7tr{]_wyfodWbC(b66i)2wG|ilLTKd#9C0R&,gDE*j.g)gV_GcpY^EODTBL~l~L+Z0#b4{]`/,WS)5j5FJ,<MqJS&$5R\,&IMSnZ@RhV{Zcub{k%lO~7!j!v
|
|
::Mk%nNE?x51]qtcU+Uf%Lrs!]goNd4KEY>7LQU-WH_0Z,za7vtqRO!_^[i03V5^YLU{<C.vFS[LE+67M)*AM<bxEVP7~Zf(mr#Dw)S+c5~+lyXVf6GfSsj|R*\m>|!X)bf*
|
|
::`r*9R7i1R1w^8j<?/snOA3Ue-qf^8to-J6N)6;wbuA>m2m;F1W6Bn#vfXO}#4^((`v6P<SmvlY[B<;F^e5|`e[Jra\<uu78fFqP8[_sIn|KR4nzUp_P<h},B`+2.7CF/X/
|
|
::N+Rj{cp)NxJYPuD/HUcY1/4PO@E(cl}NU@p*mu()=;9]s1t9M1@czWl~ve[J)V>Z3@6&[m9CbA^Ed+cw)b7W8+hqjS8CTk/P\~o)aT_oz_&5P4J%FH5BUl[`5A&GN9Md71
|
|
::>L$uoB>OI1=oGjYU3&&)u{,sxac!Z)K2Ub{1!7g2?o^3>Y2c]|.]?28SyW#c}+h7\WTv;8Z5v\o)=;N9me(.!7ktqAX(e8s]8ez}8qt(>TeGvGP<98K;.7k\*+tcF~Q!y5
|
|
::x@X!yo~?mU/sJ)wNn@bfq9YM+\D^n{xh#Q!!!hv0|%a$thLJ)R2wbC(=/_6f#I.k*uog;-.%}DX.I`Wm8Ta^NIe;$s!fZ{}nq1].u#4W&dK1/XIt08>kgVDAIVV8uPGA{_
|
|
::$#[xQ5pQ096V7KR0ZLW\X@.5\E!ELd6mw%x\Is-`EX|$[Gw},^?Y%|/MNLx|XJ~2Pstn]2^)l!yohpX\bCr**t-h&/vIK5wBP%fBHBt&pNDF&^-]MQhjOw=729`$fq=J-0
|
|
::B].Yo*&Km?_6i<V=4aSUb&aH?${X|+<J;$?3;i<8LaT7(8r4Djy[/k!oN0OzH!m5\T797v6>IN^lYl.^WXKU>ehTlVjy,ozWN8DO(&2w$EdvM)v5i&gIP!e0jjE/}&hTWK
|
|
::`JhK6(VfK=M@<faBTJB!]=(xL0yf9X7\NVOSqf2buiIOBPjofoH??gWa]8x~E;I9N4xt8exrj=^1XXxQkaS&`&FEYRmLeuyi;CObG1uOjDvEj{0ZC<V%HTS7jm51[Y!zp,
|
|
::,r)/T%X{RL@W}=ZrWK@Hb@t)Ea)4!i&)8+8`v_A}=F$iw#=1u;cd(7{grEq%O9j1hQtCe7%1-H*nD,Wd`.a}?X#pKyPY],cAsjv7jov?rU9Q[Ps2+Uk{U;%Tb3cg0tL7yd
|
|
::9#)Vuaw?;=~zq1nDg!N^qBW8s|;s.O7I&Tj*@|PVI7h`K5*<CZQvCZt9PF#XPx3^e;&kUe2U71o7AJZ`.V!#S!gynT(M,t#@UUpAUAi),8%f`yA35eKav$oW^{b=2<g{Gy
|
|
::(73/Ge5`H%SWiOSFZSf`GkckU3/6Z2T*{D+os~B5|Y]?wB}lPZ8+iZIdu8`F@(FUJWQg>%AFkedXi(8@2BMwp`qEXrHXH)4FVSc~<ACLoT#<zs&ue=SmfB+KUM5IO~0\?a
|
|
::Y,Ikev)Rf&0)Y=(C`l9|>Q)h}G$b,w_o}qBSTrCDfFBiHzUI00{}Agr1Hu[X|wvz=zEi^\Pp+n{&ka[~L+`+K}18+ALX8K)sgmul~f%N#[@mmY].HWIyO9b?~K@IQ\e[G>
|
|
::D]I2!lh9ZF=*R1=1GK3y9u.yM&oB8l}/&Df$8s!&yI\EvMv(+/T$=DJUMmts$b>I\)>9>K|4BXL1tQ/ng~1>l=$3yC2cScpTXucwu{QHIAE1M0QwN0;}#@8H+f-)HV.Wdf
|
|
::!*Ejy@?iLG=u-h$bT\3}thUwPDdWOey8&B=S%}K\*LHxb;!~$CbF4LK)`^)Sz?aOzf(b34H4r*z~Ua_Mc,60}cdr.TtE]h,c}8$qtW?VCs$tp@)qz5hC-p|`kVoY{H(--X
|
|
::@d]ct\{lVBvuA2b3ci6&+@riqNyD<9SEL8VBB^=Cw<<RTj,jBZ>K4A%xVuHT.6E%[F(lecOMTGQY;||hE@m`SD+4G]?G(g2<e&3XTDv=$H4LBn`W7ZOikk&zpof(!PSe,T
|
|
::luv<rkNhguiPa$7|&eW/WLs#y<ajO|uvF`D&<%gq`^1Y{)4gX/vf_$=trO_^|t]xZP-;aBcM{q<^K^Pa,{]bZVQf}/{iAfWahKDuxuajbM;$<89]^_yArX6G[!LK]GCDdA
|
|
::K8cll8wy/va9T/_sKNX*,%E`6>/ztG3XU\G-iM<+u|KeMMh]hg<[c*^K[{0UUr1z$S&<pM[`xn#tlcL}k6*^$N\raxn&~Y>2=g4wcp!^k@L^kI_<r7,D4I29^Ljv3jzxn$
|
|
::Ag4@q1QCs[M6`^c?}?hdq25[%wvTG^&z/e0(iF\*DkG8`e]T#3L_Q^/km{F_7HGAU&+]*frOcsCRocNamM>bRV*Euc2AFwxnc_LjOBO(gp<\IfMUzQ?#8VOLo*rqUYh`F1
|
|
::*/2&H\LeSylLi0ck+<9gM##W?Oe,(n-ctzHH-A~c}M$CxCr~#WePpWppC<&f-~=NURw\ZK@n,XZo%LCYes}(\ZhQrsuru2)bro[(lm);M5}.&8(K9tLz_cIPo2icgn|Y5&
|
|
::)AXS@<8%B_oA]2Ue=9mH3h0Pd0HbRnGcmAr(I]R~qf|eRTj%%&&7(N?~=z1mbtHp|gk;d|oeaLAdd2axuQ>;LR`VV8PvYqU`z10D/F6E>*Fbg[n86Ns\mh&uQ)y,NMYK<D
|
|
::|OHViOi;9|zRHu9q+Usik=q5ZG##2e%E4=n6bniORCJr`~if6Cm%l5~8y}GJp{U{*fL<v+D>@Gh]+_s3opEJ0efpid.rZ#[>-0S|jVPke*LOU,Afk!{1[<$8@E%PM7yg*P
|
|
::lRhJAmbNe~cDGv>7>%^NY?B!u]!jeXjG2<WP=}jxR6Fpd7hTfk1d(=N!7-ngYldo>sbT?7}ngz}(`]wk9bvgLT^t`3c1+0dd;e69awr3f2@%&F$Ve|@L<7]w~4xS.hJ|EH
|
|
::bx!>e&F\thGGWY11{ZqI|g]ibbYUHMHn^T[qM~@c\ui7L$AJnyS0*4+{U({z,LwH[`f8eub[yTgShzExq|iA\ZVP~F]%#]+>xZb[I=XyeAD!=510|E[pm1i\]*X~W4&r=u
|
|
::u(#METhm(/9Kqr=fygK+UQ/k\x-En_^*]%!QQZd2%iDi]s#23OWwIDJ<{X[GTH<2Khu7WG|6#X\cP6=%bM8rHF;c1GWhI-rt6w#X\R*,i#iIom51vOHz?=zzdKY<.rJc[*
|
|
::smZ|_bO0UUhOC5zM\?Ff6vy+byN~P$S8Y(`$+Tk{|,*1]1{l=hm;,ah_hp8jez7$1q!sRB]CSx5b\g]68cy=b!WAI}sb$#Pt_U)Zb-)pD&sg/unJoJ6,%kFd>KE.od;_2O
|
|
::0pB{c+h|h(5y8zK@`pkSmU(~IlgR,QMp=d_bi&`kSMK+s4OcE5^&*1WUR|G[x]AO$mVf!H\$MR9@]%cTyG2u6KYLfm*G-Bnd2&k829xzD!OA%4*`LE+xS9Q0XR%s,0v?]n
|
|
::Iqw1Y#Avf/SHl!>zqQH]vh{=0kLmvJ-QNpNW5~r`o1Y*l?Vj![pd4}<ifgA]!tJGE[J%-td.eTFM_T!9C(*tLu~0?wM3-ccbRfkCBQ,Bc\GSw0Mb?D/~=q0Rhx|ujJ4Sut
|
|
::3K$NCYXw;)GI%IK@m$F&`ersLcvM?gYcEw+-fY5#fhwXPk<kgTar2/w$-utdoZ\PKVb&xj87Q-[&{~X941!jNvpf*H&m8kvH8GAb}cB{+a&u%@lu6PABoT^^zZ`j>wxjco
|
|
::\7c(,idILL^#^SmM,PydE1aKu/+8O!-Sp1}D\Yv@.NRZm)qvyiHvE&/4o$!nMi(oL*h0I9Sj>76ZkHX|Uc{Fth{5|Ev?-M!dUc[e.n)T#kxX_buv}8wir+gAMwiP{;Yd8G
|
|
::<z8vH(s&Cn1]ed!uv6=1Yif`izG[*k4ecs.=]Ua9\g|dXAaWFxOw|at&e7O0&Vo3+LkCydW%7=Dzg5-}Y\Z_!=Dq#e]v,D{7>ol3E3{h3t|3DO=xYU{WE]3/>^sc9${}1Y
|
|
::m*QxbMVbm;_j\^t{N-tvJzzNO)JIpEZux8+{UUhq<RRzgR;GT&9pwvNgl@KU=pbV]is1ab#.R*G?#Fm&1+<d`mF@1|HMM$0@4UO_ES;R%[Z1]_@H*]#68LNv@_JC1Q${&L
|
|
::dd$jXuyhp2,6^l/Y%T*c&W&}GhrRbworL~~{xz4{P%~rwdl@!6n,2e!_chuP3jBhZh_-F/(`$JCO{E_++HP#t%^G/&puY-G=8=clJOzepw{^JqneYa)6%$O*+KgYBDR#XN
|
|
::7D~#a~MI]%^=@^]hpbATX!f?@nSk?0{p@v\));UVy(i\q^e1SRnq[*.DOG3v079r=YM~@UK-S*Lm>b)PrP`*vytFyp^psQ9$s7po?CxQ]v>knk-+{GJ*vNW}nGr0ixgeVs
|
|
::8XU\Dq3)UIC#?l)1cdu?oto)rwR\%vhfCl?9JaSn`hJFqEG4zY*krP=mwPOE*G|;`WIO{i<.]6~+4d-*TnFRvqkOH&evEKC@~wyhlWzm`,R0_4NT08C8E/p{Y\l\cq7puQ
|
|
::4S=\uN^n!`3lb%B^P}<PBv9l@\!jh^O;hDf]l=Oe;Pw%nX2XTi<p%07lQU1fGm];uQhz{Ym,B=_ETxz.SdI%.1U(\1A,gxA%pX(KDJt02fq$GNWdMJ{3(syC*,)cN+^UKm
|
|
::;y7%g!^%{EiMZ*sl1M(d|0a2l8|E_wafB+nWBZ}+*~%q-pmY]4i2!rL$Rf+k^I[LOr~&`M@st~XMJ,<Jm1w2qS<K/a(_napr2\+x2LIGJ-O\(8lys`>aK^{VelCKd1#WC{
|
|
::>f7SGiGX~Y/&bE=d?BM*I]r6iL!0TycDbl+/W?&-xHUK&Zc07~&/{o`CfggJ#uD+y1q&bdDA;I*J|HB9k9`1BXHoGCl%;0`&J{-jM$V=$+{^Ubo#zq`a3#k\Iu.|=fX&Iz
|
|
::Wr*+um+|]0_m{.UR4E4hS{6)!MvH>`I%7i1!S!F\Y`[5T&rUB)*P(r!(w`WM/r#l}cetE8M*^KsN?V8P[@99vR^jPREqTd[i\(bb]8diif_BX8-2Zq$/l(jijL=/uP^^yz
|
|
::MQ\#S$bx(;LY8sQSg>KoBjS(m#r^]JQF`R)Kg=c]Vp^!++@L>K3OjCiGND;=%LqK/w4]G>V[?eK$NF.S,>LDo%v>KuKt^Kt24DD4_AuAK#Xu>M$M1aNV6MuWE^fFV_MlQx
|
|
::\i,%d1mC!b|LOibK-qI>yoBw_qfvtbH|!=E&07*\wzDkR1Y\0m%<gk-pC|O!7}4s5o^]3R/kX>1_/[K7fRRX92J70xI<]FA8R=-KY#6O/LwYYQS.-o|KYo\<^Ser+{7^ED
|
|
::37V_g=eTOddl+(D\*m^?!Mp&l;!#ppgEU=RR0hns4QUK}O3^Vrz/;zO#=/WSm.k~uBgR###.7BQ];Hk_PPFt*iq5WJ\hv2u(K,ui*KU_#?\e5leay@~bp9bET5xkRDhL,N
|
|
::l\gNvV&/3pj)\]<;g4IK-Rjn0Ra.,/|;bQI|0`]FL.%F].8R%T,.AHQo|l~x]tUCQjXsn;[)U+Cr|@[j>l#CEUf8iFs52Y3xo,R{`QuFe&Lc`,VP7$X/vq91EWJkCt.hPJ
|
|
::%eR(}aA5Em-JNrZfn](yPqU2sz$}N<QO>q$}X/uavcZ@Q_E88}54/<3t+ptqL-XVf1Gp?2HvlFl0^+m-b1LF1NTp?i@75tg1f9.u~8U(SN{%&ldm~7,K&04oD@E}GvrVf!
|
|
::Cl}E^Zk613~sayWQr6UAfL\sz_?X#I+<V}>O8ZU?&I@c@3>ez`b=6Y%v]f5q_rFZ+mSuN\jL4YzM7E^*y&>w~_*t5N(lC\#R|SrAeZZ~>X.q!p1G4$vK71F}z*ZrPQ4&jp
|
|
::hs+o-~NHwxJ=%cc4?~`5+7%|#ZRNy4,I;)5\6~Jw/BF}~\@~hmO>UI#0}`\o&`2as4+\tEBq,/3T%0!0M\p`&RWT)B&d?>@d7gmwVi2Qy=33-PF}Eohb);qu4o~G]?~`+P
|
|
::=pD8Ka@2]SEh)6x/8\jUT5b.}}P$,P9d@R}7qVwjb$Gpz[GX5^*[;WQQ>;auO8*62]h##&+In+<diaK=n)}X}?_0yH>TaM%X-XEzf~fm)_!-g0!$oQ9@S$D5ZN3%u*\>$Y
|
|
::k9f?2A;2^z\,xqa1VdFdPJk4xXWJ?1.Wd]#w,hlakOZN(N(#+{k[ROb6=X5;^1lVK!T,$H0->OMm%w2MOQU(BwdO5s;O<roV9dNl]inX[X92qrwV1K+svdVt+4+#GGkv|1
|
|
::-8O/836lb(,D;#!Bj#)D;mi~]0Y@>BJ*7;!|{o#_gOiCm9sjMP@Gw@s5Ogv,\ig_!n??Ee8PmOb}A.n.Jm!uC>,;4lY5M/?.I<a7{,MGpE|>Z7Rnq}B-oQycS.V]b}-Pi(
|
|
::xE0=?;?Pr!T.v]h__,@5TP<GQ[9gz(R,P,e[s>F[(q$({9>}i7+sQQ(S}(HPBK=[EIdKknk|$n7+{-5lLaZ_TMss,qY/{&oGm%=Hi[`?J,%Ge{TXtQxK$}CTw@=^+qwXT}
|
|
::>hF{uXZU,7X,@X^;Q,a){v0B*Ye);S$uDqxPzXX_8.D[
|
|
:cleanospp:]
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:_Check_Status_vbs
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
@cls
|
|
mode con cols=100 lines=32
|
|
>nul 2>&1 powershell "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
color 07
|
|
title Check Activation Status [vbs]
|
|
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%"=="x86" if "%PROCESSOR_ARCHITEW6432%"=="" set "_wow=0"&set "_bit=32"
|
|
set "_utemp=%TEMP%"
|
|
set "line2=************************************************************"
|
|
set "line3=____________________________________________________________"
|
|
set _sO16vbs=0
|
|
set _sO15vbs=0
|
|
if exist "%ProgramFiles%\Microsoft Office\Office15\ospp.vbs" (
|
|
set _sO15vbs=1
|
|
) else if exist "%ProgramW6432%\Microsoft Office\Office15\ospp.vbs" (
|
|
set _sO15vbs=1
|
|
) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs" (
|
|
set _sO15vbs=1
|
|
)
|
|
setlocal EnableDelayedExpansion
|
|
echo %line2%
|
|
echo *** Windows Status ***
|
|
echo %line2%
|
|
pushd "!_utemp!"
|
|
copy /y %SystemRoot%\System32\slmgr.vbs . >nul 2>&1
|
|
net start sppsvc /y >nul 2>&1
|
|
cscript //nologo slmgr.vbs /dli || (echo Error executing slmgr.vbs&del /f /q slmgr.vbs&popd&goto :casVend)
|
|
cscript //nologo slmgr.vbs /xpr
|
|
del /f /q slmgr.vbs >nul 2>&1
|
|
popd
|
|
echo %line3%
|
|
|
|
:casVo16
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")
|
|
if exist "!office!\ospp.vbs" (
|
|
set _sO16vbs=1
|
|
echo.
|
|
echo %line2%
|
|
if %_sO15vbs% EQU 0 (
|
|
echo *** Office 2016 %_bit%-bit Status ***
|
|
) else (
|
|
echo *** Office 2013/2016 Status ***
|
|
)
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
if %_wow%==0 goto :casVo13
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")
|
|
if exist "!office!\ospp.vbs" (
|
|
set _sO16vbs=1
|
|
echo.
|
|
echo %line2%
|
|
if %_sO15vbs% EQU 0 (
|
|
echo *** Office 2016 32-bit Status ***
|
|
) else (
|
|
echo *** Office 2013/2016 Status ***
|
|
)
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
|
|
:casVo13
|
|
if %_sO16vbs% EQU 1 goto :casVo10
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")
|
|
if exist "!office!\ospp.vbs" (
|
|
echo.
|
|
echo %line2%
|
|
echo *** Office 2013 %_bit%-bit Status ***
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
if %_wow%==0 goto :casVo10
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")
|
|
if exist "!office!\ospp.vbs" (
|
|
echo.
|
|
echo %line2%
|
|
echo *** Office 2013 32-bit Status ***
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
|
|
:casVo10
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")
|
|
if exist "!office!\ospp.vbs" (
|
|
echo.
|
|
echo %line2%
|
|
echo *** Office 2010 %_bit%-bit Status ***
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
if %_wow%==0 goto :casVc16
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot /v Path" 2^>nul') do (set "office=%%b")
|
|
if exist "!office!\ospp.vbs" (
|
|
echo.
|
|
echo %line2%
|
|
echo *** Office 2010 32-bit Status ***
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
|
|
:casVc16
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath >nul 2>&1 || (
|
|
reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath >nul 2>&1 || goto :casVc13
|
|
)
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do (set "office=%%b\Office16")
|
|
if exist "!office!\ospp.vbs" (
|
|
set _sO16vbs=1
|
|
echo.
|
|
echo %line2%
|
|
if %_sO15vbs% EQU 0 (
|
|
echo *** Office 2016-2021 C2R Status ***
|
|
) else (
|
|
echo *** Office 2013-2021 Status ***
|
|
)
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
if %_wow%==0 goto :casVc13
|
|
set office=
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" 2^>nul') do (set "office=%%b\Office16")
|
|
if exist "!office!\ospp.vbs" (
|
|
set _sO16vbs=1
|
|
echo.
|
|
echo %line2%
|
|
if %_sO15vbs% EQU 0 (
|
|
echo *** Office 2016-2021 C2R Status ***
|
|
) else (
|
|
echo *** Office 2013-2021 Status ***
|
|
)
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
|
|
:casVc13
|
|
if %_sO16vbs% EQU 1 goto :casVc10
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath >nul 2>&1 || (
|
|
reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun /v InstallPath >nul 2>&1 || goto :casVc10
|
|
)
|
|
set office=
|
|
if exist "%ProgramFiles%\Microsoft Office\Office15\ospp.vbs" (
|
|
set "office=%ProgramFiles%\Microsoft Office\Office15"
|
|
) else if exist "%ProgramW6432%\Microsoft Office\Office15\ospp.vbs" (
|
|
set "office=%ProgramW6432%\Microsoft Office\Office15"
|
|
) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs" (
|
|
set "office=%ProgramFiles(x86)%\Microsoft Office\Office15"
|
|
)
|
|
if exist "!office!\ospp.vbs" (
|
|
echo.
|
|
echo %line2%
|
|
echo *** Office 2013 C2R Status ***
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
|
|
:casVc10
|
|
if %_wow%==0 reg query HKLM\SOFTWARE\Microsoft\Office\14.0\CVH /f Click2run /k >nul 2>&1 || goto :casVend
|
|
if %_wow%==1 reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\CVH /f Click2run /k >nul 2>&1 || goto :casVend
|
|
set office=
|
|
if exist "%ProgramFiles%\Microsoft Office\Office14\ospp.vbs" (
|
|
set "office=%ProgramFiles%\Microsoft Office\Office14"
|
|
) else if exist "%ProgramW6432%\Microsoft Office\Office14\ospp.vbs" (
|
|
set "office=%ProgramW6432%\Microsoft Office\Office14"
|
|
) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office14\ospp.vbs" (
|
|
set "office=%ProgramFiles(x86)%\Microsoft Office\Office14"
|
|
)
|
|
if exist "!office!\ospp.vbs" (
|
|
echo.
|
|
echo %line2%
|
|
echo *** Office 2010 C2R Status ***
|
|
echo %line2%
|
|
cscript //nologo "!office!\ospp.vbs" /dstatus
|
|
)
|
|
|
|
:casVend
|
|
echo.
|
|
call :_color %_Yellow% "Press any key to go back..."
|
|
pause >nul
|
|
exit /b
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:_Check_Status_wmi
|
|
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
mode con cols=100 lines=32
|
|
>nul 2>&1 powershell "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=300;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
color 07
|
|
title Check Activation Status [wmi]
|
|
|
|
set WMI_VBS=0
|
|
@cls
|
|
set "_cmdf=%~f0"
|
|
set wspp=SoftwareLicensingProduct
|
|
set wsps=SoftwareLicensingService
|
|
set ospp=OfficeSoftwareProtectionProduct
|
|
set osps=OfficeSoftwareProtectionService
|
|
set winApp=55c92734-d682-4d71-983e-d6ec3f16059f
|
|
set o14App=59a52881-a989-479d-af46-f275c6370663
|
|
set o15App=0ff1ce15-a989-479d-af46-f275c6370663
|
|
for %%# in (spp_get,ospp_get,cW1nd0ws,sppw,c0ff1ce15,sppo,osppsvc,ospp14,ospp15) do set "%%#="
|
|
for /f "tokens=6 delims=[]. " %%# in ('ver') do set winbuild=%%#
|
|
set "spp_get=Description, DiscoveredKeyManagementServiceMachineName, DiscoveredKeyManagementServiceMachinePort, EvaluationEndDate, GracePeriodRemaining, ID, KeyManagementServiceMachine, KeyManagementServicePort, KeyManagementServiceProductKeyID, LicenseStatus, LicenseStatusReason, Name, PartialProductKey, ProductKeyID, VLActivationInterval, VLRenewalInterval"
|
|
set "ospp_get=%spp_get%"
|
|
if %winbuild% GEQ 9200 set "spp_get=%spp_get%, KeyManagementServiceLookupDomain, VLActivationTypeEnabled"
|
|
if %winbuild% GEQ 9600 set "spp_get=%spp_get%, DiscoveredKeyManagementServiceMachineIpAddress, ProductKeyChannel"
|
|
set "_work=%~dp0"
|
|
set "_batf=%~f0"
|
|
set "_batp=%_batf:'=''%"
|
|
set "_Local=%LocalAppData%"
|
|
set _Identity=0
|
|
setlocal EnableDelayedExpansion
|
|
dir /b /s /a:-d "!_Local!\Microsoft\Office\Licenses\*1*" 1>nul 2>nul && set _Identity=1
|
|
dir /b /s /a:-d "!ProgramData!\Microsoft\Office\Licenses\*1*" 1>nul 2>nul && set _Identity=1
|
|
pushd "!_work!"
|
|
setlocal DisableDelayedExpansion
|
|
if %winbuild% LSS 9200 if not exist "%SystemRoot%\servicing\Packages\Microsoft-Windows-PowerShell-WTR-Package~*.mum" set _Identity=0
|
|
|
|
set "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 _cwmi=0
|
|
for %%# in (wmic.exe) do @if not "%%~$PATH:#"=="" (
|
|
wmic path Win32_ComputerSystem get CreationClassName /value 2>nul | find /i "ComputerSystem" 1>nul && set _cwmi=1
|
|
)
|
|
|
|
if %_cwmi% EQU 0 (
|
|
echo:
|
|
echo Error: wmic.exe is not responding in the system.
|
|
echo:
|
|
echo Press any key to go back...
|
|
pause >nul
|
|
exit /b
|
|
)
|
|
|
|
set "line2=************************************************************"
|
|
set "line3=____________________________________________________________"
|
|
set "_psc=powershell"
|
|
|
|
set _prsh=1
|
|
for %%# in (powershell.exe) do @if "%%~$PATH:#"=="" set _prsh=0
|
|
set "_csg=cscript.exe //NoLogo //Job:WmiMulti "%~nx0?.wsf""
|
|
set "_csq=cscript.exe //NoLogo //Job:WmiQuery "%~nx0?.wsf""
|
|
set "_csx=cscript.exe //NoLogo //Job:XPDT "%~nx0?.wsf""
|
|
if %_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="
|
|
)
|
|
set _WSH=0
|
|
set OsppHook=1
|
|
sc query osppsvc >nul 2>&1
|
|
if %errorlevel% EQU 1060 set OsppHook=0
|
|
|
|
net start sppsvc /y >nul 2>&1
|
|
call :casWpkey %wspp% %winApp% cW1nd0ws sppw
|
|
if %winbuild% GEQ 9200 call :casWpkey %wspp% %o15App% c0ff1ce15 sppo
|
|
if %OsppHook% NEQ 0 (
|
|
net start osppsvc /y >nul 2>&1
|
|
call :casWpkey %ospp% %o14App% osppsvc ospp14
|
|
if %winbuild% LSS 9200 call :casWpkey %ospp% %o15App% osppsvc ospp15
|
|
)
|
|
|
|
echo %line2%
|
|
echo *** Windows Status ***
|
|
echo %line2%
|
|
if not defined cW1nd0ws (
|
|
echo.
|
|
echo Error: product key not found.
|
|
goto :casWcon
|
|
)
|
|
set winID=1
|
|
set "_qr=%_zz7% %wspp% %_zz2% %_zz5%ApplicationID='%winApp%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"
|
|
for /f "tokens=2 delims==" %%# in ('%_qr%') do (
|
|
set "chkID=%%#"
|
|
call :casWdet "%wspp%" "%wsps%" "%spp_get%"
|
|
call :casWout
|
|
echo %line3%
|
|
echo.
|
|
)
|
|
|
|
:casWcon
|
|
set winID=0
|
|
set verbose=1
|
|
if not defined c0ff1ce15 (
|
|
if defined osppsvc goto :casWospp
|
|
goto :casWend
|
|
)
|
|
echo %line2%
|
|
echo *** Office Status ***
|
|
echo %line2%
|
|
set "_qr=%_zz7% %wspp% %_zz2% %_zz5%ApplicationID='%o15App%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"
|
|
for /f "tokens=2 delims==" %%# in ('%_qr%') do (
|
|
set "chkID=%%#"
|
|
call :casWdet "%wspp%" "%wsps%" "%spp_get%"
|
|
call :casWout
|
|
echo %line3%
|
|
echo.
|
|
)
|
|
set verbose=0
|
|
if defined osppsvc goto :casWospp
|
|
goto :casWend
|
|
|
|
:casWospp
|
|
if %verbose% EQU 1 (
|
|
echo %line2%
|
|
echo *** Office Status ***
|
|
echo %line2%
|
|
)
|
|
set "_qr=%_zz7% %ospp% %_zz2% %_zz5%ApplicationID='%o15App%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"
|
|
if defined ospp15 for /f "tokens=2 delims==" %%# in ('%_qr%') do (
|
|
set "chkID=%%#"
|
|
call :casWdet "%ospp%" "%osps%" "%ospp_get%"
|
|
call :casWout
|
|
echo %line3%
|
|
echo.
|
|
)
|
|
set "_qr=%_zz7% %ospp% %_zz2% %_zz5%ApplicationID='%o14App%' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz8%"
|
|
if defined ospp14 for /f "tokens=2 delims==" %%# in ('%_qr%') do (
|
|
set "chkID=%%#"
|
|
call :casWdet "%ospp%" "%osps%" "%ospp_get%"
|
|
call :casWout
|
|
echo %line3%
|
|
echo.
|
|
)
|
|
goto :casWend
|
|
|
|
:casWpkey
|
|
set "_qr=%_zz1% %1 %_zz2% %_zz5%ApplicationID='%2' and PartialProductKey is not null%_zz6% %_zz3% ID %_zz4%"
|
|
%_qr% 2>nul | findstr /i ID 1>nul && (set %3=1&set %4=1)
|
|
exit /b
|
|
|
|
:casWdet
|
|
for %%# in (%~3) do set "%%#="
|
|
if /i %~1==%ospp% for %%# in (DiscoveredKeyManagementServiceMachineIpAddress, KeyManagementServiceLookupDomain, ProductKeyChannel, VLActivationTypeEnabled) do set "%%#="
|
|
set "cKmsClient="
|
|
set "cTblClient="
|
|
set "cAvmClient="
|
|
set "ExpireMsg="
|
|
set "_xpr="
|
|
set "_qr="wmic path %~1 where ID='%chkID%' get %~3 /value" ^| findstr ^="
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csg% %~1 "ID='%chkID%'" "%~3""
|
|
for /f "tokens=* delims=" %%# in ('%_qr%') do set "%%#"
|
|
|
|
set /a _gpr=(GracePeriodRemaining+1440-1)/1440
|
|
echo %Description%| findstr /i VOLUME_KMSCLIENT 1>nul && (set cKmsClient=1&set _mTag=Volume)
|
|
echo %Description%| findstr /i TIMEBASED_ 1>nul && (set cTblClient=1&set _mTag=Timebased)
|
|
echo %Description%| findstr /i VIRTUAL_MACHINE_ACTIVATION 1>nul && (set cAvmClient=1&set _mTag=Automatic VM)
|
|
cmd /c exit /b %LicenseStatusReason%
|
|
set "LicenseReason=%=ExitCode%"
|
|
set "LicenseMsg=Time remaining: %GracePeriodRemaining% minute(s) (%_gpr% day(s))"
|
|
if %_gpr% GEQ 1 if %_WSH% EQU 1 (
|
|
for /f "tokens=* delims=" %%# in ('%_csx% %GracePeriodRemaining%') do set "_xpr=%%#"
|
|
)
|
|
if %_gpr% GEQ 1 if %_prsh% EQU 1 if not defined _xpr (
|
|
for /f "tokens=* delims=" %%# in ('%_psc% "$([DateTime]::Now.addMinutes(%GracePeriodRemaining%)).ToString('yyyy-MM-dd HH:mm:ss')" 2^>nul') do set "_xpr=%%#"
|
|
title Check Activation Status [wmi]
|
|
)
|
|
|
|
if %LicenseStatus% EQU 0 (
|
|
set "License=Unlicensed"
|
|
set "LicenseMsg="
|
|
)
|
|
if %LicenseStatus% EQU 1 (
|
|
set "License=Licensed"
|
|
set "LicenseMsg="
|
|
if %GracePeriodRemaining% EQU 0 (
|
|
if %winID% EQU 1 (set "ExpireMsg=The machine is permanently activated.") else (set "ExpireMsg=The product is permanently activated.")
|
|
) else (
|
|
set "LicenseMsg=%_mTag% activation expiration: %GracePeriodRemaining% minute(s) (%_gpr% day(s))"
|
|
if defined _xpr set "ExpireMsg=%_mTag% activation will expire %_xpr%"
|
|
)
|
|
)
|
|
if %LicenseStatus% EQU 2 (
|
|
set "License=Initial grace period"
|
|
if defined _xpr set "ExpireMsg=Initial grace period ends %_xpr%"
|
|
)
|
|
if %LicenseStatus% EQU 3 (
|
|
set "License=Additional grace period (KMS license expired or hardware out of tolerance)"
|
|
if defined _xpr set "ExpireMsg=Additional grace period ends %_xpr%"
|
|
)
|
|
if %LicenseStatus% EQU 4 (
|
|
set "License=Non-genuine grace period."
|
|
if defined _xpr set "ExpireMsg=Non-genuine grace period ends %_xpr%"
|
|
)
|
|
if %LicenseStatus% EQU 6 (
|
|
set "License=Extended grace period"
|
|
if defined _xpr set "ExpireMsg=Extended grace period ends %_xpr%"
|
|
)
|
|
if %LicenseStatus% EQU 5 (
|
|
set "License=Notification"
|
|
if "%LicenseReason%"=="C004F200" (set "LicenseMsg=Notification Reason: 0xC004F200 (non-genuine)."
|
|
) else if "%LicenseReason%"=="C004F009" (set "LicenseMsg=Notification Reason: 0xC004F009 (grace time expired)."
|
|
) else (set "LicenseMsg=Notification Reason: 0x%LicenseReason%"
|
|
)
|
|
)
|
|
if %LicenseStatus% GTR 6 (
|
|
set "License=Unknown"
|
|
set "LicenseMsg="
|
|
)
|
|
if not defined cKmsClient exit /b
|
|
|
|
if %KeyManagementServicePort%==0 set KeyManagementServicePort=1688
|
|
set "KmsReg=Registered KMS machine name: %KeyManagementServiceMachine%:%KeyManagementServicePort%"
|
|
if "%KeyManagementServiceMachine%"=="" set "KmsReg=Registered KMS machine name: KMS name not available"
|
|
|
|
if %DiscoveredKeyManagementServiceMachinePort%==0 set DiscoveredKeyManagementServiceMachinePort=1688
|
|
set "KmsDns=KMS machine name from DNS: %DiscoveredKeyManagementServiceMachineName%:%DiscoveredKeyManagementServiceMachinePort%"
|
|
if "%DiscoveredKeyManagementServiceMachineName%"=="" set "KmsDns=DNS auto-discovery: KMS name not available"
|
|
|
|
set "_qr="wmic path %~2 get ClientMachineID, KeyManagementServiceHostCaching /value" ^| findstr ^="
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csg% %~2 "ClientMachineID, KeyManagementServiceHostCaching""
|
|
for /f "tokens=* delims=" %%# in ('%_qr%') do set "%%#"
|
|
if /i %KeyManagementServiceHostCaching%==True (set KeyManagementServiceHostCaching=Enabled) else (set KeyManagementServiceHostCaching=Disabled)
|
|
|
|
if %winbuild% LSS 9200 exit /b
|
|
if /i %~1==%ospp% exit /b
|
|
|
|
if "%KeyManagementServiceLookupDomain%"=="" set "KeyManagementServiceLookupDomain="
|
|
|
|
if %VLActivationTypeEnabled% EQU 3 (
|
|
set VLActivationType=Token
|
|
) else if %VLActivationTypeEnabled% EQU 2 (
|
|
set VLActivationType=KMS
|
|
) else if %VLActivationTypeEnabled% EQU 1 (
|
|
set VLActivationType=AD
|
|
) else (
|
|
set VLActivationType=All
|
|
)
|
|
|
|
if %winbuild% LSS 9600 exit /b
|
|
if "%DiscoveredKeyManagementServiceMachineIpAddress%"=="" set "DiscoveredKeyManagementServiceMachineIpAddress=not available"
|
|
exit /b
|
|
|
|
:casWout
|
|
echo.
|
|
echo Name: %Name%
|
|
echo Description: %Description%
|
|
echo Activation ID: %ID%
|
|
echo Extended PID: %ProductKeyID%
|
|
if defined ProductKeyChannel echo Product Key Channel: %ProductKeyChannel%
|
|
echo Partial Product Key: %PartialProductKey%
|
|
echo License Status: %License%
|
|
if defined LicenseMsg echo %LicenseMsg%
|
|
if not %LicenseStatus%==0 if not %EvaluationEndDate:~0,8%==16010101 echo Evaluation End Date: %EvaluationEndDate:~0,4%-%EvaluationEndDate:~4,2%-%EvaluationEndDate:~6,2% %EvaluationEndDate:~8,2%:%EvaluationEndDate:~10,2% UTC
|
|
if not defined cKmsClient (
|
|
if defined ExpireMsg echo.&echo. %ExpireMsg%
|
|
exit /b
|
|
)
|
|
if defined VLActivationTypeEnabled echo Configured Activation Type: %VLActivationType%
|
|
echo.
|
|
if not %LicenseStatus%==1 (
|
|
echo Please activate the product in order to update KMS client information values.
|
|
exit /b
|
|
)
|
|
echo Most recent activation information:
|
|
echo Key Management Service client information
|
|
echo. Client Machine ID (CMID): %ClientMachineID%
|
|
echo. %KmsDns%
|
|
echo. %KmsReg%
|
|
if defined DiscoveredKeyManagementServiceMachineIpAddress echo. KMS machine IP address: %DiscoveredKeyManagementServiceMachineIpAddress%
|
|
echo. KMS machine extended PID: %KeyManagementServiceProductKeyID%
|
|
echo. Activation interval: %VLActivationInterval% minutes
|
|
echo. Renewal interval: %VLRenewalInterval% minutes
|
|
echo. KMS host caching: %KeyManagementServiceHostCaching%
|
|
if defined KeyManagementServiceLookupDomain echo. KMS SRV record lookup domain: %KeyManagementServiceLookupDomain%
|
|
if defined ExpireMsg echo.&echo. %ExpireMsg%
|
|
exit /b
|
|
|
|
:casWend
|
|
if %_Identity% EQU 1 if %_prsh% EQU 1 (
|
|
echo %line2%
|
|
echo *** Office vNext Status ***
|
|
echo %line2%
|
|
setlocal EnableDelayedExpansion
|
|
%_psc% "$f=[IO.File]::ReadAllText('!_batp!') -split ':vNextDiag\:.*';iex ($f[1])"
|
|
title Check Activation Status [wmi]
|
|
echo %line3%
|
|
echo.
|
|
)
|
|
echo.
|
|
call :_color %_Yellow% "Press any key to go back..."
|
|
pause >nul
|
|
exit /b
|
|
|
|
:vNextDiag:
|
|
function PrintModePerPridFromRegistry
|
|
{
|
|
$vNextRegkey = "HKCU:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext"
|
|
$vNextPrids = Get-Item -Path $vNextRegkey -ErrorAction Ignore | Select-Object -ExpandProperty 'property' | Where-Object -FilterScript {$_.ToLower() -like "*retail" -or $_.ToLower() -like "*volume"}
|
|
If ($vNextPrids -Eq $null)
|
|
{
|
|
Write-Host "No registry keys found."
|
|
Return
|
|
}
|
|
$vNextPrids | ForEach `
|
|
{
|
|
$mode = (Get-ItemProperty -Path $vNextRegkey -Name $_).$_
|
|
Switch ($mode)
|
|
{
|
|
2 { $mode = "vNext"; Break }
|
|
3 { $mode = "Device"; Break }
|
|
Default { $mode = "Legacy"; Break }
|
|
}
|
|
Write-Host $_ = $mode
|
|
}
|
|
}
|
|
function PrintSharedComputerLicensing
|
|
{
|
|
$scaRegKey = "HKLM:\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"
|
|
$scaValue = Get-ItemProperty -Path $scaRegKey -ErrorAction Ignore | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction Ignore
|
|
$scaRegKey2 = "HKLM:\SOFTWARE\Microsoft\Office\16.0\Common\Licensing"
|
|
$scaValue2 = Get-ItemProperty -Path $scaRegKey2 -ErrorAction Ignore | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction Ignore
|
|
$scaPolicyKey = "HKLM:\SOFTWARE\Policies\Microsoft\Office\16.0\Common\Licensing"
|
|
$scaPolicyValue = Get-ItemProperty -Path $scaPolicyKey -ErrorAction Ignore | Select-Object -ExpandProperty "SharedComputerLicensing" -ErrorAction Ignore
|
|
If ($scaValue -Eq $null -And $scaValue2 -Eq $null -And $scaPolicyValue -Eq $null)
|
|
{
|
|
Write-Host "No registry keys found."
|
|
Return
|
|
}
|
|
$scaModeValue = $scaValue -Or $scaValue2 -Or $scaPolicyValue
|
|
If ($scaModeValue -Eq 0)
|
|
{
|
|
$scaMode = "Disabled"
|
|
}
|
|
If ($scaModeValue -Eq 1)
|
|
{
|
|
$scaMode = "Enabled"
|
|
}
|
|
Write-Host "SharedComputerLicensing" = $scaMode
|
|
Write-Host
|
|
$tokenFiles = $null
|
|
$tokenPath = "${env:LOCALAPPDATA}\Microsoft\Office\16.0\Licensing"
|
|
If (Test-Path $tokenPath)
|
|
{
|
|
$tokenFiles = Get-ChildItem -Path $tokenPath -Recurse -File -Filter "*authString*"
|
|
}
|
|
If ($tokenFiles.length -Eq 0)
|
|
{
|
|
Write-Host "No tokens found."
|
|
Return
|
|
}
|
|
$tokenFiles | ForEach `
|
|
{
|
|
$tokenParts = (Get-Content -Encoding Unicode -Path $_.FullName).Split('_')
|
|
$output = [PSCustomObject] `
|
|
@{
|
|
ACID = $tokenParts[0];
|
|
User = $tokenParts[3]
|
|
NotBefore = $tokenParts[4];
|
|
NotAfter = $tokenParts[5];
|
|
} | ConvertTo-Json
|
|
Write-Host $output
|
|
}
|
|
}
|
|
function PrintLicensesInformation
|
|
{
|
|
Param(
|
|
[ValidateSet("NUL", "Device")]
|
|
[String]$mode
|
|
)
|
|
If ($mode -Eq "NUL")
|
|
{
|
|
$licensePath = "${env:LOCALAPPDATA}\Microsoft\Office\Licenses"
|
|
}
|
|
ElseIf ($mode -Eq "Device")
|
|
{
|
|
$licensePath = "${env:PROGRAMDATA}\Microsoft\Office\Licenses"
|
|
}
|
|
$licenseFiles = $null
|
|
If (Test-Path $licensePath)
|
|
{
|
|
$licenseFiles = Get-ChildItem -Path $licensePath -Recurse -File
|
|
}
|
|
If ($licenseFiles.length -Eq 0)
|
|
{
|
|
Write-Host "No licenses found."
|
|
Return
|
|
}
|
|
$licenseFiles | ForEach `
|
|
{
|
|
$license = (Get-Content -Encoding Unicode $_.FullName | ConvertFrom-Json).License
|
|
$decodedLicense = [System.Text.Encoding]::UTF8.GetString([System.Convert]::FromBase64String($license)) | ConvertFrom-Json
|
|
$licenseType = $decodedLicense.LicenseType
|
|
If ($null -Ne $decodedLicense.ExpiresOn)
|
|
{
|
|
$expiry = [DateTime]::Parse($decodedLicense.ExpiresOn, $null, 48)
|
|
}
|
|
Else
|
|
{
|
|
$expiry = New-Object DateTime
|
|
}
|
|
$licenseState = $null
|
|
If ((Get-Date) -Gt (Get-Date $decodedLicense.MetaData.NotAfter))
|
|
{
|
|
$licenseState = "RFM"
|
|
}
|
|
ElseIf ((Get-Date) -Lt (Get-Date $expiry))
|
|
{
|
|
$licenseState = "Licensed"
|
|
}
|
|
Else
|
|
{
|
|
$licenseState = "Grace"
|
|
}
|
|
if ($mode -Eq "NUL")
|
|
{
|
|
$output = [PSCustomObject] `
|
|
@{
|
|
Version = $_.Directory.Name
|
|
Type = "User|${licenseType}";
|
|
Product = $decodedLicense.ProductReleaseId;
|
|
Acid = $decodedLicense.Acid;
|
|
LicenseState = $licenseState;
|
|
EntitlementStatus = $decodedLicense.Status;
|
|
EntitlementExpiration = $decodedLicense.ExpiresOn;
|
|
ReasonCode = $decodedLicense.ReasonCode;
|
|
NotBefore = $decodedLicense.Metadata.NotBefore;
|
|
NotAfter = $decodedLicense.Metadata.NotAfter;
|
|
NextRenewal = $decodedLicense.Metadata.RenewAfter;
|
|
TenantId = $decodedLicense.Metadata.TenantId;
|
|
} | ConvertTo-Json
|
|
}
|
|
ElseIf ($mode -Eq "Device")
|
|
{
|
|
$output = [PSCustomObject] `
|
|
@{
|
|
Version = $_.Directory.Name
|
|
Type = "Device|${licenseType}";
|
|
Product = $decodedLicense.ProductReleaseId;
|
|
Acid = $decodedLicense.Acid;
|
|
DeviceId = $decodedLicense.Metadata.DeviceId;
|
|
LicenseState = $licenseState;
|
|
EntitlementStatus = $decodedLicense.Status;
|
|
EntitlementExpiration = $decodedLicense.ExpiresOn;
|
|
ReasonCode = $decodedLicense.ReasonCode;
|
|
NotBefore = $decodedLicense.Metadata.NotBefore;
|
|
NotAfter = $decodedLicense.Metadata.NotAfter;
|
|
NextRenewal = $decodedLicense.Metadata.RenewAfter;
|
|
TenantId = $decodedLicense.Metadata.TenantId;
|
|
} | ConvertTo-Json
|
|
}
|
|
Write-Output $output
|
|
}
|
|
}
|
|
Write-Host
|
|
Write-Host "========== Mode per ProductReleaseId =========="
|
|
Write-Host
|
|
PrintModePerPridFromRegistry
|
|
Write-Host
|
|
Write-Host "========== Shared Computer Licensing =========="
|
|
Write-Host
|
|
PrintSharedComputerLicensing
|
|
Write-Host
|
|
Write-Host "========== vNext licenses =========="
|
|
Write-Host
|
|
PrintLicensesInformation -Mode "NUL"
|
|
Write-Host
|
|
Write-Host "========== Device licenses =========="
|
|
Write-Host
|
|
PrintLicensesInformation -Mode "Device"
|
|
:vNextDiag:
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:troubleshoot
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
color 07
|
|
title Activation Troubleshoot
|
|
|
|
set _elev=
|
|
if /i "%~1"=="-el" set _elev=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 cbs_log=%SystemRoot%\logs\cbs\cbs.log
|
|
set "nceline=echo: &echo ==== ERROR ==== &echo:"
|
|
set "eline=echo: &call :_color %Red% "==== ERROR ====" &echo:"
|
|
set "line=_________________________________________________________________________________________________"
|
|
if %~z0 GEQ 200000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit")
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: 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%"
|
|
|
|
:: Check desktop location
|
|
|
|
set desktop=
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop') do call set "desktop=%%b"
|
|
if not defined desktop for /f "delims=" %%a in ('%psc% "& {write-host $([Environment]::GetFolderPath('Desktop'))}"') do call set "desktop=%%a"
|
|
|
|
if not defined desktop (
|
|
%eline%
|
|
echo Desktop location was not detected, aborting...
|
|
goto at_done
|
|
)
|
|
|
|
setlocal EnableDelayedExpansion
|
|
|
|
::========================================================================================================================================
|
|
|
|
:at_menu
|
|
|
|
cls
|
|
color 07
|
|
title Activation Troubleshoot
|
|
mode con cols=77 lines=30
|
|
|
|
echo:
|
|
echo:
|
|
echo: _______________________________________________________________
|
|
echo:
|
|
call :_color2 %_White% " [1] " %_Green% "Help"
|
|
echo: ___________________________________________________
|
|
echo:
|
|
echo: [2] Dism RestoreHealth
|
|
echo: [3] SFC Scannow
|
|
echo:
|
|
echo: [4] Rebuild Licensing Tokens
|
|
echo: [5] Rebuild ClipSVC Licences
|
|
echo: [6] Clear Office vNext Licences
|
|
echo: ___________________________________________________
|
|
echo:
|
|
echo: [7] Rebuild WMI Repository
|
|
echo: [8] Fix: Issues Caused By Gaming Spoofers
|
|
echo: [9] Fix: Issues Caused By KB971033 In Windows 7
|
|
echo: [G] Fix: Office Is Not Genuine Banner
|
|
echo: [E] Export Event Viewer Logs
|
|
echo: ___________________________________________________
|
|
echo:
|
|
echo: [0] %_exitmsg%
|
|
echo: _______________________________________________________________
|
|
echo:
|
|
call :_color2 %_White% " " %_Green% "Enter a menu option in the Keyboard :"
|
|
choice /C:123456789GE0 /N
|
|
set _erl=%errorlevel%
|
|
|
|
if %_erl%==12 exit /b
|
|
if %_erl%==11 goto:exportevtlogs
|
|
if %_erl%==10 start https://massgrave.dev/office-license-is-not-genuine &goto at_menu
|
|
if %_erl%==9 goto:fixwindows7
|
|
if %_erl%==8 goto:fixspoofer
|
|
if %_erl%==7 goto:rewmi
|
|
if %_erl%==6 goto:clearvnext
|
|
if %_erl%==5 goto:reclipsvc
|
|
if %_erl%==4 goto:retokens
|
|
if %_erl%==3 goto:sfcscan
|
|
if %_erl%==2 goto:dism_rest
|
|
if %_erl%==1 start https://massgrave.dev/troubleshoot.html &goto at_menu
|
|
goto :at_menu
|
|
|
|
::========================================================================================================================================
|
|
|
|
:dism_rest
|
|
|
|
cls
|
|
mode 98, 30
|
|
title Dism /Online /Cleanup-Image /RestoreHealth
|
|
|
|
if %winbuild% LSS 9200 (
|
|
%eline%
|
|
echo Unsupported OS version Detected.
|
|
echo This command is supported only for Windows 8/8.1/10/11 and their Server equivalent.
|
|
goto :at_back
|
|
)
|
|
|
|
set _int=
|
|
for %%a in (dns.msftncsi.com) do (
|
|
if not defined _int (for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do if not [%%#]==[] set _int=1))
|
|
|
|
echo:
|
|
if defined _int (
|
|
echo Checking Internet Connection [Connected]
|
|
) else (
|
|
call :_color2 %_White% " " %Red% "Checking Internet Connection [Not connected]"
|
|
)
|
|
|
|
echo %line%
|
|
echo:
|
|
echo Dism uses Windows Update to provide the files required to fix corruption.
|
|
echo This will take 5-15 minutes or more..
|
|
echo %line%
|
|
echo:
|
|
echo Notes:
|
|
echo:
|
|
call :_color2 %_White% " - " %Gray% "Make sure the Internet is connected."
|
|
call :_color2 %_White% " - " %Gray% "Make sure the Windows update is properly working."
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
cls
|
|
mode 110, 30
|
|
echo:
|
|
|
|
call :_stopservice TrustedInstaller
|
|
del /s /f /q "%SystemRoot%\logs\cbs\*.*"
|
|
|
|
set _time=
|
|
for /f %%a in ('%psc% "Get-Date -format HH_mm_ss"') do set _time=%%a
|
|
echo:
|
|
echo Applying the command,
|
|
echo dism /online /cleanup-image /restorehealth /Logpath:"%SystemRoot%\Temp\RHealth_DISM_%_time%.txt" /loglevel:4
|
|
echo:
|
|
dism /online /cleanup-image /restorehealth /Logpath:"%SystemRoot%\Temp\RHealth_DISM_%_time%.txt" /loglevel:4
|
|
|
|
if not exist "!desktop!\AT_Logs\" md "!desktop!\AT_Logs\" %nul%
|
|
copy /y /b "%SystemRoot%\Temp\RHealth_DISM_%_time%.txt" "!desktop!\AT_Logs\RHealth_DISM_%_time%.txt" %nul%
|
|
copy /y /b "%cbs_log%" "!desktop!\AT_Logs\RHealth_CBS_%_time%.txt" %nul%
|
|
del /f /q "%SystemRoot%\Temp\RHealth_DISM_%_time%.txt" %nul%
|
|
|
|
echo:
|
|
call :_color %Gray% "CBS and DISM logs are copied to the AT_Logs folder on the dekstop."
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:sfcscan
|
|
|
|
cls
|
|
mode 98, 30
|
|
title sfc /scannow
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo System File Checker will repair missing or corrupted system files.
|
|
echo This will take 10-15 minutes or more..
|
|
echo:
|
|
echo If SFC could not fix something, then run the command again to see if it may be able
|
|
echo to the next time. Sometimes it may take running the sfc /scannow command 3 times
|
|
echo restarting the PC after each time to completely fix everything that it's able to.
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
cls
|
|
echo:
|
|
|
|
call :_stopservice TrustedInstaller
|
|
del /s /f /q "%SystemRoot%\logs\cbs\*.*"
|
|
|
|
set _time=
|
|
for /f %%a in ('%psc% "Get-Date -format HH_mm_ss"') do set _time=%%a
|
|
echo:
|
|
echo Applying the command,
|
|
echo sfc /scannow
|
|
echo:
|
|
sfc /scannow
|
|
|
|
if not exist "!desktop!\AT_Logs\" md "!desktop!\AT_Logs\" %nul%
|
|
|
|
copy /y /b "%cbs_log%" "!desktop!\AT_Logs\SFC_CBS_%_time%.txt" %nul%
|
|
findstr /i /c:"[SR]" %cbs_log% | findstr /i /v /c:verify >"!desktop!\AT_Logs\SFC_Main_%_time%.txt"
|
|
|
|
echo:
|
|
call :_color %Gray% "CBS and main extracted logs are copied to the AT_Logs folder on the dekstop."
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:clearvnext
|
|
|
|
cls
|
|
mode 98, 30
|
|
title Clear Office vNext License
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo This options will clear Office vNext ^(subscription^) license
|
|
echo:
|
|
echo You need to use this option when,
|
|
echo - KMS option is not activating office due to existing subscription license
|
|
echo - KMS option activated Office but Office activation page is not showing activated
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
cls
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
call :_color %Magenta% "Clearing Office vNext License"
|
|
echo:
|
|
|
|
setlocal DisableDelayedExpansion
|
|
set "_Local=%LocalAppData%"
|
|
setlocal EnableDelayedExpansion
|
|
|
|
attrib -R "!ProgramData!\Microsoft\Office\Licenses" %nul%
|
|
attrib -R "!_Local!\Microsoft\Office\Licenses" %nul%
|
|
rd /s /q "!ProgramData!\Microsoft\Office\Licenses\" %nul%
|
|
rd /s /q "!_Local!\Microsoft\Office\Licenses\" %nul%
|
|
|
|
if exist "!ProgramData!\Microsoft\Office\Licenses\" (
|
|
echo Failed To Delete - !ProgramData!\Microsoft\Office\Licenses\
|
|
) else (
|
|
echo Deleted Folder - !ProgramData!\Microsoft\Office\Licenses\
|
|
)
|
|
|
|
if exist "!_Local!\Microsoft\Office\Licenses\" (
|
|
echo Failed To Delete - !_Local!\Microsoft\Office\Licenses\
|
|
) else (
|
|
echo Deleted Folder - !_Local!\Microsoft\Office\Licenses\
|
|
)
|
|
|
|
echo:
|
|
for %%# in (
|
|
HKCU\Software\Microsoft\Office\16.0\Common\Licensing
|
|
HKCU\Software\Microsoft\Office\16.0\Registration
|
|
) do (
|
|
reg query %%# %nul% && (
|
|
reg delete %%# /f %nul% && (
|
|
echo Deleted Registry - %%#
|
|
) || (
|
|
echo Failed to Delete - %%#
|
|
)
|
|
) || (
|
|
echo Deleted Registry - %%#
|
|
)
|
|
)
|
|
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:retokens
|
|
|
|
cls
|
|
mode con cols=115 lines=32
|
|
%nul% %psc% "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=200;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
title Rebuild Licensing Tokens ^(SPP ^+ OSPP)
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo Notes:
|
|
echo:
|
|
echo - It helps in troubleshooting activation issues.
|
|
echo:
|
|
call :_color2 %_White% " - " %Magenta% "This option will,"
|
|
call :_color2 %_White% " " %Magenta% "- Deactivate Windows and Office, you will need to reactivate"
|
|
call :_color2 %_White% " " %Magenta% "- Uninstall Office licenses and keys"
|
|
call :_color2 %_White% " " %Magenta% "- Clear SPP-OSPP data.dat, tokens.dat, cache.dat"
|
|
call :_color2 %_White% " " %Magenta% "- Trigger the repair option for Office"
|
|
echo:
|
|
call :_color2 %_White% " - " %Red% "Apply it only when it is necessary."
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
|
|
cls
|
|
:cleanspptoken
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
call :_color %Magenta% "Rebuilding SPP Licensing Tokens"
|
|
echo:
|
|
|
|
call :scandat check
|
|
|
|
if not defined token (
|
|
call :_color %Red% "tokens.dat file not found."
|
|
) else (
|
|
echo tokens.dat file: [%token%]
|
|
)
|
|
|
|
echo:
|
|
echo Stopping sppsvc service...
|
|
call :_stopservice sppsvc
|
|
|
|
echo:
|
|
call :scandat delete
|
|
call :scandat check
|
|
|
|
if defined token (
|
|
echo:
|
|
call :_color %Red% "Failed to delete .dat files."
|
|
echo:
|
|
)
|
|
|
|
echo:
|
|
echo Reinstalling System Licenses [slmgr /rilc]...
|
|
cscript //nologo %windir%\system32\slmgr.vbs /rilc %nul%
|
|
if %errorlevel% NEQ 0 cscript //nologo %windir%\system32\slmgr.vbs /rilc %nul%
|
|
if %errorlevel% EQU 0 (
|
|
echo [Successful]
|
|
) else (
|
|
call :_color %Red% "[Failed]"
|
|
)
|
|
|
|
call :scandat check
|
|
|
|
echo:
|
|
if not defined token (
|
|
call :_color %Red% "Failed to rebuilt tokens.dat file."
|
|
) else (
|
|
call :_color %Green% "tokens.dat file was rebuilt successfully."
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Rebuild OSPP Tokens
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
|
|
sc qc osppsvc %nul% || (
|
|
echo:
|
|
call :_color %Magenta% "OSPP based Office is not installed"
|
|
call :_color %Magenta% "Skipping rebuilding OSPP tokens"
|
|
goto :repairoffice
|
|
)
|
|
|
|
call :_color %Magenta% "Rebuilding OSPP Licensing Tokens"
|
|
echo:
|
|
|
|
call :scandatospp check
|
|
|
|
if not defined token (
|
|
call :_color %Red% "tokens.dat file not found."
|
|
) else (
|
|
echo tokens.dat file: [%token%]
|
|
)
|
|
|
|
echo:
|
|
echo Stopping osppsvc service...
|
|
call :_stopservice osppsvc
|
|
|
|
echo:
|
|
call :scandatospp delete
|
|
call :scandatospp check
|
|
|
|
if defined token (
|
|
echo:
|
|
call :_color %Red% "Failed to delete .dat files."
|
|
echo:
|
|
)
|
|
|
|
echo:
|
|
echo Starting osppsvc service to generate tokens.dat
|
|
call :_startservice osppsvc
|
|
call :scandatospp check
|
|
if not defined token (
|
|
call :_stopservice osppsvc
|
|
call :_startservice osppsvc
|
|
timeout /t 3 %nul%
|
|
)
|
|
|
|
call :scandatospp check
|
|
|
|
echo:
|
|
if not defined token (
|
|
call :_color %Red% "Failed to rebuilt tokens.dat file."
|
|
) else (
|
|
call :_color %Green% "tokens.dat file was rebuilt successfully."
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:repairoffice
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
call :_color %Magenta% "Repairing Office Licenses"
|
|
echo:
|
|
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE') do set arch=%%b
|
|
|
|
if /i "%arch%"=="ARM64" (
|
|
echo:
|
|
echo ARM64 Windows Found.
|
|
echo You need to use repair option in Windows settings for Office.
|
|
echo:
|
|
start ms-settings:appsfeatures
|
|
goto :repairend
|
|
)
|
|
|
|
if /i "%arch%"=="x86" (
|
|
set arch=X86
|
|
) else (
|
|
set arch=X64
|
|
)
|
|
|
|
for %%# in (68 86) do (
|
|
for %%A in (msi14 msi15 msi16 c2r14 c2r15 c2r16) do (set %%A_%%#=&set %%Arepair%%#=)
|
|
)
|
|
|
|
set _68=HKLM\SOFTWARE\Microsoft\Office
|
|
set _86=HKLM\SOFTWARE\Wow6432Node\Microsoft\Office
|
|
|
|
%nul% reg query %_68%\14.0\Common\InstallRoot /v Path && (set "msi14_68=Office 14.0 MSI x86/x64" & set "msi14repair68=%systemdrive%\Program Files\Common Files\microsoft shared\OFFICE14\Office Setup Controller\Setup.exe")
|
|
%nul% reg query %_86%\14.0\Common\InstallRoot /v Path && (set "msi14_86=Office 14.0 MSI x86" & set "msi14repair86=%systemdrive%\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\Office Setup Controller\Setup.exe")
|
|
%nul% reg query %_68%\15.0\Common\InstallRoot /v Path && (set "msi15_68=Office 15.0 MSI x86/x64" & set "msi15repair68=%systemdrive%\Program Files\Common Files\microsoft shared\OFFICE15\Office Setup Controller\Setup.exe")
|
|
%nul% reg query %_86%\15.0\Common\InstallRoot /v Path && (set "msi15_86=Office 15.0 MSI x86" & set "msi15repair86=%systemdrive%\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\Office Setup Controller\Setup.exe")
|
|
%nul% reg query %_68%\16.0\Common\InstallRoot /v Path && (set "msi16_68=Office 16.0 MSI x86/x64" & set "msi16repair68=%systemdrive%\Program Files\Common Files\Microsoft Shared\OFFICE16\Office Setup Controller\Setup.exe")
|
|
%nul% reg query %_86%\16.0\Common\InstallRoot /v Path && (set "msi16_86=Office 16.0 MSI x86" & set "msi16repair86=%systemdrive%\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\Office Setup Controller\Setup.exe")
|
|
%nul% reg query %_68%\14.0\CVH /f Click2run /k && (set "c2r14_68=Office 14.0 C2R x86/x64" & set "c2r14repair68=")
|
|
%nul% reg query %_86%\14.0\CVH /f Click2run /k && (set "c2r14_86=Office 14.0 C2R x86" & set "c2r14repair86=")
|
|
%nul% reg query %_68%\15.0\ClickToRun /v InstallPath && (set "c2r15_68=Office 15.0 C2R x86/x64" & set "c2r15repair68=%systemdrive%\Program Files\Microsoft Office 15\Client%arch%\integratedoffice.exe")
|
|
%nul% reg query %_86%\15.0\ClickToRun /v InstallPath && (set "c2r15_86=Office 15.0 C2R x86" & set "c2r15repair86=%systemdrive%\Program Files\Microsoft Office 15\Client%arch%\integratedoffice.exe")
|
|
%nul% reg query %_68%\ClickToRun /v InstallPath && (set "c2r16_68=Office 16.0 C2R x86/x64" & set "c2r16repair68=%systemdrive%\Program Files\Microsoft Office 15\Client%arch%\OfficeClickToRun.exe")
|
|
%nul% reg query %_86%\ClickToRun /v InstallPath && (set "c2r16_86=Office 16.0 C2R x86" & set "c2r16repair86=%systemdrive%\Program Files\Microsoft Office 15\Client%arch%\OfficeClickToRun.exe")
|
|
|
|
set uwp16=
|
|
if %winbuild% GEQ 10240 (
|
|
dir /b "%ProgramFiles%\WindowsApps\Microsoft.Office.Desktop*" %nul% && set uwp16=Office 16.0 UWP
|
|
dir /b "%ProgramW6432%\WindowsApps\Microsoft.Office.Desktop*" %nul% && set uwp16=Office 16.0 UWP
|
|
dir /b "%ProgramFiles(x86)%\WindowsApps\Microsoft.Office.Desktop*" %nul% && set uwp16=Office 16.0 UWP
|
|
%psc% "Get-AppxPackage -name "Microsoft.Office.Desktop"" | find /i "Office" 1>nul && set uwp16=Office 16.0 UWP
|
|
)
|
|
|
|
set /a counter=0
|
|
echo Checking installed Office versions...
|
|
echo:
|
|
|
|
for %%# in (
|
|
"%msi14_68%"
|
|
"%msi14_86%"
|
|
"%msi15_68%"
|
|
"%msi15_86%"
|
|
"%msi16_68%"
|
|
"%msi16_86%"
|
|
"%c2r14_68%"
|
|
"%c2r14_86%"
|
|
"%c2r15_68%"
|
|
"%c2r15_86%"
|
|
"%c2r16_68%"
|
|
"%c2r16_86%"
|
|
"%uwp16%"
|
|
) do (
|
|
if not "%%#"=="""" (
|
|
set insoff=%%#
|
|
set insoff=!insoff:"=!
|
|
echo [!insoff!]
|
|
set /a counter+=1
|
|
)
|
|
)
|
|
|
|
if %counter% GTR 1 (
|
|
%eline%
|
|
echo Multiple office versions found.
|
|
echo It's recommended to install only one version of office.
|
|
echo ________________________________________________________________
|
|
echo:
|
|
)
|
|
|
|
if %counter% EQU 0 (
|
|
echo:
|
|
echo Installed Office is not found.
|
|
goto :repairend
|
|
echo:
|
|
) else (
|
|
echo:
|
|
call :_color %_Yellow% "A Window will popup, in that Window you need to select [Quick] Repair Option..."
|
|
call :_color %_Yellow% "Press any key to continue..."
|
|
echo:
|
|
pause >nul
|
|
)
|
|
|
|
if defined uwp16 (
|
|
echo:
|
|
echo Note: Skipping repair for Office 16.0 UWP.
|
|
echo You need to use reset option in Windows settings for it.
|
|
echo ________________________________________________________________
|
|
echo:
|
|
start ms-settings:appsfeatures
|
|
)
|
|
|
|
set c2r14=
|
|
if defined c2r14_68 set c2r14=1
|
|
if defined c2r14_86 set c2r14=1
|
|
|
|
if defined c2r14 (
|
|
echo:
|
|
echo Note: Skipping repair for Office 14.0 C2R
|
|
echo You need to use Repair option in Windows settings for it.
|
|
echo ________________________________________________________________
|
|
echo:
|
|
start appwiz.cpl
|
|
)
|
|
|
|
if defined msi14_68 if exist "%msi14repair68%" echo Running - "%msi14repair68%" & "%msi14repair68%"
|
|
if defined msi14_86 if exist "%msi14repair86%" echo Running - "%msi14repair86%" & "%msi14repair86%"
|
|
if defined msi15_68 if exist "%msi15repair68%" echo Running - "%msi15repair68%" & "%msi15repair68%"
|
|
if defined msi15_86 if exist "%msi15repair86%" echo Running - "%msi15repair86%" & "%msi15repair86%"
|
|
if defined msi16_68 if exist "%msi16repair68%" echo Running - "%msi16repair68%" & "%msi16repair68%"
|
|
if defined msi16_86 if exist "%msi16repair86%" echo Running - "%msi16repair86%" & "%msi16repair86%"
|
|
if defined c2r15_68 if exist "%c2r15repair68%" echo Running - "%c2r15repair68%" REPAIRUI RERUNMODE & "%c2r15repair68%" REPAIRUI RERUNMODE
|
|
if defined c2r15_86 if exist "%c2r15repair86%" echo Running - "%c2r15repair86%" REPAIRUI RERUNMODE & "%c2r15repair86%" REPAIRUI RERUNMODE
|
|
if defined c2r16_68 if exist "%c2r16repair68%" echo Running - "%c2r16repair68%" scenario=Repair & "%c2r16repair68%" scenario=Repair
|
|
if defined c2r16_86 if exist "%c2r16repair86%" echo Running - "%c2r16repair86%" scenario=Repair & "%c2r16repair86%" scenario=Repair
|
|
|
|
:repairend
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo:
|
|
call :_color %Green% "Finished"
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:reclipsvc
|
|
|
|
cls
|
|
mode 98, 30
|
|
title Rebuild ClipSVC Licences
|
|
|
|
if %winbuild% LSS 10240 (
|
|
%eline%
|
|
echo Unsupported OS version Detected.
|
|
echo This command is supported only for Windows 10/11 and their Server equivalent..
|
|
goto :at_back
|
|
)
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo Notes:
|
|
echo:
|
|
echo - Rebuilding ClipSVC Licences helps in troubleshooting HWID-KMS38 activation issues.
|
|
echo:
|
|
echo - Do not run this option unless you are having issues in HWID-KMS38 activation.
|
|
echo:
|
|
echo - System restart is recommended after applying it.
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
cls
|
|
echo:
|
|
|
|
echo Stopping ClipSVC service...
|
|
call :_stopservice ClipSVC
|
|
timeout /t 2 %nul%
|
|
|
|
echo:
|
|
echo Applying the command to Clean ClipSVC Licences...
|
|
echo rundll32 clipc.dll,ClipCleanUpState
|
|
|
|
rundll32 clipc.dll,ClipCleanUpState
|
|
|
|
if %winbuild% LEQ 10240 (
|
|
call :_color %Green% "[Successful]"
|
|
) else (
|
|
if exist "%ProgramData%\Microsoft\Windows\ClipSVC\tokens.dat" (
|
|
call :_color %Red% "[Failed]"
|
|
) else (
|
|
call :_color %Green% "[Successful]"
|
|
)
|
|
)
|
|
|
|
:: Below registry key (Volatile & Protected) gets created after the ClipSVC License cleanup command, and gets automatically deleted after
|
|
:: system restart. It needs to be deleted to activate the system without restart.
|
|
|
|
set "RegKey=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ClipSVC\Volatile\PersistedSystemState"
|
|
set "_ident=HKU\S-1-5-19\SOFTWARE\Microsoft\IdentityCRL"
|
|
|
|
reg query "%RegKey%" %nul% && %nul% call :regownstart
|
|
reg delete "%RegKey%" /f %nul%
|
|
|
|
echo:
|
|
echo Deleting a Volatile ^& Protected Registry Key...
|
|
echo [%RegKey%]
|
|
reg query "%RegKey%" %nul% && (
|
|
call :_color %Red% "[Failed]"
|
|
echo Restart the system, that will delete this registry key automatically.
|
|
) || (
|
|
call :_color %Green% "[Successful]"
|
|
)
|
|
|
|
:: Clear HWID token related registry to fix activation incase if there is any corruption
|
|
|
|
echo:
|
|
echo Deleting a IdentityCRL Registry Key...
|
|
echo [%_ident%]
|
|
reg delete "%_ident%" /f %nul%
|
|
reg query "%_ident%" %nul% && (
|
|
call :_color %Red% "[Failed]"
|
|
) || (
|
|
call :_color %Green% "[Successful]"
|
|
)
|
|
|
|
echo:
|
|
echo Restarting [ClipSVC wlidsvc LicenseManager sppsvc] services...
|
|
for %%# in (ClipSVC wlidsvc LicenseManager sppsvc) do (net stop %%# /y %nul% & net start %%# /y %nul%)
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:fixspoofer
|
|
|
|
cls
|
|
mode con cols=115 lines=32
|
|
%nul% %psc% "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=200;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
title Fix: Issues Caused By Gaming Spoofers
|
|
|
|
%psc% $ExecutionContext.SessionState.LanguageMode 2>nul | find /i "Full" 1>nul || (
|
|
%eline%
|
|
echo Powershell is not responding properly. Aborting."
|
|
goto :at_back
|
|
)
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo Notes:
|
|
echo:
|
|
echo - Gaming unban/spoofers/cleaners often cause Windows activation issues.
|
|
echo:
|
|
call :_color2 %_White% " - " %Red% "Apply this fix ONLY if you have used these things."
|
|
echo:
|
|
echo - This option will fix files and registry permissions and rebuild licensing tokens.
|
|
echo:
|
|
echo - System restart is recommended after applying it.
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
cls
|
|
echo:
|
|
echo Fixing registry and files permissions...
|
|
call :fixpermissions %nul%
|
|
goto :cleanspptoken
|
|
|
|
:fixpermissions
|
|
|
|
:: Thanks to skidaim for the fix
|
|
|
|
takeown /F %windir%\System32\sppsvc.exe
|
|
icacls %windir%\System32 /grant administrators:F /T
|
|
icacls %windir%\System32\spp /grant administrators:F /T
|
|
|
|
:: I know it's bad but people have messed up system32 permissions, that's why I don't recommend to run this unless users have messed up systems
|
|
|
|
%psc% $acl = Get-Acl 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform'; $rule = New-Object System.Security.AccessControl.RegistryAccessRule ('NT Service\sppsvc','FullControl','ContainerInherit, ObjectInherit','None','Allow'); $acl.SetAccessRule($rule); Set-Acl -Path 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform' -AclObject $acl
|
|
%psc% $acl = Get-Acl 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SPP'; $rule = New-Object System.Security.AccessControl.RegistryAccessRule ('NT Service\sppsvc','FullControl','ContainerInherit, ObjectInherit','None','Allow'); $acl.SetAccessRule($rule); Set-Acl -Path 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SPP' -AclObject $acl
|
|
%psc% $acl = Get-Acl 'HKLM:\SYSTEM\CurrentControlSet\Services\SPPSVC'; $rule = New-Object System.Security.AccessControl.RegistryAccessRule ('NT Service\sppsvc','FullControl','ContainerInherit, ObjectInherit','None','Allow'); $acl.SetAccessRule($rule); Set-Acl -Path 'HKLM:\SYSTEM\CurrentControlSet\Services\SPPSVC' -AclObject $acl
|
|
%psc% $acl = Get-Acl 'HKLM:\SYSTEM\WPA'; $rule = New-Object System.Security.AccessControl.RegistryAccessRule ('NT Service\sppsvc','FullControl','ContainerInherit, ObjectInherit','None','Allow'); $acl.SetAccessRule($rule); Set-Acl -Path 'HKLM:\SYSTEM\WPA' -AclObject $acl
|
|
%psc% $acl = Get-Acl '%windir%\System32'; $rule = New-Object System.Security.AccessControl.FileSystemAccessRule ('NT Service\sppsvc','FullControl','ContainerInherit, ObjectInherit','None','Allow'); $acl.SetAccessRule($rule); Set-Acl -Path '%windir%\System32' -AclObject $acl
|
|
%psc% $acl = Get-Acl '%windir%\System32\spp'; $rule = New-Object System.Security.AccessControl.FileSystemAccessRule ('NT Service\sppsvc','FullControl','ContainerInherit, ObjectInherit','None','Allow'); $acl.SetAccessRule($rule); Set-Acl -Path '%windir%\System32\spp' -AclObject $acl
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:fixwindows7
|
|
|
|
cls
|
|
mode 98, 30
|
|
title Fix: Issues Caused By KB971033 In Windows 7
|
|
|
|
if %winbuild% GEQ 9200 (
|
|
%eline%
|
|
echo Unsupported OS version Detected.
|
|
echo This option is supported only for Windows 7 and it's Server equivalent.
|
|
goto :at_back
|
|
)
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
echo Notes:
|
|
echo:
|
|
echo - This option fixes issues caused by Update KB971033 in Windows 7.
|
|
echo https://support.microsoft.com/en-us/help/4487266
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:01 /N /M "> [1] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
cls
|
|
echo:
|
|
|
|
echo Checking Update KB971033...
|
|
dism /online /get-packages | find /i "Microsoft-Windows-Security-WindowsActivationTechnologies-package~31bf3856ad364e35~amd64~~7.1.7600.16395" 1>nul && (
|
|
echo [Found]
|
|
echo Uninstalling it...
|
|
) || (
|
|
echo [Not Found]
|
|
)
|
|
|
|
wusa /uninstall /quiet /norestart /kb:971033
|
|
|
|
echo:
|
|
echo Applying Fixes...
|
|
echo:
|
|
|
|
net stop sppuinotify /y
|
|
sc config sppuinotify start= disabled
|
|
net stop sppsvc /y
|
|
del %windir%\system32\7B296FB0-376B-497e-B012-9C450E1B7327-5P-0.C7483456-A289-439d-8115-601632D005A0 /ah
|
|
del %windir%\system32\7B296FB0-376B-497e-B012-9C450E1B7327-5P-1.C7483456-A289-439d-8115-601632D005A0 /ah
|
|
del %windir%\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform\tokens.dat
|
|
del %windir%\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform\cache\cache.dat
|
|
cscript //nologo %windir%\system32\slmgr.vbs /rilc %nul%
|
|
sc config sppuinotify start= demand
|
|
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:rewmi
|
|
|
|
cls
|
|
mode 98, 30
|
|
title Rebuild WMI Repository
|
|
|
|
:: https://techcommunity.microsoft.com/t5/ask-the-performance-team/wmi-repository-corruption-or-not/ba-p/375484
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (
|
|
%eline%
|
|
echo WMI rebuild is not recommended on Windows Server. Aborting...
|
|
goto :at_back
|
|
)
|
|
|
|
echo:
|
|
echo Initializing...
|
|
|
|
set _wmic=0
|
|
for %%# in (wmic.exe) do @if not "%%~$PATH:#"=="" set _wmic=1
|
|
|
|
set error=
|
|
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 error=1
|
|
winmgmt /verifyrepository %nul%
|
|
if %errorlevel% NEQ 0 set error=1
|
|
|
|
cls
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
if defined error (
|
|
echo WMI Status - [Not Responding] %_wmic%
|
|
) else (
|
|
call :_color %_Green% " WMI Status - [Working]"
|
|
)
|
|
echo:
|
|
echo Notes:
|
|
echo:
|
|
call :_color2 %_White% " - " %Magenta% "WMI rebuild can cause some 3rd party apps to not work until reinstall."
|
|
echo:
|
|
call :_color2 %_White% " - " %Red% "Apply this fix ONLY if WMI is not working."
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
choice /C:09 /N /M "> [9] Continue [0] Go back : "
|
|
if %errorlevel%==1 goto at_menu
|
|
|
|
:: Below fixes are taken from https://kb.acronis.com/content/62731
|
|
|
|
cls
|
|
echo:
|
|
|
|
sc query Winmgmt %nul% || (
|
|
%eline%
|
|
echo Winmgmt service is not installed. Aborting...
|
|
goto :at_back
|
|
)
|
|
|
|
echo Disabling Winmgmt service...
|
|
sc config Winmgmt start= disabled %nul%
|
|
if %errorlevel% EQU 0 (
|
|
call :_color %Green% "[Successful]"
|
|
) else (
|
|
call :_color %Red% "[Failed] Aborting..."
|
|
goto :wmifixend
|
|
)
|
|
|
|
echo:
|
|
echo Stopping Winmgmt service...
|
|
call :_stopservice Winmgmt
|
|
call :_stopservice Winmgmt
|
|
sc query Winmgmt | find /i "1 STOPPED" %nul% && (
|
|
call :_color %Green% "[Successful]"
|
|
) || (
|
|
call :_color %Red% "[Failed] Aborting..."
|
|
goto :wmifixend
|
|
)
|
|
|
|
echo:
|
|
echo Deleting WMI repository...
|
|
if exist "%windir%\System32\wbem\repository\" rmdir /s /q "%windir%\System32\wbem\repository\" %nul%
|
|
if exist "%windir%\System32\wbem\repository\" (
|
|
call :_color %Red% "[Failed]"
|
|
) else (
|
|
call :_color %Green% "[Successful]"
|
|
)
|
|
|
|
echo:
|
|
echo Enabling Winmgmt service...
|
|
sc config Winmgmt start= auto %nul%
|
|
if %errorlevel% EQU 0 (
|
|
call :_color %Green% "[Successful]"
|
|
) else (
|
|
call :_color %Red% "[Failed]"
|
|
)
|
|
|
|
echo:
|
|
echo Checking WMI...
|
|
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 (
|
|
call :_color %Red% "[Not Responding]"
|
|
) else (
|
|
call :_color %Green% "[Working]"
|
|
)
|
|
|
|
goto :at_back
|
|
|
|
:wmifixend
|
|
|
|
echo:
|
|
echo Enabling Winmgmt service...
|
|
sc config Winmgmt start= auto %nul%
|
|
if %errorlevel% EQU 0 (
|
|
call :_color %Green% "[Successful]"
|
|
) else (
|
|
call :_color %Red% "[Failed]"
|
|
)
|
|
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:exportevtlogs
|
|
|
|
cls
|
|
mode con cols=125 lines=32
|
|
%nul% %psc% "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=500;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
title Export Event Viewer Logs
|
|
|
|
set tdir=%SystemRoot%\Temp\_EventLogs
|
|
if exist %tdir%\. rd /s /q %tdir%\ %nul%
|
|
if exist %tdir%\ (
|
|
%eline%
|
|
echo Failed to delete below folder. Aborting...
|
|
echo %tdir%\
|
|
goto :at_back
|
|
)
|
|
|
|
md %tdir%\
|
|
|
|
echo:
|
|
echo Creating archive file of Event logs...
|
|
|
|
set _time=
|
|
for /f %%a in ('%psc% "Get-Date -format HH_mm_ss"') do set _time=%%a
|
|
%nul% robocopy %SystemRoot%\System32\winevt\Logs\ %tdir%\
|
|
|
|
:: https://stackoverflow.com/a/46268232
|
|
|
|
set "ddf="%SystemRoot%\Temp\ddf""
|
|
%nul% del /q /f %ddf%
|
|
echo/.New Cabinet>%ddf%
|
|
echo/.set Cabinet=ON>>%ddf%
|
|
echo/.set CabinetFileCountThreshold=0;>>%ddf%
|
|
echo/.set Compress=ON>>%ddf%
|
|
echo/.set CompressionType=LZX>>%ddf%
|
|
echo/.set CompressionLevel=7;>>%ddf%
|
|
echo/.set CompressionMemory=21;>>%ddf%
|
|
echo/.set FolderFileCountThreshold=0;>>%ddf%
|
|
echo/.set FolderSizeThreshold=0;>>%ddf%
|
|
echo/.set GenerateInf=OFF>>%ddf%
|
|
echo/.set InfFileName=nul>>%ddf%
|
|
echo/.set MaxCabinetSize=0;>>%ddf%
|
|
echo/.set MaxDiskFileCount=0;>>%ddf%
|
|
echo/.set MaxDiskSize=0;>>%ddf%
|
|
echo/.set MaxErrors=1;>>%ddf%
|
|
echo/.set RptFileName=nul>>%ddf%
|
|
echo/.set UniqueFiles=ON>>%ddf%
|
|
pushd "%tdir%\"
|
|
for /f "tokens=* delims=" %%D in ('dir /a:-D/b/s "%tdir%\"') do (
|
|
echo/"%%~fD" /inf=no;>>%ddf%
|
|
)
|
|
makecab /F %ddf% /D DiskDirectory1="" /D CabinetNameTemplate=%tdir%\Logs.cab
|
|
del /q /f %ddf%
|
|
popd
|
|
|
|
if not exist "!desktop!\AT_Logs\" md "!desktop!\AT_Logs\" %nul%
|
|
copy /y /b "%tdir%\Logs.cab" "!desktop!\AT_Logs\EventLogs_%_time%.cab" %nul%
|
|
if exist %tdir%\. rd /s /q %tdir%\ %nul%
|
|
|
|
echo:
|
|
if exist "!desktop!\AT_Logs\EventLogs_%_time%.cab" (
|
|
call :_color %Green% "[Successful]"
|
|
echo EventLogs_%_time%.cab created inside AT_Logs folder on the dekstop.
|
|
) else (
|
|
call :_color %Red% "[Failed]"
|
|
)
|
|
|
|
goto :at_back
|
|
|
|
::========================================================================================================================================
|
|
|
|
:at_back
|
|
|
|
echo:
|
|
echo %line%
|
|
echo:
|
|
call :_color %_Yellow% "Press any key to go back..."
|
|
pause >nul
|
|
goto :at_menu
|
|
|
|
::========================================================================================================================================
|
|
|
|
:at_done
|
|
|
|
echo:
|
|
echo Press any key to %_exitmsg%...
|
|
pause >nul
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:_stopservice
|
|
|
|
for %%# in (%1) do (
|
|
sc query %%# | find /i "STOPPED" %nul% || net stop %%# /y %nul%
|
|
sc query %%# | find /i "STOPPED" %nul% || sc stop %%# %nul%
|
|
)
|
|
exit /b
|
|
|
|
:_startservice
|
|
|
|
for %%# in (%1) do (
|
|
sc query %%# | find /i "RUNNING" %nul% || net start %%# /y %nul%
|
|
sc query %%# | find /i "RUNNING" %nul% || sc start %%# %nul%
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:scandat
|
|
|
|
set token=
|
|
for %%# in (
|
|
%Systemdrive%\Windows\System32\spp\store_test\2.0\
|
|
%Systemdrive%\Windows\System32\spp\store\
|
|
%Systemdrive%\Windows\System32\spp\store\2.0\
|
|
%Systemdrive%\Windows\ServiceProfiles\NetworkService\AppData\Roaming\Microsoft\SoftwareProtectionPlatform\
|
|
) do (
|
|
|
|
if %1==check (
|
|
if exist %%#tokens.dat set token=%%#tokens.dat
|
|
)
|
|
|
|
if %1==delete (
|
|
if exist %%# (
|
|
%nul% dir /a-d /s "%%#*.dat" && (
|
|
attrib -r -s -h "%%#*.dat" /S
|
|
del /S /F /Q "%%#*.dat"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
:scandatospp
|
|
|
|
set token=
|
|
for %%# in (
|
|
%ProgramData%\Microsoft\OfficeSoftwareProtectionPlatform\
|
|
) do (
|
|
|
|
if %1==check (
|
|
if exist %%#tokens.dat set token=%%#tokens.dat
|
|
)
|
|
|
|
if %1==delete (
|
|
if exist %%# (
|
|
%nul% dir /a-d /s "%%#*.dat" && (
|
|
attrib -r -s -h "%%#*.dat" /S
|
|
del /S /F /Q "%%#*.dat"
|
|
)
|
|
)
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:regownstart
|
|
|
|
setlocal
|
|
set "TMP=%SystemRoot%\Temp"
|
|
set "TEMP=%SystemRoot%\Temp"
|
|
%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':regown\:.*';iex ($f[1]);"
|
|
endlocal
|
|
exit /b
|
|
|
|
:: Below code takes ownership of a volatile registry key and deletes it
|
|
:: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ClipSVC\Volatile\PersistedSystemState
|
|
|
|
:: Thanks to Remko Weijnen for the code and thanks to abbodi1406 for the help
|
|
:: remkoweijnen.nl/blog/2012/01/16/take-ownership-of-a-registry-key-in-powershell/
|
|
|
|
:regown:
|
|
$definition = @"
|
|
using System;
|
|
using System.Runtime.InteropServices;
|
|
namespace Win32Api
|
|
{
|
|
public class NtDll
|
|
{
|
|
[DllImport("ntdll.dll", EntryPoint="RtlAdjustPrivilege")]
|
|
public static extern int RtlAdjustPrivilege(int Privilege, bool Enable, bool CurrentThread, ref bool Enabled);
|
|
}
|
|
}
|
|
"@
|
|
|
|
Add-Type -TypeDefinition $definition -PassThru | Out-Null
|
|
[Win32Api.NtDll]::RtlAdjustPrivilege(9, $true, $false, [ref]$false) | Out-Null
|
|
|
|
$SID = New-Object System.Security.Principal.SecurityIdentifier('S-1-5-32-544')
|
|
$IDN = ($SID.Translate([System.Security.Principal.NTAccount])).Value
|
|
$Admin = New-Object System.Security.Principal.NTAccount($IDN)
|
|
|
|
$path = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\ClipSVC\Volatile\PersistedSystemState'
|
|
$key = [Microsoft.Win32.RegistryKey]::OpenBaseKey('LocalMachine', 'Registry64').OpenSubKey($path, 'ReadWriteSubTree', 'takeownership')
|
|
|
|
$acl = $key.GetAccessControl()
|
|
$acl.SetOwner($Admin)
|
|
$key.SetAccessControl($acl)
|
|
|
|
$rule = New-Object System.Security.AccessControl.RegistryAccessRule($Admin,"FullControl","Allow")
|
|
$acl.SetAccessRule($rule)
|
|
$key.SetAccessControl($acl)
|
|
:regown:
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:insert_hwidkey
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
cls
|
|
color 07
|
|
title Install Windows HWID Key
|
|
|
|
set _args=
|
|
set _elev=
|
|
set _unattended=0
|
|
|
|
set _args=%*
|
|
if defined _args set _args=%_args:"=%
|
|
if defined _args (
|
|
for %%A in (%_args%) do (
|
|
if /i "%%A"=="-el" set _elev=1
|
|
if /i "%%A"=="/Insert-HWID-Key" set _unattended=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)
|
|
|
|
if %_NCS% EQU 1 (
|
|
for /F %%a in ('echo prompt $E ^| cmd') do set "esc=%%a"
|
|
set "Red="41;97m""
|
|
set "Green="42;97m""
|
|
set "_Green="40;92m""
|
|
set "_Yellow="40;93m""
|
|
) else (
|
|
set "Red="Red" "white""
|
|
set "Green="DarkGreen" "white""
|
|
set "_Green="Black" "Green""
|
|
set "_Yellow="Black" "Yellow""
|
|
)
|
|
|
|
set "nceline=echo: &echo ==== ERROR ==== &echo:"
|
|
set "eline=echo: &call :dk_color %Red% "==== ERROR ====" &echo:"
|
|
set "line=echo ___________________________________________________________________________________________"
|
|
if %~z0 GEQ 200000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit")
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %winbuild% LSS 10240 (
|
|
%eline%
|
|
echo Unsupported OS version detected.
|
|
echo Project is supported for Windows 10/11.
|
|
goto ins_done
|
|
)
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (
|
|
%eline%
|
|
echo HWID Activation is not supported for Windows Server.
|
|
goto ins_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
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
mode 98, 30
|
|
echo:
|
|
echo Initializing...
|
|
call :dk_product
|
|
call :dk_ckeckwmic
|
|
call :dk_actids
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check SKU value / Check in multiple places to find Edition change corruption
|
|
|
|
set osSKU=
|
|
set regSKU=
|
|
set wmiSKU=
|
|
|
|
for /f "tokens=3 delims=." %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions" /v OSProductPfn 2^>nul') do set "regSKU=%%a"
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%a in ('"wmic Path Win32_OperatingSystem Get OperatingSystemSKU /format:LIST" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
if %_wmic% EQU 0 for /f "tokens=1" %%a in ('%psc% "([WMI]'Win32_OperatingSystem=@').OperatingSystemSKU" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
|
|
set osSKU=%wmiSKU%
|
|
if not defined osSKU set osSKU=%regSKU%
|
|
|
|
if not defined osSKU (
|
|
%eline%
|
|
echo SKU value was not detected properly. Aborting...
|
|
goto ins_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Detect key
|
|
|
|
set key=
|
|
set _channel=
|
|
set actidnotfound=
|
|
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v BuildBranch 2^>nul') do set "branch=%%b"
|
|
|
|
if defined applist call :hwiddata key attempt1
|
|
if not defined key call :hwiddata key attempt2
|
|
|
|
if not defined key (
|
|
%eline%
|
|
echo [%winos% ^| %winbuild% ^| SKU:%osSKU%]
|
|
echo Unable to find this product in the HWID supported product list.
|
|
echo Make sure you are using updated version of the script.
|
|
echo https://massgrave.dev
|
|
goto ins_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %_unattended%==1 goto insertkey
|
|
|
|
cls
|
|
%line%
|
|
echo:
|
|
echo Install [%winos% ^| SKU:%osSKU% ^| %winbuild%] Key
|
|
echo [%key%]
|
|
%line%
|
|
echo:
|
|
if not "%regSKU%"=="%wmiSKU%" (
|
|
echo Note: Difference Found In SKU Value- WMI:%wmiSKU% Reg:%regSKU%
|
|
echo Restart the system to resolve it
|
|
echo:
|
|
)
|
|
call :dk_color %_Green% "Press [1] to Continue or [0] to %_exitmsg%"
|
|
choice /C:01 /N
|
|
if %errorlevel%==1 exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:insertkey
|
|
|
|
cls
|
|
%line%
|
|
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingService where __CLASS='SoftwareLicensingService' call InstallProductKey ProductKey="%key%" %nul%
|
|
if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT Version FROM SoftwareLicensingService').Get()).InstallProductKey('%key%')" %nul%
|
|
if not %errorlevel%==0 cscript //nologo %windir%\system32\slmgr.vbs /ipk %key% %nul%
|
|
|
|
set error_code=%errorlevel%
|
|
cmd /c exit /b %error_code%
|
|
if %error_code% NEQ 0 set "error_code=[0x%=ExitCode%]"
|
|
|
|
echo:
|
|
echo [%winos% ^| SKU:%osSKU% ^| %winbuild%]
|
|
|
|
|
|
if %error_code% EQU 0 (
|
|
call :dk_refresh
|
|
call :dk_channel
|
|
call echo Installing %%_channel%% [%key%]
|
|
echo:
|
|
call :dk_color %Green% "[Successful]"
|
|
) else (
|
|
echo Installing [%key%]
|
|
echo:
|
|
call :dk_color %Red% "[Unsuccessful] %error_code%"
|
|
if defined actidnotfound call :dk_color %Red% "Activation ID not found for this key."
|
|
)
|
|
%line%
|
|
|
|
::========================================================================================================================================
|
|
|
|
:ins_done
|
|
|
|
echo:
|
|
if %_unattended%==1 timeout /t 2 & exit /b
|
|
call :dk_color %_Yellow% "Press any key to %_exitmsg%..."
|
|
pause >nul
|
|
exit /b
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:change_edition
|
|
@setlocal DisableDelayedExpansion
|
|
@echo off
|
|
|
|
|
|
:: To stage current edition while changing edition with CBS Upgrade Method, change 0 to 1 in below line
|
|
set _stg=0
|
|
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
color 07
|
|
title Change Windows Edition
|
|
|
|
set _elev=
|
|
if /i "%~1"=="-el" set _elev=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)
|
|
|
|
if %_NCS% EQU 1 (
|
|
for /F %%a in ('echo prompt $E ^| cmd') do set "esc=%%a"
|
|
set "Red="41;97m""
|
|
set "Gray="100;97m""
|
|
set "Green="42;97m""
|
|
set "Magenta="45;97m""
|
|
set "_White="40;37m""
|
|
set "_Green="40;92m""
|
|
set "_Yellow="40;93m""
|
|
) else (
|
|
set "Red="Red" "white""
|
|
set "Gray="Darkgray" "white""
|
|
set "Green="DarkGreen" "white""
|
|
set "Magenta="Darkmagenta" "white""
|
|
set "_White="Black" "Gray""
|
|
set "_Green="Black" "Green""
|
|
set "_Yellow="Black" "Yellow""
|
|
)
|
|
|
|
set "nceline=echo: &echo ==== ERROR ==== &echo:"
|
|
set "eline=echo: &call :dk_color %Red% "==== ERROR ====" &echo:"
|
|
set "line=echo ___________________________________________________________________________________________"
|
|
if %~z0 GEQ 200000 (set "_exitmsg=Go back") else (set "_exitmsg=Exit")
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %winbuild% LSS 9200 if not exist "%SystemRoot%\servicing\Packages\Microsoft-Windows-PowerShell-WTR-Package~*.mum" (
|
|
%nceline%
|
|
echo Updated Powershell not found.
|
|
echo:
|
|
echo Download Windows Management Framework 5.1 from below link and install
|
|
echo https://aka.ms/wmf5download
|
|
goto ced_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
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
mode 98, 30
|
|
|
|
echo:
|
|
echo Initializing...
|
|
echo:
|
|
call :dk_product
|
|
call :dk_ckeckwmic
|
|
|
|
:: Show info for potential script stuck scenario
|
|
|
|
sc start sppsvc %nul%
|
|
if %errorlevel% NEQ 1056 if %errorlevel% NEQ 0 (
|
|
echo:
|
|
echo Error code: %errorlevel%
|
|
call :dk_color %Red% "Failed to start [sppsvc] service, rest of the process may take a long time..."
|
|
echo:
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Check Activation IDs
|
|
|
|
call :dk_actids
|
|
|
|
if not defined applist (
|
|
%eline%
|
|
echo Activation IDs not found. Aborting...
|
|
goto ced_done
|
|
)
|
|
|
|
:: Check Windows Edition
|
|
|
|
set osedition=
|
|
for /f "tokens=3 delims=: " %%a in ('DISM /English /Online /Get-CurrentEdition 2^>nul ^| find /i "Current Edition :"') do set "osedition=%%a"
|
|
|
|
if "%osedition%"=="" (
|
|
%eline%
|
|
DISM /English /Online /Get-CurrentEdition %nul%
|
|
cmd /c exit /b !errorlevel!
|
|
echo DISM command failed [Error Code - 0x!=ExitCode!]
|
|
echo OS Edition was not detected properly. Aborting...
|
|
goto ced_done
|
|
)
|
|
|
|
:: Check SKU value
|
|
|
|
set osSKU=
|
|
set regSKU=
|
|
set wmiSKU=
|
|
|
|
for /f "tokens=3 delims=." %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions" /v OSProductPfn 2^>nul') do set "regSKU=%%a"
|
|
if %_wmic% EQU 1 for /f "tokens=2 delims==" %%a in ('"wmic Path Win32_OperatingSystem Get OperatingSystemSKU /format:LIST" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
if %_wmic% EQU 0 for /f "tokens=1" %%a in ('%psc% "([WMI]'Win32_OperatingSystem=@').OperatingSystemSKU" 2^>nul') do if not errorlevel 1 set "wmiSKU=%%a"
|
|
|
|
set osSKU=%wmiSKU%
|
|
if not defined osSKU set osSKU=%regSKU%
|
|
|
|
if not defined osSKU (
|
|
%eline%
|
|
echo SKU value was not detected properly. Aborting...
|
|
goto ced_done
|
|
)
|
|
|
|
set branch=
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v BuildBranch 2^>nul') do set "branch=%%b"
|
|
|
|
:: Check PowerShell
|
|
|
|
%psc% $ExecutionContext.SessionState.LanguageMode 2>nul | find /i "Full" 1>nul || (
|
|
%eline%
|
|
echo PowerShell is not responding properly. Aborting...
|
|
goto ced_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Get Target editions list
|
|
|
|
set _target=
|
|
set _dtarget=
|
|
set _ptarget=
|
|
set _ntarget=
|
|
|
|
if %winbuild% GEQ 10240 for /f "tokens=4" %%a in ('dism /online /english /Get-TargetEditions ^| findstr /i /c:"Target Edition : "') do (if defined _dtarget (set "_dtarget=!_dtarget! %%a") else (set "_dtarget=%%a"))
|
|
for /f "tokens=4" %%a in ('%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':cbsxml\:.*';& ([ScriptBlock]::Create($f[1])) -GetTargetEditions;" ^| findstr /i /c:"Target Edition : "') do (if defined _ptarget (set "_ptarget=!_ptarget! %%a") else (set "_ptarget=%%a"))
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: Block the change to/from CountrySpecific and CloudEdition editions
|
|
|
|
for %%# in (99 139 202 203) do if %osSKU%==%%# (
|
|
%eline%
|
|
echo [%winos% ^| SKU:%osSKU% ^| %winbuild%]
|
|
echo It's not recommended to change this installed edition to any other.
|
|
echo Aborting...
|
|
goto ced_done
|
|
)
|
|
|
|
for %%# in ( %_dtarget% %_ptarget% ) do (
|
|
echo "!_target!" | find /i " %%# " 1>nul || set "_target=!_target! %%# "
|
|
)
|
|
|
|
if defined _target (
|
|
for %%# in (%_target%) do (
|
|
echo %%# | findstr /i "CountrySpecific CloudEdition" %nul% || (set "_ntarget=!_ntarget! %%#")
|
|
)
|
|
)
|
|
|
|
if not defined _ntarget (
|
|
%line%
|
|
echo:
|
|
call :dk_color %Gray% "Target Edition not found."
|
|
echo Current Edition [%osedition% ^| %winbuild%] can not be changed to any other Edition.
|
|
%line%
|
|
goto ced_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
:cedmenu2
|
|
|
|
cls
|
|
mode 98, 30
|
|
set inpt=
|
|
set note=
|
|
set counter=0
|
|
set verified=0
|
|
set targetedition=
|
|
|
|
%line%
|
|
echo:
|
|
call :dk_color %Gray% "You can change the Edition [%osedition%] [%winbuild%] to one of the following."
|
|
%line%
|
|
echo:
|
|
|
|
for %%A in (%_ntarget%) do (
|
|
set /a counter+=1
|
|
if %winbuild% GEQ 10240 (
|
|
echo "%_ptarget%" | find /i "%%A" 1>nul && (
|
|
set note=1
|
|
call :dk_color2 %_White% "[!counter!] " %Magenta% "%%A"
|
|
) || (
|
|
echo [!counter!] %%A
|
|
)
|
|
) else (
|
|
echo [!counter!] %%A
|
|
)
|
|
set targetedition!counter!=%%A
|
|
)
|
|
|
|
%line%
|
|
echo:
|
|
echo [0] %_exitmsg%
|
|
echo:
|
|
if defined note (
|
|
echo Note: CBS Upgrade Method is available for Purple colored editions.
|
|
echo:
|
|
)
|
|
call :dk_color %_Green% "Enter option number in keyboard, and press "Enter":"
|
|
set /p inpt=
|
|
if "%inpt%"=="" goto cedmenu2
|
|
if "%inpt%"=="0" exit /b
|
|
for /l %%i in (1,1,%counter%) do (if "%inpt%"=="%%i" set verified=1)
|
|
set targetedition=!targetedition%inpt%!
|
|
if %verified%==0 goto cedmenu2
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
if %winbuild% GEQ 10240 (
|
|
echo "%_ptarget%" | find /i "%targetedition%" 1>nul && (
|
|
echo "%_dtarget%" | find /i "%targetedition%" 1>nul && (
|
|
echo:
|
|
%line%
|
|
echo:
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (
|
|
echo [1] DISM Method
|
|
) else (
|
|
echo [1] Changepk Method
|
|
)
|
|
echo:
|
|
echo [2] CBS Upgrade Method [Alternative]
|
|
echo:
|
|
echo [0] Go back
|
|
%line%
|
|
echo:
|
|
echo Enter a menu option in the Keyboard:
|
|
choice /C:120 /N
|
|
set _el=!errorlevel!
|
|
if !_el!==3 goto :cedmenu2
|
|
if !_el!==2 goto :cbsmethod
|
|
if !_el!==1 REM
|
|
)
|
|
)
|
|
) else (
|
|
goto :cbsmethod
|
|
)
|
|
|
|
echo "%_ptarget%" | find /i "%targetedition%" 1>nul && (
|
|
echo "%_dtarget%" | find /i "%targetedition%" 1>nul || (
|
|
goto :cbsmethod
|
|
)
|
|
)
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (
|
|
goto :ced_change_server
|
|
)
|
|
|
|
cls
|
|
set key=
|
|
set _chan=
|
|
set _changepk=0
|
|
set "keyflow=Retail Volume:MAK Volume:GVLK OEM:NONSLP OEM:DM"
|
|
|
|
:: Check if changepk.exe or slmgr.vbs is required for edition upgrade
|
|
|
|
if not exist "%SystemRoot%\System32\spp\tokens\skus\%targetedition%\" (
|
|
set _changepk=1
|
|
)
|
|
|
|
if /i "%osedition:~0,4%"=="Core" (
|
|
if /i not "%targetedition:~0,4%"=="Core" (
|
|
set _changepk=1
|
|
)
|
|
)
|
|
|
|
if %winbuild% LEQ 19045 call :changeeditiondata
|
|
|
|
if not defined key call :ced_targetSKU %targetedition%
|
|
if not defined key if defined targetSKU call :ced_windowskey
|
|
if defined key if defined pkeychannel set _chan=%pkeychannel%
|
|
|
|
if not defined key (
|
|
%eline%
|
|
echo [%targetedition% ^| %winbuild%]
|
|
echo Unable to get product key from pkeyhelper.dll
|
|
echo Make sure you are using updated version of the script.
|
|
echo https://massgrave.dev
|
|
goto ced_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
%line%
|
|
|
|
:: Changing from Core to Non-Core & Changing editions in Windows build older than 17134 requires "changepk /productkey" method and restart
|
|
:: In other cases, editions can be changed instantly with "slmgr /ipk"
|
|
|
|
cls
|
|
if %_changepk%==1 (
|
|
echo "%_chan%" | find /i "OEM" >NUL && (
|
|
%eline%
|
|
echo [%osedition%] can not be changed to [%targetedition%] Edition due to lack of non OEM keys.
|
|
echo Non-OEM keys are required to change from Core to Non-Core Editions.
|
|
goto ced_done
|
|
)
|
|
)
|
|
|
|
:ced_loop
|
|
|
|
cls
|
|
if %_changepk%==1 (
|
|
for %%a in (dns.msftncsi.com,www.microsoft.com,one.one.one.one,resolver1.opendns.com) do (
|
|
for /f "delims=[] tokens=2" %%# in ('ping -n 1 %%a') do (
|
|
if not [%%#]==[] (
|
|
%eline%
|
|
echo Internet needs to be disconnected to change edition [%osedition%] to [%targetedition%]
|
|
echo Disconnect the Internet and then press any key...
|
|
pause >nul
|
|
goto ced_loop
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
echo:
|
|
echo Changing the Current Edition [%osedition%] to [%targetedition%]
|
|
echo:
|
|
|
|
if %_changepk%==1 (
|
|
call :dk_color %_Green% "You can safely ignore if error appears in the upgrade Window."
|
|
call :dk_color %_Yellow% "But in that case you must manually reboot the system."
|
|
echo:
|
|
%psc% "$BLinfo = Get-BitLockerVolume -MountPoint "C:";$blinfo.ProtectionStatus" | find /i "On" 1>nul && (
|
|
call :dk_color %Red% "Bitlocker / Device Encryption is On in the system."
|
|
echo:
|
|
echo Either Use alternative CBS upgrade method for edition change
|
|
echo Or Ensure that you have it's recovery key, you may need it
|
|
echo Or Turn off Bitlocker / Device Encryption
|
|
echo:
|
|
)
|
|
call :dk_color %Magenta% "Important - Save your work before continue, system will auto reboot."
|
|
echo:
|
|
choice /C:21 /N /M "[1] Continue [2] %_exitmsg% : "
|
|
if !errorlevel!==1 exit /b
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
if %_changepk%==0 (
|
|
echo Installing %_chan% Key [%key%]
|
|
echo:
|
|
if %_wmic% EQU 1 wmic path SoftwareLicensingService where __CLASS='SoftwareLicensingService' call InstallProductKey ProductKey="%key%" %nul%
|
|
if %_wmic% EQU 0 %psc% "(([WMISEARCHER]'SELECT Version FROM SoftwareLicensingService').Get()).InstallProductKey('%key%')" %nul%
|
|
if not !errorlevel!==0 cscript //nologo %windir%\system32\slmgr.vbs /ipk %key% %nul%
|
|
|
|
set error_code=!errorlevel!
|
|
cmd /c exit /b !error_code!
|
|
if !error_code! NEQ 0 set "error_code=[0x!=ExitCode!]"
|
|
|
|
if !error_code! EQU 0 (
|
|
call :dk_refresh
|
|
call :dk_color %Green% "[Successful]"
|
|
echo:
|
|
call :dk_color %Gray% "Reboot is required to properly change the Edition."
|
|
) else (
|
|
call :dk_color %Red% "[Unsuccessful] [Error Code: 0x!=ExitCode!]"
|
|
)
|
|
)
|
|
|
|
if %_changepk%==1 (
|
|
echo:
|
|
echo Applying the command with %_chan% Key
|
|
echo start changepk.exe /ProductKey %key%
|
|
start changepk.exe /ProductKey %key%
|
|
)
|
|
%line%
|
|
|
|
goto ced_done
|
|
|
|
::========================================================================================================================================
|
|
|
|
:cbsmethod
|
|
|
|
cls
|
|
mode con cols=105 lines=32
|
|
%nul% %psc% "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=200;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
|
|
echo:
|
|
echo Changing the Current Edition [%osedition%] to [%targetedition%]
|
|
echo:
|
|
call :dk_color %Magenta% "Important - Save your work before continue, system will auto reboot."
|
|
if %winbuild% GEQ 17034 if %targetedition%==Professional echo - Enterprise Key will be installed instead of Pro, you can quickly change to Pro later.
|
|
echo:
|
|
choice /C:01 /N /M "[1] Continue [0] %_exitmsg% : "
|
|
if %errorlevel%==1 exit /b
|
|
|
|
echo:
|
|
echo Initializing...
|
|
echo:
|
|
|
|
if %_stg%==0 (set stage=) else (set stage=-StageCurrent)
|
|
%psc% "$f=[io.file]::ReadAllText('!_batp!') -split ':cbsxml\:.*';& ([ScriptBlock]::Create($f[1])) -SetEdition %targetedition% %stage%;"
|
|
|
|
echo:
|
|
%line%
|
|
goto ced_done
|
|
|
|
::========================================================================================================================================
|
|
|
|
:ced_change_server
|
|
|
|
cls
|
|
mode con cols=105 lines=32
|
|
%nul% %psc% "&{$W=$Host.UI.RawUI.WindowSize;$B=$Host.UI.RawUI.BufferSize;$W.Height=31;$B.Height=200;$Host.UI.RawUI.WindowSize=$W;$Host.UI.RawUI.BufferSize=$B;}"
|
|
|
|
set key=
|
|
set pkeychannel=
|
|
set "keyflow=Volume:GVLK Retail Volume:MAK OEM:NONSLP OEM:DM"
|
|
call :changeeditionserverdata
|
|
|
|
if not defined key call :ced_targetSKU %targetedition%
|
|
if not defined key if defined targetSKU call :ced_windowskey
|
|
if defined key if not defined pkeychannel call :dk_pkeychannel %key%
|
|
|
|
if not defined key (
|
|
%eline%
|
|
echo [%targetedition% ^| %winbuild%]
|
|
echo Unable to get product key from pkeyhelper.dll
|
|
echo Make sure you are using updated version of the script.
|
|
echo https://massgrave.dev
|
|
goto ced_done
|
|
)
|
|
|
|
::========================================================================================================================================
|
|
|
|
cls
|
|
echo:
|
|
echo Changing the Current Edition [%osedition%] to [%targetedition%]
|
|
echo:
|
|
echo Applying the command with %pkeychannel% Key
|
|
echo DISM /online /Set-Edition:%targetedition% /ProductKey:%key% /AcceptEula
|
|
DISM /online /Set-Edition:%targetedition% /ProductKey:%key% /AcceptEula
|
|
|
|
call :dk_color %Magenta% "Make sure to restart the system."
|
|
|
|
::========================================================================================================================================
|
|
|
|
:ced_done
|
|
|
|
echo:
|
|
call :dk_color %_Yellow% "Press any key to %_exitmsg%..."
|
|
pause >nul
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:ced_windowskey
|
|
|
|
for %%# in (pkeyhelper.dll) do @if "%%~$PATH:#"=="" exit /b
|
|
for %%# in (%keyflow%) do (
|
|
call :dk_pkey %targetSKU% '%%#'
|
|
if defined pkey call :dk_pkeychannel !pkey!
|
|
if /i [!pkeychannel!]==[%%#] (
|
|
set key=!pkey!
|
|
exit /b
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:ced_targetSKU
|
|
|
|
set k=%1
|
|
set targetSKU=
|
|
for %%# in (pkeyhelper.dll) do @if "%%~$PATH:#"=="" exit /b
|
|
set d1=[DllImport(\"pkeyhelper.dll\",CharSet=CharSet.Unicode)]public static extern int GetEditionIdFromName(string e, out int s);
|
|
set d2=$AP=Add-Type -Member '%d1%' -Name D1 -PassThru; $s=0; $null=$AP::GetEditionIdFromName('%k%', [ref]$s); $s
|
|
for /f %%a in ('%psc% "%d2%"') do if not errorlevel 1 (set targetSKU=%%a)
|
|
if "%targetSKU%"=="0" set targetSKU=
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: https://github.com/Gamers-Against-Weed/Set-WindowsCbsEdition
|
|
|
|
:cbsxml:[
|
|
param (
|
|
[Parameter()]
|
|
[String]$SetEdition,
|
|
|
|
[Parameter()]
|
|
[Switch]$GetTargetEditions,
|
|
|
|
[Parameter()]
|
|
[Switch]$StageCurrent
|
|
)
|
|
|
|
function Get-AssemblyIdentity {
|
|
param (
|
|
[String]$PackageName
|
|
)
|
|
|
|
$PackageName = [String]$PackageName
|
|
$packageData = ($PackageName -split '~')
|
|
|
|
if($packageData[3] -eq '') {
|
|
$packageData[3] = 'neutral'
|
|
}
|
|
|
|
return "<assemblyIdentity name=`"$($packageData[0])`" version=`"$($packageData[4])`" processorArchitecture=`"$($packageData[2])`" publicKeyToken=`"$($packageData[1])`" language=`"$($packageData[3])`" />"
|
|
}
|
|
|
|
function Get-SxsName {
|
|
param (
|
|
[String]$PackageName
|
|
)
|
|
|
|
$name = ($PackageName -replace '[^A-z0-9\-\._]', '')
|
|
|
|
if($name.Length -gt 40) {
|
|
$name = ($name[0..18] -join '') + '\.\.' + ($name[-19..-1] -join '')
|
|
}
|
|
|
|
return $name.ToLower()
|
|
}
|
|
|
|
function Find-EditionXmlInSxs {
|
|
param (
|
|
[String]$Edition
|
|
)
|
|
|
|
$candidates = @($Edition, 'Client', 'Server')
|
|
$winSxs = $Env:SystemRoot + '\WinSxS'
|
|
$allInSxs = Get-ChildItem -Path $winSxs | select Name
|
|
|
|
foreach($candidate in $candidates) {
|
|
$name = Get-SxsName -PackageName "Microsoft-Windows-Editions-$candidate"
|
|
$packages = $allInSxs | where name -Match ('^.*_'+$name+'_31bf3856ad364e35')
|
|
|
|
if($packages.Length -eq 0) {
|
|
continue
|
|
}
|
|
|
|
$package = $packages[-1].Name
|
|
$testPath = $winSxs + "\$package\" + $Edition + 'Edition.xml'
|
|
|
|
if(Test-Path -Path $testPath -PathType Leaf) {
|
|
return $testPath
|
|
}
|
|
}
|
|
|
|
return $null
|
|
}
|
|
|
|
function Find-EditionXml {
|
|
param (
|
|
[String]$Edition
|
|
)
|
|
|
|
$servicingEditions = $Env:SystemRoot + '\servicing\Editions'
|
|
$editionXml = $Edition + 'Edition.xml'
|
|
|
|
$editionXmlInServicing = $servicingEditions + '\' + $editionXml
|
|
|
|
if(Test-Path -Path $editionXmlInServicing -PathType Leaf) {
|
|
return $editionXmlInServicing
|
|
}
|
|
|
|
return Find-EditionXmlInSxs -Edition $Edition
|
|
}
|
|
|
|
function Write-UpgradeCandidates {
|
|
param (
|
|
[HashTable]$InstallCandidates
|
|
)
|
|
|
|
$editionCount = 0
|
|
Write-Host 'Editions that can be upgraded to:'
|
|
foreach($candidate in $InstallCandidates.Keys) {
|
|
Write-Host "Target Edition : $candidate"
|
|
$editionCount++
|
|
}
|
|
|
|
if($editionCount -eq 0) {
|
|
Write-Host '(no editions are available)'
|
|
}
|
|
}
|
|
|
|
function Write-UpgradeXml {
|
|
param (
|
|
[Array]$RemovalCandidates,
|
|
[Array]$InstallCandidates,
|
|
[Boolean]$Stage
|
|
)
|
|
|
|
$removeAction = 'remove'
|
|
if($Stage) {
|
|
$removeAction = 'stage'
|
|
}
|
|
|
|
Write-Output '<?xml version="1.0"?>'
|
|
Write-Output '<unattend xmlns="urn:schemas-microsoft-com:unattend">'
|
|
Write-Output '<servicing>'
|
|
|
|
foreach($package in $InstallCandidates) {
|
|
Write-Output '<package action="install">'
|
|
Write-Output (Get-AssemblyIdentity -PackageName $package)
|
|
Write-Output '</package>'
|
|
}
|
|
|
|
foreach($package in $RemovalCandidates) {
|
|
Write-Output "<package action=`"$removeAction`">"
|
|
Write-Output (Get-AssemblyIdentity -PackageName $package)
|
|
Write-Output '</package>'
|
|
}
|
|
|
|
Write-Output '</servicing>'
|
|
Write-Output '</unattend>'
|
|
}
|
|
|
|
function Write-Usage {
|
|
Get-Help $PSCommandPath -detailed
|
|
}
|
|
|
|
$version = '1.0'
|
|
$getTargetsParam = $GetTargetEditions.IsPresent
|
|
$stageCurrentParam = $StageCurrent.IsPresent
|
|
|
|
if($SetEdition -eq '' -and ($false -eq $getTargetsParam)) {
|
|
Write-Usage
|
|
Exit 1
|
|
}
|
|
|
|
$removalCandidates = @();
|
|
$installCandidates = @{};
|
|
|
|
$packages = Get-ChildItem -Path 'HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages' | select Name | where name -Match '^.*\\Microsoft-Windows-.*Edition~'
|
|
foreach($package in $packages) {
|
|
$state = (Get-ItemProperty -Path "Registry::$($package.Name)").CurrentState
|
|
$packageName = ($package.Name -split '\\')[-1]
|
|
$packageEdition = (($packageName -split 'Edition~')[0] -split 'Microsoft-Windows-')[-1]
|
|
|
|
if($state -eq 0x40) {
|
|
if($null -eq $installCandidates[$packageEdition]) {
|
|
$installCandidates[$packageEdition] = @()
|
|
}
|
|
|
|
if($false -eq ($packageName -in $installCandidates[$packageEdition])) {
|
|
$installCandidates[$packageEdition] = $installCandidates[$packageEdition] + @($packageName)
|
|
}
|
|
}
|
|
|
|
if((($state -eq 0x50) -or ($state -eq 0x70)) -and ($false -eq ($packageName -in $removalCandidates))) {
|
|
$removalCandidates = $removalCandidates + @($packageName)
|
|
}
|
|
}
|
|
|
|
if($getTargetsParam) {
|
|
Write-UpgradeCandidates -InstallCandidates $installCandidates
|
|
Exit
|
|
}
|
|
|
|
if($false -eq ($SetEdition -in $installCandidates.Keys)) {
|
|
Write-Error "The system cannot be upgraded to `"$SetEdition`""
|
|
Exit 1
|
|
}
|
|
|
|
$xmlPath = $Env:Temp + '\CbsUpgrade.xml'
|
|
|
|
Write-UpgradeXml -RemovalCandidates $removalCandidates `
|
|
-InstallCandidates $installCandidates[$SetEdition] `
|
|
-Stage $stageCurrentParam >$xmlPath
|
|
|
|
$editionXml = Find-EditionXml -Edition $SetEdition
|
|
if($null -eq $editionXml) {
|
|
Write-Warning 'Unable to find edition specific settings XML. Proceeding without it...'
|
|
}
|
|
|
|
Write-Host 'Starting the upgrade process. This may take a while...'
|
|
|
|
DISM.EXE /English /NoRestart /Online /Apply-Unattend:$xmlPath
|
|
$dismError = $LASTEXITCODE
|
|
|
|
Remove-Item -Path $xmlPath -Force
|
|
|
|
if(($dismError -ne 0) -and ($dismError -ne 3010)) {
|
|
Write-Error 'Failed to upgrade to the target edition'
|
|
Exit $dismError
|
|
}
|
|
|
|
if($null -ne $editionXml) {
|
|
$destination = $Env:SystemRoot + '\' + $SetEdition + '.xml'
|
|
Copy-Item -Path $editionXml -Destination $destination
|
|
|
|
DISM.EXE /English /NoRestart /Online /Apply-Unattend:$editionXml
|
|
$dismError = $LASTEXITCODE
|
|
|
|
if(($dismError -ne 0) -and ($dismError -ne 3010)) {
|
|
Write-Error 'Failed to apply edition specific settings'
|
|
Exit $dismError
|
|
}
|
|
}
|
|
|
|
Restart-Computer
|
|
:cbsxml:]
|
|
|
|
::========================================================================================================================================
|
|
|
|
:: 1st column = Generic Retail/OEM/MAK/GVLK Key
|
|
:: 2nd column = Key Type
|
|
:: 3rd column = WMI Edition ID
|
|
:: 4th column = Version name incase same Edition ID is used in different OS versions with different key
|
|
:: Separator = _
|
|
|
|
:: Key preference is in the following order. Retail > Volume:MAK > Volume:GVLK > OEM:NONSLP > OEM:DM
|
|
:: OEM keys are in last because they can't be used in edition change if "changepk /productkey" method is needed instead of "slmgr /ipk"
|
|
:: OEM keys are listed here because we don't have other keys for that edition
|
|
|
|
:changeeditiondata
|
|
|
|
for %%# in (
|
|
44NYX-TKR9D-CCM2D-V6B8F-HQWWR__Volume:MAK_Enterprise
|
|
D6RD9-D4N8T-RT9QX-YW6YT-FCWWJ______Retail_Starter
|
|
3V6Q6-NQXCX-V8YXR-9QCYV-QPFCT__Volume:MAK_EnterpriseN
|
|
3NFXW-2T27M-2BDW6-4GHRV-68XRX______Retail_StarterN
|
|
VK7JG-NPHTM-C97JM-9MPGT-3V66T______Retail_Professional
|
|
2B87N-8KFHP-DKV6R-Y2C8J-PKCKT______Retail_ProfessionalN
|
|
4CPRK-NM3K3-X6XXQ-RXX86-WXCHW______Retail_CoreN
|
|
N2434-X9D7W-8PF6X-8DV9T-8TYMD______Retail_CoreCountrySpecific
|
|
BT79Q-G7N6G-PGBYW-4YWX6-6F4BT______Retail_CoreSingleLanguage
|
|
YTMG3-N6DKC-DKB77-7M9GH-8HVX7______Retail_Core
|
|
XKCNC-J26Q9-KFHD2-FKTHY-KD72Y__OEM:NONSLP_PPIPro
|
|
YNMGQ-8RYV3-4PGQ3-C8XTP-7CFBY______Retail_Education
|
|
84NGF-MHBT6-FXBX8-QWJK7-DRR8H______Retail_EducationN
|
|
KCNVH-YKWX8-GJJB9-H9FDT-6F7W2__Volume:MAK_EnterpriseS_VB
|
|
VBX36-N7DDY-M9H62-83BMJ-CPR42__Volume:MAK_EnterpriseS_RS5
|
|
PN3KR-JXM7T-46HM4-MCQGK-7XPJQ__Volume:MAK_EnterpriseS_RS1
|
|
DVWKN-3GCMV-Q2XF4-DDPGM-VQWWY__Volume:MAK_EnterpriseS_TH
|
|
RQFNW-9TPM3-JQ73T-QV4VQ-DV9PT__Volume:MAK_EnterpriseSN_VB
|
|
M33WV-NHY3C-R7FPM-BQGPT-239PG__Volume:MAK_EnterpriseSN_RS5
|
|
2DBW3-N2PJG-MVHW3-G7TDK-9HKR4__Volume:MAK_EnterpriseSN_RS1
|
|
NTX6B-BRYC2-K6786-F6MVQ-M7V2X__Volume:MAK_EnterpriseSN_TH
|
|
G3KNM-CHG6T-R36X3-9QDG6-8M8K9______Retail_ProfessionalSingleLanguage
|
|
HNGCC-Y38KG-QVK8D-WMWRK-X86VK______Retail_ProfessionalCountrySpecific
|
|
DXG7C-N36C4-C4HTG-X4T3X-2YV77______Retail_ProfessionalWorkstation
|
|
WYPNQ-8C467-V2W6J-TX4WX-WT2RQ______Retail_ProfessionalWorkstationN
|
|
8PTT6-RNW4C-6V7J2-C2D3X-MHBPB______Retail_ProfessionalEducation
|
|
GJTYN-HDMQY-FRR76-HVGC7-QPF8P______Retail_ProfessionalEducationN
|
|
C4NTJ-CX6Q2-VXDMR-XVKGM-F9DJC__Volume:MAK_EnterpriseG
|
|
46PN6-R9BK9-CVHKB-HWQ9V-MBJY8__Volume:MAK_EnterpriseGN
|
|
NJCF7-PW8QT-3324D-688JX-2YV66______Retail_ServerRdsh
|
|
V3WVW-N2PV2-CGWC3-34QGF-VMJ2C______Retail_Cloud
|
|
NH9J3-68WK7-6FB93-4K3DF-DJ4F6______Retail_CloudN
|
|
2HN6V-HGTM8-6C97C-RK67V-JQPFD______Retail_CloudE
|
|
XQQYW-NFFMW-XJPBH-K8732-CKFFD______OEM:DM_IoTEnterprise
|
|
QPM6N-7J2WJ-P88HH-P3YRH-YY74H__OEM:NONSLP_IoTEnterpriseS_VB
|
|
KBN8V-HFGQ4-MGXVD-347P6-PDQGT_Volume:GVLK_IoTEnterpriseS_NI
|
|
K9VKN-3BGWV-Y624W-MCRMQ-BHDCD______Retail_CloudEditionN
|
|
KY7PN-VR6RX-83W6Y-6DDYQ-T6R4W______Retail_CloudEdition
|
|
MPB3G-XNBR7-CC43M-FG64B-F9GBK______Retail_IoTEnterpriseSK
|
|
) do (
|
|
for /f "tokens=1-4 delims=_" %%A in ("%%#") do if /i %targetedition%==%%C (
|
|
|
|
if not defined key (
|
|
set 4th=%%D
|
|
if not defined 4th (
|
|
set "key=%%A" & set "_chan=%%B"
|
|
) else (
|
|
echo "%branch%" | find "%%D" 1>nul && (set "key=%%A" & set "_chan=%%B")
|
|
)
|
|
)
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
::========================================================================================================================================
|
|
|
|
:changeeditionserverdata
|
|
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*CorEdition~*.mum" (set Cor=Cor) else (set Cor=)
|
|
|
|
:: Only RS3 and older version keys (GVLK/Generic Retail) are stored here, later ones are extracted from the system itself
|
|
|
|
for %%# in (
|
|
WC2BQ-8NRM3-FDDYY-2BFGV-KHKQY_RS1_ServerStandard%Cor%
|
|
CB7KF-BWN84-R7R2Y-793K2-8XDDG_RS1_ServerDatacenter%Cor%
|
|
JCKRF-N37P4-C2D82-9YXRT-4M63B_RS1_ServerSolution
|
|
QN4C6-GBJD2-FB422-GHWJK-GJG2R_RS1_ServerCloudStorage
|
|
VP34G-4NPPG-79JTQ-864T4-R3MQX_RS1_ServerAzureCor
|
|
9JQNQ-V8HQ6-PKB8H-GGHRY-R62H6_RS1_ServerAzureNano
|
|
VN8D3-PR82H-DB6BJ-J9P4M-92F6J_RS1_ServerStorageStandard
|
|
48TQX-NVK3R-D8QR3-GTHHM-8FHXC_RS1_ServerStorageWorkgroup
|
|
2HXDN-KRXHB-GPYC7-YCKFJ-7FVDG_RS3_ServerDatacenterACor
|
|
PTXN8-JFHJM-4WC78-MPCBR-9W4KR_RS3_ServerStandardACor
|
|
) do (
|
|
for /f "tokens=1-3 delims=_" %%A in ("%%#") do if /i %targetedition%==%%C (
|
|
echo "%branch%" | find /i "%%B" 1>nul && (set "key=%%A")
|
|
)
|
|
)
|
|
exit /b
|
|
|
|
:+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
|
|
:MASend
|
|
echo:
|
|
if defined _MASunattended timeout /t 2 & exit /b
|
|
echo Press any key to exit...
|
|
pause >nul
|
|
exit /b
|
|
|
|
::End:: |