Ouvrir/fermer le lecteur CD avec un bat
Résolu/Fermé
A voir également:
- Cd batch
- Hiren boot cd - Télécharger - Divers Utilitaires
- Cd burner - Télécharger - Gravure
- Fichier batch - Guide
- Jaquette cd gratuite à télécharger - Télécharger - Catalogage
- Clone cd - Télécharger - Gravure
24 réponses
hamza_0081
Messages postés
242
Date d'inscription
samedi 19 juillet 2008
Statut
Membre
Dernière intervention
26 avril 2009
60
28 juil. 2008 à 14:25
28 juil. 2008 à 14:25
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/
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!!!!
je_suis_nul
Messages postés
53
Date d'inscription
dimanche 14 décembre 2008
Statut
Membre
Dernière intervention
3 mars 2010
5
29 avril 2009 à 11:31
29 avril 2009 à 11:31
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
28 mars 2011 à 10:26
3 juin 2011 à 22:08