Set owmp = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = owmp.cdromCollection 
For d = 0 To colCDROMs.Count - 1 
colCDROMs.Item(d).Eject 
Next 
For d = 0 to colCDROMs.Count -1 
colCDROMs.Item(d).Eject 
Next