[dvassilyev]

Код:

Dim WSHShell Set WSHShell = WScript.CreateObject ("WScript.Shell") Dim MyShortcut, MyDesktop, DesktopPath DesktopPath = WSHShell.SpecialFolders("Desktop") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Programm.lnk") MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("\\server\shared\programm.exe") MyShortcut.Arguments="-a -b -c" MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings ("\\server\shared") MyShortcut.WindowStyle = 3 MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings ("\\server\shared\programm.exe, 0") MyShortcut.Save

пример создания ярлыка на VBS
MyShortcut.WindowStyle = 3 параметры открываемого окна
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("\\server\shared\programm.exe") MyShortcut.Arguments="-a -b -c" путь к файлу, -а параметры запуска

правишь как надо, сохраняешь, вставляешь в сценарии и все