untitled

taskkill /f /im winword.exe /im excel.exe /im outlook.exe /im powerpnt.exe /im msaccess.exe /im onenote.exe 2>nul



set "OFF=C:\Program Files\Microsoft Office\Office16"



if not exist "%OFF%\ospp.vbs" set "OFF=C:\Program Files (x86)\Microsoft Office\Office16"



cscript //nologo "%OFF%\ospp.vbs" /dstatus


for /f "tokens=8" %k in ('cscript //nologo "%OFF%\ospp.vbs" /dstatus ^| findstr /c:"Last 5 characters"') do cscript //nologo "%OFF%\ospp.vbs" /unpkey:%k


for /f "tokens=2,*" %a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" /s /v UninstallString 2^>nul ^| findstr /i ClickToRun') do start "" /wait %b DisplayLevel=False


shutdown /r /t 15