Kms-Keys.bat

@echo off
echo 正在设置 Windows KMS 服务器地址...
slmgr /skms 192.168.88.100:1688
if %errorlevel% neq 0 (
    echo 设置 Windows KMS 服务器地址出错，错误代码：%errorlevel%
    goto OFFICE_ACTIVATION
) else (
    echo Windows KMS 服务器地址设置成功。
)

echo 正在安装 Windows 专业版 激活密钥...
set "WIN_SUCCESS=0"
for %%i in (
    VK7JG-NPHTM-C97JM-9MPGT-3V66T  REM Windows 11 专业版
    W269N-WFGWX-YVC9B-4J6C9-T83GX  REM Windows 10 专业版
    GCRJD-8NW9H-F2CDX-CCM8D-9D6T9  REM Windows 8.1 专业版
    NG4HW-VH26C-733KW-K6F98-J8CK4  REM Windows 8 专业版
    FJ82H-XT6CR-J8D7P-XQJJ2-GPDD4  REM Windows 7 专业版
) do (
    echo 尝试安装 Windows 密钥：%%i
    slmgr /ipk %%i
    if %errorlevel% equ 0 (
        echo 尝试激活 Windows 使用密钥：%%i
        slmgr /ato
        if %errorlevel% equ 0 (
            echo Windows 专业版 激活成功！
            set "WIN_SUCCESS=1"
            goto OFFICE_ACTIVATION
        ) else (
            echo Windows 激活失败，错误代码：%errorlevel%
        )
    ) else (
        echo 安装 Windows 密钥 %%i 出错，错误代码：%errorlevel%
    )
)
if %WIN_SUCCESS% equ 0 echo 所有 Windows 密钥尝试激活均失败！

:OFFICE_ACTIVATION
echo 正在安装 Office 专业增强版 激活密钥...
set "OFFICE_SUCCESS=0"
for %%p in (
    "%ProgramFiles%\Microsoft Office\Office17"
    "%ProgramFiles(x86)%\Microsoft Office\Office17"
    "%ProgramFiles%\Microsoft Office\Office16"
    "%ProgramFiles(x86)%\Microsoft Office\Office16"
    "%ProgramFiles%\Microsoft Office\Office15"
    "%ProgramFiles(x86)%\Microsoft Office\Office15"
    "%ProgramFiles%\Microsoft Office\Office14"
    "%ProgramFiles(x86)%\Microsoft Office\Office14"
) do (
    if exist "%%p" (
        echo 进入 Office 安装路径：%%p
        cd /d "%%p"
        echo 正在设置 Office KMS 服务器地址...
        cscript ospp.vbs /sethst:192.168.88.100:1688
        if %errorlevel% equ 0 (
            echo Office KMS 服务器地址设置成功。
            for %%k in (
		NW6C2-QMPVW-D7KKK-3GKT6-VCFB2  REM Office 365 专业增强版
                7TQNP-QGJJ7-M8WQM-669XQ-T3YR2  REM Office 2024 专业增强版
                FVYHM-NBNVK-KV89C-77TYP-33BDP  REM Office 2021 专业增强版
                NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP  REM Office 2019 专业增强版
                XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99  REM Office 2016 专业增强版
                YC7DK-G2NP3-2QQC3-J6H88-GVGXT  REM Office 2013 专业增强版
                VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB  REM Office 2010 专业增强版
            ) do (
                echo 尝试安装 Office 密钥：%%k
                cscript ospp.vbs /inpkey:%%k
                if %errorlevel% equ 0 (
                    echo 尝试激活 Office 使用密钥：%%k
                    cscript ospp.vbs /act
                    if %errorlevel% equ 0 (
                        echo Office 激活成功！
                        set "OFFICE_SUCCESS=1"
                        goto END
                    ) else (
                        echo Office 激活失败，错误代码：%errorlevel%
                    )
                ) else (
                    echo 安装 Office 密钥 %%k 出错，错误代码：%errorlevel%
                )
            )
            echo 在路径 %%p 下所有 Office 密钥尝试激活均失败！
        ) else (
            echo 在路径 %%p 设置 Office KMS 服务器地址出错，错误代码：%errorlevel%
        )
    )
)
if %OFFICE_SUCCESS% equ 0 echo 所有 Office 安装路径尝试激活均失败！

