Knap til at åbne CD-rom drev med

Et jeg fandt her på eksperten. Er ikke testet.

<SCRIPT LANGUAGE="VBScript">
<!--
MsgBox "Klik her for at få en gratis kop-holder :)",64,"Kedsomhed..."
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>

Hmmm... Ser ikke ud til at man kan göre det mere:
http://www.eksperten.dk/spm/597276

hm.. øv.

<SCRIPT language=VBScript>
<!--
MsgBox "Ølholderen sendes til din computer",64,"Sender....!"
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>


Den virker da hos mig ?