MsgBox "Jó nagy szívás ember ! Mostantol kezdve a cd-rom a gépeden 60x kinyitódik"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For i = 0 To mechaniky.Count - 1 
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
msgbox "ennyi"

Next
End If