none
Автоматическое изменение адреса Exchange сервера в профиле Microsoft Outlook RRS feed

  • Общие обсуждения

  • Столкнулся с проблемой автоматического изменения адреса Exchange сервера в профилях Microsoft Outlook сотрудников. Для изменения сервера добавьте следующий скрипт в групповые политики в сценарии входа пользователя.

     

    Set objShell = CreateObject("WScript.Shell")
    
    Main()
    
    Function Main()
    	' Change exchange server address
    	regWrite "HKEY_CURRENT_USER","Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a","001e6608","SERVER.domain.name","REG_SZ"
    	regWrite "HKEY_CURRENT_USER","Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a","001e6602","SERVER","REG_SZ"
    	regWrite "HKEY_CURRENT_USER","Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a","001e6612","/o=ORGANIZATION/ou=First Administrative Group/cn=Configuration/cn=Servers/cn=SERVERNAME","REG_SZ"
    	' Delete cached exchange server address
    	regDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a\001f662a"
    	regDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\13dbb0c8aa05101a9bb000aa002fc45a\101e6613"
    End Function
    
    Function regWrite(root, path, key, value, regType)
    	On Error Resume Next
    	objShell.RegWrite root & "\" & path & "\" & key, value, regType
    	Err.Clear
    End Function
    
    Function regDelete(path)
    	On Error Resume Next
    	objShell.RegDelete path
    	Err.Clear
    End Function
    
    

    • Изменено public_morozov 18 июля 2010 г. 12:55 оформление кода
    • Перемещено Tina_Tian 18 марта 2012 г. 8:19 forum merge (От:Exchange Server 2003/2000/5.5)
    18 июля 2010 г. 12:49

Все ответы

  • Уважаемый public_morozov,

    я так понимаю, что вы решили поделиться готовым решением? А можно поинтересоваться источниками, которыми вы руководствовались?



    Daniil Khabarov, MSFT  Follow MSTechnetForum on Twitter
    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий
    Посетите Блог Инженеров
    21 июля 2010 г. 8:22
    Модератор
  • Уважаемый Daniil Khabarov,

    да, это - готовое решение, протестировано на 70 машинах под управлением Windows XP, с Outlook 2003 и 2007. Источники - мониторинг реестра, пару раз изменил вручную настройки аутлука и изменения зафиксировал в данном скрипте. Я не утверждаю что это самое правильное решение, но на тот момент для меня оно оказалось самым быстрым чем имеющиеся решения (некоторые предлагали править файл профиля аутлука). Так же в этой ветке реестра можно менять кеширование exchange и другие настройки.

    22 июля 2010 г. 8:55