Create Funny Virus with Notepad Continuously eject CD/DVD (Optical Drive) drives, Homemade Virus

Create Funny Virus with Notepad Continuously eject CD/DVD (Optical Drive) drives Homemade Virus using Notepad

This VBS trap will make a code which will persistently discharge all your joined Optical drives. On the off chance that you return them in, it will pop them out once more.. Copy this code and paste it in Notepad and Save this Notepad with this name (Virus.vbs) or (*.vbs.) without brackets and spaces  

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 

Then Double click on this file and you will be impressed by this awesome trick. your DVD room or CD Room (optical) drive Continuously ejected

I hope you will like this trick