Michael,

Here is some code that I use:

WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oShellLink = WshShell.CreateShortcut(strDesktop + "\RBOM Upload.lnk")
oShellLink.TargetPath = "\\SORL0000\GROUPS\GSD\PUBLIC\MATCNTL\BOM\RBOMUpload.EXE"
oShellLink.WindowStyle = 1
* oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "\\SORL0000\GROUPS\GSD\PUBLIC\MATCNTL\BOM\RBOMUpload.EXE, 0"
oShellLink.Description = "RBOM Upload"
oShellLink.WorkingDirectory = "C:\Temp"
oShellLink.Save