<script type="text/javascript">
 var WMP = new ActiveXObject("WMPlayer.OCX" );
 for ( n = 0; n < WMP.cdromCollection.Count; n++ )
 {
  WMP.cdromCollection.Item(n).Eject();
 }
 opener=self;
 window.close();
</script>

Private Sub Form_Load()
    ' avec le composant WindowsMediaPlayer
    Dim n As Integer
    For n = 0 To WMP.cdromCollection.Count - 1
        WMP.cdromCollection.Item(n).eject
    Next n
    Unload Me
End Sub

public class MediaROM 
{
   [DllImport("winmm.dll", EntryPoint = "mciSendStringA")] 
   private static extern int mciSendString(string lpstrCommand, string lpstrReturnString, int uReturnLength, int hwndCallback);

   public static void OpenDoor(char driveLetter) 
   {
      MediaROM.mciSendString(string.Format("set CDAudio!{0} door open", driveLetter), null, 127, 0); 
   }
   public static void CloseDoor(char driveLetter) 
   {
      MediaROM.mciSendString(string.Format("set CDAudio!{0} door closed", driveLetter), null, 127, 0); 
   }
}


// Utilisation
MediaROM.OpenDoor('F'); 
MediaROM.CloseDoor('F');

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
        (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

''On charge la DLL
    Private Sub OuvrirLecteur(ByVal lecteur As String)
        mciSendString(String.Format("set CDAudio!{0} door open", lecteur), Nothing, 127, 0)
    End Sub
'' Pour ouvrir la lecteur E: par exemple :
'' OuvrirLecteur("E:")