Expand|Select|Wrap|Line Numbers
- <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>
Thanks,
Sam