Introduction: CD Virus

.

Step 1: Open Notepad

After opening notepad type the following


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count = 1 then

for i = 0 to colCDROMS.Count - 1

colCDROMs.Item(i).Eject

colCDROMs.Item(i).Eject

Next ' cdrom

End if


Step 2: Saving the File.

Now WHILE SAVING

name.vbs

and

OPEN IT

Coded Creations

Participated in the
Coded Creations