Skip to main content

Download File - VBScript function

Here is the function to download any file over internet using XMLHTTP COM objects in VBScript. 

  1. Function Download(sFileURL, sLocation)
  2.   'create xmlhttp object
  3.   Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  4.  
  5.   'get the remote file
  6.   objXMLHTTP.open "GET", sFileURL, false
  7.  
  8.   'send the request
  9.   objXMLHTTP.send()
  10.  
  11.   'wait until the data has downloaded successfully
  12.   do until objXMLHTTP.Status = 200 :  wscript.sleep(1000) :  loop
  13.  
  14.   'if the data has downloaded sucessfully
  15.   If objXMLHTTP.Status = 200 Then
  16.  
  17.         'create binary stream object
  18.     Set objADOStream = CreateObject("ADODB.Stream")
  19.     objADOStream.Open
  20.  
  21.           'adTypeBinary
  22.     objADOStream.Type = 1
  23.     objADOStream.Write objXMLHTTP.ResponseBody
  24.  
  25.           'Set the stream position to the start
  26.     objADOStream.Position = 0    
  27.  
  28.           'create file system object to allow the script to check for an existing file
  29.           Set objFSO = Createobject("Scripting.FileSystemObject")
  30.  
  31.           'check if the file exists, if it exists then delete it
  32.     If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation
  33.  
  34.           'destroy file system object
  35.     Set objFSO = Nothing
  36.  
  37.           'save the ado stream to a file
  38.     objADOStream.SaveToFile sLocation
  39.  
  40.           'close the ado stream
  41.     objADOStream.Close
  42.  
  43.     'destroy the ado stream object
  44.     Set objADOStream = Nothing
  45.  
  46.   'end object downloaded successfully
  47.   End if
  48.  
  49.   'destroy xml http object
  50.   Set objXMLHTTP = Nothing
  51. End Function
  52.  
  53. 'Call like this
  54. Download "http://tamilmp3world.com/123.mp3", "C:\test1.mp3"

I got this script from internet and thanks for the author as I forgot where I took this.

Comments

Post a Comment

Popular posts from this blog

Some good Resources / Blogs / Sites for Selenium Users

Here I have listed out some good blogs and sites by extensive selenium automation users. Hope these will help you a lot. http://automationtricks.blogspot.com  - by NirajKumar http://www.theautomatedtester.co.uk/ http://testerinyou.blogspot.com   - by Naga/Mathu http://seleniumready.blogspot.com  - by Farheen Khan http://seleniumdeal.blogspot.com/  - Amit Vibhuti http://seleniumexamples.com/blog Sauce Labs and BrowserMob are companies doing cloud and extensive selenium automation services, products, etc http://saucelabs.com/blog http://blog.browsermob.com http://testingbot.com/ Cedric Beust -  creator of the TestNG Java testing framework. http://beust.com/weblog/ http://blog.reallysimplethoughts.com/  - by Samit Badle, Created many Selenium IDE Plug-Ins Available Colud Testing: 1. SauceLabs 2. Soasta 3. BrowserMob 4. CloudTesting.com  etc. Selenium Testing Products: 1. Twist by ThoughtWorks 2.  TestMaker by...
97 comments
Read more

Robotic Process Automation vs Traditional Test Automation vs Process/Task Automation

In IT industry, the term RPA is keep on hearing all sides of the walls for a while; and I was so confused about What's the difference from the test automation tools in the market and what's more into it. I did some search, understanding, and writing this post to share with you all. If I am not correct, PLEASE correct me. Traditional Test Automation: First, we have to recall the test automation tool QTP or UFT (Initially developed by Mercury Interactive Corporation(MIC) after WinRunner, then sold to HP, and again MicroFocus acquired from HP now). If you look into the architecture of this tool, MIC was trying to convert the testers into more efficient testers i.e. Testers were executing the test cases manually for regression suites, performance suites, etc. which had lot of repetitive tasks done by human testers instead of concentrating into new ideas or bug finding strategies to improve the quality of the product.  Thus WinRunner was introduced but it was demanding m...
13 comments
Read more

Run JavaScript from QTP

Yeah, You can run your pure JavaScript from QTP using RunScript method. Lot of times, we are in need of firing events or simulating actions on web page which is not supported by QTP. At that time, you can use your direct DOM methods and directly execute your script on the web page from QTP like, Dim MyPage ,  SearchBox Set MyPage  =  Browser ( "title:=Google" ) . Page ( "title:=Google" )    Set SearchBox  =  MyPage . RunScript ( "document.getElementsByName('q')(0);" ) SearchBox . Value = "testing" 'if objects available in frames, Set SearchBox  =  MyPage . RunScript ( "document.frames(4).document.getElementsByName('q')(0);" ) 'OR Set objFrame =  Browser ( "title:=Google" ) . Page ( "title:=Google" ). Frame( "title:=something" ) objFrame . RunScript ( "document.getElementsByName('q')(0);" ) Also, you can execute by obtaining actual brow...
12 comments
Read more