¿Cómo puedo expulsar un CD a través del cmd?

He estado tratando de expulsar la unidad de CD con el uso de cmd.
Sin embargo, estoy perplejo. Buscando en Internet, solo encontré esta respuesta:

eject D: 

y una respuesta similar

eject D: /I

Ambos no funcionan.

EDITAR
Ahora la gente ha encontrado esta respuesta en superusuario,

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject

Sin embargo, recibo un error:

colCDROMS.Item no se reconoce como un comando interno o externo, programa operativo o archivo por lotes.

Puede expulsar un CD con un archivo por lotes (esto es parte vbscript

@echo off
echo Set oWMP = CreateObject("WMPlayer.OCX.7")  >> %temp%\temp.vbs
echo Set colCDROMs = oWMP.cdromCollection       >> %temp%\temp.vbs
echo For i = 0 to colCDROMs.Count-1             >> %temp%\temp.vbs
echo colCDROMs.Item(i).Eject                    >> %temp%\temp.vbs
echo next                                       >> %temp%\temp.vbs
echo oWMP.close                                 >> %temp%\temp.vbs
%temp%\temp.vbs
timeout /t 1
del %temp%\temp.vbs

Este no es mi trabajo, lo encontré en la comunidad stackoverflow:

Enlace de publicación: ¿ Línea de comando por lotes para expulsar la bandeja de CD?
Autor de la respuesta: Bruno
Fecha de respuesta: 10 de febrero de 2015

Puede usar el método Shell.Applicationdel objeto COM InvokeVerb. Desde un indicador de cmd, puede abusar de una línea de PowerShell de la siguiente manera:

powershell "(new-object -COM Shell.Application).NameSpace(17).ParseName('D:').InvokeVerb('Eject')"

También puede usar Windows Scripting Host (VBScript / JScript) para invocar el objeto COM. Aquí hay un ejemplo usando un script híbrido Batch + Jscript (guárdelo con una extensión .bat):

@if (@CodeSection == @Batch) @then

@echo off
setlocal

set "CDdrive=D:"

cscript /nologo /e:JScript "%~f0" "%CDdrive%"

goto :EOF

@end // end batch / begin JScript hybrid chimera
var oSH = WSH.CreateObject('Shell.Application');
oSH.NameSpace(17).ParseName(WSH.Arguments(0)).InvokeVerb('Eject');

Si prefiere que su script detecte la letra de la unidad de CD, también se puede organizar. Aquí hay una versión más completa con comentarios que explican algunos de los valores que no se explican por sí mismos.

@if (@CodeSection == @Batch) @then

@echo off
setlocal

cscript /nologo /e:JScript "%~f0"

goto :EOF

@end // end batch / begin JScript hybrid chimera

// DriveType=4 means CD drive for a WScript FSO object.
// See http://msdn.microsoft.com/en-us/library/ys4ctaz0%28v=vs.84%29.aspx

// NameSpace(17) = ssfDRIVES, or My Computer.
// See http://msdn.microsoft.com/en-us/library/windows/desktop/bb774096%28v=vs.85%29.aspx

var oSH = new ActiveXObject('Shell.Application'),
    FSO = new ActiveXObject('Scripting.FileSystemObject'),
    CDdriveType = 4,
    ssfDRIVES = 17,
    drives = new Enumerator(FSO.Drives);

while (!drives.atEnd()) {
    var x = drives.item();
    if (x.DriveType == CDdriveType) {
        oSH.NameSpace(ssfDRIVES).ParseName(x.DriveLetter + ':').InvokeVerb('Eject');
        while (x.IsReady)
            WSH.Sleep(50);
    }
    drives.moveNext();
}

Línea de comando de expulsión de CD oneliner:

En un archivo bat o directamente en cmdesto funcionó después de la primera ejecución de wmplayerWindows 8:

powershell (New-Object -com "WMPlayer.OCX.7").cdromcollection.item(0).eject()

El uso WMPlayer.OCX.7asustará a la mayoría de los programas antivirus y hay algunas versiones de Windows que vienen sin reproductor multimedia. Aquí hay una manera con la función shell.application e invokeVerb:

guarda esto con la .batextensión:

@cScript.EXE //noLogo "%~f0?.WSF"  //job:info %~nx0 %*
@exit /b 0

   <job id="info">
      <script language="VBScript">
        if WScript.Arguments.Count < 2 then
            WScript.Echo "No drive letter passed"
            WScript.Echo "Usage: " 
            WScript.Echo "  " & WScript.Arguments.Item(0) & " {LETTER|*}"
            WScript.Echo "  * will eject all cd drives"
            WScript.Quit 1
        end if
        driveletter = WScript.Arguments.Item(1):
        driveletter = mid(driveletter,1,1):

        Public Function ejectDrive (drvLtr)
            Set objApp = CreateObject( "Shell.Application" ):
            Set objF=objApp.NameSpace(&H11&):
            'WScript.Echo(objF.Items().Count):
            set MyComp = objF.Items():
            for each item in objF.Items() :
                iName = objF.GetDetailsOf (item,0): 
                iType = objF.GetDetailsOf (item,1): 
                iLabels = split (iName , "(" ) :
                iLabel = iLabels(1):

                if Ucase(drvLtr & ":)") = iLabel and iType = "CD Drive" then
                    set verbs=item.Verbs():
                    set verb=verbs.Item(verbs.Count-4):
                    verb.DoIt():
                    item.InvokeVerb replace(verb,"&","") :
                    ejectDrive = 1:
                    exit function:

                end if
            next    
            ejectDrive = 2:
        End Function

        Public Function ejectAll ()
            Set objApp = CreateObject( "Shell.Application" ):

            Set objF=objApp.NameSpace(&H11&):
            'WScript.Echo(objF.Items().Count):
            set MyComp = objF.Items():
            for each item in objF.Items() :
                iType = objF.GetDetailsOf (item,1):                                 
                if  iType = "CD Drive" then
                    set verbs=item.Verbs():
                    set verb=verbs.Item(verbs.Count-4):
                    verb.DoIt():
                    item.InvokeVerb replace(verb,"&","") :
                end if

            next
        End Function
        if driveletter = "*" then 
            call ejectAll
            WScript.Quit 0
        end if
        result = ejectDrive (driveletter):

        if result = 2 then
            WScript.Echo "no cd drive found with letter " & driveletter & ":"
            WScript.Quit 2
        end if

      </script>
  </job>

Puedes usarlo como (para más información -)

call eject.bat *

Si puede usar una aplicación de terceros, puede usar el nircmd de Nirsoft . En todas las PC que probé (desde Windows XP a Windows 8), pude expulsar el disco usando:

"C:\path_to\nircmd.exe" cdrom open X:

Donde X es la letra de tu unidad de disco.

En Windows 10 utilizo este pequeño script. ¡Funciona!

dim oWMP
  Set oWMP = CreateObject("WMPlayer.OCX.7")
  Set colCDROMs = oWMP.cdromCollection
  colCDROMs.Item(0).Eject
  set oWMP = nothing