URL = "URL=http://www.fargoeyecare.com"

DIM fso, File
Dim WSHShell, DesktopPath

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'Read desktop path using WshSpecialFolders object - "Desktop","AllUsersDesktop","Favorites","StartMenu","AllUsersStartMenu"
'"Startup","AllUsersStartup"

DesktopPath = WSHShell.SpecialFolders("AllUsersDesktop")

Set File = fso.CreateTextFile(DesktopPath & "\Fargo Eyecare.url", True)

File.WriteLine("[InternetShortcut]") 
File.Write (URL) 
'File.Write ("same line write") 
File.Close