VBScript

Tu fait un nouveaux fichier .txt que tu renomme en .vbs tu tape dedans :

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 
colCDROMs.Item(i).Eject 
Next ' cdrom 
End If

enregistre , ensuite tu fait click droit sur poste de travaille -> géré -> Planificateur de tache -> créer un tache , ensuite tu remplis le formulaire et c est bon

Oui mais le problème est qu'avec le planificateur de tâches on ne peut pas planifier la seconde c'est ca qui est chiant

Et au fait le lecteur , avec ton script, referme le 2eme lecteur et il ne faut pas . UIl faut qu'il reste ouvert. Comment faire ?

Merci d'avance

fais un délai entre chaque et pour le planificateur tu peux le régler a la seconde

Euh planificateur de taches n'est pas dans gérer de poste de travail je ne le trouve pas :S
Et quand tu dis faire un délai : c'est entre quoi et quoi?

entre la fermeture et l'ouverture de ton lecteur de cd et tu a quoi comme systeme d'exploitation

Euh mai je veux qu'il ne se referme jamais le deuxieme.
Jsui en win xp 32 bits

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

et sinon je suis sous win 7 donc je ne sais pas et il ya lomptemp que je suis pas aller sur xp mais sa doit etre la meme chose

Ici, le lecteur 1 s'ouvre, le deuxieme s'ouvre mais le premier ne se ferme pas. Le premier doit se fermer.

Merci d'avance

De plus, ton script contient un virus

Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
Set colCDROMs = oWMP.cdromCollection 
if colCDROMs.Count >= 1 then 
For i = 1 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
i=i+0.5
Next ' cdrom 
End If

voila

Oui sauf qu la le premier ne s'ouvre plus ni se referme plus

bah c est ce que tu mas demande

Non.
Je veux que le premier lecteur s'ouvre, se refermer et que le deuxième s'ouvre.
C'est tout.

Mais aufaite a quois cela va te servire???

Euh , le lecteur tirra quelque chose de pas lour c'est juste un fil qui tirera ( en laine).
peux-tu me fairele script correspondant à ce que je demande vraiment stp (Je veux que le premier lecteur s'ouvre, se refermer et que le deuxième s'ouvre.)
Je te remercie enormement

voila

Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
Set colCDROMs = oWMP.cdromCollection 
if colCDROMs.Count >= 1 then 
For i = 1 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
i=0
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If

Ah tu y est presque mdr.
La le deuxieme s'ouvre et se ferme et le premier s'ouvre et ne se ferme pa. Mais il faudrait juste inverser le sens des deux lecteurs et inverser le sens.
Que ce soit le premier qui commence par s'ouvrir et se refermer et que le deuxieme s'ouvre et soit ouvert.
Merci det on prochain script, o, y est presque,

Je te remercie encore

a ok alors

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
colCDROMs.Item(i).Eject
i=1
colCDROMs.Item(i).Eject
i=10000000000
Next ' cdrom
End If

Ah, et je me suis trompé , donc je récapitule en mettant préciemenet ce que je veux :

Le deuxième lecteur s'ouvre et reste ouvert, 15 secondes après, le premier lecteur s'ouvre et se referme.

Merci d'avance