В последнее время, пользователи стали просить поставить им 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, так как принцип именования папок был принципиально изменен.
- Принцип работы можно организовать иначе, но для этого есть у Вас голова.
Если же нужна будет помощь - Задавайте вопросы
Спасибо за внимание, надеюсь, был полезен.
Если статья оказалась полезной - поделись ссылкой с друзьями - кнопки ниже!