Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

VBScript to Automate File Downloading from a Website

Status
Not open for further replies.
hackoo

hackoo

Programmer
Jan 31, 2003
28
TN
Hi everybody :) I post this VBscript that works for me so fine when i run it as a vbs file !
Code: 
' Set your settings
    strFileURL = "[URL unfurl="true"]http://hackoo.ifrance.com/Merlin.jpg"[/URL]
    strHDLocation = "c:\Merlin.jpg"
' Fetch the file
    Set Ws = WScript.CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing 
Ws.Run strHDLocation
Set WS = Nothing
But my problem how can i make it works in HTML File ? because it didn't works for me i don't know why ? could someone here tell me what's wrong in the HTML file :(

Code: 
<html>
 <head>
 <script language=vbscript>
 Sub Window_Onload
 Call Download_Me()
 End Sub
 Sub Download_Me()
 on error resume next
    strFileURL = "[URL unfurl="true"]http://hackoo.ifrance.com/Merlin.jpg"[/URL]
    strHDLocation = "c:\Merlin.jpg"

    Set Ws = WScript.CreateObject("WScript.Shell")
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing 
Ws.Run strHDLocation
Set WS = Nothing
 End Sub
 </script>
 </head>
 <body>
 <br>
 <br>
 <br>
 <br>
 <input type=button value="Click to Run" name="Download_Me" onclick="Download_Me()">
 </body>
 </html>
 
Sort by date Sort by votes
Replace this:
WScript.CreateObject
with this:
CreateObject

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Upvote 0 Downvote
Replace this:
WScript.CreateObject
with this:
CreateObject
Click to expand...
Thank you for your reply but this still don't works.
I think this comes from the security issue so i'm working under Internet explorer version 7 and using Windows xp SP3.
I made some modification in the HTML file and even this don't works :(
Code: 
<html>
 <head>
 <script language=vbscript>

 Sub Window_Onload
 Call Download_Me()
 End Sub

 Sub Download_Me()
 Dim strFileURL,strHDLocation,LockDown,Keysec1,itemtype
'Authorize the active contents to run in the files of the zone local Computer and the execution of the scripts.
'Autoriser le contenu actif à s'exécuter dans les fichiers de la zone Ordinateur local et l'exécution des scripts.
LockDown="HKLM\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\"
Keysec1=LockDown & "iexplore.exe"
itemtype = "REG_DWORD"
    strFileURL = "[URL unfurl="true"]http://hackoo.ifrance.com/Merlin.jpg"[/URL]
    strHDLocation = "c:\Merlin.jpg"
    Set Ws = CreateObject("WScript.Shell")
	Ws.RegWrite Keysec1,0,itemtype 'la valeur 0 pour Autoriser l'exécution des scripts.
                                  'la valeur 1 pour Bloquer l'exécution des scripts.
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 2 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing 
Ws.Run strHDLocation
Set WS = Nothing
 End Sub
 </script>
 </head>
 <body>
 <br>
 <input type=button value="Click to Run" name="Download_Me" onclick="Download_Me()">
 </body>
 </html>
 
Upvote 0 Downvote
What about an HTA instead of HTML ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Upvote 0 Downvote
Also you don't need those, use the save option.
[tt]
[red]'[/red]Set objFSO = Createobject("Scripting.FileSystemObject")
[red]'[/red]If objFSO.Fileexists(strHDLocation) Then[red]'[/red]objFSO.DeleteFile strHDLocation
[red]'[/red]Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation[red],2[/red] '2=adSaveCreateOverWrite
[/tt]
 
Upvote 0 Downvote
You write thing to registry with html on the client, then you need definitively hta no matter what. Independently of switching to hta, that is already a bad idea.

If you need to change the registry, change it once and period (as I don't see you restore to the original.) That action should not be mixed with xmlhttp functionality in one single script. Just like using adodb.stream on the client machine need permission set in the registry on the client machine.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

bdwilcox
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
812
SoftwareRT
SoftwareRT
Alexvb6
  • Question
Deprecation of VBScript + Classic ASP: How to Ask Microsoft to cancel their planned craziness
Replies
0
Views
95
Alexvb6
Alexvb6
K
  • Question
VBSCRIPT dont work windows 11 23h2 ???
Replies
2
Views
256
SoftwareRT
SoftwareRT
paullem
  • Locked
  • Question
vbscript to read properties of JPEG file
Replies
4
Views
305
paullem
paullem
Rick_Stanich
  • Locked
  • Question
Save xls file to cvs file 1
Replies
3
Views
195
Rick_Stanich
Rick_Stanich

Part and Inventory Search

Sponsor

Back
Top