如何通过cmd弹出CD？

Question

我一直在尝试使用cmd弹出CD驱动器。
然而，我被难住了。在网上搜索，我只找到了这个答案：

eject D: 

和一个类似的答案

eject D: /I

它们都不起作用。

编辑
现在人们在超级用户上找到了这个答案，

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

但是，我收到一个错误：

colCDROMS.Item 不是内部或外部命令，也不是可运行的程序或批处理文件。

Answer 1

您可以使用批处理文件弹出 cd（这是 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 社区中找到的：

发布链接：批量命令行弹出 CD 托盘？
回答作者：布鲁诺
回答日期：2015 年 2 月 10 日

Answer 2

您可以使用Shell.ApplicationCOM 对象的InvokeVerb方法。在 cmd 提示符下，您可以这样滥用 PowerShell 单行：

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

您还可以使用 Windows Scripting Host (VBScript/JScript) 来调用 COM 对象。这是一个使用混合批处理 + 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');

如果您希望让脚本检测 CD 驱动器的驱动器号，也可以这样安排。这是一个更完整的版本，其中包含解释一些非自解释值的注释。

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

Answer 3

命令行 CD 弹出 oneliner：

在bat文件中或在Windows 8上cmd首次运行后直接在其中工作wmplayer：

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