ouvrir/fermer le lecteur CD avec un bat Résolu/Fermé

Question

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

thib0787 · Accepted Answer

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

arrial · Answer

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

freeze · Answer

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

freeze · Answer

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

arrial · Answer

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é.

hamza_0081 · Answer

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

thib0787 · Answer

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

hamza_0081 · Answer

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 ?

thib0787 · Answer

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

hamza_0081 · Answer

[[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 ?

hamza_0081 · Answer

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

thib0787 · Answer

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

hamza_0081 · Answer

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

hamza_0081 · Answer

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

arrial · Answer

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 &#8252;


@+ sur CÇM.

hamza_0081 · Answer

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

hamza_0081 · Answer

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

arrial · Answer

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 &#8252;
&#9660;&#9660;&#9660;
https://www.commentcamarche.net/contents/1187-introduction-a-vbscript
&#9650;&#9650;&#9650;

Truc bon à savoir : je vai caser ça dans mes archives …

@+
(tu as vu que tes messages sont postés en double ?)

hamza_0081 · Answer

c'est  vraiment un truc genial moi personelement je lé decouvrère il y'a que 2 ou 3 jours j'ai aimé je fonse de puis 

 je cherche pour le mom des script simple a comprande pour envoyé des mail si tu peut m'aidé je serais reconaisson merci d'avance 



_____________________________________________________________________________________________
https://hamza0081.fr.gd/

zemimi · Answer

moi je me suis amusé a dupliquer le code plusieurs centaines de fois comm sa le lecteur s'ouvre tout le temps et si on veut embeter un nul en informatique il suffit d'en faire une tache planifiée

hamza_0081 · Answer

bon soir , je sais que le problème est résolut mais j'aime a jouté un petit truque génial c le >>nircmd<<
vous pouvait faire plain de chose comme ouvrir le tiroirs de ton choix rendre un fenêtre transparente ou invisible cacher le desktop le bouton demander !!!!!! fermer meme le moniteur !!!
faire un screenshote !!!!! et beaucoup d autre chose :-] genial nespas ??

Omakami · Answer

sinon pour la commande on peu ajouter un truc sympa que j'essaierai pas maiis voila:
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 

et ensuite ajouter la commande boucle que je n'ai pas encore tres bien compris je débute en vbs^^

je_suis_nul · Answer

start %vbs% 
ping -n 12 127.0.0.1>nul   <------------------ Pour quoi faire ?! :)
TASKKILL /F /T /IM Wscript.exe 
TASKKILL /F /T /IM Wmiprvse.exe

-----

l'idée est bonne (y) , ya t'il un fichier .bat  pour ca ? 
on pourra assignier une touche de raccourci clavier ( F6 par exemple )

MERCI · Answer

MERCI A VOUS 
grace a ces 2 commandes dont j'ai mis un raccourci sur le bureau ,je peux enfin fermer ou ouvrir mon lecteur cd depuis un double clic sur icone de bureau 
mon pc est hp derniere generation windows7 6go ram 3 ghz 1,5 T et n'avait aucune commande pour fermer le lecteur sans pousser le lecteur manuellement

Ouvrir/fermer le lecteur CD avec un bat

24 réponses

Discussions similaires