Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For i = 0 To mechaniky.Count - 1
 For z = 0 To 1
mechaniky.Item(i).Eject
Next
Next
End If