Étape 3: Faire sortir Cd
Set oWMP = CreateObject("WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
Si colCDROMs.Count > = 1 then
Pour i = 0 to colCDROMs.Count-1
colCDROMs.Item(i). EJECT
Prochaine
Pour i = 0 tobcolCDROMs.Count-1
colCDROMs.Item(i). EJECT
Prochaine
End If wscript.sleep 5000
boucle
enregistrer en tant que fichier .vbs