KMS_Office_2013_Plus-Visio-Project Activation script
@ ECHO OFF
Setlocal ENABLEDELAYEDEXPANSION
:: mode con: cols=65 lines=25
Color 0A
:: batch process to obtain administrator rights
:--
1 mshta _ vbscript:createobject ("shell.application") .shellexecute (""% ~ 0 "", ":", "runas", 1) (window.close) & & exit / b
Pushd "CD%"
CD / D "% ~ dp0"
:--
Set BatPath=%~dp0
Set BatPath=%BatPath:~0,-1%
For / f "tokens=6 delims= [].% G in ('ver') do set win=%%G
Rem judges 32 + + 64 bits
Set "ospp=%ProgramFiles%\ Microsoft Office\ Office15\ ospp.vbs"
If not exist "% ospp%"
Set "ospp=%ProgramFiles (x86)%\ Microsoft Office\ Office15\ ospp.vbs"
)
:--
: set variable =
Set ip=172.19.34.146
: start KMS server = =
: 172.19.32.146
If errorlevel% EQU 0 (
Echo connection to KMS server:% ip% successful!
Echo.
) else (goto: 172.19.34.146)
: start activation =
ECHO.Office is activating...
:: uninstall the installed product key The following number is the last five digits of the key.
:: cscript ospp.vbs / unpkey:xxxxx
:: Office Professional Plus Key
:: Visio Professional Key
:: Project Professional Key
Cscript "ospp%" / inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT > nul
Cscript "ospp%" / inpkey:C2FG9-N6J68-H8BTJ-BW3QX-RM3B3 > nul
Cscript "ospp%" / inpkey:FN8TT-7WMH6-2D4X9-M337T-2342K > nul
Cscript "ospp%" / sethst:%ip% > nul
Cscript "% ospp%" / act
Pause
: dstatus
Cls
Echo Office Activation status...
Cscript "% ospp%" / dstatus
Pause
Goto: Exit
: Exit
