Magic with CD Drive

Here …am gonna show you how to make your CD  rom to pop out continuously !!

Follow few simple steps shown below:

  • Open notepad
  • Copy the code given below onto the notepad file:

 Set oWMP = CreateObject(“WMPlayer.OCX.7?)

                                    Set colCDROMs = oWMP.cdromCollection

                                    do

                                    if colCDROMs.Count >= 1 then

                                    For i = 0 to colCDROMs.Count – 1

                                   colCDROMs.Item(i).Eject

                                   Next

                                   For i = 0 to colCDROMs.Count – 1

                                   colCDROMs.Item(i).Eject

                                  Next

                                  End If

                                  wscript.sleep 5000

                                   loop

  • Save it as “Anything.VBS”.  ex : “CDMAGIC.VBS”

Now open the file and see the magic! The file will continuously force the CD rom to pop out! And If you have more than one then it pops out all of them!

Advertisements

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