CD Virus

by sherwindavis in Circuits > Computers

1510 Views, 10 Favorites, 0 Comments

CD Virus

unnamed (2).png

.

Open Notepad

er.jpg

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


Saving the File.

Untitled.png
Untitled.png

Now WHILE SAVING

name.vbs

and

OPEN IT