или так
ShortcutCopy.vbs
Код:
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
sDestPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") ' путь к рабочему столу
sShortcutPath = "\\acd.local.org\NETLOGON\имя_ярлыка.lnk" ' путь к копируемому ярлыку
FSO.CopyFile sShortcutPath, sDestPath & "\"
