CODE: [Copy to clipboard]Set wmp = CreateObject("WMPlayer.OCX.7") Set cdrom = wmp.cdromCollection cdrom.Item(0).eject cdrom.Item(0).eject