Помогите с приколом над другом

Йоу пиплы! Нашел в интернете такую фишку:

Set ovladani = CreateObject(”WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count – 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

Если написать ее в блокноте и запустить, то он заставляет открыться и закрыться дисковод, столько раз, сколько повторяются последние строки.
Правда ли это? Сам проверить не могу, так как дисковод сломан. И каким образом этот код можно запихнуть в автозапуск?

 

1

 

!

 

Работает.Поставил на 1 раз.Ибо рискую запороть что нибудь.)

 

не проверял ,но такое уже было очень давно

 

А если в батник запихать, то он будет работать?

 

да

 

А под каким предлогом подкинуть его другу?

 

программа такая была раньше... поищи на просторах интернета

 

А у меня не работает пишу этот текст в блакноте , сохраняю , потом открываю и он просто открывает текстовый файл !
Что делать . что бы работало)

 

Баян на форуме много раз выкладывали

 

ссылку тогда

 

Работает