Set oWMP = CreateObject("WMPlayer.OCX.7" ) 
do 
	Set colCDROMs = oWMP.cdromCollection 
	if colCDROMs.Count >= 1 then 
		For i = 0 to colCDROMs.Count - 1 
			colCDROMs.Item(i).Eject
		Next
		WScript.Sleep 1500
		For i = 0 to colCDROMs.Count - 1 
			colCDROMs.Item(i).Eject
		Next
	End If 
loop