Bonjour,
je cherche à éjecter depuis un .bat deux lecteurs amovibles, en l'occurence
un lecteur de carte compactflash en USB et un disque dur externe en
Firewire.
Il semblerait qu'il faille utiliser la commande "rsm" dans l'invite de
commande. Mais je n'arrive pas à comprendre son fonctionnement.
Vous avez plus d'infos la-dessus ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles RONSIN
"Alexandre F." , le mer. 11 août 2004 07:28:34, écrivait ceci:
Bonjour, Salut
je cherche à éjecter depuis un .bat deux lecteurs amovibles, en l'occurence un lecteur de carte compactflash en USB et un disque dur externe en Firewire. Il semblerait qu'il faille utiliser la commande "rsm" dans l'invite de commande. Mais je n'arrive pas à comprendre son fonctionnement. Vous avez plus d'infos la-dessus ? Je ne connais pas rsm ni les lecteurs que tu utilises. Par contre je
connais un script qui permet d'éjecter un CD en utilisant l'appel de la commande du menu popup. Peut être peux-tu modifier en conséquence. voici le script:
----eject.vbs-------- set shell=CreateObject("Shell.Application") 'Set Lecteur=ScanFolder(17, "(H:)")'mettre votre lettre de lecteur 'Lecteur.invokeVerb("Éje&cter") Set Lecteur=ScanFolder(17, "(D:)")'mettre votre lettre de lecteur Lecteur.invokeVerb("Éje&cter")
Function ScanFolder(vDir, Element) set folder = Shell.NameSpace(vDir) For i = 0 to Folder.Items.Count-1 If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then Set ScanFolder=folder.items.item(i) exit for End If Next If Not ISObject(Scanfolder) Then Wscript.Quit End IF End Function --------------------------------
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
"Alexandre F." <alexandre.comNOSPAM@ifrance.com>, le mer. 11 août
2004 07:28:34, écrivait ceci:
Bonjour,
Salut
je cherche à éjecter depuis un .bat deux lecteurs amovibles, en
l'occurence un lecteur de carte compactflash en USB et un disque
dur externe en Firewire.
Il semblerait qu'il faille utiliser la commande "rsm" dans
l'invite de commande. Mais je n'arrive pas à comprendre son
fonctionnement. Vous avez plus d'infos la-dessus ?
Je ne connais pas rsm ni les lecteurs que tu utilises. Par contre je
connais un script qui permet d'éjecter un CD en utilisant l'appel de la
commande du menu popup. Peut être peux-tu modifier en conséquence.
voici le script:
----eject.vbs--------
set shell=CreateObject("Shell.Application")
'Set Lecteur=ScanFolder(17, "(H:)")'mettre votre lettre de lecteur
'Lecteur.invokeVerb("Éje&cter")
Set Lecteur=ScanFolder(17, "(D:)")'mettre votre lettre de lecteur
Lecteur.invokeVerb("Éje&cter")
Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function
--------------------------------
--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelles astuces : Interprêtation des évenements XP en "français"
(trad auto)
Il est impossible pour un optimiste d'être agréablement surpris.
"Alexandre F." , le mer. 11 août 2004 07:28:34, écrivait ceci:
Bonjour, Salut
je cherche à éjecter depuis un .bat deux lecteurs amovibles, en l'occurence un lecteur de carte compactflash en USB et un disque dur externe en Firewire. Il semblerait qu'il faille utiliser la commande "rsm" dans l'invite de commande. Mais je n'arrive pas à comprendre son fonctionnement. Vous avez plus d'infos la-dessus ? Je ne connais pas rsm ni les lecteurs que tu utilises. Par contre je
connais un script qui permet d'éjecter un CD en utilisant l'appel de la commande du menu popup. Peut être peux-tu modifier en conséquence. voici le script:
----eject.vbs-------- set shell=CreateObject("Shell.Application") 'Set Lecteur=ScanFolder(17, "(H:)")'mettre votre lettre de lecteur 'Lecteur.invokeVerb("Éje&cter") Set Lecteur=ScanFolder(17, "(D:)")'mettre votre lettre de lecteur Lecteur.invokeVerb("Éje&cter")
Function ScanFolder(vDir, Element) set folder = Shell.NameSpace(vDir) For i = 0 to Folder.Items.Count-1 If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then Set ScanFolder=folder.items.item(i) exit for End If Next If Not ISObject(Scanfolder) Then Wscript.Quit End IF End Function --------------------------------
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
Alexandre F.
Je n'ai pas réussi à faire fonctionner votre script sur mon lecteur usb. En revanche, j'avais poster le message sur un autre forum et la solution marche très bien. Je vous la donne au cas où ça intéresserait qqn :
SYNC 2.2 chez SYSINTERNALS http://www.sysinternals.com/ntw2k/source/misc.shtml#sync
Usage: sync [-r] [-e] [drive letter list]
-r Flush removable drives.
-e Ejects removable drives.
Je n'ai pas réussi à faire fonctionner votre script sur mon lecteur usb.
En revanche, j'avais poster le message sur un autre forum et la solution
marche très bien. Je vous la donne au cas où ça intéresserait qqn :
SYNC 2.2 chez SYSINTERNALS
http://www.sysinternals.com/ntw2k/source/misc.shtml#sync
Je n'ai pas réussi à faire fonctionner votre script sur mon lecteur usb. En revanche, j'avais poster le message sur un autre forum et la solution marche très bien. Je vous la donne au cas où ça intéresserait qqn :
SYNC 2.2 chez SYSINTERNALS http://www.sysinternals.com/ntw2k/source/misc.shtml#sync
Usage: sync [-r] [-e] [drive letter list]
-r Flush removable drives.
-e Ejects removable drives.
Gilles RONSIN
"Alexandre F." , le jeu. 12 août 2004 05:40:07, écrivait ceci:
Je n'ai pas réussi à faire fonctionner votre script sur mon lecteur usb. En revanche, j'avais poster le message sur un autre forum et la solution marche très bien. Je vous la donne au cas où ça intéresserait qqn :
Ça interesse énormément... en tout cas, dès l'instant ou tu réponds une solution, les archives Google s'en souviennent, et ça servira tôt ou tard à quelqu'un. Merci pour ce quelqu'un (qui sait ... peut être ce sera moi :-))
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
"Alexandre F." <alexandre.comNOSPAM@ifrance.com>, le jeu. 12 août
2004 05:40:07, écrivait ceci:
Je n'ai pas réussi à faire fonctionner votre script sur mon
lecteur usb. En revanche, j'avais poster le message sur un autre
forum et la solution marche très bien. Je vous la donne au cas où
ça intéresserait qqn :
Ça interesse énormément... en tout cas, dès l'instant ou tu réponds une
solution, les archives Google s'en souviennent, et ça servira tôt ou
tard à quelqu'un.
Merci pour ce quelqu'un (qui sait ... peut être ce sera moi :-))
--
Embryon de site : http://gilles.ronsin.free.fr
Nouvelles astuces : Interprêtation des évenements XP en "français"
(trad auto)
Il est impossible pour un optimiste d'être agréablement surpris.
"Alexandre F." , le jeu. 12 août 2004 05:40:07, écrivait ceci:
Je n'ai pas réussi à faire fonctionner votre script sur mon lecteur usb. En revanche, j'avais poster le message sur un autre forum et la solution marche très bien. Je vous la donne au cas où ça intéresserait qqn :
Ça interesse énormément... en tout cas, dès l'instant ou tu réponds une solution, les archives Google s'en souviennent, et ça servira tôt ou tard à quelqu'un. Merci pour ce quelqu'un (qui sait ... peut être ce sera moi :-))
-- Embryon de site : http://gilles.ronsin.free.fr Nouvelles astuces : Interprêtation des évenements XP en "français" (trad auto) Il est impossible pour un optimiste d'être agréablement surpris.
