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

@ 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\ Office16\ ospp.vbs"

If not exist "% ospp%"

Set "ospp=%ProgramFiles (x86)%\ Microsoft Office\ Office16\ 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:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99 > nul

Cscript "ospp%" / inpkey:PD3PC-RHNGV-FXJ29-8JK7D-RJRJK > nul

Cscript "ospp%" / inpkey:YG9NW-3K39V-2T3HJ-93F3Q-G83KT > nul

Cscript "ospp%" / sethst:%ip% > nul

Cscript "% ospp%" / act

Pause

: dstatus

Cls

Echo Office Activation status...

Cscript "% ospp%" / dstatus

Pause

Goto: Exit

: 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.