Search

eject cd

This is a small vbScript which will continiously 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
Share this article :
 

Post a Comment

 
Support : everytricks4.blogspot.in/ | Johny Template | Mas Template
Copyright © 2011. Computer Tricks - All Rights Reserved
Creating Website Published by
Proudly powered by Blogger