Ouvrir/fermer le lecteur CD avec un bat

freeze, le vendredi 25 juillet 2008 à 18:01:04

Signaler ce message aux modérateurs

Bonjour,
quelle est l'instruction qui permet d'ouvrir/fermer le lecteur CD dansun fichier batch BATou autre language supporté par windows (car je ne possède aucun compilateur)
merci

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « ouvrir/fermer le lecteur CD avec un bat »

Salut pour ovrire et puis fermer votre lecteur mais s'il est deja ... Lire la suite ...
Non, tu entre le code dans un fichier texte et ensuite tu lui met ... Lire la suite ...
Salut, jai trouver quelque chose, tu peut lancer un .vbs depuis ton ... Lire la suite ...

27 réponses 12 Suivant

Posez votre question Répondre

arrial, le vendredi 25 juillet 2008 à 18:20:25

Qu'est-ce que tu entends par ouvrir/fermer ?

Répondre à arrial

freeze, le vendredi 25 juillet 2008 à 18:33:03

L'ouverture mécanique et fermeture mécanique du lecteur (éjection) qui fait le bruit dzzzzrrrrrrrrrrrrrrrt

Répondre à freeze

freeze, le vendredi 25 juillet 2008 à 18:33:00

L'ouverture mécanique et fermeture mécanique du lecteur (éjection) qui fait le bruit dzzzzrrrrrrrrrrrrrrrt

Répondre à freeze

arrial, le vendredi 25 juillet 2008 à 18:39:02

Je doute que cmd (remplaçant du DOS) ait ce genre de commande. En tout cas, je n'en connais pas.

Il faudrait voir dans les fichiers d'autorun de certains CD pour voir comment ils font. Si ça n'est pas compilé.

Répondre à arrial

HostOfSeraphim, le samedi 26 juillet 2008 à 12:50:13

Ca ne serait pas illogique d'avoir une commande pour cela, mais effectivement, il n'y en a pas de "simple"...

Alors que sous Linux, il y a une commande eject...

Configuration : Linux Debian (Lenny) / Gnome / Firefox 2
Connexion Internet : ADSL Orange 8M (Livebox)

Répondre à HostOfSeraphim

thib0787, le samedi 26 juillet 2008 à 12:23:56

Salut, jai trouver quelque chose,

tu peut lancer un .vbs depuis ton bat pour ouvrir le lecteur (pas le fermer)

voici le vbs

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

Répondre à thib0787

hamza_0081, le samedi 26 juillet 2008 à 12:42:22

Salut es que pour lancer votre vbs on doit avoir un compilateur sous xp !!!

Répondre à hamza_0081

thib0787, le samedi 26 juillet 2008 à 12:45:51

Non, tu entre le code dans un fichier texte et ensuite tu lui met l'extension .vbs

Répondre à thib0787

hamza_0081, le samedi 26 juillet 2008 à 13:15:59

non, tu entre le code dans un fichier texte et ensuite tu lui met l'extension .vbs
s'exécute son aucun compilateur seulement l'xp tu veut me dir que cette extension (*.vbs) est exécutable sous windows ??
es c ds quelle langue de programmation , es que c le visuel basic ?

Répondre à hamza_0081

thib0787, le samedi 26 juillet 2008 à 13:37:21

Oui vbs c'est Visual Basic,

et j'en sais rien moi j'ai Windows XP, et je rentre ce code dans un fichier texte que je renomme en .vbs a la place de .txt et quand je clic dessus le lecteur CD s'ouvre, je cherche pas plus loin !!!
c'est XP qui doit faire la compilation et l'exécution, ou un truc du genre, tant que sa fonctionne ...

Répondre à thib0787

hamza_0081, le samedi 26 juillet 2008 à 14:53:27

[[oui vbs c'est Visual Basic,

et j'en sais rien moi j'ai Windows XP, et je rentre ce code dans un fichier texte que je renomme en .vbs a la place de .txt et quand je clic dessus le lecteur CD s'ouvre, je cherche pas plus loin !!!
c'est XP qui doit faire la compilation et l'exécution, ou un truc du genre, tant que sa fonctionne ...]]

je crois si tu a installer visuel basique ca veut dir que c'est luis qui fait la compilation c logique non ?

Répondre à hamza_0081

hamza_0081, le samedi 26 juillet 2008 à 15:03:25

Genial ca marche chez moi mai je ne sais pas si ca marchera chez n'iporte qui ou pas ?
car moi g pas installer le visual basic
ou je peut trouvé des tuto pour ce genre de script

Répondre à hamza_0081

thib0787, le samedi 26 juillet 2008 à 19:05:42

