How can I eject a CD via the cmd?

I have been trying to eject the cd drive with the use of the cmd.
However, I am stumped. Searching on the internet, I only found this answer:

eject D: 

and a similiar answer

eject D: /I

Both of them do not work.

EDIT
Now people have found this answer on superuser,

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

However, I get an error:

colCDROMS.Item is not recognized as an internal or external command, operable program or batch file.

7

7 Answers

You can eject a cd with a batch file (this is part 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

This is not my work, I found it in the stackoverflow community:

Post Link: Batch Command Line to Eject CD Tray?
Answer Author: Bruno
Date Answered: Feb 10, 2015

5

You could use the Shell.Application COM object's InvokeVerb method. From a cmd prompt, you can abuse a PowerShell one-liner thusly:

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

You can also use Windows Scripting Host (VBScript / JScript) to invoke the COM object. Here's an example using a hybrid Batch + Jscript script (save it with a .bat extension):

@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');

If you prefer to have your script detect the drive letter for the CD drive, that can be arranged as well. Here's a more complete version with comments explaining some of the non-self-explanatory values.

@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
// NameSpace(17) = ssfDRIVES, or My Computer.
// See
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();
}

Command line CD-eject oneliner:

In a bat file or directly in cmd this worked after first run of wmplayer on Windows 8:

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

Using WMPlayer.OCX.7 will startled most of the anti-virus programs and there are some versions of windows that come without media player. Here's a way with shell.application and invokeVerb function:

save this with .bat extension:

@cScript.EXE //noLogo "%~f0?.WSF" //job:info %~nx0 %*
@exit /b 0 <job> <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>

You can use it like (for more info -)

call eject.bat *

2

If you can use a third-party application, you can use Nirsoft's nircmd. On all the PCs I tried (from Windows XP to Windows 8), I could eject the disc using:

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

Where X is your disc drive letter.

In Windows 10 I use this little script. It works!

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

2

The easiest way is to just use a small 3rd party helper app named "Wizmo":

wizmo.exe open

Does the trick.

Your Answer

Sign up or log in

Sign up using Google Sign up using Facebook Sign up using Email and Password Submit

Post as a guest

Post Your Answer Discard

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy