sans-titre

taskkill /f /im winword.exe /im excel.exe /im outlook.exe /im powerpnt.exe /im msaccess.exe /im onenote.exe
if exist "C:\Program Files\Microsoft Office\Office16\ospp.vbs" cd /d "C:\Program Files\Microsoft Office\Office16"
if exist "C:\Program Files (x86)\Microsoft Office\Office16\ospp.vbs" cd /d "C:\Program Files (x86)\Microsoft Office\Office16"
cscript //nologo ospp.vbs /dstatus
for /f "tokens=8" %k in ('cscript //nologo ospp.vbs /dstatus ^| findstr /c:"Last 5 characters"') do cscript //nologo ospp.vbs /unpkey:%k
cd /d C:\
for /f "tokens=2,*" %a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" /s /v UninstallString ^| findstr /i ClickToRun') do start "" /wait %b DisplayLevel=False