Laden Sie eine auf einem Remote-Server gehostete Datei herunter und führen Sie sie aus.

441
user905798

Ist es möglich, eine auf einem Remote-Server gehostete Datei mit einem .vbs-Skript herunterzuladen und auszuführen? Mein Versuch unten scheint nicht zu funktionieren.

Dim objShell Set objShell = WScript.CreateObject( "WScript.Shell" ) objShell.Run("""\\12.345.67.789\filename.exe""") Set objShell = Nothing
0
Sie sagen **, Sie laden die Datei herunter, aber soweit ich sehen kann, sind Sie nicht - Sie versuchen nur, sie von ihrem entfernten Ort aus auszuführen. G-Man vor 6 Jahren 0

1 Antwort auf die Frage

0
shawn

Das Folgende wird Sie bekommen, was Sie wollen. Stellen Sie sicher, dass Sie den lokalen Dateinamen (sLocalFile) auf einen Pfad setzen, für den Ihr Benutzer Schreibrechte besitzt, oder er schlägt fehl. Darüber hinaus behandeln die meisten Antivirus-Apps dies als Malware.

' variables Dim xHttp, oStream, oShell, sRemoteURI, sLocalFile  ' constants Const klBinary = 1 Const klOverwrite = 2  ' defined values sRemoteURI = "https://example.com/filename.exe" sLocalFile = """%appdata%\filename.exe"""  ' create the web request Set xHttp = CreateObject("Microsoft.XMLHTTP") xHttp.Open "GET", sRemoteURI, False xHttp.Send  ' save the file locally Set oStream = CreateObject("Adodb.Stream") oStream.Type = klBinary oStream.Open oStream.Write xHttp.responseBody oStream.SaveToFile sLocalFile, klOverwrite Set oStream = Nothing Set xHttp = Nothing  ' run the file Set oShell = WScript.CreateObject("WScript.Shell") oShell.Run(sLocalFile) Set oShell = Nothing

Verwandte Probleme