oShell = CREATEOBJECT("WScript.Shell") oFso = CreateObject("Scripting.FileSystemObject") cwdesktopfolder = oShell.SpecialFolders("Desktop") lnk = oShell.CreateShortcut(cwdesktopfolder + "\Shortcut to my application.lnk") lnk.TargetPath = "c:\myfolder\myapp.exe" lnk.WindowStyle = 1 lnk.Hotkey = "CTRL+SHIFT+F" lnk.IconLocation = "c:\myfolder\myapp.exe, 0" lnk.Description = "Shortcut to my application" lnk.WorkingDirectory = "c:\myfolder" lnk.Save