CD Drive open script [using notepad]

Open Notepad-type

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

→ save as → CD. VBS