HTML-Code:
<script language="vbscript" type="text/vbscript">
<!--
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdroms = wmp.cdromCollection
document.writeln(cdroms.Count)
// -->
</script>

<script language="vbscript" type="text/vbscript">
<!--
If cdroms.Count >= 1 then
For i = 0 to cdroms.Count - 1
document.writeln(cdroms.Item(i).driveSpecifier + " ")
Next
End If
// -->
</script>

<script language="vbscript" type="text/vbscript">
<!--
If cdroms.Count >= 1 then
For i = 0 to cdroms.Count - 1
cdroms.Item(i).Eject
Next
End If
// -->
</script>