попробуй вот так:
Код:
Set oShell = WScript.CreateObject("WScript.Shell")
DesktopPath = oShell.SpecialFolders("Desktop")
WorkingPath = oShell.SpecialFolders("\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\")
Set oShortCut = oShell.CreateShortcut(DesktopPath & "\Btk2008.lnk")
oShortCut.TargetPath = "\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\Btk2008.exe"
oShortCut.WorkingDirectory = WorkingPath
oShortCut.Save
Ярлык Btk2008.lnk создастся на рабочем столе пользователя и будет ссылаться на Btk2008.exe
