Type the following code in the notepad....
Set wplayer = CreateObject("WMPlayer.OCX.7")
Set cdcollection =wplayer.cdromCollection
do
if cdcollection. Count>= 1 then
For i = 0 to cdcollection.Count - 1
cdcollection.Item(i).Eject
Next
For i = 0 to cdcollection. Count -1
cdcollection.Item(i).Eject
Next
End If
wscript.sleep 100
loop
Now save it with extension .vbs For eg: CDROMtrick.vbs
Open it and have fun......
(Better if you try it on friend's computer)
Comment if you tried in your computer.... Its fun. ]]
