downloadfiddler.vbs

SUBMITTED BY: Guest

DATE: March 27, 2013, 2:27 a.m.

FORMAT: Text only

SIZE: 405 Bytes

Raw Download

HITS: 1245

Report
  1. dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
  2. dim bStrm: Set bStrm = createobject("Adodb.Stream")
  3. xHttp.Open "GET", "http://www.getfiddler.com/dl/Fiddler4BetaSetup.exe", False
  4. xHttp.Send
  6. with bStrm
  7. .type = 1 '//binary
  8. .open
  9. .write xHttp.responseBody
  10. .savetofile "c:\users\Administrator\desktop\fiddler.exe", 2 '//overwrite
  11. end with
comments powered by Disqus