5

我目前正在尝试将我的备份 CD 移动到我的备份 HDD。

为了使任务自动化,我尝试创建一个批处理来复制带有 CD 标签的文件,而不是弹出媒体。

到目前为止,代码看起来像这样:

@echo off 
SET dest=F:\Backup\

d:

:: routine to retrieve volume label.
for /f "tokens=1-5*" %%1 in ('vol') do (
   set vol=%%6 & goto done
)
:done

:: create destination folder
set dest=%dest%%vol%
mkdir "%dest%"

:: copy to destiny folder
xcopy "d:" "%dest%" /i /s /exclude:c:\excludes.txt

::eject CD



c:

我被卡在弹出部分。我正在尝试弹出 CD ,因为我想要一条清晰的线条在复制完成时引起我的注意(我认为打开托盘是一个好方法)。

任何想法如何使用批处理?或者任何其他方式来“引起注意”到复制事件的结束?

谢谢 :)

4

4 回答 4

8

如果您没有安装媒体播放器或防病毒警报,请查看我的其他答案。

:sub echo(str) :end sub
echo off
'>nul 2>&1|| copy /Y %windir%\System32\doskey.exe '.exe >nul

'& cls
'& cscript /nologo /E:vbscript %~f0
'& pause




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

if colCDROMs.Count >= 1 then
        For i = 0 to colCDROMs.Count - 1
                colCDROMs.Item(i).Eject
        Next ' cdrom
End If

这是一个批处理/vbscript 混合(您需要将其保存为批处理)。我认为用简单的批处理不可能做到这一点。在 windows 8/8.1 上可能需要下载windows 媒体播放器(最右边的列) .一些防病毒程序可能会警告您有关此脚本的信息。

于 2013-10-19T15:45:51.760 回答
5

我知道这个问题很老,但我想分享这个:

@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

只需确保您的 Temp 文件夹中没有名为“temp.vbs”的文件。这可以通过cmd直接执行,不需要批处理,但我不知道“eject E:\”之类的命令。请记住,这将弹出系统中的所有 CD 托盘。

于 2015-02-10T01:26:56.737 回答
3

更新:

一个还支持弹出 USB 棒的脚本-ejectjs.bat

::to eject specific dive by letter
call ejectjs.bat G
::to eject all drives that can be ejected
call ejectjs.bat *

一种更好的方法,不需要 windows 媒体播放器并且防病毒程序无法识别(尚未)。必须使用.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>
于 2015-06-23T16:11:03.093 回答
1

要求管理员权限太滥用了:)

我正在使用wizmo: https ://www.grc.com/WIZMO/WIZMO.HTM

于 2014-01-07T21:43:56.237 回答