Try this function

function Dsk_fldr(lcFileName,lcFolderName,lcIconName)

** lcFileName - File name of exe
** lcFolderName - - Path of exe
** lcIconName - icon of exe

local loShell, lcDesktopFolder, loShortcut, lcLinkFileName
m.loShell = createobject('wscript.shell')
if type(m.loShell) <> 'O'
m.lcDesktopFolder = m.loShell.SpecialFolders('Desktop')
m.lcLinkFileName = m.lcDesktopFolder + '\' + lcFolderName
m.loshortcut = m.loShell.CreateShortcut(m.lcLinkFileName)
m.loShortCut.TargetPath = lcFileName
if !isnull(lcIconName) .and. !empty(lcIconName)
m.loShortCut.IconLocation = lcIconName
endif
m.loShortcut.Save()
endif
retu
endfunc

Jomy John
jomyjohn@hotmail.com