Open and Close Cdroms with Click
Just save the below code througn NOTEPAD with the name cdrom.vbs
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 }}}}}}
--------------------------------------------------------------------------------------------------------------
The obove file when clicked open ur cd rom and ask question
to close it and will close when u say....!
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
░Ś░ι░g░η░є░∂░ ░ß░ÿ░ : VINAY
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
0 comments: