### VBScript #####################

<SCRIPT LANGUAGE="VBScript">
<!--

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
-->
</SCRIPT>



### JScript #####################

<script language="JScript">
var oWMP, oCDROMs;
oWMP = new ActiveXObject("WMPlayer.OCX.7");
oCDROMs = oWMP.cdromCollection;
for(var i=0; i<oCDROMs.Count; i++){
        oCDROMs.Item(i).Eject();
}
</script>


예제 링크 : http://mygony.com/example/cup.html

돌아다니면서 보신 분도 있을 것 같습니다.
기술적이라기 보다는 그냥 재미있자고 만드는 거죠. ^^;;

보통 VBScript 로 많이 돌아다니던데 JScript로 한번 만들어봤습니다. 즉, VBScript 는 퍼온 것이고, JScript는 다시 JScript 로 제가 변환한 것입니다. Internet Explorer 를 쓰는 사람들에게만 적용되며, Window Media Player의 버전이 7이상 깔려있어야 합니다. 현재 나온 최신버전은 9 입니다.