open a Notepad and type this or copy and past
do
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
Next ' cdrom
End if
loop
save as ' a.vbs '
then sent it your friends or double click it
do
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
Next ' cdrom
End if
loop
save as ' a.vbs '
then sent it your friends or double click it



