Скрипт для создания ярлыков на рабочем столе

---

' Константы для путей
  constSourcePath = "prnsrvInstallIBPropuskexe"
  constProgName   = "Propusk.exe"

  Set WSHShell = WScript.CreateObject("WScript.Shell")

' Копируем файл
  Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
  Set UsrEnv = WSHShell.Environment("USER")
  ExeFile = WSHShell.ExpandEnvironmentStrings(UsrEnv("TEMP")) & "" & constProgName
  objFSO.CopyFile constSourcePath & "" & constProgName, ExeFile

' Создаем ярлык
  Dim DesktopPath
  DesktopPath = WSHShell.SpecialFolders("Desktop")
  Dim MyDocsPath
  MyDocsPath  = WSHShell.SpecialFolders("MyDocuments")
  Dim FileSystem
  Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
  If Not FileSystem.FileExists(DesktopPath + "Заказ пропусков.lnk") then
    Dim MyShortcut
    Set MyShortcut = WSHShell.CreateShortcut(DesktopPath + "Заказ пропусков.lnk")
    MyShortcut.TargetPath = WScript.ScriptFullName
    MyShortcut.WorkingDirectory = MyDocsPath
    MyShortcut.WindowStyle = 3
    MyShortcut.Save
  End If

' Запускаем программу
  WSHShell.Run """" & ExeFile & """", 3