<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:")

Private Const INVALID_HANDLE_VALUE      As Long  = -1
Private Const OPEN_EXISTING             As Long  = 3
Private Const FILE_FLAG_DELETE_ON_CLOSE As Long  = 67108864
Private Const GENERIC_READ              As Long  = &H80000000
Private Const GENERIC_WRITE             As Long  = &H40000000
Private Const IOCTL_STORAGE_EJECT_MEDIA As Long  = 2967560
Private Const VWIN32_DIOC_DOS_IOCTL     As Long  = 1
'
Private Type DIOC_REGISTERS
  reg_EBX   As Long
  reg_EDX   As Long
  reg_ECX   As Long
  reg_EAX   As Long
  reg_EDI   As Long
  reg_ESI   As Long
  reg_Flags As Long
End Type
'
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes  As Any, ByVal dwCreationDisposition  As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As  Long
Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As  Long
Private Declare Function GetVersion Lib "kernel32" () As Long
'
'
Public Sub EjectDrive(ByVal sLetter As String)
    Dim hDrive              As Long
    Dim DummyReturnedBytes  As Long
    Dim RawStuff            As DIOC_REGISTERS
        
'    nettoyage lettre
    sLetter = GetValideDriveLetter(sLetter)
    
    If LenB(sLetter) Then
        If GetVersion >= 0 Then 'We are running Windows  NT/2000
            hDrive = CreateFile("\\.\" & sLetter, GENERIC_READ Or GENERIC_WRITE, 0, ByVal  0, OPEN_EXISTING,  0, 0)
            If hDrive <> INVALID_HANDLE_VALUE  Then
                'Eject media!
                Call DeviceIoControl(hDrive,  IOCTL_STORAGE_EJECT_MEDIA, 0, 0,  0, 0, DummyReturnedBytes, ByVal 0)
                Call CloseHandle(hDrive)  'Clean up after  ourselves
            End If
        Else  'We are running Win9x/Me
            hDrive = CreateFile("\\.\VWIN32", 0, 0, ByVal 0, 0, FILE_FLAG_DELETE_ON_CLOSE, 0)
            If hDrive <> INVALID_HANDLE_VALUE  Then
                'Setup our raw registers to use Interrupt 21h  Function 440Dh Minor Code 49h
                RawStuff.reg_EAX = &H440D  'The function to use
                RawStuff.reg_EBX = Asc(sLetter) - Asc("A") + 1 'The  drive to do it on
                RawStuff.reg_ECX = &H49 Or &H800 'The minor code of the  function in the low byte of the low word and the device category of 8 in the  high byte of the low word
                'Eject  media!
                Call DeviceIoControl(hDrive, VWIN32_DIOC_DOS_IOCTL, RawStuff,  LenB(RawStuff), RawStuff,  LenB(RawStuff),  DummyReturnedBytes, ByVal 0)
                Call CloseHandle(hDrive)  'Clean up after ourselves
            End If
        End If
    End If
End Sub
Public Function GetValideDriveLetter(ByVal sLetter As String) As String
    sLetter = UCase$(LeftB$(Trim$(sLetter), 2))
    If sLetter Like "[A-Z]" Then GetValideDriveLetter = sLetter & ":"
End Function