‘[ Hacked By LG ] I hate go to school
Dim oWMP, colCDROMs, i
Do
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
Loop

How to use.
Save this script to .vbs file