网页弹出光驱

Tags: /超级猛料/COM、ActiveX，DDE/   Date Created:

网页弹出光驱
<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>