:END
pause

@echo off

echo 正在设置 Windows KMS 服务器地址...

slmgr /skms 192.168.88.100:1688

if %errorlevel% neq 0 (

echo 设置 Windows KMS 服务器地址出错，错误代码：%errorlevel%

goto OFFICE_ACTIVATION

) else (

echo Windows KMS 服务器地址设置成功。

)

echo 正在安装 Windows 专业版激活密钥...

set "WIN_SUCCESS=0"

for %%i in (

VK7JG-NPHTM-C97JM-9MPGT-3V66T REM Windows 11 专业版

W269N-WFGWX-YVC9B-4J6C9-T83GX REM Windows 10 专业版

GCRJD-8NW9H-F2CDX-CCM8D-9D6T9 REM Windows 8.1 专业版

NG4HW-VH26C-733KW-K6F98-J8CK4 REM Windows 8 专业版

FJ82H-XT6CR-J8D7P-XQJJ2-GPDD4 REM Windows 7 专业版

) do (

echo 尝试安装 Windows 密钥：%%i

slmgr /ipk %%i

if %errorlevel% equ 0 (

echo 尝试激活 Windows 使用密钥：%%i

slmgr /ato

if %errorlevel% equ 0 (

echo Windows 专业版激活成功！

set "WIN_SUCCESS=1"

goto OFFICE_ACTIVATION

) else (

echo Windows 激活失败，错误代码：%errorlevel%

)

) else (

echo 安装 Windows 密钥 %%i 出错，错误代码：%errorlevel%

)

if %WIN_SUCCESS% equ 0 echo 所有 Windows 密钥尝试激活均失败！

:OFFICE_ACTIVATION

echo 正在安装 Office 专业增强版激活密钥...

set "OFFICE_SUCCESS=0"

for %%p in (

"%ProgramFiles%\Microsoft Office\Office17"

"%ProgramFiles(x86)%\Microsoft Office\Office17"

"%ProgramFiles%\Microsoft Office\Office16"

"%ProgramFiles(x86)%\Microsoft Office\Office16"

"%ProgramFiles%\Microsoft Office\Office15"

"%ProgramFiles(x86)%\Microsoft Office\Office15"

"%ProgramFiles%\Microsoft Office\Office14"

"%ProgramFiles(x86)%\Microsoft Office\Office14"

) do (

if exist "%%p" (

echo 进入 Office 安装路径：%%p

cd /d "%%p"

echo 正在设置 Office KMS 服务器地址...

cscript ospp.vbs /sethst:192.168.88.100:1688

if %errorlevel% equ 0 (

echo Office KMS 服务器地址设置成功。

for %%k in (

NW6C2-QMPVW-D7KKK-3GKT6-VCFB2 REM Office 365 专业增强版

7TQNP-QGJJ7-M8WQM-669XQ-T3YR2 REM Office 2024 专业增强版

FVYHM-NBNVK-KV89C-77TYP-33BDP REM Office 2021 专业增强版

NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP REM Office 2019 专业增强版

XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 REM Office 2016 专业增强版

YC7DK-G2NP3-2QQC3-J6H88-GVGXT REM Office 2013 专业增强版

VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB REM Office 2010 专业增强版

) do (

echo 尝试安装 Office 密钥：%%k

cscript ospp.vbs /inpkey:%%k

if %errorlevel% equ 0 (

echo 尝试激活 Office 使用密钥：%%k

cscript ospp.vbs /act

if %errorlevel% equ 0 (

echo Office 激活成功！

set "OFFICE_SUCCESS=1"

goto END

) else (

echo Office 激活失败，错误代码：%errorlevel%

)

) else (

echo 安装 Office 密钥 %%k 出错，错误代码：%errorlevel%

)

echo 在路径 %%p 下所有 Office 密钥尝试激活均失败！

) else (

echo 在路径 %%p 设置 Office KMS 服务器地址出错，错误代码：%errorlevel%

)

if %OFFICE_SUCCESS% equ 0 echo 所有 Office 安装路径尝试激活均失败！

:END

pause

发表回复 取消回复

发表回复取消回复