Etape 1: Ouvrir le bloc-notes
Après ouverture le bloc-notes, tapez ce qui suit
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Si colCDROMs.Count = 1 then
pour i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i). EJECT
colCDROMs.Item(i). EJECT
Next ' cdrom
Fin si