ahaov 发表于 2017-10-19 21:07

Office2016 Retail转换VOL版

本帖最后由 ahaov 于 2017-11-11 19:46 编辑

@ECHO OFF&PUSHD %~DP0
setlocal EnableDelayedExpansion&color 3e & cd /d "%~dp0"
title Office2016 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
cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
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
cscript ospp.vbs /inpkey:PD3PC-RHNGV-FXJ29-8JK7D-RJRJK
goto :e
:3
cls
echo 正在安装 KMS 许可证...
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
cscript ospp.vbs /inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G83KT
goto :e
:e
echo.
echo 转化完成，按任意键退出！
pause >nul
exit

cngn 发表于 2017-10-19 22:04

好厉害的样子

lgy0326 发表于 2017-10-19 22:11


好厉害的样子               

liuzx 发表于 2017-10-20 01:29

不错，收下备用了。

nyzxp98 发表于 2017-10-20 07:54

转换后可能会遇到未知的错误

plmnyt 发表于 2017-10-20 08:43

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

mmggnn 发表于 2017-10-20 08:47

试试看一下！{:5_266:}

cchh543 发表于 2017-10-21 11:44

下載附件沒有*.xrm-ms檔案？

渝垫老 发表于 2017-10-21 11:49

谢谢和支持楼主。。。。。。。。。。

alvie 发表于 2017-10-21 19:05

我来测试一下

晉昇 发表于 2017-10-21 23:46

测试下看看{:5_293:}

3201915 发表于 2017-10-22 17:49

感谢分享，谢谢

guizebug 发表于 2017-10-23 00:28

谢谢，感谢分享

wayhybz 发表于 2017-11-1 20:30


好厉害的样子

wayhybz 发表于 2017-11-1 20:31


好厉害的样子

joshuasw 发表于 2018-3-22 13:27

不错，收下备用了。

缘来此景 发表于 2019-3-6 16:34

收藏备用，感谢分享～！{:7_506:}

linxingzu 发表于 2019-7-16 15:49

下来试用一下了

wh0519 发表于 2019-7-16 17:29

还是office365方便。

wancj 发表于 2019-7-20 17:25

zhich支持楼主！{:5_293:}
页: [1] 2
查看完整版本: Office2016 Retail转换VOL版