cmd経由でCDを取り出すにはどうすればよいですか?


24

私はcmdを使用してcdドライブを排出しようとしました。
しかし、私は困惑しています。インターネットで検索すると、私はこの答えを見つけました:

eject D: 

似たような答え

eject D: /I

両方とも機能しません。

編集
今、スーパーユーザーでこの答えが見つかっています。

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

ただし、エラーが発生します。

colCDROMS.Itemは、内部コマンドまたは外部コマンド、操作可能なプログラム、またはバッチファイルとして認識されません。


Windows 7を実行しているため、XPからのバッチファイルが機能しない場合があります。

私も混乱しているので、これについてメタの質問をしていますが、タグはbatch-file質問がトピックから外れたときに言及していません。
AStopher

XPバージョンは私に問題を与えています。


2
それは間違いなくバッチファイルスクリプトではありません。それはVBS
カナダのルークレインステートモニカ

回答:


19

バッチファイルで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日


14
どこから入手したかを述べる必要があります。これは私の仕事ではなく、オンラインで見つけたものです。。覚えていない場合は、著作権上の理由から回答を削除する必要があります。
AStopher


6
技術的に言えば、これはVBSソリューションであり、バッチファイルソリューションではありません。
ダンヘンダーソン

4
以前のコメントを明確にするために、これは前述の質問に対する適切な答えではない、ということではなく、単に「バッチファイルでcdを取り出すことができる」という冒頭の行を少し変更するだけです。システムの構成がバッチファイルの実行をサポートしているがVBスクリプトの実行をサポートしていない場合、この回答は機能しません。
ダンヘンダーソン

2016年12月の時点で、Windows 10上のWindows Defenderは、実行時に生成されたスクリプトをウイルスとして検出します
hooby3dfx

18

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

4

コマンドラインCD-eject oneliner:

Windows 8でcmd最初に実行した後、batファイルで、またはこれで直接機能しましたwmplayer

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

4

使用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 *

それでさえeject.bat *私に伝えますno cd drive found with letter d:。これはなぜでしょうか?ドライブを右クリックして「取り出し」を選択すると、取り出します。
ブラッドトゥレク

@BradTurek-言語である可能性があります(英語でない場合)。または、CDドライブの右クリックに関連付けられたカスタムアクションがある場合。CD / DVDデバイスのイジェクトアクションを右クリックすると、下から4番目(デフォルトの場所)になります。
npocmaka

0

サードパーティのアプリケーションを使用できる場合は、Nirsoftのnircmdを使用できます。(Windows XPからWindows 8に)試したすべてのPCで、次を使用してディスクを取り出すことができました。

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

Xはディスクドライブの文字です。


0

Windows 10では、この小さなスクリプトを使用します。できます!

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

質問を注意深く読んでください。あなたの答えは元の質問には答えませ。OpはWindows 7を使用していますが、彼は既にスクリプトを試してみて、動作しないと言いました。
DavidPostill

このスクリプトはcmd、powershell、またはsmthのどちらですか?
YakovL
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.