Open & Close CD-ROM In Just On Click

Here is trick to open cdrom in 1 click. For this you have to make a file which when clicked open cdrom. So to make that file follow given steps:

1). Open notepad.

2). Copy given code as it is into it

code:

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

for i=0 to colCDROMs.Count - 1

strDrive= oWMP.cdromCollection.item(i).driveSpecifier

colCDROMs.Item(i).Eject

strQuestion = "Close DRIVE " & strDrive & "?"

answer= msgbox (strQuestion, vbYESNO)

if answer= vbYES then colCDROMs.Item(i).eject:

next

end if

wscript.quit

3). Save it anywhere with the name cdrom.vbs.

Its done.

The above file when clicked will open your cd rom and ask question to close it and will close in case of pcs when you say yes.