CDROM Trick

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. ]]