CMD 命令行将 Office 2016 零售专业增强版转为批量授权

木頭人

2 年前

国内怎么看Netflix？、免责声明：所有内容均转载自网络或是使用经验，仅供参考，解压及网盘密码 1024

Office Pro Plus 2016 Retail to VOL

我们能在网络上下载到的一般是 Office 零售版（比如 Office Pro Plus 2016 Retail），需要针零售版的序列号才可以激活使用，但是在网上找到的序列号基本上是批量授权版，怎么办？将 Office 专业增强零售版转为批量授权版即可。

「CMD 命令行将 Office 2016 零售专业增强版转为批量授权：https://0xo.net/100」

Office Pro Plus 2016 Retail to VOL

复制下面代码，在桌面新建个空白文本，把代码粘贴到文本文件保存，把文本文件 .txt 后缀更改为 .bat 或者 .cmd，然后鼠标右键，以管理员身份运行该批处理，然后根据实际安装的 Office 版本输入对应的序号即可。

@ECHO OFF&PUSHD %~DP0
setlocal EnableDelayedExpansion&color 3e & cd /d "%~dp0"
title Office 2016 Retail 转换 Vol 版
%1 %2
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :runas","","runas",1)(window.close)&goto :eof
:runas
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"
:WH
cls
echo.
echo                         选择需要转换的 Office 版本序号 
echo.
echo --------------------------------------------------------------------------------                                  
echo                 1. 零售版 Office Pro Plus 2016 转换为 VOL 版 
echo.
echo                 2. 零售版 Office Visio Pro 2016 转换为 VOL 版 
echo.
echo                 3. 零售版 Office Project Pro 2016 转换为 VOL 版 
echo.
echo. --------------------------------------------------------------------------------
 
set /p tsk="请输入需要转换的 Office 版本序号【回车】确认（1-3）: "
if not defined tsk goto:err
if %tsk%==1 goto:1
if %tsk%==2 goto:2
if %tsk%==3 goto:3
:err
goto:WH
:1
cls
echo 正在安装 KMS 许可证...
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
echo 正在安装 MAK 许可证...
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
set /p y=请输入激活密钥，按回车确定:
cscript ospp.vbs /inpkey:%y%
goto :e
:2
cls
echo 正在安装 KMS 许可证...
for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
echo 正在安装 MAK 许可证...
for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
set /p y=请输入激活密钥，按回车确定:
cscript ospp.vbs /inpkey:%y%
goto :e
:3
cls
echo 正在安装 KMS 许可证...0xo.net
for /f %%x in ('dir /b ..\root\Licenses16\project???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
echo 正在安装 MAK 许可证...
for /f %%x in ('dir /b ..\root\Licenses16\project???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul
set /p y=请输入激活密钥，按回车确定:
cscript ospp.vbs /inpkey:%y%
goto :e
:e
echo.
echo 转化完成，按任意键退出！uxtt.com
pause >nul
exit