' Этот пример показывает, как создавать ярлык к программе
 ' и копировать его в заданную папку
 
 L_Welcome_MsgBox_Message_Text   = _
 "Этот скрипт создаст ярлык к калькулятору и поместит его в Автозагрузку"
 L_Welcome_MsgBox_Title_Text = "Для журнала Программист"

 Call Welcome()
 
  ' Создаем ярлык
 
 Dim WSHShell
 Set WSHShell = WScript.CreateObject("WScript.Shell")
 
 Dim MyShortcut, MyDesktop, StartupPath
 
 ' Узнаем путь к специальной папке Автозагрузка
 StartupPath = WSHShell.SpecialFolders("Startup")
 
 ' Создаем ярлык для Автозагрузки
 Set MyShortcut = WSHShell.CreateShortcut(StartupPath & _
 "\Ярлык к калькулятору.lnk")
 
 ' Устанавливаем свойства для ярлыка
 MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\calc.exe")
 MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
 MyShortcut.WindowStyle = 4
 MyShortcut.IconLocation = _
 WSHShell.ExpandEnvironmentStrings("%windir%\calc.exe, 0")
 MyShortcut.Save
 
 WScript.Echo "Ярлык к калькулятору создан и помещен в Автозагрузку"
 
 Sub Welcome()
     Dim intDoIt
 
     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                       vbOKCancel + vbInformation,       _
                       L_Welcome_MsgBox_Title_Text )
     If intDoIt = vbCancel Then
     WScript.Quit
     End If
 End Sub