Я пытался извлечь диск с использованием cmd.
Однако я в тупике. Ища в интернете, я нашел только такой ответ:
eject D:
и похожий ответ
eject D: /I
Оба они не работают.
РЕДАКТИРОВАТЬ
Теперь люди нашли этот ответ на суперпользователя,
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject
Однако я получаю ошибку:
colCDROMS.Item не распознается как внутренняя или внешняя команда, работающая программа или пакетный файл.
Вы можете извлечь компакт-диск с помощью пакетного файла (это часть 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:
Ссылка для публикации: командная строка для извлечения лотка для компакт-дисков?
Ответ Автор: Бруно
Дата ответа: 10 февраля 2015 г.
Вы могли бы использовать Shell.Application COM объекта. Из командной строки cmd вы можете злоупотреблять однострочным отображением PowerShell:
powershell "(new-object -COM Shell.Application).NameSpace(17).ParseName('D:').InvokeVerb('Eject')"
Вы также можете использовать Windows Scripting Host (VBScript / JScript) для вызова COM-объекта. Вот пример использования гибридного сценария Batch + Jscript (сохраните его с расширением .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');
Если вы предпочитаете, чтобы ваш сценарий определял букву диска для дисковода компакт-дисков, это также можно организовать. Вот более полная версия с комментариями, объясняющими некоторые не требующие пояснений значения.
@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();
}
Командная строка CD-eject oneliner:
В bat-файле или непосредственно в cmd это работало после первого запуска wmplayer в Windows 8:
powershell (New-Object -com "WMPlayer.OCX.7").cdromcollection.item(0).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 *
Если вы можете использовать стороннее приложение, вы можете использовать nircmd от Nirsoft. На всех компьютерах, которые я пробовал (от Windows XP до Windows 8), я мог извлечь диск, используя:
"C:\path_to\nircmd.exe" cdrom open X:
Где X - ваша буква дисковода.
В Windows 10 я использую этот маленький скрипт. Оно работает!
dim oWMP
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject
set oWMP = nothing