ltah93

active office 2019

Sep 25th, 2018
1,989
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.08 KB | None | 0 0
  1.  
  2. Cách dùng: mở cmd (admin) dán toàn bộ code vào và tận hưởng
  3.  
  4. =================================
  5. 1. ProPlus
  6.  
  7. if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16"
  8. if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16"
  9. set "cmd=cscript //nologo ospp.vbs"
  10. %cmd% /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul 2>&1
  11. %cmd% /dstatus | findstr "Office19ProPlus2019VL"
  12. if not %errorlevel% == 0 (for /f %x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do %cmd% /inslic:"..\root\Licenses16\%x")
  13. %cmd% /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP
  14. %cmd% /sethst:kms.lotro.cc & %cmd% /act
  15. cls & cscript //nologo ospp.vbs /dstatus
  16. echo.
  17. =================================
  18. 2. ProjectPro
  19.  
  20. if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16"
  21. if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16"
  22. set "cmd=cscript //nologo ospp.vbs"
  23. %cmd% /inpkey:B4NPR-3FKK7-T2MBV-FRQ4W-PKD2B >nul 2>&1
  24. %cmd% /dstatus | findstr "Office19ProjectPro2019VL"
  25. if not %errorlevel% == 0 (for /f %x in ('dir /b ..\root\Licenses16\ProjectPro2019VL*.xrm-ms') do %cmd% /inslic:"..\root\Licenses16\%x")
  26. %cmd% /inpkey:B4NPR-3FKK7-T2MBV-FRQ4W-PKD2B
  27. %cmd% /sethst:kms.lotro.cc & %cmd% /act
  28. cls & cscript //nologo ospp.vbs /dstatus
  29. echo.
  30. =================================
  31. 3. VisioPro
  32.  
  33. if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16"
  34. if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16"
  35. set "cmd=cscript //nologo ospp.vbs"
  36. %cmd% /inpkey:9BGNQ-K37YR-RQHF2-38RQ3-7VCBB >nul 2>&1
  37. %cmd% /dstatus | findstr "Office19VisioPro2019VL"
  38. if not %errorlevel% == 0 (for /f %x in ('dir /b ..\root\Licenses16\VisioPro2019VL*.xrm-ms') do %cmd% /inslic:"..\root\Licenses16\%x")
  39. %cmd% /inpkey:9BGNQ-K37YR-RQHF2-38RQ3-7VCBB
  40. %cmd% /sethst:kms.lotro.cc & %cmd% /act
  41. cls & cscript //nologo ospp.vbs /dstatus
  42. echo.
Advertisement
Add Comment
Please, Sign In to add comment