Win_Office_ALL_KMS_Activation激活腳本-創(chuàng)新互聯(lián)

@echo off&setlocal EnableDelayedExpansion&color 5e
title KMS_Activation for Windows ALL - (Comlan)

創(chuàng)新互聯(lián)從2013年開始，先為東寶等服務(wù)建站，東寶等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為東寶企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

:WH

cls

echo.

echo Select the version of Windows that needs to be activated----COMLAN

echo.

echo --------------------------------------------------------------------------------

echo 1. Windows 10 ALL

echo.

echo 2. Windows 8.1 ALL

echo.

echo 3. Windows 8 ALL

echo.

echo 4. Windows 7 ALL

echo.

echo 5. Windows Server 2012 ALL

echo.

echo 6. Windows Server 2012 R2 ALL

echo.

echo 7. Windows Server 2016 ALL

echo.

echo 8. Windows Server 2008 R2 ALL

echo.

echo 9. Office 2016 ALL

echo.

echo 10. Office 2013 ALL

echo.

echo 11. Office 2010 ALL

echo.

echo 12. Office VOL ALL

echo. --------------------------------------------------------------------------------

set /p tsk="Please enter the version number of the Windows you want to activate (Enter) Confirm（1-8）: "

if not defined tsk goto:err

if %tsk%==1 goto:1

if %tsk%==2 goto:2

if %tsk%==3 goto:3

if %tsk%==4 goto:4

if %tsk%==5 goto:5

if %tsk%==6 goto:6

if %tsk%==7 goto:7

if %tsk%==8 goto:8

if %tsk%==9 goto:9

if %tsk%==10 goto:10

if %tsk%==11 goto:11

if %tsk%==12 goto:12

:err

goto:WH

cls

set KMS_Sev=172.19.34.146:1688

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

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

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_Sev%
cscript //Nologo %windir%\system32\slmgr.vbs /ato
) else (
echo.&echo Not found DEFINED Key: "%EditionID%".
echo.
)
pause
exit

:verchk
ver | find "10.0." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 10.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=172.19.34.146:1688

::======================= The following content does not need to change ======================
call :adminchk

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-H9DH4J

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=kms.comlan.com

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

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

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:verchk
ver | find "8.1." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 8.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=kms.comlan.com

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

set Professional=NG4HW-VH26C-733KW-K6F98-J8CK4
set ProfessionalN=XCVCF-2NXM9-723PB-MHCB7-2RYQQ
set Enterprise=32JNW-9KQ84-P47T8-D8GGY-CWCK7
set EnterpriseN=JMNMF-RHW7P-DMY6X-RF3DR-X2BQT

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:verchk
ver | find "8.0." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 8.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=172.19.34.146:1688

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

set ServerDatacenter=48HP8-DN98B-MYWDG-T2DCC-8W83P
set ServerStandard=XC9B7-NBPP2-83J2H-RHMBY-92BT4

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:verchk
ver | find "10.0." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 10.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=172.19.34.146:1688

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

set ServerDatacenter=W3GGN-FT8W3-Y4M27-J84CP-Q3VJ9
set ServerStandard=D2N9P-3P6X9-2R39C-7RTCD-MDVJX
set ServerEnterprise=KNC87-3J2TX-XB4WP-VCPJV-M4FWM

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:verchk
ver | find "10.0." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 10.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=172.19.34.146:1688

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

set ServerDatacenter=CB7KF-BWN84-R7R2Y-793K2-8XDDG
set ServerStandard=WC2BQ-8NRM3-FDDYY-2BFGV-KHKQY
set ServerEnterprise=JCKRF-N37P4-C2D82-9YXRT-4M63B

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:verchk
ver | find "10.0." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 10.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set KMS_Sev=172.19.34.146:1688

::======================= The following content does not need to change ======================
call :verchk
call :adminchk

set ServerDatacenter=74YFP-3QFB3-KQT8W-PMXWJ-7M648
set ServerStandard=YC6KT-GKW9T-YTKYR-T4X34-R7VHC
set ServerEnterprise=489J6-VHDMP-X63PK-3K798-CPX3Y

for /f "tokens=3 delims= " %%i in ('reg QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "EditionID"') do set EditionID=%%i

:verchk
ver | find "10.0." >nul 2>nul && (goto :EOF)
echo.&echo The current OS is NOT Windows 10.
echo.&pause
exit

:adminchk
reg query "HKU\S-1-5-19" >nul 2>nul || (
cls&echo.&echo Run as ADMINISTRATOR, Pls.
echo.&echo Press any key to exit.
echo.&pause>nul
exit)
goto :EOF

cls

set BatPath=%~dp0
set BatPath=%BatPath:~0,-1%
for /f "tokens=6 delims=[]. " %%G in ('ver') do set win=%%G

rem Judging 32/64 bit
set "ospp=%ProgramFiles%\Microsoft Office\Office16\ospp.vbs"
if not exist "%ospp%" (
set "ospp=%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs"
)

:Setting variables===============================
set ip=172.19.34.146:1688

:Start the KMS server==========================

:172.19.34.146:1688
if %errorlevel% EQU 0 (
echo Connect the KMS server：%ip% success！
echo.
) else ( goto :172.19.34.146:1688 )

