Shulou(Shulou.com)06/03 Report--

@ ECHO OFF&PUSHD% ~ DP0

Setlocal EnableDelayedExpansion&color 3e & cd / d "% ~ dp0"

Title office series retail conversion vol version

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"

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"

: WH

Cls

Echo.

Echo selects the serial number of the office version to be converted-grape

Echo.

Echo

Echo 1. Retail version Office Pro Plus 2016 converted to VOL version

Echo.

Echo 2. Retail version Office Visio Pro 2016 converted to VOL version

Echo.

Echo 3. Retail version Office Project Pro 2016 converted to VOL version

Echo.

Echo 4. Retail version Office Pro Plus 2013 converted to VOL version

Echo.

Echo 5. Retail version Office Visio Pro 2013 converted to VOL version

Echo.

Echo 6. Retail version Office Project Pro 2013 converted to VOL version

Echo.

Echo 7. Retail version Office Pro Plus 2010 converted to VOL version

Echo.

Echo 8. Retail version Office Visio Pro 2010 converted to VOL version

Echo.

Echo 9. Retail version Office Project Pro 2010 converted to VOL version

Echo.

Echo.

Set / p tsk= "Please enter the office version serial number to be converted [enter] to confirm (1-9):"

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

: err

Goto:WH

: 1

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses16\ proplusvl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses16\% x" > nul

Echo is installing a MAK license.

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 is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses16\ visio???vl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses16\% x" > nul

Echo is installing a MAK license.

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 is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses16\ project???vl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses16\% x" > nul

Echo is installing a MAK license.

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

: 4

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses15\ proplusvl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses15\% x" > nul

Echo is installing a MAK license.

For / f% x in ('dir / b..\ root\ Licenses15\ proplusvl_mak*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses15\% x" > nul

Set / p y = Please enter the activation key and press enter to determine:

Cscript ospp.vbs / inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT

Goto: e

: 5

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses15\ visio???vl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses15\% x" > nul

Echo is installing a MAK license.

For / f% x in ('dir / b..\ root\ Licenses15\ visio???vl_mak*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses15\% x" > nul

Cscript ospp.vbs / inpkey:C2FG9-N6J68-H8BTJ-BW3QX-RM3B3

Goto: e

: 6

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses15\ project???vl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses15\% x" > nul

Echo is installing a MAK license.

For / f% x in ('dir / b..\ root\ Licenses15\ project???vl_mak*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses15\% x" > nul

Cscript ospp.vbs / inpkey:FN8TT-7WMH6-2D4X9-M337T-2342K

Goto: e

: 7

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses14\ proplusvl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses14\% x" > nul

Echo is installing a MAK license.

For / f% x in ('dir / b..\ root\ Licenses14\ proplusvl_mak*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses14\% x" > nul

Cscript ospp.vbs / inpkey:VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB

Goto: e

: 8

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses14\ visio???vl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses14\% x" > nul

Echo is installing a MAK license.

For / f% x in ('dir / b..\ root\ Licenses14\ visio???vl_mak*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses14\% x" > nul

Cscript ospp.vbs / inpkey:7MCW8-VRQVK-G677T-PDJCM-Q8TCP

Goto: e

: 9

Cls

Echo is installing a KMS license.

For / f% x in ('dir / b..\ root\ Licenses14\ project???vl_kms*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses14\% x" > nul

Echo is installing a MAK license.

For / f% x in ('dir / b..\ root\ Licenses14\ project???vl_mak*.xrm-ms') do cscript ospp.vbs / inslic: "..\ root\ Licenses14\% x" > nul

Cscript ospp.vbs / inpkey:YGX6F-PGV49-PGW3J-9BTGG-VHKC6

Goto: e

: e

Echo.

Echo conversion completed, press any key to exit!

Pause > nul

Exit

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.