Quantcast

Make Continue Pop The CD Drive Using Notepad

 04/02/2017 - 04:44
CD Drive Using Notepad

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
 
script.sleep 5000

loop

 

Save it as “Anything.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!

admin's picture
Arshad Ali Ansari

Follow the author on         or visit   Personal Blog