Charger tiroire lecteur dvd

Logiciel & apps Programmation
1

bonjours a tous,
j’aimerais pouvoir charger le tiroire de mon lecteur dvd en ligne de commande,que sa soit en vbs,js,ms-dos,ou autres peut importe.car pour le moment j’ai un script en vbs qui ouvre et referme tous mes lecteurs alors que je voudrais en cibler un précit.
je remercit par avance tous ceux qui prendrons la piene d’y a portés des réponses.

2

je vous met le script en vbs que j’ai pour le moment,y aurais t’il une modification a fair dans le code pour que je puisse ouvrire et fermer un lecteur précis et non tous les lecteurs en meme temps?

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject(“Scripting.FileSystemObject”)

’ Detection des lecteurs de CD
strDriveLetter = “”
For intDriveLetter = Asc(“A”) To Asc(“Z”)
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next

’ Ouvrir tous les lecteurs

Set owmp = CreateObject(“WMPlayer.OCX.7”)
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next

’ Fermer tous les lecteurs que l’on vient d’ouvrir
A1 = MsgBox("Appuyer sur ok pour fermer les lecteurs " & strDriveLetter, 0 + 64, “lecteurs ouvert”)
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing
wscript.quit

3

Je n’y connais absolument rien en VB, mais :

For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next

Au lieu de faire une boucle sur tout les lecteurs :

colCDROMs.Item(0).Eject

4

c’est bien ce que je me dit *-) c’est que le script doit envoyer la commande pour tous les lecteurs, de A: a Z:
donc j’ai remplacer : For intDriveLetter = Asc(“A”) To Asc(“Z”) par For intDriveLetter = Asc(“E”) To Asc(“E”)
(E: est la lettre du lecteur pour lequel je veut charger mon tiroire) et les autre lettres ce qui me donnait le script ci-dessous,mais j’ai toujour tous mes lecteurs qui s’ouvre et se ferme en meme temps.

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject(“Scripting.FileSystemObject”)

’ Detection des lecteurs de CD
strDriveLetter = “”
For intDriveLetter = Asc(“E”) To Asc(“E”)
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next

’ Ouvrir tous les lecteurs

Set owmp = CreateObject(“WMPlayer.OCX.7”)
Set colCDROMs = owmp.cdromCollection
For E = 0 To colCDROMs.Count - 1
colCDROMs.Item(E).Eject
Next

’ Fermer tous les lecteurs que l’on vient d’ouvrir
A1 = MsgBox("Appuyer sur ok pour fermer les lecteurs " & strDriveLetter, 0 + 64, “lecteurs ouvert”)
For E = 0 to colCDROMs.Count -1
colCDROMs.Item(E).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing
wscript.quit

5

persone d’autre ne peut m’aider? :frowning:

6

up! Meme dans un autre langage personne ne peut me donner de reponse?