active office

Note: Activate in only windows 10.
----

mode con:cols=20 lines=1
set k1=ND3VC-DXK2X-DBQY7-26HVP-6JHQD
mode con:cols=150 lines=50
for %a in (4,5,6) do (if exist "%ProgramFiles%\Microsoft Office\Office1%a\ospp.vbs" (cd "%ProgramFiles%\Microsoft Office\Office1%a")
if exist "%ProgramFiles(x86)%\Microsoft Office\Office1%a\ospp.vbs" (cd "%ProgramFiles(x86)%\Microsoft Office\Office1%a")) & cls
cscript ospp.vbs /inpkey:%k1% >nul
for /f "tokens=8" %b in ('cscript ospp.vbs /dinstid ^| findstr /b /c:"Installation ID"') do set IID=%b
curl -X GET "https://webact.truonghuynhit.com/GetCID/?IID=%IID%&retry=0" -H "accept: application/json" >CID.TXT
SET /P STR=<CID.TXT
SET STR=%STR:"= %
FOR /F "TOKENS=11" %B IN ('ECHO %STR%') DO SET CID=%B
cscript ospp.vbs /actcid:%CID% & cscript ospp.vbs /act
echo IID:%IID% >k1.txt & echo CID:%CID% >>k1.txt & cscript ospp.vbs /dstatus >>k1.txt & start k1.txt & exit