Как извлечь компакт-диск с помощью команды?

Вы можете извлечь компакт-диск с пакетным файлом (это часть 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

Это не моя работа, я нашел ее в сообществе stackoverflow:

Post Link: Пакетная командная строка для извлечения лотка CD? Автор ответа: Бруно Дата ответа: 10 февраля 2015 года

Вы можете использовать метод Shell.Application COM объекта InvokeVerb. Таким образом, с помощью командной строки вы можете злоупотреблять одним лайнером PowerShell:

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

Вы также можете использовать Windows Scripting Host (VBScript / JScript) для вызова COM-объекта. Вот пример использования гибридного Batch + Jscript скрипта (сохраните его с расширением .bat):

Если вы предпочитаете, чтобы ваш скрипт определил букву дисковода для CD-привода, которая также может быть упорядочена. Вот более полная версия с комментариями, объясняющими некоторые неясные значения.

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

Использование WMPlayer.OCX.7 напугает большинство антивирусных программ, и есть несколько версий окон, которые поставляются без медиа-проигрывателя. Вот способ с помощью shell.application и функции invokeVerb:

сохраните это с расширением .bat:

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

Вы можете использовать его как (подробнее -)

call eject.bat *

CD-экран из командной строки:

В файле летучей мыши или непосредственно в cmd это работало после первого запуска wmplayer в Windows 8:

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

В Windows 10 я использую этот маленький сценарий. Он работает!

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

Если вы можете использовать стороннее приложение, вы можете использовать Nirsoft’s nircmd . На всех компьютерах, которые я пробовал (от Windows XP до Windows 8), я мог извлечь диск, используя его:

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

Где X - буква диска.