[boalni]

Правильно я прописал?

Set oShell = WScript.CreateObject("WScript.Shell")
DesktopPath = oShell.SpecialFolders("Desktop") -\\ws200\For WS\Btk2008.lnk
WorkingPath = oShell.SpecialFolders("Desktop") -\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\
Set oShortCut = oShell.CreateShortcut(DesktopPath & "\Shortcut.lnk") -Btk2008.lnk
oShortCut.TargetPath = "c:\program.exe" -\\ws200\Soft\Maps\“БОЛЬШАЯ ТЕЛЕФОННАЯ КНИГА”.2008.Москва\Btk2008.exe
oShortCut.WorkingDirectory = WorkingPath
oShortCut.Save