eject-cd-51012

Create HARMLESS & FUNNY virus ( not virus actually) that ejects all connected optical drives in computer, and eject back when reinserted as many time you insert back. This is for Fun with friends or maybe in School or college.

Copy the below code and paste in a blank new notepad file and save it with eject.vbs or an name ending in .vbs

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

 

 

 

Also Read:

4 COMMENTS

What Do You Think on This ? Say Here