Normalement pas besoin d'installer quelque chose, sa fonctionne sur un pc venant juste d'être reformaté (a vide sans rien d'installer )

Répondre à thib0787

hamza_0081, le dimanche 27 juillet 2008 à 11:55:48

Salut je me lance sur les vbs et depuis g decouvert des tat de chose la plus marrante c'est c'elle de cree un spam pour envoyer des centenne de message sur un messenger quel que soit skype ou msn yahoo...
c vraiment cool
merci les gas
bye

Répondre à hamza_0081

hamza_0081, le dimanche 27 juillet 2008 à 12:00:00

Salut pour ovrire et puis fermer votre lecteur mais s'il est deja ouvert il le ferme ....
g trouver ce tuto vbs

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
colCDROMs.Item(d).Eject
End If
msgbox "hamza votre cd rom est fermer"

et sur cmd g trouver ce si

echo off && Cls && Mode 55,5 && Color 4f && Title Open Cd
Set VBS=%systemdrive%\OpenClose.vbs
Set VBS1=%systemdrive%\RemoveVBS.vbs
echo Preparing To Run The Script!
>> %vbs% Echo Dim ts
>> %vbs% Echo Dim strDriveLetter
>> %vbs% Echo Dim intDriveLetter
>> %vbs% Echo Dim fs 'As Scripting.FileSystemObject
>> %vbs% Echo Const CDROM = 4
>> %vbs% Echo On Error Resume Next
>> %vbs% Echo Set fs = CreateObject("Scripting.FileSystemObject")
>> %vbs% Echo strDriveLetter = ""
>> %vbs% Echo For intDriveLetter = Asc("D") To Asc("Z")
>> %vbs% Echo Err.Clear
>> %vbs% Echo If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
>> %vbs% Echo If Err.Number = 0 Then
>> %vbs% Echo strDriveLetter = Chr(intDriveLetter)
>> %vbs% Echo Exit For
>> %vbs% Echo End If
>> %vbs% Echo End If
>> %vbs% Echo Next
>> %vbs% Echo MSGBOX "YOUR CD IS: " ^& strDriveLetter,0 + 48,"CDROM=> " ^& strDriveLetter
>> %vbs% Echo Set oWMP = CreateObject("WMPlayer.OCX.7" )
>> %vbs% Echo Set colCDROMs = oWMP.cdromCollection
>> %vbs% Echo colCDROMs.Item(d).Eject
>> %vbs% Echo A1= msgbox ("Press key To Close Cd" ^& vbcrlf ^& " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
>> %vbs% Echo colCDROMs.Item(d).Eject
>> %vbs% Echo set owmp = nothing
>> %vbs% Echo set colCDROMs = nothing
>> %vbs% Echo wscript.quit

start %vbs%
ping -n 12 127.0.0.1>nul
TASKKILL /F /T /IM Wscript.exe
TASKKILL /F /T /IM Wmiprvse.exe

>> %vbs1% Echo On Error Resume Next
>> %vbs1% Echo Dim ACT : Set ACT = CreateObject("WScript.Shell")
>> %vbs1% Echo Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
>> %vbs1% Echo Loc = ACT.ExpandEnvironmentStrings("%SystemDrive%")
>> %vbs1% Echo Fso.Deletefile("%VBS%")
>> %vbs1% Echo Fso.Deletefile(Loc ^& "\CD-Open-Close.cmd")
>> %vbs1% Echo Fso.Deletefile("%VBS1%")
>> %vbs1% Echo Set ACT = Nothing
>> %vbs1% Echo Set Fso = Nothing
start /w %vbs1%
exit

on peut utilise la meme methode dos avec le premier script je teste et si ca marche je vs envoy le code

@+

Répondre à hamza_0081

Dean76, le lundi 5 janvier 2009 à 18:39:50

En vbs il marche super bien merci !

mais en batch (cmd) avec windows vista ça ne fonctionne pas.
il m'affiche "Accès Refusé." et Windows ne trouve pas 'I:\OpenClose.vbs'."

Est-que quelqu'un peut m'aider ?

Répondre à Dean76

hamza_0081, le lundi 5 janvier 2009 à 22:08:00

Bon soire
je ne suit pas un expere et en plus g piqué ce scripte d'un autre forum [désolez je ne me souvien plus du lien]

tu peut tous simplemelnt suprime si la commande start ds la ligne
start %vbs% et le scripte sera :

echo off && Cls && Mode 55,5 && Color 4f && Title Open Cd
Set VBS=%systemdrive%\OpenClose.vbs
Set VBS1=%systemdrive%\RemoveVBS.vbs
echo Preparing To Run The Script!
>> %vbs% Echo Dim ts
>> %vbs% Echo Dim strDriveLetter
>> %vbs% Echo Dim intDriveLetter
>> %vbs% Echo Dim fs 'As Scripting.FileSystemObject
>> %vbs% Echo Const CDROM = 4
>> %vbs% Echo On Error Resume Next
>> %vbs% Echo Set fs = CreateObject("Scripting.FileSystemObject")
>> %vbs% Echo strDriveLetter = ""
>> %vbs% Echo For intDriveLetter = Asc("D") To Asc("Z")
>> %vbs% Echo Err.Clear
>> %vbs% Echo If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
>> %vbs% Echo If Err.Number = 0 Then
>> %vbs% Echo strDriveLetter = Chr(intDriveLetter)
>> %vbs% Echo Exit For
>> %vbs% Echo End If
>> %vbs% Echo End If
>> %vbs% Echo Next
>> %vbs% Echo MSGBOX "YOUR CD IS: " ^& strDriveLetter,0 + 48,"CDROM=> " ^& strDriveLetter
>> %vbs% Echo Set oWMP = CreateObject("WMPlayer.OCX.7" )
>> %vbs% Echo Set colCDROMs = oWMP.cdromCollection
>> %vbs% Echo colCDROMs.Item(d).Eject
>> %vbs% Echo A1= msgbox ("Press key To Close Cd" ^& vbcrlf ^& " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
>> %vbs% Echo colCDROMs.Item(d).Eject
>> %vbs% Echo set owmp = nothing
>> %vbs% Echo set colCDROMs = nothing
>> %vbs% Echo wscript.quit

start %vbs%
ping -n 12 127.0.0.1>nul
TASKKILL /F /T /IM Wscript.exe
TASKKILL /F /T /IM Wmiprvse.exe

>> %vbs1% Echo On Error Resume Next
>> %vbs1% Echo Dim ACT : Set ACT = CreateObject("WScript.Shell")
>> %vbs1% Echo Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
>> %vbs1% Echo Loc = ACT.ExpandEnvironmentStrings("%SystemDrive%")
>> %vbs1% Echo Fso.Deletefile("%VBS%")
>> %vbs1% Echo Fso.Deletefile(Loc ^& "\CD-Open-Close.cmd")
>> %vbs1% Echo Fso.Deletefile("%VBS1%")
>> %vbs1% Echo Set ACT = Nothing
>> %vbs1% Echo Set Fso = Nothing
%vbs1% 'ici la lign qui a ete modifier
exit

a premiere vu ton system [os] est installer sur le volume I:\ en abitude le windows est installer sur le volume C:\
les deux instruction suivante a pour rolle de cré deux variable vbs et vbs1

Set VBS=%systemdrive%\OpenClose.vbs
Set VBS1=%systemdrive%\RemoveVBS.vbs

dont votre cas les variable vbs et vbs1 ont les valeur suite

vbs=I:\OpenClose.vbs
vbs1=I:\RemoveVBS.vbs

la lign suivant :start %vbs%
fait appelle au fichier dont sont nom est porter sur la variable vbs et comme vbs=I:\OpenClose.vbs
elle execute le fichier (OpenClose.vbs)

comme votre syystem ne trouve pas le fichier qui doit etre cree su le I: esseyer de remplacer les lignes

Set VBS=%systemdrive%\OpenClose.vbs
Set VBS1=%systemdrive%\RemoveVBS.vbs

par

Set VBS=I:\OpenClose.vbs
Set VBS1=I:\RemoveVBS.vbs

sa peut que la variable defini par défault %systemRoot% ne soit presante sur la version dos de viste [je ne suis pas sur]

une autre chose aussi tu peut tous simplemelnt suprime si la commande start ds la ligne
start %vbs%

bonne chance j'espre que ca marchera pour toi si no tu suis a votre service :-)

en fin je peut vous proposer un script plus simple en dos [un batch qui genere un scrit vbs :-)]

@echo off&&color 0a&& title Ouverture Du lecteur CD-room&& mode 55,5
set vbs=c:\openCD.vbs 'ou bien I:\openCD.vbs
echo ouverture du tirroire ...
>>%vbs% echo Set oWMP = CreateObject("WMPlayer.OCX.7" )
>>%vbs% echo Set colCDROMs = oWMP.cdromCollection
>>%vbs% echo if colCDROMs.Count >= 1 then
>>%vbs% echo For i = 0 to colCDROMs.Count - 1
>>%vbs% echo colCDROMs.Item(i).Eject
>>%vbs% echo Next ' cdrom
>>%vbs% echo colCDROMs.Item(d).Eject
>>%vbs% echo msgbox " Dean76 votre cd rom est fermer"
%vbs%
del %vbs%

tu peut changer le volume I: par un autre de votre choix !

Répondre à hamza_0081

arrial, le lundi 28 juillet 2008 à 08:51:06

Salut,

J'apprends encore quelque chose en fréquentant les forums, merci à vous.
Dont un fichier cmd *.bat peut lancer un fichier basic, et sans doute pascal, fortran, C, … ?

Cela peut s'expliquer par le fait que les commandes utilisées sont simples (pas orientées "objet", … ) ne comportent que les premières "démocratisations" du langage machine, pour les quelles ces langages, compilés ou non, ont été créés.

Encore MERCI ‼

@+ sur CÇM.

Répondre à arrial

hamza_0081, le lundi 28 juillet 2008 à 11:25:07

Salut arrial
ce code lance un script ecrit en vbscript qui a l'extention *.vbs et windows l'execute a l'aide du wscript c'est un language interpreté pas comme le pascal qui est compilé par un compilateur comme le turbo
je doute que on peut le lancer (le pascal) par le cmd je ne sais pas pour fortron ? mais le c et c++ il te faut un cimpilateur pour lancer des scripts par contre le javascript et le pythonscript on peut.........
a cause du WSH je croie !

ce script ce n'est pas le mien je lé pique d'un autre forume car g aimer , la facon dont on gere les commandes !!

Répondre à hamza_0081

hamza_0081, le lundi 28 juillet 2008 à 11:34:19

Répondre à hamza_0081

arrial, le lundi 28 juillet 2008 à 14:13:52

D'accord. Vbscript est un langage non compilé, comme on n'était pas obligé de compiler du QuickBasic pour l'éxécuter. Il fonctionne sous Windows Scripting Host, un interpréteur de scripts pour les systèmes Microsoft Windows, donc sous Windows ‼
▼▼▼
http://www.commentcamarche.net/vbscript/vbsintro.php3
▲▲▲

Truc bon à savoir : je vai caser ça dans mes archives …

@+
(tu as vu que tes messages sont postés en double ?)

Répondre à arrial

27 réponses 12 Suivant

Posez votre question Répondre

Ouvrir Lecteur cd Depuis 1 simple commande??? Salut à toutes et a tous ! Je voudrai simplement connaitre la commande qui permet d'ouvrir un lecteur cd.... une commande bien sympathique !! ou bien un fichier batch ou bien un fichier vbscript ou tout simpelemnt une commande msdos... ou bien au... www.commentcamarche.net/forum/affich-548993-ouvrir-lecteur-cd-depuis-1-simple-commande

Commande pour ouvrir le lecteur cd salut tout le monde je suis à la recherche d'une commande permétan d'ouvrir mon lecteur cd en entren la commande dans ms dos par exemple Merci d'avance. @lWormS. www.commentcamarche.net/forum/affich-1513221-commande-pour-ouvrir-le-lecteur-cd

Comment ouvrir le lecteur CD Bonjour, je souhaite ecrire un programme qui me permet d'ouvrir le lecteur CD du pc . Mais je ne sais pas comment m'y prendre , avec quel langage dois je le faire ( en C par exemple ) ?? pourriez vous me donner des exemples ou les indtruction... www.commentcamarche.net/forum/affich-1192551-comment-ouvrir-le-lecteur-cd

Résultats pour ouvrir/fermer le lecteur CD avec un bat

Lecteur CD/DVD trop bruyantLes tous derniers lecteurs CD/DVD sont très rapides (52x par exemple), mais aussi très bruyants. Il existe un programme qui permet de les ralentir et - ainsi - de se débarasser de ce bruit d'aspirateur continu. Nero DriveSpeed (freeware, à ne... www.commentcamarche.net/faq/sujet-1734-lecteur-cd-dvd-trop-bruyant

Résultats pour ouvrir/fermer le lecteur CD avec un bat

[Lecteur CD] Ne s'ouvre plusQuand j'appuie sur le bouton pour ouvrir mon lecteur de cd-rw, celui-ci ne s'ouvre pas. Il essaye, produisant un petit clic, mais échoue. Même si je laisse le bouton enfoncé, il peine à s'ouvrir. Ce lecteur est assez vieux, il a 4 ans. Qu'en pensez... www.commentcamarche.net/forum/affich-2321017-lecteur-cd-ne-s-ouvre-plus

Ejecter / Fermer lecteur CD avec clic droitBonjour , j'aimerai pouvoir fermer mes lecteurs de la même façon que je peut les ejecter ( Clic droit sur le lecteur ; Ejecter ) Je pense qu'il doit y avoir une regle a créer. J'ai chercher avant de poster mais je n'est trouver rien d'autre que des... www.commentcamarche.net/forum/affich-3961907-ejecter-fermer-lecteur-cd-avec-clic-droit

[c] ouvrir lecteur cdBonjour, Je programme en language C et j'ai cherché sur le web un code source pour ouvrir le lecteur cd avec un code C mais je n'ai rien trouvé. OS: Windows XP Si quelqu'un pouvait m'aider merci beaucoup. www.commentcamarche.net/forum/affich-2542657-c-ouvrir-lecteur-cd

Résultats pour ouvrir/fermer le lecteur CD avec un bat