** MakeSC() LPARAMETERS tcLink, tcTargetPath, tcDescription, tcWorkingDirectory LOCAL loShell, loShortcut, lcDesktop loShell = CREATEOBJECT("WScript.Shell") lcDesktop = loShell.SpecialFolders("Desktop") loShortcut = loShell.CreateShortcut(lcDesktop + "\\" + tcLink + ".lnk") loShortcut.TargetPath = tcTargetPath loShortcut.WindowStyle = 1 loShortcut.Description = tcDescription loShortcut.WorkingDirectory = tcWorkingDirectory loShortcut.Save()