; CDEject.kix, Version 1.00
; Eject all CDROMs
;
; Needs Windows Media Player installed
;
; Script based on a VBScript posted by Christoph Fricke on
; the microsoft.public.de.german.scripting.wsh newsgroup

$oWMP = CreateObject("WMPlayer.OCX.7")
$colCDROMs = $oWMP.cdromCollection

If $colCDROMs.Count > 0
	For $i = 0 To $colCDROMs.Count - 1
		$colCDROMs.Item($i).Eject
	Next
EndIf