var MyShortcut, DesktopPath, MyDocuments, objStream, WSHShell

WSHShell = WScript.CreateObject("WScript.Shell")
objStream = WScript.CreateObject("ADODB.Stream")

MyDocuments = WSHShell.SpecialFolders("MyDocuments")
DesktopPath = WSHShell.SpecialFolders("Desktop")
MyShortcut = WSHShell.CreateShortcut(DesktopPath + "\\HxRx.lnk")

objStream.Type = 1 
objStream.Open("URL=http://hxrx.muel.com/favicon.ico")
objStream.SaveToFile(MyDocuments + "\\favicon.ico", 2)
objStream.Close()
objStream = null

MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("http://hxrx.muel.com")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings( MyDocuments + "\\favicon.ico")
MyShortcut.Save()

WScript.Echo ("You now have a shortcut to HxRx on your Desktop")