Update KMS-qwqdanchun.bat

This commit is contained in:
qwqdanchun 2020-06-24 01:39:50 +08:00 committed by GitHub
parent e43c313679
commit 91320c6c84
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 40 additions and 44 deletions

View File

@ -1,15 +1,14 @@
@echo off
mode con cols=75 lines=25
title 簞純的KMS激活
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 有问题请邮件至287182701@qq.com
set /p xuanze=【A】KMS激活Windows 【B】KMS激活Office 【C】清除Windows KMS 【D】清除Office KMS 【E】激活office 2019 请输入你的选择:
echo 本脚本需要右键管理员运行
echo 有问题请邮件至287182701@qq.com
set /p xuanze=【A】KMS激活Windows 【B】KMS激活Office 【C】清除Windows KMS 【D】清除Office KMS 【E】激活office 2019 请输入你的选择:
if /i "%xuanze%"=="a" cls&goto start1
if /i "%xuanze%"=="b" cls&goto start2
if /i "%xuanze%"=="c" cls&goto start3
@ -17,26 +16,26 @@ if /i "%xuanze%"=="d" cls&goto start4
if /i "%xuanze%"=="e" cls&goto start5
:start2
set KMS_Sev=kms.cangshui.net
set KMS_Sev=kms.v0v.bid
cls
echo 正在检查本机网络情况耐心等待
echo 正在检查本机网络情况耐心等待
echo.
ping cloud.tencent.com | find "超时" > NUL && goto fail
ping cloud.tencent.com | find "目标主机" > NUL && goto fail
echo 本机网络良好……
ping cloud.tencent.com | find "超时" > NUL && goto fail
ping cloud.tencent.com | find "目标主机" > NUL && goto fail
echo 本机网络良好……
goto office
:office
echo 检查安装的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
if DEFINED _Office16Path (echo.&echo 已发现 Office2016
call :ActOffice 16 Office2016
) else (echo.&echo 未发现 Office2016)
) else (echo.&echo 未发现 Office2016)
echo.&pause
@ -46,16 +45,16 @@ exit
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
echo.&echo 尝试激活 %2 ...&echo.
cscript //nologo ospp.vbs /sethst:kms.v0v.bid >nul
cscript //nologo ospp.vbs /act | find /i "successful" && (
echo.&echo ***** %2 激活成功 ***** & echo.) || (echo.&echo ***** %2 激活失败 ***** & echo.)
echo.&echo ***** %2 激活成功 ***** & echo.) || (echo.&echo ***** %2 激活失败 ***** & echo.)
)
cd /d "%~dp0"
goto :EOF
:GetOfficePath
echo.&echo 正在检测 %2 系列产品的安装路径...
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
@ -65,7 +64,7 @@ if DEFINED _OfficePath1 (if exist "%_OfficePath1%ospp.vbs" set _Office%1Path=!_O
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)
if DEFINED _Office%1Path (echo.&echo 已发现 %2) else (echo.&echo 未发现 %2)
goto :EOF
:Licens16
@ -89,7 +88,7 @@ goto :EOF
exit
:fail
cls
echo 无法连接到服务器……
echo 无法连接到服务器……
pause
:start5
@ -99,9 +98,9 @@ echo Converting...
(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)
cscript //nologo ospp.vbs /unpkey:6MWKP >nul&cscript //nologo ospp.vbs /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul&set i=1
:server
if %i%==1 set KMS_Sev=kms.cangshui.net
if %i%==2 set KMS_Sev=kms.cangshui.net
if %i%==3 set KMS_Sev=kms.cangshui.net
if %i%==1 set KMS_Sev=kms.v0v.bid
if %i%==2 set KMS_Sev=kms.v0v.bid
if %i%==3 set KMS_Sev=kms.v0v.bid
cscript //nologo ospp.vbs /sethst:%KMS_Sev% >nul
echo %KMS_Sev% & echo Activating...
cscript //nologo ospp.vbs /act | find /i "successful" && (echo Complete) || (echo Trying another KMS Server & set /a i+=1 & goto server)
@ -109,26 +108,26 @@ pause >nul
exit
:start1
set KMS_Sev=kms.cangshui.net
set KMS_Sev=kms.v0v.bid
cls
echo 如果提示未找到序列号请手动在CMD里运行
echo 如果提示未找到序列号请手动在CMD里运行
echo reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"
echo 这个命令,把显示结果和系统版本发至我的邮箱
echo 正在检查本机网络情况耐心等待
echo 这个命令,把显示结果和系统版本发至我的邮箱
echo 正在检查本机网络情况耐心等待
echo.
ping cloud.tencent.com | find "超时" > NUL && goto fail
ping cloud.tencent.com | find "目标主机" > NUL && goto fail
echo 本机网络良好……
ping cloud.tencent.com | find "超时" > NUL && goto fail
ping cloud.tencent.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。
echo 未找到合适的NT6系统可能是WinXP或Win2003。
goto office
:winvista
echo 当前为Windows Vista/2008。
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
@ -145,7 +144,7 @@ set ServerEnterpriseIA64=4DWFP-JF3DJ-B7DTH-78FJB-PDRHK
goto windowsstart
:win7
echo 当前为Windows 7/2008 R2。
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
@ -160,7 +159,7 @@ set ServerDatacenter=74YFP-3QFB3-KQT8W-PMXWJ-7M648
set ServerEnterpriseIA64=GT63C-RJFQ3-4GMB6-BRFB9-CB83V
goto windowsstart
:win8
echo 当前为Windows 8/2012。
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
@ -175,7 +174,7 @@ set ServerStandard=XC9B7-NBPP2-83J2H-RHMBY-92BT4
set ServerDatacenter=48HP8-DN98B-MYWDG-T2DCC-8W83P
goto windowsstart
:win81
echo 当前为Windows 8.1。
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
@ -186,7 +185,7 @@ set ServerDatacenter=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9
set EmbeddedIndustry=32JNW-9KQ84-P47T8-D8GGY-CWCK7
goto windowsstart
:win10
echo 当前为Windows 10/Server 2016。
echo 当前为Windows 10/Server 2016。
set Core=TX9XD-98N7V-6WMQ6-BX7FG-H8Q99
set CoreCountrySpecific=PVMJN-6DFY6-9CCP6-7BKTT-D3WVR
set CoreN=3KHY7-WNT83-DGQKR-F7HPR-844BM
@ -214,16 +213,16 @@ goto 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 /skms kms.v0v.bid
cscript //Nologo %windir%\system32\slmgr.vbs /ato
) else (
echo 找不到序列号,可能是旗舰版之类的系统……
echo 找不到序列号,可能是旗舰版之类的系统……
)
echo.&pause
exit
:start4
set /p xuanze=是否真的要清除Office的KMS激活【Y】继续 【N】关闭
set /p xuanze=是否真的要清除Office的KMS激活【Y】继续 【N】关闭
if /i "%xuanze%"=="y" goto nextun
if /i "%xuanze%"=="n" exit
@ -273,11 +272,11 @@ cscript "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /unpkey:RJRJ
ping 127.0.0.1 -n 1 > nul
cscript "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" /remhst
cls
echo 清除完成
echo 清除完成
ping 127.0.0.1 -n 10 > nul
:start3
set /p xuanze=是否真的要清除Windows的KMS【Y】继续 【N】关闭
set /p xuanze=是否真的要清除Windows的KMS【Y】继续 【N】关闭
if /i "%xuanze%"=="y" goto nextunw
if /i "%xuanze%"=="n" exit
:nextunw
@ -285,8 +284,5 @@ slmgr /upk
slmgr /ckms
slmgr /rearm
cls
echo 清除完成,请重启电脑
echo 清除完成,请重启电脑
ping 127.0.0.1 -n 10 > nul