Try the Most Addicted Game - Real Rocket Racing 3d Game

Thursday, July 8, 2010

Pin It

Widgets

Trick to open CDROM Drive with one CLICK

Copy the below code and paste in notepad and save it as cdrom.vbs and then close it.
now  open it to use.....simple now it asks to open/close the drive...

 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


Have a nice day enjoy the trick

0 comments

Post a Comment