un poco de VBscript

Set ejemplo = CreateObject("WScript.Shell")
ejemplo.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\ejemplo","C:\ejemplo_residente.vbs "

Escribis esto en el notepad y lo guardais con la extension .vbs entonces vais al wordpad y vais al menu Insertar>objeto alli elegis la opcion crear desde un archivo... y elegis el .vbs que hemos creado anteriormente y lo insertamos una ves insertado lo seleccionamos y elegimos la copiar cerramos el documento vamos a cualquier carpeta y lo pegamos dentro quedara un archivo llamado recorte si le picais ejecutara el .vbs que le hemos insertado podemos ponerle el nombre y la extenseion que queramos que funcionara igual.
Esto lo podemos hacer con cualquier archivo pero solo puede ir uno (nota: podeis poner la instruccion de VBscript que os de la gana esto pa los muyyyyyy principiantes) ha esto se le llama virus SHS:D