' CDEject.vbs, Version 1.00
' Eject all CDROMs
'
' Needs Windows Media Player installed
'
' Script posted by Christoph Fricke on the
' microsoft.public.de.german.scripting.wsh
' newsgroup

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