salut tous le mond je vous presante ce scripte pour ceux qui on une base en vbs 
ce script ouvre le tiroire de votre lecteur cd ou dvd rom
copyer le ds un fichier txt (notepad)
et enregistre le sous [nom].vbs
pour l'executé clicker deux fois de sus 
bonne programation..........
vous pouver aussi voire la video sur youtube


Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
msgbox "hamza votre cd rom est ouvert"