> > <!--
> > 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
> > -->
> Ejectメソッドはﾄﾚｲ開いてるときに実行すると閉じたりするのかい？
> もしそうなら長いﾙｰﾌﾟでEject連打とかされると面白いな

短いﾙｰﾌﾟでCDが半分くらい見えたままﾄﾚｲがｷﾞｭｺｷﾞｭｺ前後した方が楽しいよヽ(´ー｀)ノ

参考：2003/05/19(月)21時11分39秒