ฉันจะนำซีดีออกด้วย cmd ได้อย่างไร


24

ฉันพยายามที่จะขับซีดีไดรฟ์ด้วยการใช้คำสั่ง
อย่างไรก็ตามฉันนิ่งงัน ค้นหาบนอินเทอร์เน็ตฉันพบคำตอบนี้เท่านั้น:

eject D: 

และคำตอบที่คล้ายกัน

eject D: /I

ทั้งสองไม่ทำงาน

แก้ไข
ตอนนี้ผู้คนได้พบคำตอบนี้ใน superuser แล้ว

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

อย่างไรก็ตามฉันได้รับข้อผิดพลาด:

colCDROMS ไม่ได้รับการยอมรับว่าเป็นคำสั่งภายในหรือภายนอก, โปรแกรมที่ทำงานได้หรือไฟล์แบตช์


ฉันกำลังเรียกใช้ windows 7 ดังนั้นไฟล์แบตช์จาก xp อาจไม่ทำงาน

ฉันกำลังถามคำถาม Meta เกี่ยวกับเรื่องนี้ตั้งแต่ฉันสับสนเช่นกันและแท็กก็ไม่ได้พูดถึงเมื่อมีbatch-fileคำถามที่ไม่เกี่ยวข้อง
AStopher

รุ่น xp ทำให้ฉันมีปัญหา


2
นั่นไม่ใช่การสร้างสคริปต์ไฟล์แบทช์ It's VBS
Canadian Luke ติดตั้ง MONICA ใหม่

คำตอบ:


19

คุณสามารถดีดซีดีด้วยชุดไฟล์ (นี่คือส่วน 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:

โพสต์ลิงค์: Batch Command Line เพื่อดีดถาดซีดีออกหรือไม่
คำตอบผู้แต่ง: Bruno
Date ตอบแล้ว: 10 ก.พ. 2015


14
คุณต้องระบุว่าคุณได้รับจากที่ใด: นี่ไม่ใช่งานของฉันฉันพบมันออนไลน์ . หากคุณจำไม่ได้คุณต้องลบคำตอบของคุณด้วยเหตุผลทางลิขสิทธิ์
AStopher


6
ในทางเทคนิคแล้วนี่เป็นโซลูชั่น VBS ไม่ใช่โซลูชันไฟล์แบตช์
Dan Henderson

4
เพื่อชี้แจงความคิดเห็นก่อนหน้าของฉันฉันไม่ได้ตั้งใจจะบอกว่านี่ไม่ใช่คำตอบที่เหมาะสมสำหรับคำถามตามที่ระบุไว้เพียงว่าบางทีบรรทัดเปิด "คุณสามารถเปิดซีดีด้วยชุดไฟล์" ควรแก้ไขเล็กน้อย หากการกำหนดค่าระบบของฉันรองรับการทำงานของไฟล์แบตช์ แต่ไม่ใช่สคริปต์ VB คำตอบนี้จะไม่ทำงานสำหรับฉัน
Dan Henderson

ตั้งแต่ธันวาคม 2559 Windows Defender บน Windows 10 จะตรวจพบสคริปต์ที่สร้างขึ้นเป็นไวรัสเมื่อทำงาน
hooby3dfx

18

คุณสามารถใช้วิธีการShell.Applicationของวัตถุ COM InvokeVerbจากคำสั่ง 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();
}

4

CD-eject oneliner บรรทัดคำสั่ง:

ในไฟล์ bat หรือcmdทำงานโดยตรงหลังจากทำงานครั้งแรกwmplayerบน Windows 8:

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:เหตุใดจึงเป็นเช่นนี้ ถ้าฉันคลิกขวาที่ไดรฟ์และเลือก "ดีดออก" มันจะเปิดออก
Brad Turek

@BradTurek - อาจเป็นภาษา (ถ้าไม่ใช่ภาษาอังกฤษ) หรือถ้าคุณมีการกระทำที่กำหนดเองที่เกี่ยวข้องกับการคลิกขวามากกว่าไดรฟ์ซีดี หากคุณคลิกขวาที่การดำเนินการดีดแผ่นซีดี / ดีวีดีอุปกรณ์ควรออกจากตำแหน่งที่ 4 จากด้านล่าง (ตำแหน่งเริ่มต้น)
npocmaka

0

หากคุณสามารถใช้โปรแกรมของบุคคลที่สามคุณสามารถใช้NirCmd Nirsoft ของ ในพีซีทุกเครื่องที่ฉันลองใช้ (จาก Windows XP ไปเป็น Windows 8) ฉันสามารถนำแผ่นดิสก์ออกโดยใช้:

"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.