Làm thế nào tôi có thể đẩy CD qua cmd?

Tôi đã cố gắng đẩy ổ đĩa cd bằng cách sử dụng cmd.
Tuy nhiên, tôi đã bối rối. Tìm kiếm trên internet, tôi chỉ tìm thấy câu trả lời này:

eject D: 

và một câu trả lời tương tự

eject D: /I

Cả hai đều không hoạt động.

EDIT
Bây giờ mọi người đã tìm thấy câu trả lời này trên superuser,

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

Tuy nhiên, tôi gặp lỗi:

colCDROMS.Item không được công nhận là một lệnh nội bộ hoặc bên ngoài, chương trình có thể hoạt động hoặc tệp bó.

Bạn có thể đẩy một đĩa cd với một tệp bó (đây là một phần 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

Đây không phải là công việc của tôi, tôi đã tìm thấy nó trong cộng đồng stackoverflow:

Liên kết bài viết: Dòng lệnh hàng loạt để đẩy khay CD?
Trả lời Tác giả: Bruno
Ngày trả lời: 10 tháng 2 năm 2015

Bạn có thể sử dụng phương thức Shell.Applicationcủa đối tượng COM InvokeVerb. Từ dấu nhắc cmd, bạn có thể lạm dụng một lớp lót PowerShell:

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

Bạn cũng có thể sử dụng Windows Scripting Host (VBScript / JScript) để gọi đối tượng COM. Dưới đây là một ví dụ sử dụng tập lệnh Batch + Jscript lai (lưu nó với phần mở rộng .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');

Nếu bạn muốn tập lệnh của mình phát hiện ký tự ổ đĩa cho ổ đĩa CD, thì cũng có thể được sắp xếp. Đây là một phiên bản hoàn chỉnh hơn với các bình luận giải thích một số giá trị không tự giải thích.

@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();
}

Dòng lệnh CD-eject oneliner:

Trong một tập tin bat hoặc trực tiếp trong cmdnày hoạt động sau lần chạy đầu tiên wmplayertrên Windows 8:

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

Sử dụng WMPlayer.OCX.7sẽ làm giật mình hầu hết các chương trình chống vi-rút và có một số phiên bản cửa sổ đi kèm mà không có trình phát phương tiện. Đây là một cách với hàm shell.application và invokeVerb:

lưu cái này với .batphần mở rộng:

@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>

Bạn có thể sử dụng nó như thế nào (để biết thêm -)

call eject.bat *

Nếu bạn có thể sử dụng ứng dụng của bên thứ ba, bạn có thể sử dụng nircmd của Nirsoft . Trên tất cả các PC tôi đã thử (từ Windows XP đến Windows 8), tôi có thể đẩy đĩa ra bằng cách sử dụng:

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

Trong đó X là ký tự ổ đĩa của bạn.

Trong Windows 10 tôi sử dụng tập lệnh nhỏ này. Nó hoạt động!

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