:Start activation===============================
ECHO.Office Is activating……

::Uninstall the installed product key. The following number is the last 5 digits of the key.
::cscript ospp.vbs /unpkey:xxxxx

::Office Professional Plus Key
::Visio Professional Key
::Project Professional Key
cscript "%ospp%" /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 >nul
cscript "%ospp%" /inpkey:PD3PC-RHNGV-FXJ29-8JK7D-RJRJK >nul
cscript "%ospp%" /inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G83KT >nul
cscript "%ospp%" /inpkey:JNRGM-WHDWX-FJJG3-K47QV-DRTFM >nul
cscript "%ospp%" /inpkey:7WHWN-4T7MP-G96JF-G33KR-W8GF4 >nul
cscript "%ospp%" /inpkey:GNFHQ-F6YQM-KQDGJ-327XX-KQBVC >nul

cscript "%ospp%" /sethst:%ip% >nul
cscript "%ospp%" /act
pause

:dstatus
cls
echo Office Active state……
cscript "%ospp%" /dstatus
pause
goto :EFO

:10

cls

set BatPath=%~dp0
set BatPath=%BatPath:~0,-1%
for /f "tokens=6 delims=[]. " %%G in ('ver') do set win=%%G

rem Judging 32/64 bit
set "ospp=%ProgramFiles%\Microsoft Office\Office15\ospp.vbs"
if not exist "%ospp%" (
set "ospp=%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs"
)

:Setting variables===============================
set ip=172.19.34.146:1688

:Start the KMS server==========================

:172.19.34.146:1688
if %errorlevel% EQU 0 (
echo Connect the KMS server：%ip% success！
echo.
) else ( goto :172.19.34.146:1688 )

:Start activation===============================
ECHO.Office Is activating……

::Uninstall the installed product key. The following number is the last 5 digits of the key.
::cscript ospp.vbs /unpkey:xxxxx

::Office Professional Plus Key
::Visio Professional Key
::Project Professional Key
cscript "%ospp%" /inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT >nul
cscript "%ospp%" /inpkey:C2FG9-N6J68-H8BTJ-BW3QX-RM3B3 >nul
cscript "%ospp%" /inpkey:FN8TT-7WMH6-2D4X9-M337T-2342K >nul
cscript "%ospp%" /inpkey:KBKQT-2NMXY-JJWGP-M62JB-92CD4 >nul
cscript "%ospp%" /inpkey:J484Y-4NKBF-W2HMG-DBMJC-PGWR7 >nul
cscript "%ospp%" /inpkey:6NTH3-CW976-3G3Y2-JK3TX-8QHTT >nul

cscript "%ospp%" /sethst:%ip% >nul
cscript "%ospp%" /act
pause

:dstatus
cls
echo Office Active state……
cscript "%ospp%" /dstatus
pause

goto :EFO

:11

cls

set BatPath=%~dp0
set BatPath=%BatPath:~0,-1%
for /f "tokens=6 delims=[]. " %%G in ('ver') do set win=%%G

rem Judging 32/64 bit
set "ospp=%ProgramFiles%\Microsoft Office\Office15\ospp.vbs"
if not exist "%ospp%" (
set "ospp=%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs"
)

:Setting variables===============================
set ip=172.19.34.146:1688

:Start the KMS server==========================

:172.19.34.146:1688
if %errorlevel% EQU 0 (
echo Connect the KMS server：%ip% success！
echo.
) else ( goto :172.19.34.146:1688 )

:Start activation===============================
ECHO.Office Is activating……

::Uninstall the installed product key. The following number is the last 5 digits of the key.
::cscript ospp.vbs /unpkey:xxxxx

::Office Professional Plus Key
::Office 2013 Standard Key
::Visio Professional Key
::Project Professional Key
cscript "%ospp%" /inpkey:VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB >nul
cscript "%ospp%" /inpkey:7MCW8-VRQVK-G677T-PDJCM-Q8TCP >nul
cscript "%ospp%" /inpkey:YGX6F-PGV49-PGW3J-9BTGG-VHKC6 >nul
cscript "%ospp%" /inpkey:V7QKV-4XVVR-XYV4D-F7DFM-8R6BM >nul
cscript "%ospp%" /inpkey:767HD-QGMWX-8QTDB-9G3R2-KHFGJ >nul
cscript "%ospp%" /inpkey:4HP3K-88W3F-W2K3D-6677X-F9PGB >nul

cscript "%ospp%" /sethst:%ip% >nul
cscript "%ospp%" /act
pause

:dstatus
cls
echo Office Active state……
cscript "%ospp%" /dstatus
pause

goto :EFO
:EOF

echo.

echo Activation was successful. Please press any key to exit!

pause >nul

exit

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

網(wǎng)站標(biāo)題：Win_Office_ALL_KMS_Activation激活腳本-創(chuàng)新互聯(lián)
分享網(wǎng)址：http://muchs.cn/article44/hihhe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站內(nèi)鏈、虛擬主機(jī)、軟件開發(fā)、Google、網(wǎng)站導(dǎo)航、移動網(wǎng)站建設(shè)

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容