[thachkimthu]

​

Active Office bằng lệnh "cmd" 100% thành công (Hỗ trợ cho các phiên bản Office 2010, 2013, 2016, 2019.)

* * *​

Active Office bằng câu lệnh cmd thì việc đầu tiên các bạn cần mở Command Prompt với quyền administrator, sau đấy các bạn có thể đánh dòng lệnh hoặc copy code sẵn rồi dán vào, chờ lệnh được thực thi là thành công.

Cách mở CMD với Administrator để Active Office bằng lệnh cmd

Gõ "cmd" vào ô search > Chuột phải chọn Run as Administrator

Nhập để (kích hoạt) Active Office bằng lệnh cmd

Lựa chọn đoạn code tùy theo từng phiên bản để thực thi..

CODE THEO TỪNG PHIÊN BẢN:

–Office 2010:

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

@

–Office 2013:

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 /inpkey: FN8TT-7WMH6-2D4X9-M337T-2342K

Cscript OSPP. VBS /inpkey: KBKQT-2NMXY-JJWGP-M62JB-92CD4

Cscript OSPP. VBS /inpkey: C2FG9-N6J68-H8BTJ-BW3QX-RM3B3

Cscript ospp. Vbs /sethst: Kms. Lotro. Cc

Cscript ospp. Vbs /act

Hoặc

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

@

–Office 2016:

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

@

Hoặc:

Cscript slmgr. Vbs /skms kms. Digiboy. Ir

Cscript slmgr. Vbs /ipk XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99

Cscript slmgr. Vbs /ato d450596f-894d-49e0-966a-fd39ed4c4c64

Timeout 2&start winword&exit

–Office 2019 (ProPlus) :

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.

Chúc bạn thành công!​