Для начала создаем текстовый документ.
дальше мы его открываем и вставляем вот это:
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop
Дальше мы сохраняем файл в формате .vbs (название файлу пишем любое)
(программа постоянно открывает дисковод)
Вот и все, теперь отправляем этот файл другу и наблюдаем за его реакцией.
P.s:Чтобы дисковод перестал открываться надо перезагрузить компьютер.