Load / Eject CD ROM in one click without touch

Dear All,

Now Easily Load / Eject Cd-Rom in one click
Steps:-

(i) Open Notepad
(ii) Paste Below Code
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

(iii) save it as Anyname.vbs

(iv) click On the File Now U R Cd rom Eject and Asks Close u r drive ?


If you click yes CD drive close itself.Enjoy........comments are welco