Étape 1: Étape 1.
Copiez le code suivant dans it-
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
faire
Si colCDROMs.Count > = 1 then
Pour i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). EJECT
Prochaine
Pour i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). EJECT
Prochaine
End If
WScript.Sleep 5000
boucle