OFFICE 2019-2016版本转换批处理

pwrjoes

根据RETAIL TO VOL编辑。
由于OFFICE 2019与OFFICE2016的内部版本都是OFFICE16,
可以在安装2019后，
安装相应许可证，
然后输入相应密钥，
即可使用。
链接: https://pan.baidu.com/s/1ZEjPwU69mTM4KL5O4FSK1g
提取码: fvtb
七天有效期

pwrjoes

@ECHO OFF&PUSHD %~DP0
setlocal EnableDelayedExpansion&color 3e & cd /d "%~dp0"
title office2016-2019 版本转换
%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                 1. 安装HomeBusiness2019&HomeBusiness2016许可证
echo                 2. 安装HomeStudent2019&HomeStudent2016许可证
echo                 3. 安装Office365许可证
echo                 4. 安装Personal许可证
echo                 5. 安装Professional2019&Professional2016许可证
echo                 6. 安装ProjectPro&Std2019&ProjectPro&Std2016许可证
echo                 7. 安装ProPlus2019&ProPlus2016许可证
echo                 8. 安装Standard2019&Standard2016许可证
echo                 9. 安装VisioPro&Std2019&VisioPro&Std2016许可证
echo                 0. 退出
echo --------------------------------------------------------------------------------                                                           
set /p tsk="请输入需要转化的office版本序号【回车】确认（1）: "
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%==0 goto:eof
:err
goto:WH
:1
cls
echo 正在安装 HomeBusiness2019&HomeBusiness2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\HomeBusiness2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\HomeBusinessR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:2
cls
echo 正在安装HomeStudent2019&HomeStudent2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\HomeStudent2019*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\HomeStudentR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\HomeStudentVNextR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:3
cls
echo 正在安装Office365许可证...
for /f %%x in ('dir /b ..\root\Licenses16\O365BusinessR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\O365EduCloudEDUR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\O365HomePremR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\O365ProPlusE5R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\O365ProPlusEDUR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\O365ProPlusR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\O365SmallBusPremR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:4
cls
echo 正在安装Personal许可证...
for /f %%x in ('dir /b ..\root\Licenses16\Personal2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\PersonalPipcR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\PersonalR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:5
cls
echo 正在安装Professional2019&Professional2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\Professional2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProfessionalPipcR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProfessionalR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:6
cls
echo 正在安装ProjectPro&Std2019&ProjectPro&Std2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\Project???2019MSDNR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???2019XC2RVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???CO365R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???MSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???O365R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Project???XC2RVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:7
cls
echo 正在安装ProPlus2019&ProPlus2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019MSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019XC2RVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProPlusMSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProPlusR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\ProPlusVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:8
cls
echo 正在安装Standard2019&Standard2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\Standard2019MSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Standard2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Standard2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\StandardMSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\StandardR*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\StandardVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:9
cls
echo 正在安装VisioPro&Std2019&VisioPro&Std2016许可证...
for /f %%x in ('dir /b ..\root\Licenses16\Visio???2019MSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???2019R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???2019XC2RVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???CO365R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???MSDNR_Retail*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???O365R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???R*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\Visio???XC2RVL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
goto :exit
:exit
for /f %%x in ('dir /b ..\root\Licenses16\pkeyconfig-office.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
for /f %%x in ('dir /b ..\root\Licenses16\pkeyconfig-office-client15.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x"
set /p y=请输入激活密钥，按回车确定:
cscript ospp.vbs /inpkey:%y%
echo.
echo 转化完成，按任意键退出！
pause
exit

pwrjoes

忧伤角落 发表于 2020-8-6 14:17
文件不存在

仍在，需要输入提取码

忧伤角落

文件不存在

pwrjoes

其实用部署工具后，
用命令安装不同的密钥，即可是不同的版本。
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"
echo    安装密钥
cscript ospp.vbs /inpkey:XXXXX-XXXXX-XXXXX-XXXXX-X****
echo    显示安装ID
cscript ospp.vbs /dinstid
echo    输入激活ID
cscript ospp.vbs /actcid:????????????????????????????????????????????????

kosdicanshow

谢谢分享

gufeng

谢谢分享

yitian

文件不存在，能不能再次分享，谢谢

15261826643

感谢分享