Lot de la Ligne de Commande pour Éjecter le Tiroir du CD?

Je suis en train d'essayer de déplacer mon CD de sauvegarde sur mon disque dur de Sauvegarde.

Pour automatiser la tâche que je suis en train de créer un batch pour copier les fichiers avec l'étiquette du CD que éjecter le média.

Le code ressemble à ceci:

@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:

Je suis coincé à éjecter de la partie. Je suis en train d'éjecter le CD parce que je veux une ligne claire pour attirer mon attention lorsque la copie est terminée (je pensais que l'ouverture du bac à être une bonne).

Des idées comment faire à l'aide de Lot? Ou d'autres moyens pour "attirer l'attention" à la fin de la copie de l'événement?

Merci 🙂

Note: j'ai regardé tout autour sur google, mais je ne veux pas recourir à C/C#/VB/Java pour ce faire, j'ai d'abord pensé que ce serait simple...
Il est très simple dans toutes les langues, mais natif du Lot (impossible)
Je pense que vous avez raison, j'ai cherché partout et impossible de trouver le moindre indice. Cependant, je ne savais pas que je pouvais faire des hybrides script tho, maintenant, je vais essayer de combiner npocmaka de réponse avec le script que j'ai. Espérons-le, c'est d'aller travailler 🙂

OriginalL'auteur Fawix | 2013-10-19

  1. 9

    si vous n'avez pas installé media player ou anti-virus alarmes vérifier mon autre réponse.

    :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

    C'est un lot/vbscript hybride (vous devez l'enregistrer comme un lot) .Je ne pense pas possible de le faire avec des commandes simples.Sur windows 8/8.1 peut nécessiter le téléchargement de windows media player (le plus à droite de la colonne).Certains programmes anti-virus pourraient vous avertir de ce script.

    c'est assez cool! Je ne savais pas qu'on pouvait faire de l'hybride de scripts. Je vais aller plus dans! elle fonctionne à merveille! merci! 🙂
    AVG est comme: "C'est une menace!" Excellent travail même si. 🙂

    OriginalL'auteur npocmaka

  2. 3

    Je sais que cette question est ancienne, mais je voulais partager ceci:

    @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

    assurez-vous de ne pas avoir un fichier nommé "temp.vbs" dans votre dossier Temp. Cela peut être exécuté directement par le biais d'un cmd, vous n'avez pas besoin d'un lot, mais je ne sais pas de toute commande, comme "éjecter E:\". Rappelez-vous que cela va éjecter tous les CD plateaux dans votre système.

    OriginalL'auteur Bruno

  3. 3

    Une bien meilleure manière qui ne nécessite pas de windows media player et n'est pas reconnu par les programmes anti-virus (encore) .Doit être enregistre avec .bat extension:

     @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>

    OriginalL'auteur npocmaka

  4. 0

    Nécessitant les droits de l'administrateur est trop abuser 🙂

    Je suis en utilisant wizmo:
    https://www.grc.com/WIZMO/WIZMO.HTM

    OriginalL'auteur Denis Barmenkov