Ставим Outlook в автозагрузку

Ставим Outlook в автозагрузку
Задать вопрос
Наши специалисты ответят на любой интересующий вопрос по услуге

Господа, доброго времени суток!

Рука после перелома начинает двигаться, и я полноценно возвращаюсь к работе. 

В последнее время, пользователи стали просить поставить им Outlook в автозагрузку, так как Outlook достаточно мощное средство для работы с электронной почтой.

Ходить и всем ставить ярлык в меню мне очень лениво, поэтому я решил написать скрипт, который делает это сам.

Скрипт будем писать на vbs, а работать его заставим через групповую политику. И так, создаем текстовый файл и наполняем его следующим кодом:

DIm FSO, GetFile1, SHL

On Error Resume Next

set SHL=WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Set GetFile1 = FSO.GetFile(SHL.SpecialFolders("AllUsersPrograms") & "\Microsoft Office\Microsoft Office Outlook 2003.lnk")
If Err.Number = 0 Then
   Yarlik "03"
end if

Err.Number = 0

Set GetFile1 = FSO.GetFile(SHL.SpecialFolders("AllUsersPrograms") & "\Microsoft Office\Microsoft Office Outlook 2007.lnk")
If Err.Number = 0 Then
   Yarlik "07"
end if

Err.Number = 0

Set GetFile1 = FSO.GetFile(SHL.SpecialFolders("AllUsersPrograms") & "\Microsoft Office\Microsoft Outlook 2010.lnk")
If Err.Number = 0 Then
   Yarlik "10"
end if
            
Sub Yarlik(Version)
   Dim ToPath, SC, ProgPath

   ProgPath = SHL.SpecialFolders("AllUsersPrograms") & "\Microsoft Office\Microsoft Office Outlook 20" & Version & ".lnk"
   ToPath = SHL.SpecialFolders("Startup")

   set SC=SHL.CreateShortcut(ToPath & "\Microsoft Outlook.lnk")
      SC.TargetPath = ProgPath
   SC.Save
End Sub

Этот код необходимо сохранить в файл с расширением .vbs, далее указываем файл в групповой политике, как сценарий для входа в систему и все!

Как это работает?

Логика работы скрипта примитивна. Он пытается получить доступ к файлу ярлыка в главном меню. Если ему это удается - он записывает версию в переменную и подставляет ее во вновь созданный ярлык, но уже в автозагрузке.

Обратите внимание:

  • Скрипт не работает для Microsoft Office 2013, так как принцип именования папок был принципиально изменен.
  • Принцип работы можно организовать иначе, но для этого есть у Вас голова.

Если же нужна будет помощь - Задавайте вопросы

Спасибо за внимание, надеюсь, был полезен.

Если статья оказалась полезной - поделись ссылкой с друзьями - кнопки ниже!

Цель нашей компании - предоставление высококачественных ИТ-услуг предприятиям малого и среднего бизнеса.