Ritesh’s Technical Blog

eject cd

Posted on: July 28, 2008

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
———————————————————————————-

Advertisements

1 Response to "eject cd"

gr8

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives

Blog Stats

  • 55,044 hits
%d bloggers like this: