Ouvrir/fermer le lecteur CD avec un bat
Résolu
freeze
-
LIAMSI3456 -
LIAMSI3456 -
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
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
A voir également:
- Cd batch
- Fichier batch - Guide
- Cd burner - Télécharger - Gravure
- Hiren's boot cd - Télécharger - Divers Utilitaires
- Clone cd - Télécharger - Gravure
- Hiren's BootCD - Télécharger - Divers Utilitaires
24 réponses
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/
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
oooh la la la la la retourne a l'école ou utilise un correcteur mais merde relis toi ! un mot sur trois il y a une ou deux fautes d'orthographe !
tonylapatate
lol!!
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^^
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^^
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
est la boucle qu'il te faut mon ami!!!!
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
est la boucle qu'il te faut mon ami!!!!
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 )
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 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
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
1-pour ouvrir , enregistrer ci dessous avec bloc note et mettre .vbs a la fin au lieu de. txt et creer un raccoucci sur le bureau
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
2-pour ferme,r même opération ci dessous et creer raccourci sur bureau
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For E = 0 To colCDROMs.Count - 1
colCDROMs.Item(E).Eject
Next
For E = 0 to colCDROMs.Count -1
colCDROMs.Item(E).Eject
Next
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
2-pour ferme,r même opération ci dessous et creer raccourci sur bureau
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For E = 0 To colCDROMs.Count - 1
colCDROMs.Item(E).Eject
Next
For E = 0 to colCDROMs.Count -1
colCDROMs.Item(E).Eject
Next