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
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).driveSpecif ier
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.
0 comments:
Post a Comment