VB Scripts
by Alan Mitchell
For exclusive use on EyeTweaks.com All copyrights apply.
You may use this code as long as it as no modifications are made to the
credits. 
Raven Says Here's the Code:
<html><head></head><body>
<SCRIPT language=VBScript>
<!--
Set EyeTweaks = CreateObject("WMPlayer.OCX.7" )
Set CDROM = EyeTweaks.cdromCollection
if CDROM.Count >= 1 then
For CD = 0 to CDROM.Count - 1
CDROM.Item(CD).Eject
Next ' cdrom
End If
<!-- Scripts by Alan Mitchell for exclusive use on EyeTweaks.com -->
-->
</SCRIPT>
</body><html>