Microsoft Office Code kích hoạt office 6 tháng

if exist "%ProgramFiles%\Microsoft Office\Office14\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office14"
if exist "%ProgramFiles(x86)%\Microsoft Office\Office14\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office14"
cscript //Nologo OSPP.VBS /inpkey:VYBBJ-TRJPB-QFQRF-QFT4D-H3GVB
cscript //Nologo ospp.vbs /sethst:kms.lotro.cc&cscript //nologo ospp.vbs /act&timeout 5&start winword&exit
@

if exist "%ProgramFiles%\Microsoft Office\Office15\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office15"
if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office15"
cscript //nologo OSPP.VBS /inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT
cscript //nologo ospp.vbs /sethst:kms.lotro.cc&cscript //nologo ospp.vbs /act&timeout 5&start winword&exit
@

cscript slmgr.vbs /skms kms.lotro.cc b322da9c-a2e2-4058-9e4e-f59a6970bd69
cscript slmgr.vbs /ipk YC7DK-G2NP3-2QQC3-J6H88-GVGXT b322da9c-a2e2-4058-9e4e-f59a6970bd69
cscript slmgr.vbs /ato b322da9c-a2e2-4058-9e4e-f59a6970bd69

set ver=16
if exist "%ProgramFiles%\Microsoft Office\Office%ver%\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office%ver%"
if exist "%ProgramFiles(x86)%\Microsoft Office\Office%ver%\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office%ver%"
for /f "tokens=8" %b in ('cscript //nologo OSPP.VBS /dstatus ^| findstr /b /c:"Last 5"') do (cscript //nologo ospp.vbs /unpkey:%b)
for /f %i in ('dir /b ..\root\Licenses%ver%\ProPlusVL_KMS*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses%ver%\%i"
cscript ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
cscript ospp.vbs /sethst:kms.lotro.cc
cscript ospp.vbs /act
Start winword&exit
@

cd C:\Windows\System32
cscript slmgr.vbs /upk 70d9ceb6-6dfa-4da4-b413-18c1c3c76e2e
cscript slmgr.vbs /upk d450596f-894d-49e0-966a-fd39ed4c4c64
cscript slmgr.vbs /skms kms.lotro.cc d450596f-894d-49e0-966a-fd39ed4c4c64
cscript slmgr.vbs /ipk XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
cscript slmgr.vbs /ato d450596f-894d-49e0-966a-fd39ed4c4c64

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% /unpkey:8MBCX >nul 2>&1
%cmd% /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP
%cmd% /sethst:kms.lotro.cc & %cmd% /act
cls & %cmd% /dstatus
Start winword&exit
@

cd C:\Windows\System32
cscript slmgr.vbs /upk 52c4d79f-6e1a-45b7-b479-36b666e0a2f8
cscript slmgr.vbs /skms kms.lotro.cc 85dd8b5f-eaa4-4af3-a628-cce9e77c9a03
cscript slmgr.vbs /ipk NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP 85dd8b5f-eaa4-4af3-a628-cce9e77c9a03
cscript slmgr.vbs /ato 85dd8b5f-eaa4-4af3-a628-cce9e77c9a03

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"
for /f %x in ('dir /b ..\root\Licenses16\ProPlus2021VL_KMS*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%x"
set "cmd=cscript //nologo ospp.vbs"
%cmd% /setprt:1688
%cmd% /unpkey:6F7TH >nul
%cmd% /inpkey:FXYTK-NJJ8C-GB6DW-3DYQT-6F7TH
%cmd% /sethst:e8.us.to
%cmd% /act
cls & %cmd% /dstatus
Start winword&exit
@

cd C:\Windows\System32
cscript slmgr.vbs /upk 8fdb1f1e-663f-4f2e-8fdb-7c35aee7d5ea
cscript slmgr.vbs /skms kms.lotro.cc fceda083-1203-402a-8ec4-3d7ed9f3648c
cscript slmgr.vbs /ipk 2TDPW-NDQ7G-FMG99-DXQ7M-TX3T2 fceda083-1203-402a-8ec4-3d7ed9f3648c
cscript slmgr.vbs /ato fceda083-1203-402a-8ec4-3d7ed9f3648c