VBScript
xeo56 Messages postés 106 Statut Membre -
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
- VBScript
- Vbscript - Télécharger - Édition & Programmation
- Microsoft VBScript - Forum Windows 7
- Vbscript editor - Télécharger - Édition & Programmation
- Shutdown en vbscript - Forum VB / VBA
- Police dans VBScript - Forum VB / VBA
53 réponses
- 1
- 2
- 3
Le code en VBScript vise à fermer le premier lecteur puis ouvrir le deuxième, et à laisser ce dernier actif à une heure précise sans le fermer ensuite. Des réponses présentent des scriptlets utilisant Windows Media Player (WMPlayer.OCX.7) pour éjecter ou manipuler le lecteur, mais les résultats divergent et les fermetures ciblées restent incertaines. En cas de besoin, des temporisations et des planifications sont évoquées, tandis que d'autres signalent que certains scripts peuvent être nuisibles ou inadaptés et ne pas fonctionner correctement sur toutes les configurations. D'autres éléments indiquent qu'une approche plus fiable peut nécessiter des outils externes ou un environnement virtuel, ce qui n'était pas tranché dans le fil initialement.
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
Merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEt quand tu dis faire un délai : c'est entre quoi et quoi?
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
Merci d'avance
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
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
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
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
- 1
- 2
- 3
