之前转载过一篇 Linux搭建KMS微软激活服务器的文章，用了的一种办法，今天我有看到一篇，于是再次转载了一下， 两篇内容可能是雷同的。
KMS服务器
这个功能是在Windows之后的产品中的一种新型产品激活机制
下载vlmcsd
wget https://github.com/Wind4/vlmcsd/releases/download/svn1113/binaries.tar.gz
解压并查看 tar -zxvf binaries.tar.gz cd binaries/Linux/intel/static/ ls
选择系统版本
vlmcsd-x64-musl-static或vlmcsd-x86-musl-static(64位/32位)
<code>
chmod u+x vlmcsd-x64-musl-static
./vlmcsd-x64-musl-static
</code>
chmod u+x vlmcsd-x64-musl-static
./vlmcsd-x64-musl-static
</code>
执行完成，就已经部署完毕了，系统会开启1688端口
防火墙放行
<code>iptables -I INPUT 5 -p tcp -m state --state NEW -m tcp --dport 1688 -j ACCEPT
</code>
</code>
开机自启
<code class="hljs html xml">vim /etc/rc.local
cd /root/binaries/Linux/intel/static/ && ./vlmcsd-x64-musl-static
</code>
cd /root/binaries/Linux/intel/static/ && ./vlmcsd-x64-musl-static
</code>
测试KMS服务器
下载https://github.com/Wind4/vlmcsd/releases 并解压
进入\binaries\Windows\intel 目录，开启 PowerShell 或者CMD终端
根据你本地的 Windows 为 x86 或 x64，输入命令
.\vlmcs-Windows-x86.exe -v -l 3 服务器IP或者绑定的域名
.\vlmcs-Windows-x64.exe -v -l 3 服务器IP或者绑定的域名
其中 -l 3表示发送Windows Server 2019 Datacenter的激活请求，具体版本对应列表可以通过 .\vlmcs-Windows-x64.exe -x 查看
如果显示如下，那么就搭建成功了
激活 Windows
以管理员身份打开命令提示符
slmgr.vbs /upk #清除密钥
slmgr.vbs /ipk 密钥 #更改密钥
slmgr.vbs /skms kms域名 #设置kms服务器
slmgr.vbs /ato #激活
slmgr.vbs /xpr #查看激活时效
Office
cd “C:\Program Files\Microsoft Office\Office14” 【Office2010】 #office安装位置
cd “C:\Program Files\Microsoft Office\Office15” 【Office2013】 #office安装位置
cd “C:\Program Files\Microsoft Office\Office16” 【Office2016】 #office安装位置
cscript ospp.vbs /inpkey:密钥 #更改密钥
cscript ospp.vbs /sethst:kms域名 #设置kms服务器
cscript ospp.vbs /act #立即激活
cscript ospp.vbs /dstatus #查看激活信息
密钥
Office：https://docs.microsoft.com/zh-cn/DeployOffice/vlactivation/gvlks
KMS 方式激活的有效期只有180天，每隔一段时间系统会自动请求 KMS 服务器续期，只要你的服务器正常，续期就没问题
项目地址：https://github.com/Wind4/vlmcsd/
一下是一串快速激活的脚本 激活服务器是 kms.cangshui.net，新建批处理文件（新建文本，然后把扩展名改成.cmd或.bat）把以下命令复制批处理文件中，管理员运行，选着A、还是B、还是C或者D。
@echo off
mode con cols=75 lines=25
title 沧水的KMS脚本
setlocal EnableDelayedExpansion&color 70 & cd /d "%~dp0"
%1 %2
ver|find "5.">nul&&goto :start
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :start","","runas",1)(window.close)&goto :eof
:start
echo 本脚本需要右键管理员运行
echo 适用于使用我的脚本激活了Windows的用户
echo 有问题请留言http://kms.cangshui.net
set /p xuanze=【A】KMS激活Windows 【B】KMS激活Office 【C】清除Windows KMS 【D】清除Office KMS 请输入你的选择:
if /i "%xuanze%"=="a" cls&goto start1
if /i "%xuanze%"=="b" cls&goto start2
if /i "%xuanze%"=="c" cls&goto start3
if /i "%xuanze%"=="d" cls&goto start4
:start2
set KMS_Sev=kms.cangshui.net
cls
echo 正在检查本机网络情况耐心等待
echo.
ping 8.8.8.8 | find "超时" > NUL && goto fail
ping 8.8.8.8 | find "目标主机" > NUL && goto fail
echo 本机网络良好……
goto office
:office
echo 检查安装的office……
call :GetOfficePath 14 Office2010
call :ActOffice 14 Office2010
call :GetOfficePath 15 Office2013
call :ActOffice 15 Office2013
if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" set _Office16Path=%ProgramFiles%\Microsoft Office\Office16
if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" set _Office16Path=%ProgramFiles(x86)%\Microsoft Office\Office16
if DEFINED _Office16Path (echo.&echo 已发现 Office2016
call :ActOffice 16 Office2016
) else (echo.&echo 未发现 Office2016)
echo.&pause
exit
:ActOffice
if DEFINED _Office%1Path (
cd /d "!_Office%1Path!"
if %1 EQU 16 call :Licens16
echo.&echo 尝试激活 %2 ...&echo.
cscript //nologo ospp.vbs /sethst:kms.cangshui.net >nul
cscript //nologo ospp.vbs /act | find /i "successful" && (
echo.&echo ***** %2 激活成功 ***** & echo.) || (echo.&echo ***** %2 激活失败 ***** & echo.)
)
cd /d "%~dp0"
goto :EOF
:GetOfficePath
echo.&echo 正在检测 %2 系列产品的安装路径...
set _Office%1Path=
set _Reg32=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%1.0\Common\InstallRoot
set _Reg64=HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%1.0\Common\InstallRoot
reg query "%_Reg32%" /v "Path" > nul 2>&1 && FOR /F "tokens=2*" %%a IN ('reg query "%_Reg32%" /v "Path"') do SET "_OfficePath1=%%b"
reg query "%_Reg64%" /v "Path" > nul 2>&1 && FOR /F "tokens=2*" %%a IN ('reg query "%_Reg64%" /v "Path"') do SET "_OfficePath2=%%b"
if DEFINED _OfficePath1 (if exist "%_OfficePath1%ospp.vbs" set _Office%1Path=!_OfficePath1!)
if DEFINED _OfficePath2 (if exist "%_OfficePath2%ospp.vbs" set _Office%1Path=!_OfficePath2!)
set _OfficePath1=
set _OfficePath2=
if DEFINED _Office%1Path (echo.&echo 已发现 %2) else (echo.&echo 未发现 %2)
goto :EOF
:Licens16
for /f %%x in ('dir /b ..\root\Licenses16\project???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\standardvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\project???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\standardvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
cscript ospp.vbs /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul
cscript ospp.vbs /inpkey:NYH39-6GMXT-T39D4-WVXY2-D69YY >nul
cscript ospp.vbs /inpkey:7WHWN-4T7MP-G96JF-G33KR-W8GF4 >nul
cscript ospp.vbs /inpkey:RBWW7-NTJD4-FFK2C-TDJ7V-4C2QP >nul
cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 >nul
cscript ospp.vbs /inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G83KT >nul
cscript ospp.vbs /inpkey:PD3PC-RHNGV-FXJ29-8JK7D-RJRJK >nul
goto :EOF
exit
:fail
cls
echo 无法连接到服务器……
pause
:start1
set KMS_Sev=kms.cangshui.net
cls
echo 我的个人博客：https://cangshui.net/
echo 如果提示未找到序列号，请手动在CMD里运行
echo reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"
echo 这个命令，把显示结果和系统版本直接在博客评论留言
echo 正在检查本机网络情况耐心等待
echo.
ping www.zenlayer.com | find "超时" > NUL && goto fail
ping www.zenlayer.com | find "目标主机" > NUL && goto fail
echo 本机网络良好……
ver | find "6.0." > NUL && goto winvista
ver | find "6.1." > NUL && goto win7
ver | find "6.2." > NUL && goto win8
ver | find "6.3." > NUL && goto win81
ver | find "10.0." > NUL && goto win10
echo 未找到合适的NT6系统，可能是WinXP或Win2003。
goto office
:winvista
echo 当前为Windows Vista/2008。
set Business=YFKBB-PQJJV-G996G-VWGXY-2V3X8
set BusinessN=HMBQG-8H2RH-C77VX-27R82-VMQBT
set Enterprise=VKK3X-68KWM-X2YGT-QR4M6-4BWMV
set EnterpriseN=VTC42-BM838-43QHV-84HX6-XJXKV
set ServerWeb=WYR28-R7TFJ-3X2YQ-YCY4H-M249D
set ServerStandard=TM24T-X9RMF-VWXK6-X8JC9-BFGM2
set ServerStandardV=W7VD6-7JFBR-RX26B-YKQ3Y-6FFFJ
set ServerEnterprise=YQGMW-MPWTJ-34KDK-48M3W-X4Q6V
set ServerEnterpriseV=39BXF-X8Q23-P2WWT-38T2F-G3FPG
set ServerWeb=RCTX3-KWVHP-BR6TB-RB6DM-6X7HP
set ServerDatacenter=7M67G-PC374-GR742-YH8V4-TCBY3
set ServerDatacenterV=22XQ2-VRXRG-P8D42-K34TD-G3QQC
set ServerEnterpriseIA64=4DWFP-JF3DJ-B7DTH-78FJB-PDRHK
goto windowsstart
:win7
echo 当前为Windows 7/2008 R2。
set Professional=FJ82H-XT6CR-J8D7P-XQJJ2-GPDD4
set ProfessionalN=MRPKT-YTG23-K7D7T-X2JMM-QY7MG
set ProfessionalE=W82YF-2Q76Y-63HXB-FGJG9-GF7QX
set Enterprise=33PXH-7Y6KF-2VJC9-XBBR8-HVTHH
set EnterpriseN=YDRBP-3D83W-TY26F-D46B2-XCKRJ
set EnterpriseE=C29WB-22CC8-VJ326-GHFJW-H9DH4
set ServerWeb=6TPJF-RBVHG-WBW2R-86QPH-6RTM4
set ServerHPC=TT8MH-CG224-D3D7Q-498W2-9QCTX
set ServerStandard=YC6KT-GKW9T-YTKYR-T4X34-R7VHC
set ServerEnterprise=489J6-VHDMP-X63PK-3K798-CPX3Y
set ServerDatacenter=74YFP-3QFB3-KQT8W-PMXWJ-7M648
set ServerEnterpriseIA64=GT63C-RJFQ3-4GMB6-BRFB9-CB83V
goto windowsstart
:win8
echo 当前为Windows 8/2012。
set Professional=NG4HW-VH26C-733KW-K6F98-J8CK4
set ProfessionalN=XCVCF-2NXM9-723PB-MHCB7-2RYQQ
set Core=BN3D2-R7TKB-3YPBD-8DRP2-27GG4
set Enterprise=32JNW-9KQ84-P47T8-D8GGY-CWCK7
set EnterpriseN=JMNMF-RHW7P-DMY6X-RF3DR-X2BQT
set CoreN=8N2M2-HWPGY-7PGT9-HGDD8-GVGGY
set CoreSingleLanguage=2WN2H-YGCQR-KFX6K-CD6TF-84YXQ
set CoreCountrySpecific=4K36P-JN4VD-GDC6V-KDT89-DYFKP
set ServerMultiPointPremium=XNH6W-2V9GX-RGJ4K-Y8X6F-QGJ2G
set ServerMultiPointStandard=HM7DN-YVMH3-46JC3-XYTG7-CYQJJ
set ServerStandard=XC9B7-NBPP2-83J2H-RHMBY-92BT4
set ServerDatacenter=48HP8-DN98B-MYWDG-T2DCC-8W83P
goto windowsstart
:win81
echo 当前为Windows 8.1。
set Professional=GCRJD-8NW9H-F2CDX-CCM8D-9D6T9
set ProfessionalN=HMCNV-VVBFX-7HMBH-CTY9B-B4FXY
set Enterprise=MHF9N-XY6XB-WVXMC-BTDCT-MKKG7
set EnterpriseN=TT4HM-HN7YT-62K67-RGRQJ-JFFXW
set ServerSolution=KNC87-3J2TX-XB4WP-VCPJV-M4FWM
set ServerStandard=D2N9P-3P6X9-2R39C-7RTCD-MDVJX
set ServerDatacenter=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9
set EmbeddedIndustry=32JNW-9KQ84-P47T8-D8GGY-CWCK7
goto windowsstart
:win10
echo 当前为Windows 10/Server 2016-2019。
set Core=TX9XD-98N7V-6WMQ6-BX7FG-H8Q99
set CoreCountrySpecific=PVMJN-6DFY6-9CCP6-7BKTT-D3WVR
set CoreN=3KHY7-WNT83-DGQKR-F7HPR-844BM
set CoreSingleLanguage=7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH
set Professional=W269N-WFGWX-YVC9B-4J6C9-T83GX
set ProfessionalN=MH37W-N47XK-V7XM9-C7227-GCQG9
set Enterprise=NPPR9-FWDCX-D2C8J-H872K-2YT43
set EnterpriseN=DPH2V-TTNVB-4X9Q3-TJR4H-KHJW4
set Education=NW6C2-QMPVW-D7KKK-3GKT6-VCFB2
set EducationN=2WH4N-8QGBV-H22JP-CT43Q-MDWWJ
set EnterpriseS=WNMTR-4C88C-JK8YV-HQ7T2-76DF9
set EnterpriseSN=2F77B-TNFGY-69QQF-B8YKP-D69TJ
set ServerDatacenter=CB7KF-BWN84-R7R2Y-793K2-8XDDG
set ServerStandard=WC2BQ-8NRM3-FDDYY-2BFGV-KHKQY
set ServerEssentials=JCKRF-N37P4-C2D82-9YXRT-4M63B
set EnterpriseG=YYVX9-NTFWV-6MDM3-9PT4T-4M68B
set EnterpriseGN=44RPN-FTY23-9VTTB-MP9BX-T84FV
set ProfessionalEducation=6TP4R-GNPTD-KYYHQ-7B7DP-J447Y
set ProfessionalEducationN=YVWGF-BXNMC-HTQYQ-CPQ99-66QFC
set ProfessionalWorkstation=NRG8B-VKK3Q-CXVCJ-9G2XF-6Q84J
set ProfessionalWorkstations=NRG8B-VKK3Q-CXVCJ-9G2XF-6Q84J
set ProfessionalWorkstationsN=9FNHH-K3HBT-3W4TD-6383H-6XYWF
set ServerDatacenter=WMDGN-G9PQG-XVVXX-R3X43-63DFG
set ServerStandard=N69G4-B89J2-4G8F4-WWYCC-J464C
set ServerEssentials=WVDHN-86M7X-466P6-VHXV7-YY726
set ServerRdsh=CPWHC-NT2C7-VYW78-DHDB2-PG3GK
goto windowsstart
:windowsstart
for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i
if defined %EditionID% (
cscript //Nologo %windir%\system32\slmgr.vbs /ipk !%EditionID%!
cscript //Nologo %windir%\system32\slmgr.vbs /skms kms.cangshui.net
cscript //Nologo %windir%\system32\slmgr.vbs /ato
) else (
echo 找不到序列号，可能是旗舰版之类的系统……
)
echo.&pause
exit
:start4
set /p xuanze=是否真的要清除Office的KMS激活？【Y】继续 【N】关闭
if /i "%xuanze%"=="y" goto nextun
if /i "%xuanze%"=="n" exit
:nextun
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:RJRJK
ping 127.0.0.1 -n 1 > nul
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /remhst
cls
echo 清除完成
ping 127.0.0.1 -n 10 > nul
exit
:start3
set /p xuanze=是否真的要清除Windows的KMS？【Y】继续 【N】关闭
if /i "%xuanze%"=="y" goto nextunw
if /i "%xuanze%"=="n" exit
:nextunw
slmgr /upk
slmgr /ckms
slmgr /rearm
cls
echo 清除完成，请重启电脑
ping 127.0.0.1 -n 10 > nul
mode con cols=75 lines=25
title 沧水的KMS脚本
setlocal EnableDelayedExpansion&color 70 & cd /d "%~dp0"
%1 %2
ver|find "5.">nul&&goto :start
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :start","","runas",1)(window.close)&goto :eof
:start
echo 本脚本需要右键管理员运行
echo 适用于使用我的脚本激活了Windows的用户
echo 有问题请留言http://kms.cangshui.net
set /p xuanze=【A】KMS激活Windows 【B】KMS激活Office 【C】清除Windows KMS 【D】清除Office KMS 请输入你的选择:
if /i "%xuanze%"=="a" cls&goto start1
if /i "%xuanze%"=="b" cls&goto start2
if /i "%xuanze%"=="c" cls&goto start3
if /i "%xuanze%"=="d" cls&goto start4
:start2
set KMS_Sev=kms.cangshui.net
cls
echo 正在检查本机网络情况耐心等待
echo.
ping 8.8.8.8 | find "超时" > NUL && goto fail
ping 8.8.8.8 | find "目标主机" > NUL && goto fail
echo 本机网络良好……
goto office
:office
echo 检查安装的office……
call :GetOfficePath 14 Office2010
call :ActOffice 14 Office2010
call :GetOfficePath 15 Office2013
call :ActOffice 15 Office2013
if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" set _Office16Path=%ProgramFiles%\Microsoft Office\Office16
if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" set _Office16Path=%ProgramFiles(x86)%\Microsoft Office\Office16
if DEFINED _Office16Path (echo.&echo 已发现 Office2016
call :ActOffice 16 Office2016
) else (echo.&echo 未发现 Office2016)
echo.&pause
exit
:ActOffice
if DEFINED _Office%1Path (
cd /d "!_Office%1Path!"
if %1 EQU 16 call :Licens16
echo.&echo 尝试激活 %2 ...&echo.
cscript //nologo ospp.vbs /sethst:kms.cangshui.net >nul
cscript //nologo ospp.vbs /act | find /i "successful" && (
echo.&echo ***** %2 激活成功 ***** & echo.) || (echo.&echo ***** %2 激活失败 ***** & echo.)
)
cd /d "%~dp0"
goto :EOF
:GetOfficePath
echo.&echo 正在检测 %2 系列产品的安装路径...
set _Office%1Path=
set _Reg32=HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%1.0\Common\InstallRoot
set _Reg64=HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\%1.0\Common\InstallRoot
reg query "%_Reg32%" /v "Path" > nul 2>&1 && FOR /F "tokens=2*" %%a IN ('reg query "%_Reg32%" /v "Path"') do SET "_OfficePath1=%%b"
reg query "%_Reg64%" /v "Path" > nul 2>&1 && FOR /F "tokens=2*" %%a IN ('reg query "%_Reg64%" /v "Path"') do SET "_OfficePath2=%%b"
if DEFINED _OfficePath1 (if exist "%_OfficePath1%ospp.vbs" set _Office%1Path=!_OfficePath1!)
if DEFINED _OfficePath2 (if exist "%_OfficePath2%ospp.vbs" set _Office%1Path=!_OfficePath2!)
set _OfficePath1=
set _OfficePath2=
if DEFINED _Office%1Path (echo.&echo 已发现 %2) else (echo.&echo 未发现 %2)
goto :EOF
:Licens16
for /f %%x in ('dir /b ..\root\Licenses16\project???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\standardvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\project???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\standardvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
cscript ospp.vbs /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul
cscript ospp.vbs /inpkey:NYH39-6GMXT-T39D4-WVXY2-D69YY >nul
cscript ospp.vbs /inpkey:7WHWN-4T7MP-G96JF-G33KR-W8GF4 >nul
cscript ospp.vbs /inpkey:RBWW7-NTJD4-FFK2C-TDJ7V-4C2QP >nul
cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 >nul
cscript ospp.vbs /inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G83KT >nul
cscript ospp.vbs /inpkey:PD3PC-RHNGV-FXJ29-8JK7D-RJRJK >nul
goto :EOF
exit
:fail
cls
echo 无法连接到服务器……
pause
:start1
set KMS_Sev=kms.cangshui.net
cls
echo 我的个人博客：https://cangshui.net/
echo 如果提示未找到序列号，请手动在CMD里运行
echo reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"
echo 这个命令，把显示结果和系统版本直接在博客评论留言
echo 正在检查本机网络情况耐心等待
echo.
ping www.zenlayer.com | find "超时" > NUL && goto fail
ping www.zenlayer.com | find "目标主机" > NUL && goto fail
echo 本机网络良好……
ver | find "6.0." > NUL && goto winvista
ver | find "6.1." > NUL && goto win7
ver | find "6.2." > NUL && goto win8
ver | find "6.3." > NUL && goto win81
ver | find "10.0." > NUL && goto win10
echo 未找到合适的NT6系统，可能是WinXP或Win2003。
goto office
:winvista
echo 当前为Windows Vista/2008。
set Business=YFKBB-PQJJV-G996G-VWGXY-2V3X8
set BusinessN=HMBQG-8H2RH-C77VX-27R82-VMQBT
set Enterprise=VKK3X-68KWM-X2YGT-QR4M6-4BWMV
set EnterpriseN=VTC42-BM838-43QHV-84HX6-XJXKV
set ServerWeb=WYR28-R7TFJ-3X2YQ-YCY4H-M249D
set ServerStandard=TM24T-X9RMF-VWXK6-X8JC9-BFGM2
set ServerStandardV=W7VD6-7JFBR-RX26B-YKQ3Y-6FFFJ
set ServerEnterprise=YQGMW-MPWTJ-34KDK-48M3W-X4Q6V
set ServerEnterpriseV=39BXF-X8Q23-P2WWT-38T2F-G3FPG
set ServerWeb=RCTX3-KWVHP-BR6TB-RB6DM-6X7HP
set ServerDatacenter=7M67G-PC374-GR742-YH8V4-TCBY3
set ServerDatacenterV=22XQ2-VRXRG-P8D42-K34TD-G3QQC
set ServerEnterpriseIA64=4DWFP-JF3DJ-B7DTH-78FJB-PDRHK
goto windowsstart
:win7
echo 当前为Windows 7/2008 R2。
set Professional=FJ82H-XT6CR-J8D7P-XQJJ2-GPDD4
set ProfessionalN=MRPKT-YTG23-K7D7T-X2JMM-QY7MG
set ProfessionalE=W82YF-2Q76Y-63HXB-FGJG9-GF7QX
set Enterprise=33PXH-7Y6KF-2VJC9-XBBR8-HVTHH
set EnterpriseN=YDRBP-3D83W-TY26F-D46B2-XCKRJ
set EnterpriseE=C29WB-22CC8-VJ326-GHFJW-H9DH4
set ServerWeb=6TPJF-RBVHG-WBW2R-86QPH-6RTM4
set ServerHPC=TT8MH-CG224-D3D7Q-498W2-9QCTX
set ServerStandard=YC6KT-GKW9T-YTKYR-T4X34-R7VHC
set ServerEnterprise=489J6-VHDMP-X63PK-3K798-CPX3Y
set ServerDatacenter=74YFP-3QFB3-KQT8W-PMXWJ-7M648
set ServerEnterpriseIA64=GT63C-RJFQ3-4GMB6-BRFB9-CB83V
goto windowsstart
:win8
echo 当前为Windows 8/2012。
set Professional=NG4HW-VH26C-733KW-K6F98-J8CK4
set ProfessionalN=XCVCF-2NXM9-723PB-MHCB7-2RYQQ
set Core=BN3D2-R7TKB-3YPBD-8DRP2-27GG4
set Enterprise=32JNW-9KQ84-P47T8-D8GGY-CWCK7
set EnterpriseN=JMNMF-RHW7P-DMY6X-RF3DR-X2BQT
set CoreN=8N2M2-HWPGY-7PGT9-HGDD8-GVGGY
set CoreSingleLanguage=2WN2H-YGCQR-KFX6K-CD6TF-84YXQ
set CoreCountrySpecific=4K36P-JN4VD-GDC6V-KDT89-DYFKP
set ServerMultiPointPremium=XNH6W-2V9GX-RGJ4K-Y8X6F-QGJ2G
set ServerMultiPointStandard=HM7DN-YVMH3-46JC3-XYTG7-CYQJJ
set ServerStandard=XC9B7-NBPP2-83J2H-RHMBY-92BT4
set ServerDatacenter=48HP8-DN98B-MYWDG-T2DCC-8W83P
goto windowsstart
:win81
echo 当前为Windows 8.1。
set Professional=GCRJD-8NW9H-F2CDX-CCM8D-9D6T9
set ProfessionalN=HMCNV-VVBFX-7HMBH-CTY9B-B4FXY
set Enterprise=MHF9N-XY6XB-WVXMC-BTDCT-MKKG7
set EnterpriseN=TT4HM-HN7YT-62K67-RGRQJ-JFFXW
set ServerSolution=KNC87-3J2TX-XB4WP-VCPJV-M4FWM
set ServerStandard=D2N9P-3P6X9-2R39C-7RTCD-MDVJX
set ServerDatacenter=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9
set EmbeddedIndustry=32JNW-9KQ84-P47T8-D8GGY-CWCK7
goto windowsstart
:win10
echo 当前为Windows 10/Server 2016-2019。
set Core=TX9XD-98N7V-6WMQ6-BX7FG-H8Q99
set CoreCountrySpecific=PVMJN-6DFY6-9CCP6-7BKTT-D3WVR
set CoreN=3KHY7-WNT83-DGQKR-F7HPR-844BM
set CoreSingleLanguage=7HNRX-D7KGG-3K4RQ-4WPJ4-YTDFH
set Professional=W269N-WFGWX-YVC9B-4J6C9-T83GX
set ProfessionalN=MH37W-N47XK-V7XM9-C7227-GCQG9
set Enterprise=NPPR9-FWDCX-D2C8J-H872K-2YT43
set EnterpriseN=DPH2V-TTNVB-4X9Q3-TJR4H-KHJW4
set Education=NW6C2-QMPVW-D7KKK-3GKT6-VCFB2
set EducationN=2WH4N-8QGBV-H22JP-CT43Q-MDWWJ
set EnterpriseS=WNMTR-4C88C-JK8YV-HQ7T2-76DF9
set EnterpriseSN=2F77B-TNFGY-69QQF-B8YKP-D69TJ
set ServerDatacenter=CB7KF-BWN84-R7R2Y-793K2-8XDDG
set ServerStandard=WC2BQ-8NRM3-FDDYY-2BFGV-KHKQY
set ServerEssentials=JCKRF-N37P4-C2D82-9YXRT-4M63B
set EnterpriseG=YYVX9-NTFWV-6MDM3-9PT4T-4M68B
set EnterpriseGN=44RPN-FTY23-9VTTB-MP9BX-T84FV
set ProfessionalEducation=6TP4R-GNPTD-KYYHQ-7B7DP-J447Y
set ProfessionalEducationN=YVWGF-BXNMC-HTQYQ-CPQ99-66QFC
set ProfessionalWorkstation=NRG8B-VKK3Q-CXVCJ-9G2XF-6Q84J
set ProfessionalWorkstations=NRG8B-VKK3Q-CXVCJ-9G2XF-6Q84J
set ProfessionalWorkstationsN=9FNHH-K3HBT-3W4TD-6383H-6XYWF
set ServerDatacenter=WMDGN-G9PQG-XVVXX-R3X43-63DFG
set ServerStandard=N69G4-B89J2-4G8F4-WWYCC-J464C
set ServerEssentials=WVDHN-86M7X-466P6-VHXV7-YY726
set ServerRdsh=CPWHC-NT2C7-VYW78-DHDB2-PG3GK
goto windowsstart
:windowsstart
for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i
if defined %EditionID% (
cscript //Nologo %windir%\system32\slmgr.vbs /ipk !%EditionID%!
cscript //Nologo %windir%\system32\slmgr.vbs /skms kms.cangshui.net
cscript //Nologo %windir%\system32\slmgr.vbs /ato
) else (
echo 找不到序列号，可能是旗舰版之类的系统……
)
echo.&pause
exit
:start4
set /p xuanze=是否真的要清除Office的KMS激活？【Y】继续 【N】关闭
if /i "%xuanze%"=="y" goto nextun
if /i "%xuanze%"=="n" exit
:nextun
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /unpkey:RJRJK
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:6MWKP
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:D69YY
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:W8GF4
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:4C2QP
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:WFG99
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:G83KT
cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:RJRJK
ping 127.0.0.1 -n 1 > nul
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /remhst
cls
echo 清除完成
ping 127.0.0.1 -n 10 > nul
exit
:start3
set /p xuanze=是否真的要清除Windows的KMS？【Y】继续 【N】关闭
if /i "%xuanze%"=="y" goto nextunw
if /i "%xuanze%"=="n" exit
:nextunw
slmgr /upk
slmgr /ckms
slmgr /rearm
cls
echo 清除完成，请重启电脑
ping 127.0.0.1 -n 10 > nul