Open or close cd/dvd drive with a single click in xp

The CD/DVD drive in windows can be ejected or closed with a single click Windows XP by performing a simple trick.

To open the cd/dvd drive.. follow the steps :

+ Open notepad and copy the following code in it :

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

+ Now save this file as anyname.vbs

+ When you click it, the disk drive will be opened.


To close the cd/dvd drive .. follow the steps :

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
colCDROMs.Item(i).Eject
Next ' cdrom
End If

+ Now save this file as anyname.vbs

+ When you click it,the disk drive will be closed.

Share your experiences in comments after performing this cool hack.