set WshShell = WScript.CreateObject("WScript.Shell" ) 

strDocuments = WshShell.ExpandEnvironmentStrings("%Systemroot%")


ImageFile = "stranamam.ico"
DestFolder = strDocuments & "\"
URL = "http://www.stranamam.ru/i/desktop.ico"

Set filesys = CreateObject("Scripting.FileSystemObject")
If not filesys.FileExists(DestFolder & ImageFile) Then

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

oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist

oStream.close

set oStream = nothing
Set xml = Nothing

End If

strDesktop = WshShell.SpecialFolders("Desktop" ) 
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Страна Мам.lnk" ) 
oShellLink.TargetPath = "http://www.stranamam.ru/" 
oShellLink.IconLocation = strDocuments & "\stranamam.ico"
oShellLink.Save 

strScript = Wscript.ScriptFullName
filesys.DeleteFile(strScript)