Act

Cscript slmgr.vbs -upk
Cscript slmgr.vbs /ckms
sc config wuauserv start= auto
net start wuauserv
Cscript slmgr.vbs /ipk RHTBY-VWY6D-QJRJ9-JGQ3X-Q2289
cscript slmgr.vbs /dti>step2.txt
start step2.txt
@

slmgr.vbs /atp 031883144160091031586422938083370944560084260883
---------------------------------------------------------------------
- Officce 2016,13,10
if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" set f="%ProgramFiles%\Microsoft Office\Office16"
if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" set f="%ProgramFiles(x86)%\Microsoft Office\Office16"

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

if exist "%ProgramFiles%\Microsoft Office\Office14\ospp.vbs" set f="%ProgramFiles%\Microsoft Office\Office14"
if exist "%ProgramFiles(x86)%\Microsoft Office\Office14\ospp.vbs" set f="%ProgramFiles(x86)%\Microsoft Office\Office14"

cscript %f%\ospp.vbs /inpkey:n73xy-3f2hc-qh8jb-27dbp-27j92
cscript %f%\ospp.vbs /dinstid>2.txt
start 2.txt
@

cscript %f%\ospp.vbs /actcid:296950047745756360533733753535949166406404625515

----Kiem tra ban quyen office:--------
cscript %f%\ospp.vbs /dstatus

----Remove key:-----------------------
cscript %f%\ospp.vbs /unpkey: btdrb

-----------Office 2013 VL: Open cmd (admin)---------------
Paste to CMD ==> done

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"
cscript ospp.vbs /inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT
cscript ospp.vbs /sethst:kms.lotro.cc
cscript ospp.vbs /act
@

----------------Office 2016 VL: Open cmd (admin)------
Paste to CMD ==> done

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"
cscript ospp.vbs /inslic:"..\root\Licenses16\ProPlusVL_KMS_Client-ppd.xrm-ms"
cscript ospp.vbs /inslic:"..\root\Licenses16\ProPlusVL_KMS_Client-ul.xrm-ms"
cscript ospp.vbs /inslic:"..\root\Licenses16\ProPlusVL_KMS_Client-ul-oob.xrm-ms"
cscript ospp.vbs /unpkey:BTDRB
cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
cscript ospp.vbs /sethst:kms.digiboy.ir
cscript ospp.vbs /act
exit
-------------------------------Office 2019 VL: Open cmd (admin)------
Paste to CMD ==> done

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"
set "cmd=cscript //nologo ospp.vbs"
%cmd% /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul 2>&1
%cmd% /dstatus | findstr "Office19ProPlus2019VL"
if not %errorlevel% == 0 (for /f %x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do %cmd% /inslic:"..\root\Licenses16\%x") 
%cmd% /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP
%cmd% /sethst:kms.lotro.cc & %cmd% /act
cls & %cmd% /dstatus
echo.