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 {Source}
---------------------------------------------------------------------------------
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
About MeLatest postsBlogger Zone |
Subscribe to my feed