mirror of
https://github.com/abbodi1406/KMS_VL_ALL_AIO.git
synced 2024-09-13 09:49:48 +02:00
5724 lines
No EOL
284 KiB
Batchfile
5724 lines
No EOL
284 KiB
Batchfile
<!-- : Begin batch script
|
|
@setlocal DisableDelayedExpansion
|
|
@set uivr=v50
|
|
@echo off
|
|
:: ### Configuration Options ###
|
|
|
|
:: change to 1 to enable debug mode (can be used with unattended options)
|
|
set _Debug=0
|
|
|
|
:: change to 0 to turn OFF Windows or Office activation processing via the script
|
|
set ActWindows=1
|
|
set ActOffice=1
|
|
|
|
:: change to 0 to turn OFF auto conversion for Office C2R Retail to Volume
|
|
set AutoR2V=1
|
|
|
|
:: change to 0 to keep Office C2R vNext license (subscription or lifetime)
|
|
set vNextOverride=1
|
|
|
|
:: change to 0 to revert Windows 10/11 KMS38 to normal KMS
|
|
set SkipKMS38=1
|
|
|
|
:: ### Unattended Options ###
|
|
|
|
:: change to 1 and set KMS_IP address to activate via external KMS server unattended
|
|
set External=0
|
|
set KMS_IP=172.16.0.2
|
|
|
|
:: change to 1 to run Manual activation mode unattended
|
|
set uManual=0
|
|
|
|
:: change to 1 to run AutoRenewal activation mode unattended
|
|
set uAutoRenewal=0
|
|
|
|
:: change to 1 to suppress any output
|
|
set Silent=0
|
|
|
|
:: change to 1 to redirect output to a text file, works only with Silent=1
|
|
set Logger=0
|
|
|
|
:: ### Advanced KMS Options ###
|
|
|
|
:: change KMS auto renewal schedule, range in minutes: from 15 to 43200
|
|
:: example: 10080 = weekly, 1440 = daily, 43200 = monthly
|
|
set KMS_RenewalInterval=10080
|
|
|
|
:: change KMS reattempt schedule for failed activation or unactivated, range in minutes: from 15 to 43200
|
|
set KMS_ActivationInterval=120
|
|
|
|
:: change Hardware Hash for KMS emulator server (only affect Windows 8.1 and 10)
|
|
set KMS_HWID=0x3A1C049600B60076
|
|
|
|
:: change KMS TCP port
|
|
set KMS_Port=1688
|
|
|
|
:: change to 1 to use VBScript to access WMI
|
|
:: automatically enabled if wmic.exe is not available for Windows 11 build 22483 and later
|
|
set WMI_VBS=0
|
|
|
|
:: Notice for advanced users on Windows 64-bit (x64 / ARM64):
|
|
:: when you bundle KMS_VL_ALL script(s) inside self-extracting program or run it from another command script
|
|
:: if the exe pack or the caller script is running as 32-bit (x86) process
|
|
:: KMS_VL_ALL script(s) will close then relaunch itself using 64-bit (x64 / ARM64) cmd.exe
|
|
:: in that case, be advised not to proceed your pack or caller script depending on KMS_VL_ALL script(s) closure
|
|
:: instead, make sure the exe pack or the other caller script are already 64-bit (x64 / ARM64) process
|
|
|
|
:: ###################################################################
|
|
:: # NORMALLY THERE IS NO NEED TO CHANGE ANYTHING BELOW THIS COMMENT #
|
|
:: ###################################################################
|
|
|
|
set KMS_Emulation=1
|
|
set Unattend=0
|
|
set _uIP=172.16.0.2
|
|
|
|
set "_Null=1>nul 2>nul"
|
|
|
|
set _args=
|
|
set _elev=
|
|
set _batf=
|
|
set _batp=
|
|
set fAUR=
|
|
set rAUR=
|
|
set _args=%*
|
|
if not defined _args goto :NoProgArgs
|
|
|
|
set _args=%_args:"=%
|
|
for %%A in (%_args%) do (
|
|
if /i "%%A"=="-elevated" (set _elev=1
|
|
) else if /i "%%A"=="-wow" (set _rel1=1
|
|
) else if /i "%%A"=="-arm" (set _rel2=1
|
|
) else if /i "%%A"=="/d" (set _Debug=1
|
|
) else if /i "%%A"=="/u" (set Unattend=1
|
|
) else if /i "%%A"=="/s" (set Silent=1
|
|
) else if /i "%%A"=="/l" (set Logger=1
|
|
) else if /i "%%A"=="/o" (set ActOffice=1&set ActWindows=0
|
|
) else if /i "%%A"=="/w" (set ActOffice=0&set ActWindows=1
|
|
) else if /i "%%A"=="/c" (set AutoR2V=0
|
|
) else if /i "%%A"=="/v" (set vNextOverride=0
|
|
) else if /i "%%A"=="/x" (set SkipKMS38=0
|
|
) else if /i "%%A"=="/e" (set fAUR=0&set External=1&set uManual=0&set uAutoRenewal=0
|
|
) else if /i "%%A"=="/m" (set fAUR=0&set External=0&set uAutoRenewal=0
|
|
) else if /i "%%A"=="/a" (set fAUR=1&set External=0&set uManual=0
|
|
) else if /i "%%A"=="/r" (set rAUR=1
|
|
) else (set "KMS_IP=%%A")
|
|
)
|
|
|
|
:NoProgArgs
|
|
set "_cmdf=%~f0"
|
|
if exist "%SystemRoot%\Sysnative\cmd.exe" if not defined _rel1 (
|
|
setlocal EnableDelayedExpansion
|
|
start %SystemRoot%\Sysnative\cmd.exe /c ""!_cmdf!" -wow %*"
|
|
exit /b
|
|
)
|
|
if exist "%SystemRoot%\SysArm32\cmd.exe" if /i %PROCESSOR_ARCHITECTURE%==AMD64 if not defined _rel2 (
|
|
setlocal EnableDelayedExpansion
|
|
start %SystemRoot%\SysArm32\cmd.exe /c ""!_cmdf!" -arm %*"
|
|
exit /b
|
|
)
|
|
if %External% EQU 1 (if "%KMS_IP%"=="%_uIP%" (set fAUR=0&set External=0) else (set fAUR=0))
|
|
if %uManual% EQU 1 (set fAUR=0&set External=0&set uAutoRenewal=0)
|
|
if %uAutoRenewal% EQU 1 (set fAUR=1&set External=0&set uManual=0)
|
|
if defined fAUR set Unattend=1
|
|
if defined rAUR set Unattend=1
|
|
if %Silent% EQU 1 set Unattend=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 "_err===== ERROR ===="
|
|
set "_psc=powershell -nop -c"
|
|
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 "o_x64=684103f5c312ae956e66a02b965d9aad59710745"
|
|
set "o_x86=da8f931c7f3bc6643e20063e075cd8fa044b53ae"
|
|
set "o_arm=1139ae6243934ca621e6d4ed2e2f34cc130ef88a"
|
|
set "_bit=64"
|
|
set "_wow=1"
|
|
if /i "%PROCESSOR_ARCHITECTURE%"=="amd64" set "xBit=x64"&set "xOS=x64"&set "_orig=%o_x64%"
|
|
if /i "%PROCESSOR_ARCHITECTURE%"=="arm64" set "xBit=x86"&set "xOS=A64"&set "_orig=%o_arm%"
|
|
if /i "%PROCESSOR_ARCHITECTURE%"=="x86" if "%PROCESSOR_ARCHITEW6432%"=="" set "xBit=x86"&set "xOS=x86"&set "_orig=%o_x86%"&set "_wow=0"&set "_bit=32"
|
|
if /i "%PROCESSOR_ARCHITEW6432%"=="amd64" set "xBit=x64"&set "xOS=x64"&set "_orig=%o_x64%"
|
|
if /i "%PROCESSOR_ARCHITEW6432%"=="arm64" set "xBit=x86"&set "xOS=A64"&set "_orig=%o_arm%"
|
|
|
|
reg query HKLM\SYSTEM\CurrentControlSet\Services\WinMgmt /v Start 2>nul | find /i "0x4" 1>nul && (goto :E_WMS)
|
|
|
|
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 _pwsh=1
|
|
for %%# in (powershell.exe) do @if "%%~$PATH:#"=="" set _pwsh=0
|
|
if not exist "%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe" set _pwsh=0
|
|
if %_pwsh% equ 0 goto :E_PS
|
|
|
|
set psfull=1
|
|
2>nul %_psc% $ExecutionContext.SessionState.LanguageMode | find /i "Full" 1>nul || set psfull=0
|
|
if %psfull% equ 0 goto :E_LM
|
|
|
|
set _dllPath=%SystemRoot%\System32
|
|
if %xOS%==A64 %_psc% $env:PROCESSOR_ARCHITECTURE 2>nul | find /i "x86" 1>nul && set _dllPath=%SystemRoot%\Sysnative
|
|
set _dllNum=1
|
|
if %xOS%==x64 set _dllNum=2
|
|
if %xOS%==A64 set _dllNum=3
|
|
set preparedcolor=0
|
|
|
|
1>nul 2>nul reg query HKU\S-1-5-19 && (
|
|
goto :Passed
|
|
) || (
|
|
if defined _elev goto :E_Admin
|
|
)
|
|
|
|
set _PSarg="""%~f0""" %_args% -elevated
|
|
set _PSarg=%_PSarg:'=''%
|
|
|
|
(1>nul 2>nul cscript //NoLogo "%~f0?.wsf" //job:ELAV /File:"%~f0" %_args% -elevated) && (
|
|
exit /b
|
|
) || (
|
|
call setlocal EnableDelayedExpansion
|
|
1>nul 2>nul %SysPath%\WindowsPowerShell\v1.0\%_psc% "start cmd.exe -arg '/c \"!_PSarg!\"' -verb runas" && (
|
|
exit /b
|
|
) || (
|
|
goto :E_Admin
|
|
)
|
|
)
|
|
|
|
:Passed
|
|
if not exist "%SystemRoot%\Temp\" mkdir "%SystemRoot%\Temp" 1>nul 2>nul
|
|
set "_batf=%~f0"
|
|
set "_batp=%_batf:'=''%"
|
|
set "_utemp=%TEMP%"
|
|
set "_Local=%LocalAppData%"
|
|
set "_temp=%SystemRoot%\Temp"
|
|
set "_log=%~dpn0"
|
|
set "_work=%~dp0"
|
|
if "%_work:~-1%"=="\" set "_work=%_work:~0,-1%"
|
|
:: set _UNC=0
|
|
:: if "%_work:~0,2%"=="\\" (
|
|
:: set _UNC=1
|
|
:: ) else (
|
|
:: net use %~d0 %_Null%
|
|
:: if not errorlevel 1 set _UNC=1
|
|
:: )
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Desktop') do call set "_dsk=%%b"
|
|
if exist "%PUBLIC%\Desktop\desktop.ini" set "_dsk=%PUBLIC%\Desktop"
|
|
set "_mO21a=Detected Office 2021 C2R Retail is activated"
|
|
set "_mO19a=Detected Office 2019 C2R Retail is activated"
|
|
set "_mO16a=Detected Office 2016 C2R Retail is activated"
|
|
set "_mO15a=Detected Office 2013 C2R Retail is activated"
|
|
set "_mO21c=Detected Office 2021 C2R Retail could not be converted to Volume"
|
|
set "_mO19c=Detected Office 2019 C2R Retail could not be converted to Volume"
|
|
set "_mO16c=Detected Office 2016 C2R Retail could not be converted to Volume"
|
|
set "_mO15c=Detected Office 2013 C2R Retail could not be converted to Volume"
|
|
set "_mO14c=Detected Office 2010 C2R Retail is not supported by KMS_VL_ALL"
|
|
set "_mO14m=Detected Office 2010 MSI Retail is not supported by KMS_VL_ALL"
|
|
set "_mO15m=Detected Office 2013 MSI Retail is not supported by KMS_VL_ALL"
|
|
set "_mO16m=Detected Office 2016 MSI Retail is not supported by KMS_VL_ALL"
|
|
set "_mOuwp=Detected Office 365/2016 UWP is not supported by KMS_VL_ALL"
|
|
set DO15Ids=ProPlus,Standard,Access,Lync,Excel,Groove,InfoPath,OneNote,Outlook,PowerPoint,Publisher,Word
|
|
set DO16Ids=ProPlus,Standard,Access,SkypeforBusiness,Excel,Outlook,PowerPoint,Publisher,Word
|
|
set LV16Ids=Mondo,ProPlus,ProjectPro,VisioPro,Standard,ProjectStd,VisioStd,Access,SkypeforBusiness,OneNote,Excel,Outlook,PowerPoint,Publisher,Word
|
|
set LR16Ids=%LV16Ids%,Professional,HomeBusiness,HomeStudent,O365Business,O365SmallBusPrem,O365HomePrem,O365EduCloud
|
|
set "ESUEditions=Enterprise,EnterpriseE,EnterpriseN,Professional,ProfessionalE,ProfessionalN,Ultimate,UltimateE,UltimateN"
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*Edition~*.mum" (
|
|
set "ESUEditions=ServerDatacenter,ServerDatacenterCore,ServerDatacenterV,ServerDatacenterVCore,ServerStandard,ServerStandardCore,ServerStandardV,ServerStandardVCore,ServerEnterprise,ServerEnterpriseCore,ServerEnterpriseV,ServerEnterpriseVCore"
|
|
)
|
|
for /f "tokens=6 delims=[]. " %%G in ('ver') do set winbuild=%%G
|
|
set UBR=0
|
|
if %winbuild% GEQ 7601 for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v UBR 2^>nul') do if not errorlevel 1 set /a UBR=%%b
|
|
set "_csg=cscript.exe //NoLogo //Job:WmiMulti "%~nx0?.wsf""
|
|
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 "_csx=cscript.exe //NoLogo //Job:XPDT "%~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="
|
|
)
|
|
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 if %WMI_VBS% NEQ 0 goto :E_VBS
|
|
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)
|
|
setlocal EnableDelayedExpansion
|
|
set "_oem=!_work!"
|
|
copy /y nul "!_work!\#.rw" 1>nul 2>nul && (
|
|
if exist "!_work!\#.rw" del /f /q "!_work!\#.rw"
|
|
) || (
|
|
set "_oem=!_dsk!"
|
|
set "_log=!_dsk!\%~n0"
|
|
if %Logger% EQU 1 set _run="!_dsk!\%~n0_Silent.log"
|
|
)
|
|
pushd "!_work!"
|
|
set "_suf="
|
|
set "_qr=%_zz7% Win32_OperatingSystem %_zz3% LocalDateTime %_zz8%"
|
|
if %_Debug% EQU 1 if exist "!_log!_Debug.log" (
|
|
for /f "tokens=2 delims==." %%# in ('%_qr%') do set "_date=%%#"
|
|
set "_suf=_!_date:~8,6!"
|
|
)
|
|
|
|
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 %Unattend% EQU 1 set "_Pause="
|
|
if %Silent% EQU 0 (call :Begin) else (call :Begin >!_run! 2>&1)
|
|
) else (
|
|
set "_Nul1="
|
|
set "_Nul2="
|
|
set "_Nul6="
|
|
set "_Nul3="
|
|
set "_Pause="
|
|
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!_suf!.log"
|
|
)
|
|
@echo on
|
|
@prompt $G
|
|
@call :Begin >"!_log!_tmp.log" 2>&1 &cmd /u /c type "!_log!_tmp.log">"!_log!_Debug!_suf!.log"&del "!_log!_tmp.log"
|
|
)
|
|
@color 07
|
|
@title %ComSpec%
|
|
@echo off
|
|
@exit /b
|
|
|
|
:Begin
|
|
if %_Debug% EQU 1 (
|
|
if defined _args echo %_args%
|
|
echo "!_batf!"
|
|
)
|
|
if exist "%PUBLIC%\ReadMeAIO.html" del /f /q "%PUBLIC%\ReadMeAIO.html"
|
|
if exist "%_temp%\'" del /f /q "%_temp%\'"
|
|
if exist "%_temp%\`.txt" del /f /q "%_temp%\`.txt"
|
|
set _verb=0
|
|
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 _Hook="%SysPath%\SppExtComObjHook.dll"
|
|
set w7inf=%SystemRoot%\Migration\WTR\KMS_VL_ALL.inf
|
|
set "_TaskEx=\Microsoft\Windows\SoftwareProtectionPlatform\SvcTrigger"
|
|
set "_TaskOs=\Microsoft\Windows\SoftwareProtectionPlatform\SvcRestartTaskLogon"
|
|
set "line1============================================================="
|
|
set "line2=************************************************************"
|
|
set "line3=____________________________________________________________"
|
|
set "line4=__________________________________________________"
|
|
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
|
|
)
|
|
|
|
set kNext=HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing\LicensingNext
|
|
:: set _Identity=0
|
|
:: dir /b /s /a:-d "!_Local!\Microsoft\Office\Licenses\*1*" %_Nul3% && set _Identity=1
|
|
:: dir /b /s /a:-d "!ProgramData!\Microsoft\Office\Licenses\*1*" %_Nul3% && set _Identity=1
|
|
:: if %_Identity% EQU 1
|
|
|
|
set _uRI=%KMS_RenewalInterval%
|
|
set _uAI=%KMS_ActivationInterval%
|
|
set _dDbg=No
|
|
if %ActWindows% EQU 0 if %ActOffice% EQU 0 set ActWindows=1
|
|
if %_Debug% EQU 1 if not defined fAUR set fAUR=0&set External=0
|
|
if %Unattend% EQU 1 if not defined fAUR set fAUR=0&set External=0
|
|
if not defined fAUR if not defined rAUR goto :MainMenu
|
|
if defined rAUR (set _verb=1&cls&call :RemoveHook&goto :cCache)
|
|
set sub_next=0
|
|
set sub_o365=0
|
|
set sub_proj=0
|
|
set sub_vsio=0
|
|
reg query %kNext% /v MigrationToV5Done %_Nul2% | find /i "0x1" %_Nul1% && call :officeSub
|
|
set Unattend=1
|
|
set _ReAR=0
|
|
set _AUR=0
|
|
if exist %_Hook% dir /b /al %_Hook% %_Nul3% || (
|
|
reg query "%IFEO%\%SppVer%" /v VerifierFlags %_Nul3% && (set _AUR=1) || (reg query "%IFEO%\osppsvc.exe" /v VerifierFlags %_Nul3% && set _AUR=1)
|
|
)
|
|
if %fAUR% EQU 1 (set _ReAR=1&if %_AUR% EQU 0 (set _AUR=1&set _verb=1&set _rtr=DoActivate&cls&goto :InstallHook) else (set _verb=0&set _rtr=DoActivate&cls&goto :InstallHook))
|
|
if %External% EQU 0 (set _AUR=0&cls&goto :DoActivate)
|
|
cls&goto :DoActivate
|
|
|
|
:MainMenu
|
|
cls
|
|
mode con cols=80 lines=34
|
|
color 07
|
|
set "_title=KMS_VL_ALL_AIO %uivr%"
|
|
title %_title%
|
|
set sub_next=0
|
|
set sub_o365=0
|
|
set sub_proj=0
|
|
set sub_vsio=0
|
|
reg query %kNext% /v MigrationToV5Done %_Nul2% | find /i "0x1" %_Nul1% && call :officeSub
|
|
set _dMode=Manual
|
|
set _ReAR=0
|
|
set _AUR=0
|
|
if exist %_Hook% dir /b /al %_Hook% %_Nul3% || (
|
|
reg query "%IFEO%\%SppVer%" /v VerifierFlags %_Nul3% && (set _AUR=1&set "_dMode=Auto Renewal") || (reg query "%IFEO%\osppsvc.exe" /v VerifierFlags %_Nul3% && (set _AUR=1&set "_dMode=Auto Renewal"))
|
|
)
|
|
if %_AUR% EQU 0 (set "_dHook=Not Installed") else (set "_dHook=Installed")
|
|
if %ActWindows% EQU 0 (set _dAwin=No) else (set _dAwin=Yes)
|
|
if %ActOffice% EQU 0 (set _dAoff=No) else (set _dAoff=Yes)
|
|
if %AutoR2V% EQU 0 (set _dArtv=No) else (set _dArtv=Yes)
|
|
if %SkipKMS38% EQU 0 (set _dWXKMS=No) else (set _dWXKMS=Yes)
|
|
if %_Debug% EQU 0 (set _dDbg=No) else (set _dDbg=Yes)
|
|
if %vNextOverride% EQU 0 (set _dNxt=No) else (set _dNxt=Yes)
|
|
set _el=
|
|
set _quit=
|
|
if %preparedcolor%==0 call :colorprep
|
|
if %_NCS% EQU 0 (
|
|
pushd %_temp%
|
|
if not exist "'" (<nul >"'" set /p "=.")
|
|
)
|
|
echo.
|
|
echo %line3%
|
|
echo.
|
|
rem echo [1] Activate [%_dMode% Mode]
|
|
if %_AUR% EQU 1 (
|
|
call :Cfgbg %_cWht% " [1] Activate " %_cGrn% "[%_dMode% Mode]"
|
|
) else (
|
|
call :Cfgbg %_cWht% " [1] Activate " %_cBlu% "[%_dMode% Mode]"
|
|
)
|
|
echo.
|
|
if %_AUR% EQU 1 (
|
|
call :Cfgbg %_cWht% " [2] Install Activation Auto-Renewal " %_cGrn% "[%_dHook%]"
|
|
) else (
|
|
echo [2] Install Activation Auto-Renewal
|
|
)
|
|
echo [3] Uninstall Completely
|
|
echo %line4%
|
|
echo.
|
|
echo Configuration:
|
|
echo.
|
|
if %_dDbg%==No (
|
|
echo [4] Enable Debug Mode [%_dDbg%]
|
|
) else (
|
|
call :Cfgbg %_cWht% " [4] Enable Debug Mode " %_cRed% "[%_dDbg%]"
|
|
)
|
|
if %_dAwin%==Yes (
|
|
echo [5] Process Windows [%_dAwin%]
|
|
) else (
|
|
call :Cfgbg %_cWht% " [5] Process Windows " %_cYel% "[%_dAwin%]"
|
|
)
|
|
if %_dAoff%==Yes (
|
|
echo [6] Process Office [%_dAoff%]
|
|
) else (
|
|
call :Cfgbg %_cWht% " [6] Process Office " %_cYel% "[%_dAoff%]"
|
|
)
|
|
if %_dArtv%==Yes (
|
|
echo [7] Convert Office C2R-R2V [%_dArtv%]
|
|
) else (
|
|
call :Cfgbg %_cWht% " [7] Convert Office C2R-R2V " %_cYel% "[%_dArtv%]"
|
|
)
|
|
if %_dNxt%==No (
|
|
if %sub_next% EQU 1 (
|
|
call :Cfgbg %_cYel% " [V] Override Office C2R vNext " %_cYel% "[%_dNxt%]"
|
|
) else (
|
|
echo [V] Override Office C2R vNext [%_dNxt%]
|
|
)
|
|
) else (
|
|
if %sub_next% EQU 1 (
|
|
call :Cfgbg %_cYel% " [V] Override Office C2R vNext " %_cRed% "[%_dNxt%]"
|
|
) else (
|
|
echo [V] Override Office C2R vNext [%_dNxt%]
|
|
)
|
|
)
|
|
if %winbuild% GEQ 10240 (
|
|
if %_dWXKMS%==Yes (
|
|
echo [X] Skip Windows KMS38 [%_dWXKMS%]
|
|
) else (
|
|
call :Cfgbg %_cWht% " [X] Skip Windows KMS38 " %_cYel% "[%_dWXKMS%]"
|
|
))
|
|
echo %line4%
|
|
echo.
|
|
echo Miscellaneous:
|
|
echo.
|
|
echo [8] Check Activation Status {vbs}
|
|
echo [9] Check Activation Status {wmi}
|
|
echo [S] Create $OEM$ Folder
|
|
echo [D] Decode Embedded Binary Files
|
|
echo [R] Read Me
|
|
echo [E] Activate {External Mode}
|
|
echo %line3%
|
|
echo.
|
|
if %_NCS% EQU 0 (
|
|
popd
|
|
)
|
|
choice /c 1234567890EDRSVX /n /m "> Choose a menu option, or press 0 to Exit: "
|
|
set _el=%errorlevel%
|
|
if %_el%==16 if %winbuild% GEQ 10240 (if %SkipKMS38% EQU 0 (set SkipKMS38=1) else (set SkipKMS38=0))&goto :MainMenu
|
|
if %_el%==15 (if %vNextOverride% EQU 0 (set vNextOverride=1) else (set vNextOverride=0))&goto :MainMenu
|
|
if %_el%==14 (call :CreateOEM)&goto :MainMenu
|
|
if %_el%==13 (call :CreateReadMe)&goto :MainMenu
|
|
if %_el%==12 (call :CreateBIN)&goto :MainMenu
|
|
if %_el%==11 goto :E_IP
|
|
if %_el%==10 (set _quit=1&goto :TheEnd)
|
|
if %_el%==9 (call :casWm)&goto :MainMenu
|
|
if %_el%==8 (call :casVm)&goto :MainMenu
|
|
if %_el%==7 (if %AutoR2V% EQU 0 (set AutoR2V=1) else (set AutoR2V=0))&goto :MainMenu
|
|
if %_el%==6 (if %ActOffice% EQU 0 (set ActOffice=1) else (set ActWindows=1&set ActOffice=0))&goto :MainMenu
|
|
if %_el%==5 (if %ActWindows% EQU 0 (set ActWindows=1) else (set ActWindows=0&set ActOffice=1))&goto :MainMenu
|
|
if %_el%==4 (if %_Debug% EQU 0 (set _Debug=1) else (set _Debug=0))&goto :MainMenu
|
|
if %_el%==3 (if %_dDbg%==No (set _verb=1&cls&call :RemoveHook&goto :cCache) else (set _verb=1&cls&goto :RemoveHook))
|
|
if %_el%==2 (set _ReAR=1&if %_AUR% EQU 0 (set _AUR=1&set _verb=1&set _rtr=DoActivate&cls&goto :InstallHook) else (set _verb=0&set _rtr=DoActivate&cls&goto :InstallHook))
|
|
if %_el%==1 (cls&goto :DoActivate)
|
|
goto :MainMenu
|
|
|
|
:colorprep
|
|
set preparedcolor=1
|
|
|
|
if %_NCS% EQU 1 (
|
|
for /f "tokens=1,2 delims=#" %%A in ('"prompt #$H#$E# & echo on & for %%B in (1) do rem"') do set _EC=%%B
|
|
|
|
set "_cBlu="44;97m""
|
|
set "_cRed="40;91m""
|
|
set "_cGrn="40;92m""
|
|
set "_cYel="40;93m""
|
|
set "_cWht="40;37m""
|
|
exit /b
|
|
)
|
|
|
|
for /f %%A in ('"prompt $H&for %%B in (1) do rem"') do set "_BS=%%A %%A"
|
|
|
|
set "_cBlu="1F""
|
|
set "_cRed="0C""
|
|
set "_cGrn="0A""
|
|
set "_cYel="0E""
|
|
set "_cWht="07""
|
|
exit /b
|
|
|
|
:Cfgbg
|
|
if %_NCS% EQU 1 (
|
|
echo %_EC%[%~1%~2%_EC%[%~3%~4%_EC%[0m
|
|
exit /b
|
|
)
|
|
setlocal
|
|
set "s=%~2"
|
|
set "t=%~4"
|
|
call :Pfgbg %1 s %3 t
|
|
exit /b
|
|
|
|
:Pfgbg
|
|
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%"
|
|
)
|
|
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
|
|
|
|
:E_IP
|
|
cls
|
|
set kip=
|
|
echo.
|
|
echo Enter / Paste the external KMS Server address, or just press Enter to return:
|
|
echo.
|
|
set /p kip=
|
|
if not defined kip goto :MainMenu
|
|
set "kip=%kip: =%"
|
|
set "KMS_IP=%kip%"
|
|
set External=1
|
|
cls
|
|
|
|
:DoActivate
|
|
if %_dDbg%==Yes (
|
|
set "_para=/d"
|
|
if %ActWindows% EQU 0 set "_para=!_para! /o"
|
|
if %ActOffice% EQU 0 set "_para=!_para! /w"
|
|
if %vNextOverride% EQU 0 set "_para=!_para! /v"
|
|
if %SkipKMS38% EQU 0 set "_para=!_para! /x"
|
|
if %External% EQU 1 set "_para=!_para! /e %KMS_IP%"
|
|
if %External% EQU 0 if %_AUR% EQU 0 set "_para=!_para! /m"
|
|
if %External% EQU 0 if %_AUR% EQU 1 set "_para=!_para! /a"
|
|
goto :DoDebug
|
|
)
|
|
if %External% EQU 1 (
|
|
if "%KMS_IP%"=="%_uIP%" set External=0
|
|
)
|
|
if %External% EQU 1 (
|
|
set _AUR=1
|
|
)
|
|
if %External% EQU 0 (
|
|
set KMS_IP=%_uIP%
|
|
)
|
|
if %_AUR% EQU 0 (
|
|
set KMS_RenewalInterval=43200
|
|
set KMS_ActivationInterval=43200
|
|
) else (
|
|
set KMS_RenewalInterval=%_uRI%
|
|
set KMS_ActivationInterval=%_uAI%
|
|
)
|
|
if %External% EQU 1 (
|
|
color 8F&set "mode=External ^(%KMS_IP%^)"
|
|
) else (
|
|
if %_AUR% EQU 0 (color 1F&set "mode=Manual") else (color 07&set "mode=Auto Renewal")
|
|
)
|
|
if %Unattend% EQU 0 (
|
|
if %_Debug% EQU 0 (title %_title%) else (set "_title=KMS_VL_ALL_AIO %uivr% : %mode%"&title KMS_VL_ALL_AIO %uivr% : %mode%)
|
|
) else (
|
|
echo.
|
|
echo Running KMS_VL_ALL_AIO %uivr%
|
|
)
|
|
if %Silent% EQU 0 if %_Debug% EQU 0 (
|
|
%_Nul3% %_psc% "&%_buf%"
|
|
if %Unattend% EQU 0 title %_title%
|
|
)
|
|
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%
|
|
)
|
|
echo.
|
|
echo Activation Mode: %mode%
|
|
call :StopService sppsvc
|
|
if %OsppHook% NEQ 0 call :StopService osppsvc
|
|
if %External% EQU 0 if %_ReAR% EQU 0 (set _verb=0&set _rtr=ReturnHook&goto :InstallHook)
|
|
|
|
:ReturnHook
|
|
if %External% EQU 0 if %_AUR% EQU 1 (
|
|
call :UpdateIFEOEntry %SppVer%
|
|
call :UpdateIFEOEntry osppsvc.exe
|
|
)
|
|
if %External% EQU 1 if %_AUR% EQU 1 (
|
|
call :UpdateOSPPEntry osppsvc.exe
|
|
)
|
|
|
|
SET Win10Gov=0
|
|
SET "EditionWMI="
|
|
SET "EditionID="
|
|
IF %winbuild% LSS 14393 if %SSppHook% NEQ 0 GOTO :Main
|
|
SET "RegKey=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"
|
|
SET "Pattern=Microsoft-Windows-*Edition~31bf3856ad364e35"
|
|
SET "EditionPKG=FFFFFFFF"
|
|
FOR /F "TOKENS=8 DELIMS=\" %%A IN ('REG QUERY "%RegKey%" /f "%Pattern%" /k %_Nul6% ^| FIND /I "CurrentVersion"') DO (
|
|
REG QUERY "%RegKey%\%%A" /v "CurrentState" %_Nul2% | FIND /I "0x70" %_Nul1% && (
|
|
FOR /F "TOKENS=3 DELIMS=-~" %%B IN ('ECHO %%A') DO SET "EditionPKG=%%B"
|
|
)
|
|
)
|
|
IF /I "%EditionPKG:~-7%"=="Edition" (
|
|
SET "EditionID=%EditionPKG:~0,-7%"
|
|
) ELSE (
|
|
FOR /F "TOKENS=3 DELIMS=: " %%A IN ('DISM /English /Online /Get-CurrentEdition %_Nul6% ^| FIND /I "Current Edition :"') DO SET "EditionID=%%A"
|
|
)
|
|
net start sppsvc /y %_Nul3%
|
|
set "_qr=%_zz7% SoftwareLicensingProduct %_zz2% %_zz5%ApplicationID='%_wApp%' %adoff% AND PartialProductKey is not NULL%_zz6% %_zz3% LicenseFamily %_zz8%"
|
|
FOR /F "TOKENS=2 DELIMS==" %%A IN ('%_qr% %_Nul6%') DO SET "EditionWMI=%%A"
|
|
IF "%EditionWMI%"=="" (
|
|
IF %winbuild% GEQ 17063 FOR /F "SKIP=2 TOKENS=2*" %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%B"
|
|
IF %winbuild% LSS 14393 (
|
|
FOR /F "SKIP=2 TOKENS=2*" %%A IN ('REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v EditionId') DO SET "EditionID=%%B"
|
|
GOTO :Main
|
|
)
|
|
)
|
|
IF NOT "%EditionWMI%"=="" SET "EditionID=%EditionWMI%"
|
|
IF /I "%EditionID%"=="IoTEnterprise" SET "EditionID=Enterprise"
|
|
IF /I "%EditionID%"=="IoTEnterpriseS" IF %winbuild% LSS 22610 (
|
|
SET "EditionID=EnterpriseS"
|
|
IF %winbuild% GEQ 19041 IF %UBR% GEQ 2788 SET "EditionID=IoTEnterpriseS"
|
|
)
|
|
IF /I "%EditionID%"=="ProfessionalSingleLanguage" SET "EditionID=Professional"
|
|
IF /I "%EditionID%"=="ProfessionalCountrySpecific" SET "EditionID=Professional"
|
|
IF /I "%EditionID%"=="EnterpriseG" SET Win10Gov=1
|
|
IF /I "%EditionID%"=="EnterpriseGN" SET Win10Gov=1
|
|
|
|
:Main
|
|
if defined EditionID (set "_winos=Windows %EditionID% edition") else (set "_winos=Detected Windows")
|
|
for /f "skip=2 tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName %_Nul6%') do if not errorlevel 1 set "_winos=%%b"
|
|
set "nKMS=does not support KMS activation..."
|
|
set "nEval=Evaluation Editions cannot be activated. Please install full Windows OS."
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-*EvalEdition~*.mum" set _eval=1
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalEdition~*.mum" set "nEval=Server Evaluation cannot be activated. Please convert to full Server OS."
|
|
if exist "%SystemRoot%\Servicing\Packages\Microsoft-Windows-Server*EvalCorEdition~*.mum" set _eval=1&set "nEval=Server Evaluation cannot be activated. Please convert to full Server OS."
|
|
set "_C16R="
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set "_C16R=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"
|
|
)
|
|
if not defined _C16R reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (
|
|
reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && set "_C16R=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration"
|
|
)
|
|
set "_C15R="
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath %_Nul3% && for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds %_Nul3% && call set "_C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration"
|
|
if not defined _C15R reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && call set "_C15R=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag"
|
|
)
|
|
set "_C14R="
|
|
if %_wow%==0 (reg query HKLM\SOFTWARE\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set "_C14R=1") else (reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\CVH /f Click2run /k %_Nul3% && set "_C14R=1")
|
|
for %%A in (14,15,16,19,21) do call :officeLoc %%A
|
|
if %_O14MSI% EQU 1 set "_C14R="
|
|
|
|
set S_OK=1
|
|
call :RunSPP
|
|
if %ActOffice% NEQ 0 call :RunOSPP
|
|
if %ActOffice% EQU 0 (echo.&echo Office activation is OFF...)
|
|
if %S_OK% EQU 0 if %External% EQU 0 call :CheckFR
|
|
|
|
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
|
|
|
|
if %_AUR% EQU 0 call :RemoveHook
|
|
|
|
sc start sppsvc trigger=timer;sessionid=0 %_Nul3%
|
|
if %_verb% EQU 1 (
|
|
echo.&echo %line3%&echo.
|
|
if %External% EQU 0 if "%_rtr%"=="DoActivate" (
|
|
echo.
|
|
echo Make sure to exclude this file in the Antivirus protection.
|
|
echo %SystemRoot%\System32\SppExtComObjHook.dll)
|
|
)
|
|
set External=0
|
|
set KMS_IP=%_uIP%
|
|
if %uManual% EQU 1 timeout 5
|
|
if %uAutoRenewal% EQU 1 timeout 5
|
|
if %Unattend% NEQ 0 goto :TheEnd
|
|
echo.
|
|
echo Press any key to continue...
|
|
pause >nul
|
|
goto :MainMenu
|
|
|
|
: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 Error: Failed checking KMS Activation ID^(s^) for Windows.&echo Either sppsvc service or SppExtComObjHook.dll is not functional.&call :CheckWS
|
|
exit /b
|
|
)
|
|
)
|
|
)
|
|
if %WinVL% EQU 0 if %Off1ce% EQU 0 exit /b
|
|
if %_AUR% EQU 0 (
|
|
reg delete "HKLM\%SPPk%\%_wApp%" /f %_Null%
|
|
rem reg delete "HKLM\%SPPk%\%_oApp%" /f %_Null%
|
|
reg delete "HKU\S-1-5-20\%SPPk%\%_wApp%" /f %_Null%
|
|
reg delete "HKU\S-1-5-20\%SPPk%\%_oApp%" /f %_Null%
|
|
)
|
|
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)
|
|
if %_AUR% EQU 0 (
|
|
call :cREG %_Nul3%
|
|
) else (
|
|
reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing %_Null%
|
|
reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching %_Null%
|
|
)
|
|
exit /b
|
|
|
|
:sppoff
|
|
set OffUWP=0
|
|
if %winbuild% GEQ 10240 reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msoxmled.exe" %_Nul3% && (
|
|
dir /b "%ProgramFiles%\WindowsApps\Microsoft.Office.Desktop*" %_Nul3% && set OffUWP=1
|
|
if not %xOS%==x86 dir /b "%ProgramW6432%\WindowsApps\Microsoft.Office.Desktop*" %_Nul3% && set OffUWP=1
|
|
)
|
|
rem nothing installed
|
|
if %loc_off21% EQU 0 if %loc_off19% EQU 0 if %loc_off16% EQU 0 if %loc_off15% EQU 0 (
|
|
if %winbuild% GEQ 9200 (
|
|
if %OffUWP% EQU 0 (echo.&echo No Installed Office 2013-2021 Product Detected...) else (echo.&echo %_mOuwp%)
|
|
exit /b
|
|
)
|
|
if %winbuild% LSS 9200 (if %loc_off14% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b))
|
|
)
|
|
if %vNextOverride% EQU 1 if %AutoR2V% EQU 1 (
|
|
set sub_o365=0
|
|
set sub_proj=0
|
|
set sub_vsio=0
|
|
if %sub_next% EQU 1 reg delete HKCU\SOFTWARE\Microsoft\Office\16.0\Common\Licensing /f %_Nul3%
|
|
)
|
|
set Off1ce=1
|
|
set _sC2R=sppoff
|
|
set _fC2R=ReturnSPP
|
|
|
|
set vol_off14=0&set vol_off15=0&set vol_off16=0&set vol_off19=0&set vol_off21=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%Description like '%%KMSCLIENT%%' AND NOT Name like '%%MondoR_KMS_Automation%%' %_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% > "!_temp!\sppchk.txt" 2>&1
|
|
find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off21=1)
|
|
find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off19=1)
|
|
find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off16=1)
|
|
find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off15=1)
|
|
if %winbuild% LSS 9200 find /i "Office 14" "!_temp!\sppchk.txt" %_Nul1% && (set vol_off14=1)
|
|
for %%A in (14,15,16,19,21) do if !loc_off%%A! EQU 0 set vol_off%%A=0
|
|
set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%'" %_zz3% LicenseFamily %_zz4%"
|
|
if %vol_off16% EQU 1 find /i "Office16MondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off16=0)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% "ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%'" %_zz3% LicenseFamily %_zz4%"
|
|
if %vol_off15% EQU 1 find /i "OfficeMondoVL_KMS_Client" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
%_qr% %_Nul2% | find /i "O365" %_Nul1% || (set vol_off15=0)
|
|
)
|
|
|
|
set ret_off14=0&set ret_off15=0&set ret_off16=0&set ret_off19=0&set ret_off21=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND NOT Name like '%%O365%%' %_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% > "!_temp!\sppchk.txt" 2>&1
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 21" %_Nul1% && (set ret_off21=1)
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 19" %_Nul1% && (set ret_off19=1)
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 16" %_Nul1% && (set ret_off16=1)
|
|
find /i "R_Retail" "!_temp!\sppchk.txt" %_Nul2% | find /i "Office 15" %_Nul1% && (set ret_off15=1)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oA14%'%_zz6% %_zz3% Description %_zz4%"
|
|
if %winbuild% LSS 9200 if %vol_off14% EQU 0 %_qr% %_Nul2% | findstr /i channel %_Nul1% && (set ret_off14=1)
|
|
|
|
set run_off21=0&set prr_off21=0&set prv_off21=0
|
|
if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 0 set run_off21=1
|
|
if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 1 (
|
|
for %%a in (%DO16Ids%) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office21%%a2021R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off21+=1
|
|
find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off21+=1
|
|
)
|
|
)
|
|
if %loc_off21% EQU 1 if %ret_off21% EQU 1 if %_O16MSI% EQU 0 if %vol_off21% EQU 1 if %prv_off21% LSS %prr_off21% (set vol_off21=0&set run_off21=1)
|
|
|
|
set run_off19=0&set prr_off19=0&set prv_off19=0
|
|
if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 0 set run_off19=1
|
|
if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 1 (
|
|
for %%a in (%DO16Ids%) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office19%%a2019R" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off19+=1
|
|
find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off19+=1
|
|
)
|
|
)
|
|
if %loc_off19% EQU 1 if %ret_off19% EQU 1 if %_O16MSI% EQU 0 if %vol_off19% EQU 1 if %prv_off19% LSS %prr_off19% (set vol_off19=0&set run_off19=1)
|
|
|
|
set run_off16=0&set prr_off16=0&set prv_off16=0
|
|
if %loc_off16% EQU 1 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if defined _C16R (
|
|
for %%a in (%DO16Ids%) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16ProPlusVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21ProPlus2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19ProPlus2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16StandardVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21Standard2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19Standard2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office16%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off16+=1
|
|
if %vol_off16% EQU 1 if %vol_off21% EQU 0 if %vol_off19% EQU 0 find /i "Office16%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off21% EQU 1 find /i "Office21%%a2021VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
if %vol_off16% EQU 0 if %vol_off19% EQU 1 find /i "Office19%%a2019VL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off16+=1
|
|
)
|
|
)
|
|
if %loc_off16% EQU 1 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if defined _C16R if %prv_off16% LSS %prr_off16% (set vol_off16=0&set run_off16=1)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND LicenseFamily like 'Office16O365%%' %_zz6% %_zz3% LicenseFamily %_zz4%"
|
|
if %loc_off16% EQU 1 if %run_off16% EQU 0 if %sub_o365% EQU 0 if defined _C16R %_qr% %_Nul2% | find /i "O365" %_Nul1% && (
|
|
find /i "Office16MondoVL" "!_temp!\sppchk.txt" %_Nul1% || set run_off16=1
|
|
)
|
|
|
|
set run_off15=0&set prr_off15=0&set prv_off15=0
|
|
if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 if %vol_off15% EQU 0 if defined _C15R set run_off15=1
|
|
if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 if %vol_off15% EQU 1 if defined _C15R (
|
|
for %%a in (%DO15Ids%) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off15+=1
|
|
find /i "Office%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1
|
|
)
|
|
for %%a in (Professional) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off15+=1
|
|
find /i "OfficeProPlusVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1
|
|
)
|
|
for %%a in (HomeBusiness,HomeStudent) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off15+=1
|
|
find /i "OfficeStandardVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1
|
|
)
|
|
if %sub_proj% EQU 0 for %%a in (ProjectPro,ProjectStd) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off15+=1
|
|
find /i "Office%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1
|
|
)
|
|
if %sub_vsio% EQU 0 for %%a in (VisioPro,VisioStd) do find /i "Office%%aR" "!_temp!\sppchk.txt" %_Nul1% && (
|
|
call set /a prr_off15+=1
|
|
find /i "Office%%aVL" "!_temp!\sppchk.txt" %_Nul1% && call set /a prv_off15+=1
|
|
)
|
|
)
|
|
if %loc_off15% EQU 1 if %ret_off15% EQU 1 if %_O15MSI% EQU 0 if %vol_off15% EQU 1 if defined _C15R if %prv_off15% LSS %prr_off15% (set vol_off15=0&set run_off15=1)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_oApp%' AND LicenseFamily like 'OfficeO365%%' %_zz6% %_zz3% LicenseFamily %_zz4%"
|
|
if %loc_off15% EQU 1 if %run_off15% EQU 0 if defined _C15R %_qr% %_Nul2% | find /i "O365" %_Nul1% && (
|
|
find /i "OfficeMondoVL" "!_temp!\sppchk.txt" %_Nul1% || set run_off15=1
|
|
)
|
|
|
|
set vol_offgl=1
|
|
if %vol_off21% EQU 0 if %vol_off19% EQU 0 if %vol_off16% EQU 0 if %vol_off15% EQU 0 (
|
|
if %winbuild% GEQ 9200 set vol_offgl=0
|
|
if %winbuild% LSS 9200 if %vol_off14% EQU 0 set vol_offgl=0
|
|
)
|
|
rem mixed Volume + Retail
|
|
if %run_off21% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V
|
|
if %run_off19% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V
|
|
if %run_off16% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V
|
|
if %run_off15% EQU 1 if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V
|
|
rem all supported Volume + message for unsupported
|
|
if %loc_off16% EQU 0 if %ret_off16% EQU 1 if %_O16MSI% EQU 0 if %OffUWP% EQU 1 (echo.&echo %_mOuwp%)
|
|
if %vol_offgl% EQU 1 (
|
|
if %ret_off16% EQU 1 if %_O16MSI% EQU 1 (echo.&echo %_mO16m%)
|
|
if %ret_off15% EQU 1 if %_O15MSI% EQU 1 (echo.&echo %_mO15m%)
|
|
if %winbuild% LSS 9200 if %loc_off14% EQU 1 if %vol_off14% EQU 0 (if defined _C14R (echo.&echo %_mO14c%) else if %_O14MSI% EQU 1 (if %ret_off14% EQU 1 echo.&echo %_mO14m%))
|
|
exit /b
|
|
)
|
|
set Off1ce=0
|
|
rem Retail C2R
|
|
if %AutoR2V% EQU 1 if %RanR2V% EQU 0 goto :C2RR2V
|
|
:ReturnSPP
|
|
rem Retail MSI/C2R or failed C2R-R2V
|
|
if %loc_off21% EQU 1 if %vol_off21% EQU 0 (
|
|
if %aC2R21% EQU 1 (echo.&echo %_mO21a%) else (echo.&echo %_mO21c%)
|
|
)
|
|
if %loc_off19% EQU 1 if %vol_off19% EQU 0 (
|
|
if %aC2R19% EQU 1 (echo.&echo %_mO19a%) else (echo.&echo %_mO19c%)
|
|
)
|
|
if %loc_off16% EQU 1 if %vol_off16% EQU 0 (
|
|
if defined _C16R (if %aC2R16% EQU 1 (echo.&echo %_mO16a%) else (if %sub_o365% EQU 0 echo.&echo %_mO16c%)) else if %_O16MSI% EQU 1 (if %ret_off16% EQU 1 echo.&echo %_mO16m%)
|
|
)
|
|
if %loc_off15% EQU 1 if %vol_off15% EQU 0 (
|
|
if defined _C15R (if %aC2R15% EQU 1 (echo.&echo %_mO15a%) else (echo.&echo %_mO15c%)) else if %_O15MSI% EQU 1 (if %ret_off15% EQU 1 echo.&echo %_mO15m%)
|
|
)
|
|
if %winbuild% LSS 9200 if %loc_off14% EQU 1 if %vol_off14% EQU 0 (
|
|
if defined _C14R (echo.&echo %_mO14c%) else if %_O14MSI% EQU 1 (if %ret_off14% EQU 1 echo.&echo %_mO14m%)
|
|
)
|
|
exit /b
|
|
|
|
:sppchkoff
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% > "!_temp!\sppchk.txt"
|
|
if %winbuild% LSS 9200 find /i "Office 14" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off14% EQU 0 exit /b)
|
|
find /i "Office 15" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off15% EQU 0 exit /b)
|
|
find /i "Office 16" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off16% EQU 0 exit /b)
|
|
find /i "Office 19" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off19% EQU 0 exit /b)
|
|
find /i "Office 21" "!_temp!\sppchk.txt" %_Nul1% && (if %loc_off21% EQU 0 exit /b)
|
|
if %1 EQU 1 (set _officespp=1) else (set _officespp=0)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"
|
|
%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% Name %_zz8%"
|
|
for /f "tokens=3 delims==, " %%G in ('%_qr%') do set OffVer=%%G
|
|
call :offchk%OffVer%
|
|
exit /b
|
|
|
|
:sppchkwin
|
|
set _officespp=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and Description like '%%KMSCLIENT%%' and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%"
|
|
if %winbuild% GEQ 14393 if %WinPerm% EQU 0 if %_gvlk% EQU 0 %_qr% %_Nul2% | findstr /i Windows %_Nul1% && (set _gvlk=1)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (echo.&call :activate&exit /b)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"
|
|
%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)
|
|
if %winbuild% GEQ 14393 if %_gvlk% EQU 1 exit /b
|
|
if %WinPerm% EQU 1 exit /b
|
|
if %winbuild% LSS 10240 (call :winchk&exit /b)
|
|
for %%A in (
|
|
b71515d9-89a2-4c60-88c8-656fbcca7f3a,af43f7f0-3b1e-4266-a123-1fdb53f4323b,075aca1f-05d7-42e5-a3ce-e349e7be7078
|
|
11a37f09-fb7f-4002-bd84-f3ae71d11e90,43f2ab05-7c87-4d56-b27c-44d0f9a3dabd,2cf5af84-abab-4ff0-83f8-f040fb2576eb
|
|
6ae51eeb-c268-4a21-9aae-df74c38b586d,ff808201-fec6-4fd4-ae16-abbddade5706,34260150-69ac-49a3-8a0d-4a403ab55763
|
|
4dfd543d-caa6-4f69-a95f-5ddfe2b89567,5fe40dd6-cf1f-4cf2-8729-92121ac2e997,903663f7-d2ab-49c9-8942-14aa9e0a9c72
|
|
2cc171ef-db48-4adc-af09-7c574b37f139,5b2add49-b8f4-42e0-a77c-adad4efeeeb1
|
|
) do (
|
|
if /i '%app%' EQU '%%A' exit /b
|
|
)
|
|
if not defined EditionID (call :winchk&exit /b)
|
|
if %winbuild% LSS 14393 (call :winchk&exit /b)
|
|
if /i '%app%' EQU '32d2fab3-e4a8-42c2-923b-4bf4fd13e6ee' if /i %EditionID% NEQ EnterpriseS exit /b
|
|
if /i '%app%' EQU 'ca7df2e3-5ea0-47b8-9ac1-b1be4d8edd69' if /i %EditionID% NEQ CloudEdition exit /b
|
|
if /i '%app%' EQU 'd30136fc-cb4b-416e-a23d-87207abc44a9' if /i %EditionID% NEQ CloudEditionN exit /b
|
|
if /i '%app%' EQU '0df4f814-3f57-4b8b-9a9d-fddadcd69fac' if /i %EditionID% NEQ CloudE exit /b
|
|
if /i '%app%' EQU 'e0c42288-980c-4788-a014-c080d2e1926e' if /i %EditionID% NEQ Education exit /b
|
|
if /i '%app%' EQU '73111121-5638-40f6-bc11-f1d7b0d64300' if /i %EditionID% NEQ Enterprise exit /b
|
|
if /i '%app%' EQU '2de67392-b7a7-462a-b1ca-108dd189f588' if /i %EditionID% NEQ Professional exit /b
|
|
if /i '%app%' EQU '3f1afc82-f8ac-4f6c-8005-1d233e606eee' if /i %EditionID% NEQ ProfessionalEducation exit /b
|
|
if /i '%app%' EQU '82bbc092-bc50-4e16-8e18-b74fc486aec3' if /i %EditionID% NEQ ProfessionalWorkstation exit /b
|
|
if /i '%app%' EQU '3c102355-d027-42c6-ad23-2e7ef8a02585' if /i %EditionID% NEQ EducationN exit /b
|
|
if /i '%app%' EQU 'e272e3e2-732f-4c65-a8f0-484747d0d947' if /i %EditionID% NEQ EnterpriseN exit /b
|
|
if /i '%app%' EQU 'a80b5abf-76ad-428b-b05d-a47d2dffeebf' if /i %EditionID% NEQ ProfessionalN exit /b
|
|
if /i '%app%' EQU '5300b18c-2e33-4dc2-8291-47ffcec746dd' if /i %EditionID% NEQ ProfessionalEducationN exit /b
|
|
if /i '%app%' EQU '4b1571d3-bafb-4b40-8087-a961be2caf65' if /i %EditionID% NEQ ProfessionalWorkstationN exit /b
|
|
if /i '%app%' EQU '58e97c99-f377-4ef1-81d5-4ad5522b5fd8' if /i %EditionID% NEQ Core exit /b
|
|
if /i '%app%' EQU 'cd918a57-a41b-4c82-8dce-1a538e221a83' if /i %EditionID% NEQ CoreSingleLanguage exit /b
|
|
if /i '%app%' EQU 'ec868e65-fadf-4759-b23e-93fe37f2cc29' if /i %EditionID% NEQ ServerRdsh exit /b
|
|
if /i '%app%' EQU 'e4db50ea-bda1-4566-b047-0ca50abc6f07' if /i %EditionID% NEQ ServerRdsh exit /b
|
|
set "_qr=%_zz1% %spp% %_zz2% "Description like '%%KMSCLIENT%%'" %_zz3% ID %_zz4%"
|
|
if /i "%app%" EQU "e4db50ea-bda1-4566-b047-0ca50abc6f07" (
|
|
%_qr% | findstr /i "ec868e65-fadf-4759-b23e-93fe37f2cc29" %_Nul3% && (exit /b)
|
|
)
|
|
call :winchk
|
|
exit /b
|
|
|
|
:winchk
|
|
if not defined tok (if %winbuild% GEQ 9200 (set "tok=4") else (set "tok=7"))
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%LicenseStatus='1' and Description like '%%KMSCLIENT%%' %adoff% %_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && (exit /b)
|
|
echo.
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%LicenseStatus='1' and GracePeriodRemaining='0' %adoff% and PartialProductKey is not NULL%_zz6% %_zz3% Name %_zz4%"
|
|
%_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && (
|
|
set WinPerm=1
|
|
)
|
|
set WinOEM=0
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Name %_zz4%"
|
|
if %WinPerm% EQU 0 %_qr% %_Nul2% | findstr /i "Windows" %_Nul3% && set WinOEM=1
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Description %_zz8%"
|
|
if %WinOEM% EQU 1 (
|
|
for /f "tokens=%tok% delims=, " %%G in ('%_qr%') do set "channel=%%G"
|
|
for %%A in (VOLUME_MAK, RETAIL, OEM_DM, OEM_SLP, OEM_COA, OEM_COA_SLP, OEM_COA_NSLP, OEM_NONSLP, OEM) do if /i "%%A"=="!channel!" set WinPerm=1
|
|
)
|
|
if %WinPerm% EQU 0 (
|
|
copy /y %SysPath%\slmgr.vbs "!_temp!\slmgr.vbs" %_Nul3%
|
|
cscript //nologo "!_temp!\slmgr.vbs" /xpr %_Nul2% | findstr /i "permanently" %_Nul3% && set WinPerm=1
|
|
)
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ApplicationID='%_wApp%' and LicenseStatus='1' %adoff% %_zz6% %_zz3% Name %_zz8%"
|
|
if %WinPerm% EQU 1 (
|
|
for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x
|
|
echo Product is Permanently Activated.
|
|
exit /b
|
|
)
|
|
call :insKey
|
|
exit /b
|
|
|
|
:esuchk
|
|
set _officespp=0
|
|
set ESU_ADD=1
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (echo.&call :activate&exit /b)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='77db037b-95c3-48d7-a3ab-a9c6d41093e0'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "3fcc2df2-f625-428d-909a-1f76efc849b6" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='0e00c25d-8795-4fb7-9572-3803d91b6880'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "dadfcd24-6e37-47be-8f7f-4ceda614cece" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='4220f546-f522-46df-8202-4d07afd26454'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "0c29c85e-12d7-4af8-8e4d-ca1e424c480c" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='553673ed-6ddf-419c-a153-b760283472fd'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "f2b21bfc-a6b0-4413-b4bb-9f06b55f2812" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='04fa0286-fa74-401e-bbe9-fbfbb158010d'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "bfc078d0-8c7f-475c-8519-accc46773113" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='16c08c85-0c8b-4009-9b2b-f1f7319e45f9'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "23c6188f-c9d8-457e-81b6-adb6dacb8779" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%ID='8e7bfb1e-acc1-4f56-abae-b80fce56cd4b'%_zz6% %_zz3% LicenseStatus %_zz4%"
|
|
if /i "%app%" EQU "e7cce015-33d6-41c1-9831-022ba63fe1da" (
|
|
%_qr% %_Nul2% | findstr "1" %_Nul1% && (exit /b)
|
|
)
|
|
set "_qr=%_zz1% %spp% %_zz2% %_zz5%PartialProductKey is not NULL%_zz6% %_zz3% ID %_zz4%"
|
|
%_qr% %_Nul2% | findstr /i "%app%" %_Nul1% && (echo.&call :activate&exit /b)
|
|
call :insKey
|
|
exit /b
|
|
|
|
:RunOSPP
|
|
set spp=OfficeSoftwareProtectionProduct
|
|
set sps=OfficeSoftwareProtectionService
|
|
set Off1ce=0
|
|
set RanR2V=0
|
|
set aC2R21=0
|
|
set aC2R19=0
|
|
set aC2R16=0
|
|
set aC2R15=0
|
|
if %winbuild% LSS 9200 (set "aword=2010-2021") else (set "aword=2010")
|
|
if %OsppHook% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b)
|
|
if %winbuild% GEQ 9200 if %loc_off14% EQU 0 (echo.&echo No Installed Office %aword% Product Detected...&exit /b)
|
|
set err_offsvc=0
|
|
net start osppsvc /y %_Nul3% || (
|
|
sc start osppsvc %_Nul3%
|
|
if !errorlevel! EQU 1053 set err_offsvc=1
|
|
)
|
|
if %err_offsvc% EQU 1 (echo.&echo Error: osppsvc service is not running...&exit /b)
|
|
if %winbuild% GEQ 9200 call :oppoff
|
|
if %winbuild% LSS 9200 call :sppoff
|
|
if %Off1ce% EQU 0 exit /b
|
|
if %_AUR% EQU 0 (
|
|
reg delete "HKLM\%OPPk%\%_oA14%" /f %_Null%
|
|
reg delete "HKLM\%OPPk%\%_oApp%" /f %_Null%
|
|
)
|
|
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)
|
|
if %_AUR% EQU 0 (
|
|
call :cREG %_Nul3%
|
|
) else (
|
|
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%
|
|
reg add "HKU\S-1-5-20\%SPPk%\%_wApp%\%app%" /f /v DiscoveredKeyManagementServiceIpAddress /t REG_SZ /d "127.0.0.2" %_Nul3%
|
|
for /f "tokens=2 delims==" %%x in ('%_qr%') do echo Checking: %%x
|
|
echo Product is KMS 2038 Activated.
|
|
exit /b
|
|
)
|
|
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 Activating: %%x
|
|
if %ESU_ADD% EQU 1 for /f "tokens=2 delims==f" %%x in ('%_qr%') do echo Activating: %%x
|
|
set ESU_ADD=0
|
|
set "_qr=wmic path %spp% where ID='%app%' call Activate"
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csm% "%spp%.ID='%app%'" Activate"
|
|
%_qr% %_Nul3%
|
|
call set ERRORCODE=%ERRORLEVEL%
|
|
if %ERRORCODE% EQU -1073418187 (
|
|
echo Product Activation Failed: 0xC004F035
|
|
if %OSType% EQU Win7 echo Windows 7 cannot be KMS-activated on this computer due to unqualified OEM BIOS.
|
|
echo See Read Me for details.
|
|
exit /b
|
|
)
|
|
if %ERRORCODE% EQU -1073417728 (
|
|
echo Product Activation Failed: 0xC004F200
|
|
echo Windows needs to rebuild the activation-related files.
|
|
echo See KB2736303 for details.
|
|
exit /b
|
|
)
|
|
if %ERRORCODE% EQU -1073422315 (
|
|
echo Product Activation Failed: 0xC004E015
|
|
echo Running slmgr.vbs /rilc to mitigate.
|
|
cscript //Nologo //B %SysPath%\slmgr.vbs /rilc
|
|
)
|
|
if %ERRORCODE% NEQ 0 (
|
|
if %sps% EQU SoftwareLicensingService (call :StopService sppsvc) else (call :StopService osppsvc)
|
|
%_qr% %_Nul3%
|
|
call set ERRORCODE=!ERRORLEVEL!
|
|
)
|
|
set gpr=0
|
|
set gpr2=0
|
|
set "_qr=%_zz7% %spp% %_zz2% %_zz5%ID='%app%'%_zz6% %_zz3% GracePeriodRemaining %_zz8%"
|
|
for /f "tokens=2 delims==" %%x in ('%_qr%') do (set gpr=%%x&set /a "gpr2=(%%x+1440-1)/1440")
|
|
if %ERRORCODE% EQU 0 if %gpr% EQU 0 (
|
|
echo Product Activation succeeded, but Remaining Period failed to increase.
|
|
if %OSType% EQU Win7 echo This could be related to the error described in KB4487266
|
|
exit /b
|
|
)
|
|
set Act_OK=0
|
|
if %gpr% EQU 43200 if %_officespp% EQU 0 if %winbuild% GEQ 9200 set Act_OK=1
|
|
if %gpr% EQU 64800 set Act_OK=1
|
|
if %gpr% GTR 259200 if %Win10Gov% EQU 1 set Act_OK=1
|
|
if %gpr% EQU 259200 set Act_OK=1
|
|
if %ERRORCODE% EQU 0 if %Act_OK% EQU 1 (
|
|
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 S_OK=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
|
|
|
|
:InstallHook
|
|
if %_dDbg%==Yes (
|
|
set "_para=/d /a"
|
|
if %ActWindows% EQU 0 set "_para=!_para! /o"
|
|
if %ActOffice% EQU 0 set "_para=!_para! /w"
|
|
if %vNextOverride% EQU 0 set "_para=!_para! /v"
|
|
if %SkipKMS38% EQU 0 set "_para=!_para! /x"
|
|
goto :DoDebug
|
|
)
|
|
if %_verb% EQU 1 (
|
|
if %Silent% EQU 0 if %_Debug% EQU 0 (
|
|
mode con cols=100 lines=34
|
|
%_Nul3% %_psc% "&%_buf%"
|
|
if %Unattend% EQU 0 title %_title%
|
|
)
|
|
echo.&echo %line3%&echo.
|
|
echo Installing Local KMS Emulator...
|
|
)
|
|
set "AddExc="
|
|
set "_qr=WMIC /NAMESPACE:\\root\Microsoft\Windows\Defender PATH MSFT_MpPreference call Add ExclusionPath=%_Hook% Force=True"
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csd% Add %_Hook%"
|
|
if %winbuild% GEQ 9600 (
|
|
%_qr% %_Nul3% && set "AddExc= and Windows Defender exclusion"
|
|
)
|
|
if %_verb% EQU 1 (
|
|
echo.
|
|
echo Adding File%AddExc%...
|
|
echo %SystemRoot%\System32\SppExtComObjHook.dll
|
|
)
|
|
if %_AUR% EQU 1 (
|
|
call :StopService sppsvc
|
|
if %OsppHook% NEQ 0 call :StopService osppsvc
|
|
)
|
|
for %%# in (SppExtComObjHookAvrf.dll,SppExtComObjHook.dll,SppExtComObjPatcher.dll,SppExtComObjPatcher.exe) do (
|
|
if exist "%SysPath%\%%#" del /f /q "%SysPath%\%%#" %_Nul3%
|
|
if exist "%SystemRoot%\SysWOW64\%%#" del /f /q "%SystemRoot%\SysWOW64\%%#" %_Nul3%
|
|
)
|
|
setlocal
|
|
set "TMP=%SystemRoot%\Temp"
|
|
set "TEMP=%SystemRoot%\Temp"
|
|
%_Nul3% %_psc% "$d='%_dllPath%';$f=[IO.File]::ReadAllText('!_batp!') -split ':embdbin\:.*';iex ($f[1]);X %_dllNum%"
|
|
endlocal
|
|
if %Unattend% EQU 0 title %_title%
|
|
if %_verb% EQU 1 (
|
|
echo.
|
|
echo Adding Registry Keys...
|
|
)
|
|
if %SSppHook% NEQ 0 call :CreateIFEOEntry %SppVer%
|
|
if %_AUR% EQU 1 (call :CreateIFEOEntry osppsvc.exe) else (if %OsppHook% NEQ 0 call :CreateIFEOEntry osppsvc.exe)
|
|
if %_AUR% EQU 1 if %OSType% EQU Win7 (
|
|
call :CreateIFEOEntry SppExtComObj.exe
|
|
if %SSppHook% NEQ 0 if not exist %w7inf% (
|
|
if %_verb% EQU 1 (echo.&echo Adding migration fail-safe...&echo %w7inf%)
|
|
if not exist "%SystemRoot%\Migration\WTR" md "%SystemRoot%\Migration\WTR"
|
|
(
|
|
echo [WTR]
|
|
echo Name="KMS_VL_ALL"
|
|
echo.
|
|
echo [WTR.*]
|
|
echo NotifyUser="No"
|
|
echo.
|
|
echo [System.Registry]
|
|
echo "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sppsvc.exe [*]"
|
|
)>%w7inf%
|
|
)
|
|
)
|
|
if %_AUR% EQU 1 if %OSType% EQU Win8 call :CreateTask
|
|
if %_verb% EQU 1 echo.&echo %line3%&echo.
|
|
goto :%_rtr%
|
|
|
|
:RemoveHook
|
|
if %_dDbg%==Yes (
|
|
set "_para=/d /r"
|
|
goto :DoDebug
|
|
)
|
|
set "RemExc="
|
|
set "_qr=WMIC /NAMESPACE:\\root\Microsoft\Windows\Defender PATH MSFT_MpPreference call Remove ExclusionPath=%_Hook% Force=True"
|
|
if %WMI_VBS% NEQ 0 set "_qr=%_csd% Remove %_Hook%"
|
|
if %winbuild% GEQ 9600 (
|
|
for %%# in (NoGenTicket,NoAcquireGT) do reg delete "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\CurrentVersion\Software Protection Platform" /v %%# /f %_Null%
|
|
%_qr% %_Nul3% && set "RemExc= and Windows Defender exclusions"
|
|
)
|
|
if %_verb% EQU 1 (
|
|
if %Silent% EQU 0 if %_Debug% EQU 0 (
|
|
mode con cols=100 lines=34
|
|
%_Nul3% %_psc% "&%_buf%"
|
|
if %Unattend% EQU 0 title %_title%
|
|
)
|
|
echo.&echo %line3%&echo.
|
|
echo Uninstalling Local KMS Emulator...
|
|
echo.
|
|
echo Removing Files%RemExc%...
|
|
)
|
|
for %%# in (SppExtComObjHookAvrf.dll,SppExtComObjHook.dll,SppExtComObjPatcher.dll,SppExtComObjPatcher.exe) do if exist "%SysPath%\%%#" (
|
|
if %_verb% EQU 1 echo %SystemRoot%\System32\%%#
|
|
del /f /q "%SysPath%\%%#" %_Nul3%
|
|
)
|
|
for %%# in (SppExtComObjHookAvrf.dll,SppExtComObjHook.dll,SppExtComObjPatcher.dll,SppExtComObjPatcher.exe) do if exist "%SystemRoot%\SysWOW64\%%#" (
|
|
if %_verb% EQU 1 echo %SystemRoot%\SysWOW64\%%#
|
|
del /f /q "%SystemRoot%\SysWOW64\%%#" %_Nul3%
|
|
)
|
|
if exist %w7inf% (
|
|
if %_verb% EQU 1 echo %w7inf%
|
|
del /f /q %w7inf%
|
|
)
|
|
if %_verb% EQU 1 (
|
|
echo.
|
|
echo Removing Registry Keys...
|
|
)
|
|
for %%# in (SppExtComObj.exe,sppsvc.exe,osppsvc.exe) do reg query "%IFEO%\%%#" %_Nul3% && (
|
|
call :RemoveIFEOEntry %%#
|
|
)
|
|
if %OSType% EQU Win8 schtasks /query /tn "%_TaskEx%" %_Nul3% && (
|
|
if %_verb% EQU 1 (
|
|
echo.
|
|
echo Removing Scheduled Task...
|
|
echo %_TaskEx%
|
|
)
|
|
schtasks /delete /f /tn "%_TaskEx%" %_Nul3%
|
|
)
|
|
goto :eof
|
|
|
|
:CreateIFEOEntry
|
|
if %_verb% EQU 1 (
|
|
echo [%IFEO%\%1]
|
|
)
|
|
reg delete "%IFEO%\%1" /f /v Debugger %_Null%
|
|
reg add "%IFEO%\%1" /f /v VerifierDlls /t REG_SZ /d "SppExtComObjHook.dll" %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v VerifierDebug /t REG_DWORD /d 0x00000000 %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v VerifierFlags /t REG_DWORD /d 0x80000000 %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v GlobalFlag /t REG_DWORD /d 0x00000100 %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v KMS_Emulation /t REG_DWORD /d %KMS_Emulation% %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v KMS_ActivationInterval /t REG_DWORD /d %KMS_ActivationInterval% %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v KMS_RenewalInterval /t REG_DWORD /d %KMS_RenewalInterval% %_Nul3%
|
|
if /i %1 EQU SppExtComObj.exe if %winbuild% GEQ 9600 (
|
|
reg add "%IFEO%\%1" /f /v KMS_HWID /t REG_QWORD /d "%KMS_HWID%" %_Nul3%
|
|
)
|
|
goto :eof
|
|
|
|
:RemoveIFEOEntry
|
|
if %_verb% EQU 1 (
|
|
echo [%IFEO%\%1]
|
|
)
|
|
if /i %1 NEQ osppsvc.exe (
|
|
reg delete "%IFEO%\%1" /f %_Null%
|
|
goto :eof
|
|
)
|
|
if %OsppHook% EQU 0 (
|
|
reg delete "%IFEO%\%1" /f %_Null%
|
|
)
|
|
if %OsppHook% NEQ 0 for %%A in (Debugger,VerifierDlls,VerifierDebug,VerifierFlags,GlobalFlag,KMS_Emulation,KMS_ActivationInterval,KMS_RenewalInterval,Office2010,Office2013,Office2016,Office2019) do reg delete "%IFEO%\%1" /v %%A /f %_Null%
|
|
reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%_uIP%" %_Nul3%
|
|
reg add "HKLM\%OPPk%" /f /v KeyManagementServicePort /t REG_SZ /d "1688" %_Nul3%
|
|
goto :eof
|
|
|
|
:UpdateIFEOEntry
|
|
reg add "%IFEO%\%1" /f /v KMS_ActivationInterval /t REG_DWORD /d %KMS_ActivationInterval% %_Nul3%
|
|
reg add "%IFEO%\%1" /f /v KMS_RenewalInterval /t REG_DWORD /d %KMS_RenewalInterval% %_Nul3%
|
|
if /i %1 EQU SppExtComObj.exe if %winbuild% GEQ 9600 (
|
|
reg add "%IFEO%\%1" /f /v KMS_HWID /t REG_QWORD /d "%KMS_HWID%" %_Nul3%
|
|
)
|
|
if /i %1 EQU sppsvc.exe (
|
|
reg add "%IFEO%\SppExtComObj.exe" /f /v KMS_ActivationInterval /t REG_DWORD /d %KMS_ActivationInterval% %_Nul3%
|
|
reg add "%IFEO%\SppExtComObj.exe" /f /v KMS_RenewalInterval /t REG_DWORD /d %KMS_RenewalInterval% %_Nul3%
|
|
)
|
|
|
|
: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
|
|
if not exist %_Hook% (
|
|
echo.
|
|
echo %_err%
|
|
echo File existence failed.
|
|
echo "%SystemRoot%\System32\SppExtComObjHook.dll"
|
|
echo.
|
|
echo Verify that Antivirus protection is OFF or the file path is excluded.
|
|
)
|
|
|
|
for /f "skip=1 tokens=* delims=" %%# in ('certutil -hashfile %_Hook% SHA1^|findstr /i /v CertUtil') do set "_hash=%%#"
|
|
set "_hash=%_hash: =%"
|
|
if /i not "%_hash%"=="%_orig%" (
|
|
echo.
|
|
echo %_err%
|
|
echo SHA1 hash verification failed.
|
|
echo "%SystemRoot%\System32\SppExtComObjHook.dll"
|
|
echo Expected: %_orig%
|
|
echo Detected: %_hash%
|
|
echo.
|
|
echo Verify that Antivirus protection is OFF or the file path is excluded.
|
|
)
|
|
|
|
set E_REG=0
|
|
if %SSppHook% NEQ 0 for %%A in (VerifierDlls,VerifierDebug,VerifierFlags,GlobalFlag,KMS_Emulation) do (
|
|
reg query "%IFEO%\%SppVer%" /v %%A %_Nul3% || set E_REG=1
|
|
)
|
|
if %E_REG% EQU 1 (
|
|
echo.
|
|
echo %_err%
|
|
echo Some or all required registry values are missing.
|
|
echo [%IFEO%\%SppVer%]
|
|
echo VerifierDlls, VerifierDebug, VerifierFlags, GlobalFlag, KMS_Emulation
|
|
echo.
|
|
echo Verify that Antivirus protection is OFF or the registry path is excluded.
|
|
)
|
|
set E_REG=0
|
|
if %OsppHook% NEQ 0 for %%A in (VerifierDlls,VerifierDebug,VerifierFlags,GlobalFlag,KMS_Emulation) do (
|
|
reg query "%IFEO%\osppsvc.exe" /v %%A %_Nul3% || set E_REG=1
|
|
)
|
|
if %E_REG% EQU 1 (
|
|
echo.
|
|
echo %_err%
|
|
echo Some or all required registry values are missing.
|
|
echo [%IFEO%\osppsvc.exe]
|
|
echo VerifierDlls, VerifierDebug, VerifierFlags, GlobalFlag, KMS_Emulation
|
|
echo.
|
|
echo Verify that Antivirus protection is OFF or the registry path is excluded.
|
|
)
|
|
|
|
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
|
|
|
|
:cREG
|
|
reg add "HKLM\%SPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%_uIP%"
|
|
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
|
|
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 "%_uIP%" /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 "%_uIP%" /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 "%_uIP%"
|
|
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
|
|
)
|
|
if %OsppHook% EQU 0 (
|
|
goto :eof
|
|
)
|
|
reg add "HKLM\%OPPk%" /f /v KeyManagementServiceName /t REG_SZ /d "%_uIP%"
|
|
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
|
|
|
|
:rREG
|
|
reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName
|
|
reg delete "HKLM\%SPPk%" /f /v KeyManagementServicePort
|
|
reg delete "HKLM\%SPPk%" /f /v DisableDnsPublishing
|
|
reg delete "HKLM\%SPPk%" /f /v DisableKeyManagementServiceHostCaching
|
|
reg delete "HKLM\%SPPk%\%_wApp%" /f
|
|
if %winbuild% GEQ 9200 (
|
|
if not %xOS%==x86 (
|
|
reg delete "HKLM\%SPPk%" /f /v KeyManagementServiceName /reg:32
|
|
reg delete "HKLM\%SPPk%" /f /v KeyManagementServicePort /reg:32
|
|
reg delete "HKLM\%SPPk%\%_oApp%" /f /reg:32
|
|
)
|
|
reg delete "HKLM\%SPPk%\%_oApp%" /f
|
|
)
|
|
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 delete "HKLM\%OPPk%" /f /v KeyManagementServiceName
|
|
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
|
|
|
|
:cCache
|
|
echo.
|
|
echo Clearing KMS Cache...
|
|
call :rREG %_Nul3%
|
|
set "_C16R="
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1"
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath /reg:32" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" set "_C16R=1"
|
|
if %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 apply manual or auto-renewal activation, and don't uninstall afterward.
|
|
)
|
|
if %Unattend% NEQ 0 goto :TheEnd
|
|
echo.&echo %line3%&echo.
|
|
echo Press any key to continue...
|
|
pause >nul
|
|
goto :MainMenu
|
|
|
|
:CreateTask
|
|
schtasks /query /tn "%_TaskEx%" %_Nul3% || (
|
|
schtasks /query /tn "%_TaskOs%" %_Nul3% && (
|
|
schtasks /query /tn "%_TaskOs%" /xml >"!_temp!\SvcTrigger.xml"
|
|
schtasks /create /tn "%_TaskEx%" /xml "!_temp!\SvcTrigger.xml" /f %_Nul3%
|
|
schtasks /change /tn "%_TaskEx%" /enable %_Nul3%
|
|
del /f /q "!_temp!\SvcTrigger.xml" %_Nul3%
|
|
)
|
|
)
|
|
schtasks /query /tn "%_TaskEx%" %_Nul3% || (
|
|
pushd %_temp%
|
|
%_Nul3% %_psc% "$f=[IO.File]::ReadAllText('!_batp!') -split ':spptask\:.*'; [IO.File]::WriteAllText('SvcTrigger.xml',$f[1].Trim(),[System.Text.Encoding]::Unicode)"
|
|
if %Unattend% EQU 0 title %_title%
|
|
popd
|
|
if exist "!_temp!\SvcTrigger.xml" (
|
|
schtasks /create /tn "%_TaskEx%" /xml "!_temp!\SvcTrigger.xml" /f %_Nul3%
|
|
del /f /q "!_temp!\SvcTrigger.xml" %_Nul3%
|
|
)
|
|
)
|
|
schtasks /query /tn "%_TaskEx%" %_Nul3% && if %_verb% EQU 1 (
|
|
echo.
|
|
echo Adding Scheduled Task...
|
|
echo %_TaskEx%
|
|
)
|
|
goto :eof
|
|
|
|
:CreateReadMe
|
|
if not exist "%PUBLIC%\ReadMeAIO.html" (
|
|
pushd %PUBLIC%
|
|
%_Nul3% %_psc% "$f=[IO.File]::ReadAllText('!_batp!') -split ':readme\:.*'; [IO.File]::WriteAllText('ReadMeAIO.html',$f[1].Trim(),[System.Text.Encoding]::UTF8)"
|
|
if %Unattend% EQU 0 title %_title%
|
|
popd
|
|
)
|
|
if exist "%PUBLIC%\ReadMeAIO.html" start "" "%PUBLIC%\ReadMeAIO.html"
|
|
timeout /t 2 %_Nul3%
|
|
goto :eof
|
|
|
|
:CreateOEM
|
|
cls
|
|
if exist "!_oem!\$OEM$\" (
|
|
echo.&echo %line3%&echo.
|
|
echo $OEM$ Folder already exist...
|
|
echo "!_oem!\$OEM$"
|
|
echo.
|
|
echo Manually remove it if you wish to create a fresh copy.
|
|
echo.&echo %line3%&echo.
|
|
echo Press any key to continue...
|
|
pause >nul
|
|
goto :eof
|
|
)
|
|
if not exist "!_oem!\$OEM$\$$\Setup\Scripts\KMS_VL_ALL_AIO.cmd" mkdir "!_oem!\$OEM$\$$\Setup\Scripts"
|
|
copy /y "!_batf!" "!_oem!\$OEM$\$$\Setup\Scripts\KMS_VL_ALL_AIO.cmd" %_Nul3%
|
|
(
|
|
echo @echo off
|
|
echo call %%~dp0KMS_VL_ALL_AIO.cmd /s /a
|
|
echo cd \
|
|
echo ^(goto^) 2^>nul^&rd /s /q "%%~dp0"
|
|
)>"!_oem!\$OEM$\$$\Setup\Scripts\setupcomplete.cmd"
|
|
echo.&echo %line3%&echo.
|
|
echo $OEM$ Folder Created...
|
|
echo.
|
|
echo "!_oem!\$OEM$"
|
|
echo.&echo %line3%&echo.
|
|
echo.
|
|
echo Press any key to continue...
|
|
pause >nul
|
|
goto :eof
|
|
|
|
:CreateBIN
|
|
cls
|
|
if exist "!_oem!\KMS_VL_ALL_AIO-bin\*.dll" if exist "!_oem!\KMS_VL_ALL_AIO-bin\*.cab" (
|
|
echo.&echo %line3%&echo.
|
|
echo Binaries Folder already exist...
|
|
echo "!_oem!\KMS_VL_ALL_AIO-bin"
|
|
echo.
|
|
echo Manually remove it if you wish to create a fresh copy.
|
|
echo.&echo %line3%&echo.
|
|
echo Press any key to continue...
|
|
pause >nul
|
|
goto :eof
|
|
)
|
|
if not exist "!_oem!\KMS_VL_ALL_AIO-bin\*.dll" mkdir "!_oem!\KMS_VL_ALL_AIO-bin"
|
|
pushd "!_oem!\KMS_VL_ALL_AIO-bin"
|
|
%_Nul3% rmdir /s /q .
|
|
setlocal
|
|
set "TMP=%SystemRoot%\Temp"
|
|
set "TEMP=%SystemRoot%\Temp"
|
|
%_Nul3% %_psc% "cd -Lit ($env:__CD__); $f=[IO.File]::ReadAllText('!_batp!') -split ':embdbin\:.*';iex ($f[1]); 2..4|%%{[BAT85]::Decode($_, $f[$_])}; [IO.File]::WriteAllText('CleanOffice.ps1',$f[5].Trim(),[System.Text.Encoding]::ASCII)"
|
|
endlocal
|
|
if %Unattend% EQU 0 title %_title%
|
|
%_Nul3% ren 2 SppExtComObjHook-x86.dll
|
|
%_Nul3% ren 3 SppExtComObjHook-x64.dll
|
|
%_Nul3% ren 4 SppExtComObjHook-arm64.dll
|
|
popd
|
|
echo.&echo %line3%&echo.
|
|
echo Binaries Folder Created...
|
|
echo.
|
|
echo "!_oem!\KMS_VL_ALL_AIO-bin"
|
|
echo.&echo %line3%&echo.
|
|
echo.
|
|
echo Press any key to continue...
|
|
pause >nul
|
|
goto :eof
|
|
|
|
:C2RR2V
|
|
set RanR2V=1
|
|
set "_SLMGR=%SysPath%\slmgr.vbs"
|
|
if %_Debug% EQU 0 (
|
|
set "_cscript=cscript //Nologo //B"
|
|
) else (
|
|
set "_cscript=cscript //Nologo"
|
|
)
|
|
set _LTSC=0
|
|
set "_tag="&set "_ons= 2016"
|
|
sc query ClickToRunSvc %_Nul3%
|
|
set error1=%errorlevel%
|
|
sc query OfficeSvc %_Nul3%
|
|
set error2=%errorlevel%
|
|
if %error1% EQU 1060 if %error2% EQU 1060 (
|
|
echo Error: Office C2R service is not detected
|
|
goto :%_fC2R%
|
|
)
|
|
set _Office16=0
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (
|
|
set _Office16=1
|
|
)
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses16\ProPlus*.xrm-ms" (
|
|
set _Office16=1
|
|
)
|
|
set _Office15=0
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (
|
|
set _Office15=1
|
|
)
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do if exist "%%b\root\Licenses\ProPlus*.xrm-ms" (
|
|
set _Office15=1
|
|
)
|
|
if %_Office16% EQU 0 if %_Office15% EQU 0 (
|
|
echo Error: Office C2R InstallPath is not detected
|
|
goto :%_fC2R%
|
|
)
|
|
|
|
:Reg16istry
|
|
if %_Office16% EQU 0 goto :Reg15istry
|
|
set "_InstallRoot="
|
|
set "_ProductIds="
|
|
set "_GUID="
|
|
set "_Config="
|
|
set "_PRIDs="
|
|
set "_LicensesPath="
|
|
set "_Integrator="
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do (set "_InstallRoot=%%b\root")
|
|
if not "%_InstallRoot%"=="" (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do (set "_OSPPVBS=%%b\Office16\OSPP.VBS")
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun /v PackageGUID" %_Nul6%') do (set "_GUID=%%b")
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_ProductIds=%%b")
|
|
set "_Config=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"
|
|
set "_PRIDs=HKLM\SOFTWARE\Microsoft\Office\ClickToRun\ProductReleaseIDs"
|
|
) else (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do (set "_InstallRoot=%%b\root")
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v InstallPath" %_Nul6%') do (set "_OSPPVBS=%%b\Office16\OSPP.VBS")
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun /v PackageGUID" %_Nul6%') do (set "_GUID=%%b")
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_ProductIds=%%b")
|
|
set "_Config=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\Configuration"
|
|
set "_PRIDs=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\ClickToRun\ProductReleaseIDs"
|
|
)
|
|
set "_LicensesPath=%_InstallRoot%\Licenses16"
|
|
set "_Integrator=%_InstallRoot%\integration\integrator.exe"
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query %_PRIDs% /v ActiveConfiguration" %_Nul6%') do set "_PRIDs=%_PRIDs%\%%b"
|
|
if "%_ProductIds%"=="" (
|
|
if %_Office15% EQU 0 (echo Error: Office C2R ProductIDs are not detected&goto :%_fC2R%) else (goto :Reg15istry)
|
|
)
|
|
if not exist "%_LicensesPath%\ProPlus*.xrm-ms" (
|
|
if %_Office15% EQU 0 (echo Error: Office C2R Licenses files are not detected&goto :%_fC2R%) else (goto :Reg15istry)
|
|
)
|
|
if not exist "%_Integrator%" (
|
|
if %_Office15% EQU 0 (echo Error: Office C2R Licenses Integrator is not detected&goto :%_fC2R%) else (goto :Reg15istry)
|
|
)
|
|
if exist "%_LicensesPath%\Word2019VL_KMS_Client_AE*.xrm-ms" (set "_tag=2019"&set "_ons= 2019")
|
|
if exist "%_LicensesPath%\Word2021VL_KMS_Client_AE*.xrm-ms" (set _LTSC=1)
|
|
if %winbuild% LSS 10240 if !_LTSC! EQU 1 (set "_tag=2021"&set "_ons= 2021")
|
|
if %_Office15% EQU 0 goto :CheckC2R
|
|
|
|
:Reg15istry
|
|
set "_Install15Root="
|
|
set "_Product15Ids="
|
|
set "_Con15fig="
|
|
set "_PR15IDs="
|
|
set "_OSPP15Ready="
|
|
set "_Licenses15Path="
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do (set "_Install15Root=%%b\root")
|
|
if not "%_Install15Root%"=="" (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_Product15Ids=%%b")
|
|
set "_Con15fig=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds"
|
|
set "_PR15IDs=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\ProductReleaseIDs"
|
|
set "_OSPP15Ready=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\Configuration"
|
|
) else (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun /v InstallPath" %_Nul6%') do (set "_Install15Root=%%b\root")
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds" %_Nul6%') do (set "_Product15Ids=%%b")
|
|
set "_Con15fig=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\Configuration /v ProductReleaseIds"
|
|
set "_PR15IDs=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\ProductReleaseIDs"
|
|
set "_OSPP15Ready=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\Configuration"
|
|
)
|
|
set "_OSPP15ReadT=REG_SZ"
|
|
if "%_Product15Ids%"=="" (
|
|
reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid" %_Nul6%') do (set "_Product15Ids=%%b")
|
|
set "_Con15fig=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid"
|
|
set "_OSPP15Ready=HKLM\SOFTWARE\Microsoft\Office\15.0\ClickToRun"
|
|
set "_OSPP15ReadT=REG_DWORD"
|
|
)
|
|
reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid %_Nul3% && (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid" %_Nul6%') do (set "_Product15Ids=%%b")
|
|
set "_Con15fig=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun\propertyBag /v productreleaseid"
|
|
set "_OSPP15Ready=HKLM\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\ClickToRun"
|
|
set "_OSPP15ReadT=REG_DWORD"
|
|
)
|
|
)
|
|
set "_Licenses15Path=%_Install15Root%\Licenses"
|
|
if exist "%ProgramFiles%\Microsoft Office\Office15\OSPP.VBS" (
|
|
set "_OSPP15VBS=%ProgramFiles%\Microsoft Office\Office15\OSPP.VBS"
|
|
) else if exist "%ProgramW6432%\Microsoft Office\Office15\OSPP.VBS" (
|
|
set "_OSPP15VBS=%ProgramW6432%\Microsoft Office\Office15\OSPP.VBS"
|
|
) else if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\OSPP.VBS" (
|
|
set "_OSPP15VBS=%ProgramFiles(x86)%\Microsoft Office\Office15\OSPP.VBS"
|
|
)
|
|
if "%_Product15Ids%"=="" (
|
|
if %_Office16% EQU 0 (echo Error: Office 2013 C2R ProductIDs are not detected&goto :%_fC2R%) else (goto :CheckC2R)
|
|
)
|
|
if not exist "%_Licenses15Path%\ProPlus*.xrm-ms" (
|
|
if %_Office16% EQU 0 (echo Error: Office 2013 C2R Licenses files are not detected&goto :%_fC2R%) else (goto :CheckC2R)
|
|
)
|
|
if %winbuild% LSS 9200 if not exist "%_OSPP15VBS%" (
|
|
if %_Office16% EQU 0 (echo Error: Office 2013 C2R Licensing tool OSPP.vbs is not detected&goto :%_fC2R%) else (goto :CheckC2R)
|
|
)
|
|
|
|
:CheckC2R
|
|
set _OMSI=0
|
|
if %_Office16% EQU 0 (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1
|
|
)
|
|
if %_Office15% EQU 0 (
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1
|
|
for /f "skip=2 tokens=2*" %%a in ('"reg query HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot /v Path" %_Nul6%') do if exist "%%b\OSPP.VBS" set _OMSI=1
|
|
)
|
|
if %winbuild% GEQ 9200 (
|
|
set _spp=SoftwareLicensingProduct
|
|
set _sps=SoftwareLicensingService
|
|
set "_vbsi=%_SLMGR% /ilc "
|
|
set "_vbsf=%_SLMGR% /ilc "
|
|
) else (
|
|
set _spp=OfficeSoftwareProtectionProduct
|
|
set _sps=OfficeSoftwareProtectionService
|
|
set _vbsi="!_OSPP15VBS!" /inslic:
|
|
set _vbsf="!_OSPPVBS!" /inslic:
|
|
)
|
|
set "_wmi="
|
|
set "_qr=%_zz7% %_sps% %_zz3% Version %_zz8%"
|
|
for /f "tokens=2 delims==" %%# in ('%_qr%') do set _wmi=%%#
|
|
if "%_wmi%"=="" (
|
|
echo Error: %_sps% WMI version is not detected
|
|
call :CheckWS
|
|
goto :%_fC2R%
|
|
)
|
|
set _Retail=0
|
|
set "_ocq=ApplicationID='%_oApp%' AND LicenseStatus='1' AND PartialProductKey is not NULL"
|
|
if %WMI_VBS% EQU 0 wmic path %_spp% where (%_ocq%) get Description %_Nul2% |findstr /V /R "^$" >"!_temp!\crvRetail.txt"
|
|
set "_qr=%_csq% %_spp% "%_ocq%" Description"
|
|
if %WMI_VBS% NEQ 0 %_qr% %_Nul2% >"!_temp!\crvRetail.txt"
|
|
find /i "RETAIL channel" "!_temp!\crvRetail.txt" %_Nul1% && set _Retail=1
|
|
find /i "RETAIL(MAK) channel" "!_temp!\crvRetail.txt" %_Nul1% && set _Retail=1
|
|
find /i "TIMEBASED_SUB channel" "!_temp!\crvRetail.txt" %_Nul1% && set _Retail=1
|
|
set rancopp=0
|
|
if %_Retail% EQU 0 if %_OMSI% EQU 0 call :oppcln
|
|
goto :oppchk
|
|
|
|
:oppcln
|
|
set rancopp=1
|
|
%_Nul3% %_psc% "$f=[IO.File]::ReadAllText('!_batp!') -split ':embdbin\:.*';iex ($f[5])"
|
|
if %Unattend% EQU 0 title %_title%
|
|
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% && |