office2016 、visio2016 、project2016零售版轉換vol版
阿新 • • 發佈:2018-11-05
在http://msdn.itellyou.cn/網站上下載的是office2016是零售版的,轉換為vol,將下列文字另存為bat檔案,執行即可
@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 正在重置Office2016零售啟用... cscript ospp.vbs /rearm 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 echo 正在安裝 KMS 金鑰... cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 goto :e :2 cls echo 正在重置Visio2016零售啟用... cscript ospp.vbs /rearm 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 echo 正在安裝 KMS 金鑰... cscript ospp.vbs /inpkey:PD3PC-RHNGV-FXJ29-8JK7D-RJRJK goto :e :3 cls echo 正在重置Project2016零售啟用... cscript ospp.vbs /rearm 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 echo 正在安裝 KMS 金鑰... cscript ospp.vbs /inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G83KT goto :e :e echo. echo 轉化完成,按任意鍵退出! pause >nul exit