Open CD-Rom using notepad

Open CD-Rom using notepad trick

In notepad

Type the following (better copy and paste)

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

Save this file as cdrom.vbs (or any name with .vbs extension )

close notepad

Double click to open cdrom.vbs

Enjoy!!!!!