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).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.
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.
No comments:
Post a Comment