Uninstall-KBs

@echo off
set list=(2952664,2976978,2977759)

%windir%\system32\reg.exe query "HKU\S-1-5-19" 1>nul 2>nul || goto :eof
setlocal enableextensions
setLocal EnableDelayedExpansion
cd /d "%~dp0"
set name=
echo.
echo Checking installed packages...
Dism /English /Online /Get-Packages>Packs.txt
for /d %%G in %list% do (
for /f "tokens=3 delims=: " %%i in ('findstr %%G Packs.txt') do echo %%i>>ToRemove.txt
)
if not exist ToRemove.txt echo.&echo None of the specified updates is found installed&goto :end
for /f %%i in (ToRemove.txt) do (call set /a num+=1)
for /f %%i in (ToRemove.txt) do call :setcount %%i
for /L %%j in (1, 1, %num%) do (
set name=!name! /PackageName:!PK%%j!
)
Dism /Online /NoRestart /Remove-Package %name%
del ToRemove.txt
echo.
echo #########################################################
if exist "%windir%\winsxs\pending.xml" echo.&echo System restart is required.

:end
del Packs.txt
echo.
echo.
echo Press any key to Exit
pause >nul
exit

:setcount
set /a count+=1
set PK%count%=%1
goto :eof