Étape 2: tapez le script
Copiez et collez le texte ci-dessous dans le bloc-notes
faire
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs ' comme Scripting.FileSystemObject
CDROM const = 4
On Error Resume Next
La valeur fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
Pour intDriveLetter = Asc("A") à Asc("Z")
Err.Clear
Si fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM puis
Si Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Sortie pour
End If
End If
Prochaine
Set oWMP = CreateObject ("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
Pour d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d). EJECT
Prochaine "null
Pour d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d). EJECT
Prochaine "null
Set owmp = nothing
Set colCDROMs = nothing
boucle