Выезжающий-заезжающий дисковод VBScript

Заставляет бесконечно выезжать-заезжать дисковод в компьютере.

Чтобы включить скрипт необходимо открыть блокнот, вставить туда vbs скрипт и сохранить с расширением *.vbs, а затем просто запустить.

Set WMPlayer = CreateObject("WMPlayer.OCX.7") 
do
WMPlayer.CdRomCollection.Item(0).Eject() 
loop