.

Step 1: Open Notepad

After opening notepad type the following

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

Step 2: Saving the File.

Now WHILE SAVING

name.vbs

and

OPEN IT