Пусть знакомые поломают голову над тем,что же случилось с их компьютером :-)
Итак...Что мы делаем?...
1) Открываем Блокнот (у меня установлена английская версия Windows XP,поэтому на примерах окна на англ. языке..не обращайте внимание,русская версия работает так же) и вводим этот код:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

[показать]

2) Сохраним запись с таким названием,чтобы была вероятность,что файл откроют. Ну не знаю...пусть что-то вроде Моё завещание.vbs
Имя можно выбрать любое, вот .vbs -обязательно должно присутствовать.Убедитесь,что в Сохранить как вы выбрали Все файлы

[показать]

[показать]

3) Теперь,когда кто-нибудь откроет созданный нами Моё завещание.vbs компьютер начнет окрывать и закрывать CD/DVDROM'ы до бесконечности. И остановить простым закрыванием не получится....Противоядие от этого имеется!

4) Жмем CTRL+ALT+DEL и во вкладке "Процессы" отанавливаем "wscript.exe".

Трюк на основе всплывающих напоминалок при включении Windows
 
1) Откроем Блокнот и введем:

text1=msgbox("Ваш текст",52,"Ваш заголовок окна")

Можно вписать таких строчек сколь угодно много.Чем больше их,тем больше предупреждений появится.

[показать]

2) Сохраним текст. "Сохранить как"--> "Все файлы"..И назовем..да так и назовем coca-colya.vbs. Опять .vbs обязательно.

[показать]

3) Придумаем текст  предупреждений..

text1=msgbox("Обнаружен Вирус!!",52,"Бегите Люди!")
text2=msgbox("Запущена установка вируса..56% завершено",52,"Устанавливается...")
text3=msgbox("Внимание!Coca-Colya взламывает систему",52,"Взлом 96% Завершено...")
Меняете русский текст на свой...:-)
В первом пункте можно сразу прописать тексты в окна...тогда 3-тий пункт и не нужен.

[показать]