Create a shortcut for a program at user Desktop

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "/ XXXX.lnk")
oShellLink.TargetPath = "//FileServer/ XXXX.XXX"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "%SystemRoot%/system32/SHELL32.dll, 148"
oShellLink.Description = "Use to set IE proxy"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
set oShellLink = nothing
set Wshshell = nothing
WScript.quit
--------------------------------------------------------------------------------------------
remark: XXXX is the file's name