optical drive
CD drive control title>
hEAD>
Set Player = CreateObject ("WMPLAYER.OCX.7")
i = 1
Function Eject ()
IF i = 1 THEN
EjectButton.value = "Remove the optical drive"
i = 2
Else
EjectButton.value = "pop-up optical drive"
i = 1
END IF
Player.cdromCollection.Item (0). Eject ()
EjectButton.blur ()
END FUNCTION
->
Script>
body>
html>