現在、バックアップの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を取り出そうとしていますなぜならコピーが終了したときに注意を引くために明確な線が必要です(トレイを開くのは良いことだと思いました)。
バッチを使用してそれを行う方法はありますか?または、コピーイベントの最後に「注意を引く」他の方法はありますか?
ありがとう:)
メディアプレーヤーまたはアンチウイルスアラームがインストールされていない場合は、他の回答を確認してください。
: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ハイブリッド (バッチとして保存する必要があります)です。単純なバッチでこれを行うことはできないと思います。Windows8/ 8.1では-のダウンロードが必要になる場合があります。 Windows Media Player (最も右側の列)一部のアンチウイルスプログラムは、このスクリプトについて警告する場合があります。
Windows Media Playerを必要とせず、アンチウイルスプログラムによって(まだ)認識されない、はるかに優れた方法。.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>
私はこの質問が古いことを知っていますが、私はこれを共有したいと思いました:
@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を介して直接実行できます。バッチは必要ありませんが、「ejectE:」のようなコマンドはわかりません。これにより、システム内のすべてのCDトレイが排出されることに注意してください。
管理者の権利を要求することは悪用しすぎます:)
私はwizmoを使用しています: https://www.grc.com/WIZMO/WIZMO.HTM