@echo offcls

set ospp=%programfiles%\Microsoft Office\Office15
if exist "%ospp%\ospp.vbs" goto :patch

set ospp=%ProgramFiles(x86)%\Microsoft Office\Office15
if exist "%ospp%\ospp.vbs" goto :patch

set ospp=%ProgramW6432%\Microsoft Office\Office15
if exist "%ospp%\ospp.vbs" goto :patch

echo.
echo =============
echo fail to patch
echo =============
echo.
goto :eof

:patch

echo.
echo ==============
echo start patching
echo ==============
echo.

cscript "%ospp%\ospp.vbs" /dstatus

>nul 2>&1(
start /min keygen
net start sppsvc /y
cscript "%ospp%\ospp.vbs" /sethst:127.0.0.2
cscript "%ospp%\ospp.vbs" /unpkey:GVGXT
net stop sppsvc /y
net start sppsvc /y
cscript "%ospp%\ospp.vbs" /inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT
cscript "%ospp%\ospp.vbs" /act
cscript "%ospp%\ospp.vbs" /act
cscript "%ospp%\ospp.vbs" /act
cscript "%ospp%\ospp.vbs" /act
net stop sppsvc /y
net start sppsvc /y
cscript "%ospp%\ospp.vbs" /remhst
taskkill /im keygen.exe
)

echo.
echo ============
echo print Status
echo ============
echo.

cscript "%ospp%\ospp.vbs" /dstatus