none
Как правильно у становить Project 2007 что бы при установке прописались пути к веб серверу RRS feed

  • Вопрос

  • День добрый! Есть необходимость установки на несколько терминальным серверов фирмы Project 2007. Руками понятное дело можно поставить, но хотелось бы используя msp файлы. При установке все прошло гладко, но я не нашел как можно всем пользователям на серверах автоматически прописать настроки подключения к Project Server и тип авторизации. Есть ли такие возможности через Custom Installation Wizard настроить данные параметры...?

    24 ноября 2008 г. 13:35

Ответы

  • Можно конечно и в отдельной ветке спросить, но вот небольшой эскизик

     

    Code Snippet

    Option Explicit

     

    Dim objWSHShell    : Set objWSHShell    = WScript.CreateObject("WScript.Shell")
    Dim objWSHNetwork  : Set objWSHNetwork  = WScript.CreateObject("WScript.Network")

    Dim strRegistryKey : Set strRegistryKey = "HKCU\Software\Microsoft\Office\12.0\MS Project\Profiles\" & objWSHNetwork.UserName

     

    objWSHShell.RegWrite strRegistryKey & "\Name", objWSHNetwork.UserName, "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\Path", "http://projectserver.domain.tld/pwa", "REG_SZ"
    ...
    objWSHShell.RegWrite strRegistryKey & "\ServerCurrency", "RUR", "REG_SZ"

     

    26 ноября 2008 г. 17:35

Все ответы

  • Насколько мне известно данная опция является управляемой и может быть назначена посредством GPO http://technet.microsoft.com/en-us/library/cc179081.aspx

     

    Или вам по каким-то причинам GPO не подходит?

    24 ноября 2008 г. 13:59
  • Хорошо. Скачал по ссылке http://www.microsoft.com/downloads/details.aspx?FamilyID=92d8519a-e143-4aee-8f7a-e4bbaeba13e7&displaylang=en темплейты. Установил. Но самое интересное, что в adm Project 2007 нет политики (не нашел), которая явно указывает путь к web серверу (в 2003 такая политика была но это в proj11.adm). Может как то изменился принцип определения web севрера через политики?

    Заранее спасибо!

    26 ноября 2008 г. 13:22
  • Да видимо изменился, действительно нету.

     

    Может Kichin Denis, что-нибудь поскажет - у него больше опыта работы с Office Project Server 2007.

     

    То, что мне приходит в голову:

    • Написать свой .adm файл, которые видимо будет (umanaged) и будет добавлять в реестр необходимые ключи.
    • Написать скрипт на WSH, который будет делать тоже самое.
    26 ноября 2008 г. 14:14
  • нашел где прописывается параметры подключения в реестре:HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\MS Project\Profiles\%Username%

    "Name"="username"
    "Path"="http://....../pwa"
    "AccountType"="0"
    "UserName"=""
    "Default"="Yes"
    "GUID"="{93C64539-C0FA-483B-B24D-024F296DD555}"
    "EntGlobalLastMod"=""
    "ServerAllowsMasterProjects"="Yes"
    "ServerAllowsLocalBaseCals"="No"
    "ServerProtectsActuals"="No"
    "DisableMacros"="No"
    "DisableProjInfoGrid"="No"
    "DisableSaveAsGrid"="No"
    "CachedGlobalCPID"="0"
    "LastDBBootCPID"="0"
    "ServerCurrency"="RUR"

    Но теперь надо написать скрипт, который эти параметры будет раздавать автоматически, и как то не очень гибко получается... Если кто подскажет скрипт на VBS будут признателен, но похоже это уже не в эту ветку...
    26 ноября 2008 г. 14:46
  • Можно конечно и в отдельной ветке спросить, но вот небольшой эскизик

     

    Code Snippet

    Option Explicit

     

    Dim objWSHShell    : Set objWSHShell    = WScript.CreateObject("WScript.Shell")
    Dim objWSHNetwork  : Set objWSHNetwork  = WScript.CreateObject("WScript.Network")

    Dim strRegistryKey : Set strRegistryKey = "HKCU\Software\Microsoft\Office\12.0\MS Project\Profiles\" & objWSHNetwork.UserName

     

    objWSHShell.RegWrite strRegistryKey & "\Name", objWSHNetwork.UserName, "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\Path", "http://projectserver.domain.tld/pwa", "REG_SZ"
    ...
    objWSHShell.RegWrite strRegistryKey & "\ServerCurrency", "RUR", "REG_SZ"

     

    26 ноября 2008 г. 17:35
  • А тогда маленький вопрос а как правльно в VBS сформировать ключ GUID и откуда он береться?

    Заанее спасибо!

     

    27 ноября 2008 г. 8:36
  • Code Snippet

    Dim TypeLib : Set TypeLib = CreateObject("Scriptlet.TypeLib")
    Dim strGUID : strGUID = TypeLib.Guid

     

     

    Источник: http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/hey0221.mspx

     

    По поводу откуда он берется - скорее всего просто уникальный номер это профайла.

    27 ноября 2008 г. 8:47
  • Итого получилось, хоть не гибко зато работает. может кому надо по быстрому сделать доступ автоматом:

     

    Option Explicit
    Const HKEY_CURRENT_USER = &H80000001
    Dim objWSHShell    : Set objWSHShell    = WScript.CreateObject("WScript.Shell")
    Dim objWSHNetwork  : Set objWSHNetwork  = WScript.CreateObject("WScript.Network")
    Dim strRegistryKey
    Dim TypeLib : Set TypeLib = CreateObject("Scriptlet.TypeLib")
    Dim strGUID : strGUID = TypeLib.Guid
    Dim strRegistryKeySetting
    strRegistryKey="HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\MS Project\Profiles\" & objWSHNetwork.UserName
    strRegistryKeySetting="HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\MS Project\Settings\"

    objWSHShell.RegWrite strRegistryKey & "\Name", objWSHNetwork.UserName, "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\Path", "http://............./pwa", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\AccountType", "0", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\UserName", "", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\Default", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\EntGlobalLastMod", "", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\ServerAllowsMasterProjects", "Yes", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\ServerAllowsLocalBaseCals", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\ServerProtectsActuals", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\DisableMacros", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\DisableProjInfoGrid", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\DisableSaveAsGrid", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\CachedGlobalCPID", "No", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\LastDBBootCPID", "0", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\ServerCurrency", "RUR", "REG_SZ"
    objWSHShell.RegWrite strRegistryKey & "\GUID", TypeLib.Guid , "REG_SZ"
    objWSHShell.RegWrite strRegistryKeySetting & "AutoConnect", "No", "REG_SZ"

     

     

    Андрей тебе отдельный респект и уважуха!

     

     

     

     

    27 ноября 2008 г. 10:31