Sunday 5 February 2012

Open CD/DVD Rom From Desktop

This is simple script that let you open your CD/DVD Rom directly from
your desktop. Follow below steps to do this :

Open Notepad and copy below codes in to it.

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Save the file as ejectcd.vbs and you will similar icon as below
Double click this saved file and it will eject you cd rom.
To stop this script go to Task manager > Process and search for
wscript.exe and click on END Process as shown in below image.

No comments:

Post a Comment