Voici un code VBScript pour detecter les lecteurs de CD, les Ouvrir et les refermer.
Je poste ce code, qui n'a rien de révolutionnnaire, suite à des questions sur le forum, pour que ça puisse aider d'autre personne.
Source / Exemple :
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
MsgBox "Ton lecteur premier CD : " & strDriveLetter, vbOKOnly + 48, "CDROM=> " & strDriveLetter
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 une touche pour fermer les lecteurs " & strDriveLetter, 0 + 64, "Infos")
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing
wscript.quit
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.