Bê nguyên đống này paste vào CMD quyền admin sẽ tự active bản VL
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"
for /f %i in ('dir /b "%ProgramFiles%\Microsoft Office 15\root\Licenses"\ProPlusVL_MAK*.xrm-ms') do cscript ospp.vbs /inslic:"%ProgramFiles%\Microsoft Office 15\root\Licenses\%i"
cls
set Description=ProPlusVL_MAK
set key=Q2797-PGN9H-YJWRG-YGHYB-8FD67
reg Delete HKLM\Software\Wow6432Node\Microsoft\Office\15.0\Common\OEM /f
reg Delete HKLM\Software\Microsoft\Office\16.0\Common\OEM /f
for %a in (4,5,6) do (if exist "%ProgramFiles%\Microsoft Office\Office1%a\ospp.vbs" (cd /d "%ProgramFiles%\Microsoft Office\Office1%a")
if exist "%ProgramFiles(x86)%\Microsoft Office\Office1%a\ospp.vbs" (cd /d "%ProgramFiles(x86)%\Microsoft Office\Office1%a"))&cls
for /f "tokens=8" %b in ('cscript //nologo OSPP.VBS /dstatus ^| findstr /b /c:"Last 5"') do (cscript //nologo ospp.vbs /unpkey:%b)
cls
for /f %i in ('dir /b ..\root\Licenses16\%Description%*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%i"
cscript ospp.vbs /remhst
cscript ospp.vbs /ckms-domain
cscript ospp.vbs /inpkey:%key%
cscript //nologo ospp.vbs /act
@
if exist "%ProgramFiles(x86)%\Microsoft Office\Office15\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office15"
for /f %i in ('dir /b "%ProgramFiles%\Microsoft Office 15\root\Licenses"\ProPlusVL_MAK*.xrm-ms') do cscript ospp.vbs /inslic:"%ProgramFiles%\Microsoft Office 15\root\Licenses\%i"
cls
set Description=ProPlusVL_MAK
set key=Q2797-PGN9H-YJWRG-YGHYB-8FD67
reg Delete HKLM\Software\Wow6432Node\Microsoft\Office\15.0\Common\OEM /f
reg Delete HKLM\Software\Microsoft\Office\16.0\Common\OEM /f
for %a in (4,5,6) do (if exist "%ProgramFiles%\Microsoft Office\Office1%a\ospp.vbs" (cd /d "%ProgramFiles%\Microsoft Office\Office1%a")
if exist "%ProgramFiles(x86)%\Microsoft Office\Office1%a\ospp.vbs" (cd /d "%ProgramFiles(x86)%\Microsoft Office\Office1%a"))&cls
for /f "tokens=8" %b in ('cscript //nologo OSPP.VBS /dstatus ^| findstr /b /c:"Last 5"') do (cscript //nologo ospp.vbs /unpkey:%b)
cls
for /f %i in ('dir /b ..\root\Licenses16\%Description%*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%i"
cscript ospp.vbs /remhst
cscript ospp.vbs /ckms-domain
cscript ospp.vbs /inpkey:%key%
cscript //nologo ospp.vbs /act
@