b4tuh4n adlı üyeden alıntı: mesajı görüntüle
tam tersini yazarmısın bunun 
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
	colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If
vbs olarak kaydetip açın.Cd-Romu acıp kapatacaktır

Not: Sürekli açılıp kapanan cd-rom canınızı sıktı ise
Sonlandırmak için Görev yöneticisinden wscript.exe dosyasını bulup Görevi Sonlandır yapın.