只需一步，快速开始
1
3
32
新手上路
我来回答
使用道具 举报
21
105
4219
铂金会员
查看全部评分
hong7660 发表于 2021-3-22 16:51
佳佳佳佳 发表于 2021-3-22 17:08 版本不对应Visio_Pro_2016_64Bit_ Office16_VisioProVL_MAK microsoft visio 2016 mso （16.0.4266.1001 ...
hong7660 发表于 2021-3-22 17:17 CRFNH-MQRF6-27QYM-XKJCF-P****
15
275
中级会员
hong7660 发表于 2021-3-22 17:21 @echo OFF&PUSHD %~DP0setlocal EnableDelayedExpansion&color 3e & cd /d "%~dp0"title office系列 reta ...
798
427
1万
钻石会员
0
14
1636
黄金会员
wei4432147 发表于 2021-3-24 05:09 我之前找过来着，基本上这论坛里面的visio都是retail版本的，我感觉你还是卸载重装对应版本的比较方便一些 ...
本版积分规则 发表回复 回帖并转播 回帖后跳转到最后一页
|Archiver|手机版|小黑屋|爱好网 ( 赣ICP备14007844号-1 )
GMT+8, 2024-4-23 22:52 , Processed in 0.148023 second(s), 32 queries .
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.
|Archiver|手机版|小黑屋|爱好网
( 赣ICP备14007844号-1 )
发表于 2021-3-22 15:41:56
提升卡
沉默卡
千斤顶
USHD %~DP0setlocal EnableDelayedExpansion&color 3e & cd /d "%~dp0"title office系列 retail转换vol版%1 %2mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :runas","","runas",1)(window.close)&goto :eof:runasif 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"if exist "%ProgramFiles%\Microsoft Office\Office15\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office15"if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office15"if exist "%ProgramFiles%\Microsoft Office\Office14\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office14"if exist "%ProgramFiles(x86)%\Microsoft Office\Office14\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office14":WHclsecho.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 4. 零售版 Office Pro Plus 2013 转化为VOL版echo.echo 5. 零售版 Office Visio Pro 2013 转化为VOL版echo.echo 6. 零售版 Office Project Pro 2013 转化为VOL版echo.echo 7. 零售版 Office Pro Plus 2010 转化为VOL版echo.echo 8. 零售版 Office Visio Pro 2010 转化为VOL版echo.echo 9. 零售版 Office Project Pro 2010 转化为VOL版echo.echo. --------------------------------------------------------------------------------set /p tsk="请输入需要转化的office版本序号【回车】确认（1-9）: "if not defined tsk goto:errif %tsk%==1 goto:1if %tsk%==2 goto:2if %tsk%==3 goto:3if %tsk%==4 goto:4if %tsk%==5 goto:5if %tsk%==6 goto:6if %tsk%==7 goto:7if %tsk%==8 goto:8if %tsk%==9 goto:9:errgoto:WH:1clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses16\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nulcscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-W****goto :e:2clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses16\visio???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nulcscript ospp.vbs /inpkey
D3PC-RHNGV-FXJ29-8JK7D-RJRJKgoto :e:3clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses16\project???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses16\project???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nulcscript ospp.vbs /inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G****goto :e:4clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses15\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses15\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses15\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses15\%%x" >nulset /p y=请输入激活密钥，按回车确定:cscript ospp.vbs /inpkey:YC7DK-G2NP3-2QQC3-J6H88-G****goto :e:5clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses15\visio???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses15\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses15\visio???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses15\%%x" >nulcscript ospp.vbs /inpkey:C2FG9-N6J68-H8BTJ-BW3QX-R****goto :e:6clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses15\project???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses15\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses15\project???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses15\%%x" >nulcscript ospp.vbs /inpkey:FN8TT-7WMH6-2D4X9-M337T-2****goto :e:7clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses14\proplusvl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses14\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses14\proplusvl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses14\%%x" >nulcscript ospp.vbs /inpkey:VYBBJ-TRJPB-QFQRF-QFT4D-H****goto :e:8clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses14\visio???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses14\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses14\visio???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses14\%%x" >nulcscript ospp.vbs /inpkey:7MCW8-VRQVK-G677T-PDJCM-Q****goto :e:9clsecho 正在安装 KMS 许可证...for /f %%x in ('dir /b ..\root\Licenses14\project???vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses14\%%x" >nulecho 正在安装 MAK 许可证...for /f %%x in ('dir /b ..\root\Licenses14\project???vl_mak*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses14\%%x" >nulcscript ospp.vbs /inpkey:YGX6F-PGV49-PGW3J-9BTGG-V****goto :e:eecho.echo 转化完成，按任意键退出！pause >nulexit