[RaZZoRRo]

Option Explicit

dim WShell , Path , MYlink , PathFile

set WShell = WScript.CreateObject("WScript.Shell")

Path = Wshell.SpecialFolders("Desktop")

set MYlink = WShell.CreateShortcut(Path+"\Мой ярлык.lnk")

PathFile = WShell.ExpandEnvironmentStrings("c:\........ путь к вашему файлу")

MYlink.TargetPath = PathFile

MYlink.save

копируем текст в блокнот сохраняем с расширением VBS и "применяем" к нужным пользователям ....