VBScript

Fermé

Utilisateur anonyme - Modifié par BmV le 22/12/2011 à 17:21
xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 - 19 août 2012 à 17:01

Bonjour,

J'aimerai savoir le code en VBScript pour fermer le premier lecteur puis ouvrir le deuxieme , ne pas refermer le deuxieme et ceci a une heure, une minute et une seocbnde précise.

Merci de'avance j'en ai besoin pour dans quelques jours.

Merci d'avance

A voir également:

VBScript
Erreur d'exécution microsoft vbscript erreur '800a0046' - Forum VB / VBA
Vbscript compiler - Forum VB / VBA
Vbscript virus ✓ - Forum Virus
Vbscript split ✓ - Forum VB / VBA
Vbscript curl ✓ - Forum VB / VBA

53 réponses

Réponse 1 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
20 déc. 2011 à 23:22

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

Réponse 2 / 53

Utilisateur anonyme
20 déc. 2011 à 23:25

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

Réponse 3 / 53

Utilisateur anonyme
20 déc. 2011 à 23:27

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

Réponse 4 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
20 déc. 2011 à 23:29

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 53

Utilisateur anonyme
20 déc. 2011 à 23:30

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?

Réponse 6 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
20 déc. 2011 à 23:32

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

Réponse 7 / 53

Utilisateur anonyme
20 déc. 2011 à 23:39

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

Réponse 8 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
20 déc. 2011 à 23:43

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

Réponse 9 / 53

Utilisateur anonyme
20 déc. 2011 à 23:45

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

Réponse 10 / 53

Utilisateur anonyme
20 déc. 2011 à 23:46

De plus, ton script contient un virus

Réponse 11 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
20 déc. 2011 à 23:55

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

Réponse 12 / 53

Utilisateur anonyme
20 déc. 2011 à 23:59

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

Réponse 13 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
20 déc. 2011 à 23:59

bah c est ce que tu mas demande

Réponse 14 / 53

Utilisateur anonyme
21 déc. 2011 à 00:03

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

Réponse 15 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 00:04

Mais aufaite a quois cela va te servire???

Réponse 16 / 53

Utilisateur anonyme
21 déc. 2011 à 00:05

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

Réponse 17 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 12:33

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

Réponse 18 / 53

Utilisateur anonyme
21 déc. 2011 à 22:11

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

Réponse 19 / 53

xeo56 Messages postés 92 Date d'inscription mardi 23 novembre 2010 Statut Membre Dernière intervention 15 janvier 2014 24
21 déc. 2011 à 22:15

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

Réponse 20 / 53

Utilisateur anonyme
21 déc. 2011 à 22:15

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

Discussions similaires

Faire une pause en VBS

Erreur execution microsoft VBscript ????

Erreur d'exécution Microsoft VBScript

shutdown en vbscript

Pause dans un Script VB

Discussions similaires

Newsletters