Eject CD using a simple Script

0 comments
Save to del.icio.us 0 hits!

This is a small "vbScript" which will continuously eject your cd/dvd rom

Just copy paste the foll script as it is on notepad and save the file as "cdeject.vbs"

cdeject.vbs
---------------------------------------------------------------------------------
do
Set oWMP=CreateObject("WMPlayer.OCX.7")
Set colCDROMs=oWMP.cdromCollection
if colCDROMs.Count >=1 then
For i=0 to colCDROMs.Count-1
colCDROMs.Item(i).Eject
Next 'cdrom
End if
loop


{Source}

Related Posts :



Comments
0 comments
Do you have any suggestions? Add your comment. Please don't spam!
Subscribe to my feed

Post a Comment

About Me

Latest posts

Blogger Zone