Делает интересную функцию с дисководом. VBS скрипт я раньше писал как делать.

Сам код:

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