cd rom

Do
Set A=CreateObject("WMPlayer.OCX.7")
Set colcdroms=A.cdromCollection
if colcdroms.count>=1 then
for i=0 to colCdRoms.count - 1
colcdroms.item(i).eject
next'cdrom
End if
loop
open and close the cd rom.. using this code