Oldlength ubound backup ошибка

  • Вопрос

  • Здравствуйте!

    Настроил доступ к почтовым адресам пользователей согласно этой инструкции

    http://www.edigarev.net/2009/06/microsoft-outlook.html

    Всё отлично работает,аутлук берет информацию из AD и отображает её как общую адрессную книгу.

    Как посредством GPO подключить эту адресную книгу всем пользователям? Т.к. заходить удаленно и настраивать её отдельно каждому  просто нереально.

    Скачал и установил административные шаблоны office  2007 для AD.  Там есть всё,вплоть  до кнопочек в интерфейсе пользователя,но подключения адресных книг не нашел….

    • Перемещено

      7 июля 2010 г. 3:39
      (От:Клиентские приложения)

Ответы

  • >LDAPdisplayname = «KIT_SERV»
    LDAPserver = «KIT_SERV»
    LDAPport = «3268»
    LDAPsearchbase = «dc=KIT»
    насколько я понимаю дописывать пользователя и пароль нужно тут

    пробовал вписать LDAPuser = «UserBook» LDAPpassword = «Ub123456», не сработало 

    Не понятно, что и где вы указывали. В скрипте от TrojanLX переменные
    LDAPuser и LDAPpassword не используются.

    Могу подсказать, куда прописывать имя пользоавтеля: для случая, пердставленного в скрипте
    TrojanLX, имя пользователя прописывается здесь

    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6602», «»

    В данном скрипте присваивается имя пользователя «» (пустая строка или NULL)

    blog: http://shss.wordpress.com/

    • Помечено в качестве ответа
      Vasily GusevModerator
      3 ноября 2010 г. 5:38

  • В англоязычных форумах нашел скрипт,но он у меня выдает ошибку на строке «oldLength = UBound(Backup)»

    ‘-=-=-=-=-=-=-=-=-=-=-=-=-=-

    ‘Written By James McWhinney

    ‘Vancouver BC, Canada

    ‘www.importfanatik.com

    ‘April 26th, 2006

    ‘-=-=-=-=-=-=-=-=-=-=-=-=-=-

    const HKEY_CURRENT_USER = &H80000001
    strComputer = «.»
    Set oReg=GetObject( «winmgmts:{impersonationLevel=impersonate}!\» _
        & strComputer & «rootdefault:StdRegProv»)
    RegistryFolder = «SoftwareMicrosoftWindows NT» & _
      «CurrentVersionWindows Messaging SubsystemProfilesOutlook»

    LDAPdisplayname = «test»
    LDAPserver = «domain.com»
    LDAPport = «389»
    LDAPsearchbase = «o=base»

    ‘Add Ldap Type Key

    sKeyPath = RegistryFolder & «e8cb48869c395445ade13e3c1c80d154»
    oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
    oReg.SetBinaryValue HKEY_CURRENT_USER, _
         sKeyPath, «00033009», Array(0,0,0,0)
    oReg.SetBinaryValue HKEY_CURRENT_USER, _
         sKeyPath, «00033e03», Array(&H23,0,0,0)
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
         «001e3001», «Microsoft LDAP Directory»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
         «001e3006», «Microsoft LDAP Directory»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
         «001e300a», «EMABLT.DLL»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
         «001e3d09», «EMABLT»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
         «001e3d13», «{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}»
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, _
        «01023d0c», Array(&H5c,&Hb9,&H3b,&H24, _
        &Hff,&H71,&H07,&H41,&Hb7,&Hd8,_
        &H3b,&H9c,&Hb6,&H31,&H79,&H92)

    ‘Add Ldap connection settings key

    sKeyPath = RegistryFolder & «5cb93b24ff710741b7d83b9cb6317992»
    oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
    oReg.SetBinaryValue HKEY_CURRENT_USER, _
         sKeyPath, «00033009», Array(&H20,0,0,0)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6613», Array(0,0)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6615», Array(0,0)
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3001», LDAPdisplayname
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d09», «EMABLT»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d0a», «BJABLR.DLL»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d0b», «ServiceEntry»
    oReg.SetStringValue HKEY_CURRENT_USER, _
         sKeyPath , «001e3d13», «{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6600», LDAPserver
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6601», LDAPport
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6602», «»
    oReg.SetStringValue HKEY_CURRENT_USER, _
         sKeyPath , «001e6603», LDAPsearchbase
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
         «001e6604», «(&(mail=*)(|(mail=%s*)» & _
         «(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6605», «SMTP»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6606», «mail»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6607», «60»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6608», «100»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6609», «120»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660a», «15»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660b», «»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660c», «OFF»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660d», «OFF»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660e», «NONE»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e660f», «OFF»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6610», «postalAddress»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6611», «cn»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e6612», «1»
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «001e67f1», Array(&H0a)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023615», _
         Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,_
         &Hd3,&H11,&H9d,&H60,&H00,_
         &Hc0,&H4f,&H4c,&H8e,&Hfa)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», _
         Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,_
         &H54,&H45,&Had,&He1,&H3e,&H3c,_
         &H1c,&H80,&Hd1,&H54)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01026631», _
         Array(&H98,&H17,&H82,&H92,&H5b,&H43,_
         &H03,&H4b,&H99,&H5d,&H5c,_
         &Hc6,&H74,&H88,&H7b,&H34)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «101e3d0f», _
         Array(&H02,&H00,&H00,&H00,&H0c,&H00,_
         &H00,&H00,&H17,&H00,&H00,&H00,_
         &H45,&H4d,&H41,&H42,&H4c,&H54,_
         &H2e,&H44,&H4c,&H4c,&H00,&H42,_
         &H4a,&H41,&H42,&H4c,&H52,&H2e,_
         &H44,&Hc,&H4c,&H00)

    ‘Append to Backup Key for ldap types

    sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»
    oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d01»,Backup
    Dim oldLength
    oldLength = UBound(Backup)
    ReDim Preserve Backup(oldLength+16)
    Backup(oldLength+1) = &He8
    Backup(oldLength+2) = &Hcb
    Backup(oldLength+3) = &H48
    Backup(oldLength+4) = &H86
    Backup(oldLength+5) = &H9c
    Backup(oldLength+6) = &H39
    Backup(oldLength+7) = &H54
    Backup(oldLength+8) = &H45
    Backup(oldLength+9) = &Had
    Backup(oldLength+10) = &He1
    Backup(oldLength+11) = &H3e
    Backup(oldLength+12) = &H3c
    Backup(oldLength+13) = &H1c
    Backup(oldLength+14) = &H80
    Backup(oldLength+15) = &Hd1
    Backup(oldLength+16) = &H54
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Backup

    ‘Append to Backup Key for ldap connection settings

    sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»
    oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d0e»,Backup
    oldLength = UBound(Backup)
    ReDim Preserve Backup(oldLength+16)
    Backup(oldLength+1) = &H5c
    Backup(oldLength+2) = &Hb9
    Backup(oldLength+3) = &H3b
    Backup(oldLength+4) = &H24
    Backup(oldLength+5) = &Hff
    Backup(oldLength+6) = &H71
    Backup(oldLength+7) = &H07
    Backup(oldLength+8) = &H41
    Backup(oldLength+9) = &Hb7
    Backup(oldLength+10) = &Hd8
    Backup(oldLength+11) = &H3b
    Backup(oldLength+12) = &H9c
    Backup(oldLength+13) = &Hb6
    Backup(oldLength+14) = &H31
    Backup(oldLength+15) = &H79
    Backup(oldLength+16) = &H92
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d0e», Backup

    ‘Delete Active Books List Key

    sKeyPath = RegistryFolder & «9375CFF0413111d3B88A001» & _
               «04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}»
    oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath

    • Помечено в качестве ответа
      Vasily GusevModerator
      3 ноября 2010 г. 5:38

  • Между UBound и (Backup) вроде бы должен быть пробел.

    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется «как есть» без каких-либо гарантий
    Доклады на Techdays:
    http://www.techdays.ru/speaker/Vinokurov_YUrij.html

    • Помечено в качестве ответа
      Vasily GusevModerator
      3 ноября 2010 г. 5:38

  • вот рабочий скрипт для подключения адресной книги LDAP (для анонимного пользователя с установкой безопасной проверки пароля (SPA)) к MS Outlook 12 (Office 2007)

    const HKEY_CURRENT_USER = &H80000001
    strComputer = «.»
    Set oReg=GetObject( «winmgmts:{impersonationLevel=impersonate}!\» _
        & strComputer & «rootdefault:StdRegProv»)
    RegistryFolder = «SoftwareMicrosoftWindows NT» & _
      «CurrentVersionWindows Messaging SubsystemProfilesOutlook»

    LDAPdisplayname = «test»
    LDAPserver = «domain.com»
    LDAPport = «389»
    LDAPsearchbase = «o=base»

    ‘Add Ldap Type Key

    sKeyPath = RegistryFolder & «e8cb48869c395445ade13e3c1c80d154»
    oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033009», Array(0,0,0,0)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033e03», Array(&H23,0,0,0)
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3001», «Microsoft LDAP Directory»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3006», «Microsoft LDAP Directory»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e300a», «EMABLT.DLL»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d09», «EMABLT»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d13», «{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}»
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d0c», Array(&H5c,&Hb9,&H3b,&H24, &Hff,&H71,&H07,&H41,&Hb7,&Hd8,&H3b,&H9c,&Hb6,&H31,&H79,&H92)

    ‘Add Ldap connection settings key

    sKeyPath = RegistryFolder & «5cb93b24ff710741b7d83b9cb6317992»
    oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033009», Array(&H20,0,0,0)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6613», Array(0,0)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6615», Array(&H01,0)
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3001», LDAPdisplayname
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d09», «EMABLT»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d0a», «BJABLR.DLL»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d0b», «ServiceEntry»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d13», «{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6600», LDAPserver
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6601», LDAPport
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6602», «»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6603», LDAPsearchbase
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6604», «(&(mail=*)(|(mail=%s*)» & «(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6605», «SMTP»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6606», «mail»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6607», «60»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6608», «100»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6609», «120»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660a», «15»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660b», «»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660c», «OFF»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660d», «OFF»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660e», «NONE»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660f», «OFF»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6610», «postalAddress»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6611», «cn»
    oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6612», «1»
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «001e67f1», Array(&H0a)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023615», Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,&Hd3,&H11,&H9d,&H60,&H00,&Hc0,&H4f,&H4c,&H8e,&Hfa)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,&H54,&H45,&Had,&He1,&H3e,&H3c,&H1c,&H80,&Hd1,&H54)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01026631», Array(&H98,&H17,&H82,&H92,&H5b,&H43,&H03,&H4b,&H99,&H5d,&H5c,&Hc6,&H74,&H88,&H7b,&H34)
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «101e3d0f», Array(&H02,&H00,&H00,&H00,&H0c,&H00,&H00,&H00,&H17,&H00,&H00,&H00,&H45,&H4d,&H41,&H42,&H4c,&H54,&H2e,&H44,&H4c,&H4c,&H00,&H42,&H4a,&H41,&H42,&H4c,&H52,&H2e,&H44,&Hc,&H4c,&H00)

    ‘Append to Backup Key for ldap types

    sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»
    oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d01»,Backup
    Dim oldLength
    oldLength = UBound (Backup)
    ReDim Preserve Backup(oldLength+16)
    Backup(oldLength+1) = &He8
    Backup(oldLength+2) = &Hcb
    Backup(oldLength+3) = &H48
    Backup(oldLength+4) = &H86
    Backup(oldLength+5) = &H9c
    Backup(oldLength+6) = &H39
    Backup(oldLength+7) = &H54
    Backup(oldLength+8) = &H45
    Backup(oldLength+9) = &Had
    Backup(oldLength+10) = &He1
    Backup(oldLength+11) = &H3e
    Backup(oldLength+12) = &H3c
    Backup(oldLength+13) = &H1c
    Backup(oldLength+14) = &H80
    Backup(oldLength+15) = &Hd1
    Backup(oldLength+16) = &H54
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Backup

    ‘Append to Backup Key for ldap connection settings

    sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»
    oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d0e»,Backup
    oldLength = UBound (Backup)
    ReDim Preserve Backup(oldLength+16)
    Backup(oldLength+1) = &H5c
    Backup(oldLength+2) = &Hb9
    Backup(oldLength+3) = &H3b
    Backup(oldLength+4) = &H24
    Backup(oldLength+5) = &Hff
    Backup(oldLength+6) = &H71
    Backup(oldLength+7) = &H07
    Backup(oldLength+8) = &H41
    Backup(oldLength+9) = &Hb7
    Backup(oldLength+10) = &Hd8
    Backup(oldLength+11) = &H3b
    Backup(oldLength+12) = &H9c
    Backup(oldLength+13) = &Hb6
    Backup(oldLength+14) = &H31
    Backup(oldLength+15) = &H79
    Backup(oldLength+16) = &H92
    oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d0e», Backup

    ‘Delete Active Books List Key

    sKeyPath = RegistryFolder & «9375CFF0413111d3B88A001» & «04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}»
    oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath

    • Помечено в качестве ответа
      Vinokurov YuriyModerator
      16 декабря 2010 г. 10:31

Источник

Скрипт должен добавлять адресную книгу с заданным фильтром поиска, удалив все имеющиеся на данный момент. На данном этапе: книга добавляется, удаления не происходит; при первом запуске outlook выводит окно настройки каталогов LDAP (где прописано имя сервера и есть пустые поля под имяпароль), в котором нужно просто нажать ОК. Событие однократное, но тем не менее нежелательное.

On Error Resume Next 
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootdefault:StdRegProv")
RegistryFolder = "SoftwareMicrosoftOffice15.0OutlookProfilesOutlook"
 
LDAPdisplayname = "Название книги"
LDAPserver = "Ваши данные"
LDAPport = "389"
LDAPsearchbase = "ou=Ваши данные,dc=Ваши данные,dc=Ваши данные"
 
 
'Add Ldap Type Key
sKeyPath = RegistryFolder & "e8cb48869c395445ade13e3c1c80d154"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath 
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "00033009", Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "00033e03", Array(&H23,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3006", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e300a", "EMABLT.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "01023d0c", Array(&H5c,&Hb9,&H3b,&H24,&Hff,&H71,&H07,&H41,&Hb7,&Hd8,&H3b,&H9c,&Hb6,&H31,&H79,&H92)
 
'Add Ldap connection settings key
sKeyPath = RegistryFolder & "5cb93b24ff710741b7d83b9cb6317992"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "00036623", Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "00033009", Array(&H20,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "000b6613", Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "000b6615", Array(&H01,&H00)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "000b6622", Array(&H01,&H00)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", LDAPdisplayname
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0a", "BJABLR.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0b", "ServiceEntry"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6600", LDAPserver
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6601", LDAPport
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6602", ""
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6603", LDAPsearchbase
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6604", "(&(mail=*)(|(mail=%s*)(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6605", "SMTP"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6606", "mail"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6607", "60"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6608", "100"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6609", "120"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660a", "15"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660b", ""
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660c", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660d", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660e", "NONE"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660f", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6610", "postalAddress"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6611", "cn"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6612", "1"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "001e67f1", Array(&H0a)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "01023615", Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,&Hd3,&H11,&H9d,&H60,&H00,&Hc0,&H4f,&H4c,&H8e,&Hfa)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "01023d01", Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,&H54,&H45,&Had,&He1,&H3e,&H3c,&H1c,&H80,&Hd1,&H54)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "01026631", Array(&H98,&H17,&H82,&H92,&H5b,&H43,&H03,&H4b,&H99,&H5d,&H5c,&Hc6,&H74,&H88,&H7b,&H34)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "101e3d0f", Array(&H02,&H00,&H00,&H00,&H0c,&H00,&H00,&H00,&H17,&H00,&H00,&H00,&H45,&H4d,&H41,&H42,&H4c,&H54,&H2e,&H44,&H4c,&H4c,&H00,&H42,&H4a,&H41,&H42,&H4c,&H52,&H2e,&H44,&Hc,&H4c,&H00)
 
'Append to Backup Key for ldap types
sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup
Dim oldLength
oldLength = UBound (Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &He8
Backup(oldLength+2) = &Hcb
Backup(oldLength+3) = &H48
Backup(oldLength+4) = &H86
Backup(oldLength+5) = &H9c
Backup(oldLength+6) = &H39
Backup(oldLength+7) = &H54
Backup(oldLength+8) = &H45
Backup(oldLength+9) = &Had
Backup(oldLength+10) = &He1
Backup(oldLength+11) = &H3e
Backup(oldLength+12) = &H3c
Backup(oldLength+13) = &H1c
Backup(oldLength+14) = &H80
Backup(oldLength+15) = &Hd1
Backup(oldLength+16) = &H54
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "01023d01", Backup
 
 
'Append to Backup Key for ldap connection settings
sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d0e",Backup
oldLength = UBound (Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &H5c
Backup(oldLength+2) = &Hb9
Backup(oldLength+3) = &H3b
Backup(oldLength+4) = &H24
Backup(oldLength+5) = &Hff
Backup(oldLength+6) = &H71
Backup(oldLength+7) = &H07
Backup(oldLength+8) = &H41
Backup(oldLength+9) = &Hb7
Backup(oldLength+10) = &Hd8
Backup(oldLength+11) = &H3b
Backup(oldLength+12) = &H9c
Backup(oldLength+13) = &Hb6
Backup(oldLength+14) = &H31
Backup(oldLength+15) = &H79
Backup(oldLength+16) = &H92
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath,  "01023d0e", Backup


 
'Delete Active Books List Key
sKeyPath = RegistryFolder & "9375CFF0413111d3B88A00104B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}"
oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath
Источник

Добрый день!Есть скрипт, необходимый для GPO (автоматически подключает LDAP адресную книгу в outlook)и две проблемы:
1.ошибка выполнения microsoft vbscript 800a000d (oldLength = UBound(Backup)
2.Необходимо добавить в скрипт строку, которая бы ставила галку «включить просмотр» в диалоговом окне добавления каталога Microsoft LDAP, без этой галки книга не отображается.

По второму вопросу читал вот это: http://technet.microsoft.com/ru-ru/library/cc179232(v=office.12).aspx   , но соответствующий параметр в реестре не нашел.

Есть идеи?

Собственно, сам скрипт:

const HKEY_CURRENT_USER = &H80000001
strComputer = «.»
Set oReg=GetObject( «winmgmts:{impersonationLevel=impersonate}!\» _
    & strComputer & «rootdefault:StdRegProv»)
RegistryFolder = «SoftwareMicrosoftWindows NT» & _ 
  «CurrentVersionWindows Messaging SubsystemProfilesOutlook»

LDAPdisplayname = «test»
LDAPserver = «10.0.2.15»
LDAPport = «389»
LDAPsearchbase = «dc=contoso,dc=com»

‘Add Ldap Type Key

sKeyPath = RegistryFolder & «e8cb48869c395445ade13e3c1c80d154»
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath 
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033009», Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033e03», Array(&H23,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3001», «Microsoft LDAP Directory»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3006», «Microsoft LDAP Directory»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e300a», «EMABLT.DLL»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d09», «EMABLT»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , «001e3d13», «{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}»
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d0c», Array(&H5c,&Hb9,&H3b,&H24, &Hff,&H71,&H07,&H41,&Hb7,&Hd8,&H3b,&H9c,&Hb6,&H31,&H79,&H92)

‘Add Ldap connection settings key

sKeyPath = RegistryFolder & «5cb93b24ff710741b7d83b9cb6317992»
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033009», Array(&H20,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6613», Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b6615», Array(&H01,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3001», LDAPdisplayname
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d09», «EMABLT»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d0a», «BJABLR.DLL»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d0b», «ServiceEntry»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e3d13», «{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6600», LDAPserver
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6601», LDAPport
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6602», «»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6603», LDAPsearchbase
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6604», «(&(mail=*)(|(mail=%s*)» & «(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6605», «SMTP»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6606», «mail»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6607», «60»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6608», «100»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6609», «120»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660a», «15»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660b», «»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660c», «OFF»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660d», «OFF»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660e», «NONE»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e660f», «OFF»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6610», «postalAddress»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6611», «cn»
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath, «001e6612», «1»
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «001e67f1», Array(&H0a)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023615», Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,&Hd3,&H11,&H9d,&H60,&H00,&Hc0,&H4f,&H4c,&H8e,&Hfa)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,&H54,&H45,&Had,&He1,&H3e,&H3c,&H1c,&H80,&Hd1,&H54)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01026631», Array(&H98,&H17,&H82,&H92,&H5b,&H43,&H03,&H4b,&H99,&H5d,&H5c,&Hc6,&H74,&H88,&H7b,&H34)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «101e3d0f», Array(&H02,&H00,&H00,&H00,&H0c,&H00,&H00,&H00,&H17,&H00,&H00,&H00,&H45,&H4d,&H41,&H42,&H4c,&H54,&H2e,&H44,&H4c,&H4c,&H00,&H42,&H4a,&H41,&H42,&H4c,&H52,&H2e,&H44,&Hc,&H4c,&H00)

‘Append to Backup Key for ldap types

sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d01»,Backup
Dim oldLength
oldLength = UBound (Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &He8
Backup(oldLength+2) = &Hcb
Backup(oldLength+3) = &H48
Backup(oldLength+4) = &H86
Backup(oldLength+5) = &H9c
Backup(oldLength+6) = &H39
Backup(oldLength+7) = &H54
Backup(oldLength+8) = &H45
Backup(oldLength+9) = &Had
Backup(oldLength+10) = &He1
Backup(oldLength+11) = &H3e
Backup(oldLength+12) = &H3c
Backup(oldLength+13) = &H1c
Backup(oldLength+14) = &H80
Backup(oldLength+15) = &Hd1
Backup(oldLength+16) = &H54
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Backup

‘Append to Backup Key for ldap connection settings

sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d0e»,Backup
oldLength = UBound (Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &H5c
Backup(oldLength+2) = &Hb9
Backup(oldLength+3) = &H3b
Backup(oldLength+4) = &H24
Backup(oldLength+5) = &Hff
Backup(oldLength+6) = &H71
Backup(oldLength+7) = &H07
Backup(oldLength+8) = &H41
Backup(oldLength+9) = &Hb7
Backup(oldLength+10) = &Hd8
Backup(oldLength+11) = &H3b
Backup(oldLength+12) = &H9c
Backup(oldLength+13) = &Hb6
Backup(oldLength+14) = &H31
Backup(oldLength+15) = &H79
Backup(oldLength+16) = &H92
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d0e», Backup

‘Delete Active Books List Key

sKeyPath = RegistryFolder & «9375CFF0413111d3B88A001» & «04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}»
oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath

Источник

V 0.1
‘Пароль хранится в параметре 01026617 в HEX
‘HKEY_CURRENT_USER,sKeyPath,»01026617″,……e,&h18,&he1)

const HKEY_CURRENT_USER = &H80000001

strComputer = «.»

Set oReg=GetObject( «winmgmts:{impersonationLevel=impersonate}!\» & strComputer & «rootdefault:StdRegProv»)

Set WshShell = WScript.CreateObject(«WScript.Shell»)

 WMSS = «HKCUSoftwareMicrosoftWindows NTCurrentVersionWindows Messaging SubsystemProfilesDefaultProfile»

 displayname = «kmail»

searchbase = «»

Server = «x.x.x.x»

port = «xxx»

login = «xxx»

 DP=»»

On Error Resume Next

DP=WshShell.RegRead(WMSS)

MsgBox(DP)

On Error Goto 0

if DP = «» Then

Wscript.Echo «не настроен профиль по умолчанию — адресная книга не будет установлена»

Else

RegistryFolder = «SoftwareMicrosoftWindows NTCurrentVersionWindows Messaging SubsystemProfiles» & DP & «»

MsgBox(RegistryFolder) 

 ‘Add Ldap Type Key

sKeyPath = RegistryFolder & «b0bdda97f9e19c48928b95572565ac86»

oReg.CreateKey HKEY_CURRENT_USER, sKeyPath 

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f300a»,array(&h45,&h00,&h4d,&h00,&h41,&h00,&h42,&h00,&h4c,&h00,&h54,&h00,&h2e,&h00,&h44,&h00,&h4c,&h00,&h4c,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3d13″,array(&h7b,&h00,&h36,&h00,&h34,&h00,&h38,&h00,&h35,&h00,&h44,&h00,&h32,&h00,&h36,&h00,&h38,&h00,&h2d,&h00,&h43,&h00,&h32,&h00,&h41,&h00,&h43,&h00,&h2d,&h00,&h31,&h00,&h31,&h00,&h44,&h00,&h31,&h00,&h2d,&h00,&h41,&h00,&h44,&h00,&h33,&h00,&h45,&h00,&h2d,&h00,&h31,&h00,&h30,&h00,&h41,&h00,&h30,&h00,&h43,&h00,&h39,&h00,&h31,&h00,&h31,&h00,&h43,&h00,&h39,&h00,&h43,&h00,&h30,&h00,&h7d,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3006″,array(&h1a,&h04,&h30,&h04,&h42,&h04,&h30,&h04,&h3b,&h04,&h3e,&h04,&h33,&h04,&h20,&h00,&h4d,&h00,&h69,&h00,&h63,&h00,&h72,&h00,&h6f,&h00,&h73,&h00,&h6f,&h00,&h66,&h00,&h74,&h00,&h20,&h00,&h4c,&h00,&h44,&h00,&h41,&h00,&h50,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»00033e03″,array(&h23,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»01023d0c»,array(&h88,&hed,&hce,&h5a,&hb1,&hfc,&hd5,&h4e,&h81,&hc7,&h0e,&h33,&h69,&h24,&hb9,&hed)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3d09″,array(&h45,&h00,&h4d,&h00,&h41,&h00,&h42,&h00,&h4c,&h00,&h54,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3001″,array(&h1a,&h04,&h30,&h04,&h42,&h04,&h30,&h04,&h3b,&h04,&h3e,&h04,&h33,&h04,&h20,&h00,&h4d,&h00,&h69,&h00,&h63,&h00,&h72,&h00,&h6f,&h00,&h73,&h00,&h6f,&h00,&h66,&h00,&h74,&h00,&h20,&h00,&h4c,&h00,&h44,&h00,&h41,&h00,&h50,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»00033009″,array(&h00,&h00,&h00,&h00)

 ‘Add Ldap connection settings key

sKeyPath = RegistryFolder & «88edce5ab1fcd54e81c70e336924b9ed»

if oReg.EnumKey(HKEY_CURRENT_USER, sKeyPath, arrSubKeys) = 0 Then

MsgBox(«key exists»)

else

oReg.CreateKey HKEY_CURRENT_USER, sKeyPath

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3d13″,array(&h7b,&h00,&h36,&h00,&h34,&h00,&h38,&h00,&h35,&h00,&h44,&h00,&h32,&h00,&h36,&h00,&h38,&h00,&h2d,&h00,&h43,&h00,&h32,&h00,&h41,&h00,&h43,&h00,&h2d,&h00,&h31,&h00,&h31,&h00,&h44,&h00,&h31,&h00,&h2d,&h00,&h41,&h00,&h44,&h00,&h33,&h00,&h45,&h00,&h2d,&h00,&h31,&h00,&h30,&h00,&h41,&h00,&h30,&h00,&h43,&h00,&h39,&h00,&h31,&h00,&h31,&h00,&h43,&h00,&h39,&h00,&h43,&h00,&h30,&h00,&h7d,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3d0a»,array(&h42,&h00,&h4a,&h00,&h41,&h00,&h42,&h00,&h4c,&h00,&h52,&h00,&h2e,&h00,&h44,&h00,&h4c,&h00,&h4c,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»101e3d0f»,array(&h02,&h00,&h00,&h00,&h0c,&h00,&h00,&h00,&h17,&h00,&h00,&h00,&h45,&h4d,&h41,&h42,&h4c,&h54,&h2e,&h44,&h4c,&h4c,&h00,&h42,&h4a,&h41,&h42,&h4c,&h52,&h2e,&h44,&h4c,&h4c,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3d0b»,array(&h53,&h00,&h65,&h00,&h72,&h00,&h76,&h00,&h69,&h00,&h63,&h00,&h65,&h00,&h45,&h00,&h6e,&h00,&h74,&h00,&h72,&h00,&h79,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»00033009″,array(&h20,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001f3d09″,array(&h45,&h00,&h4d,&h00,&h41,&h00,&h42,&h00,&h4c,&h00,&h54,&h00,&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»01023d01″,array(&hb0,&hbd,&hda,&h97,&hf9,&he1,&h9c,&h48,&h92,&h8b,&h95,&h57,&h25,&h65,&hac,&h86)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»01023615″,array(&h50,&ha7,&h0a,&h61,&h55,&hde,&hd3,&h11,&h9d,&h60,&h00,&hc0,&h4f,&h4c,&h8e,&hfa)

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6600″,Server

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6601″,port

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6602″,login

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»001e67f1″,array(&h14)

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6603″,searchbase
oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6604″,»(&(mail=*)(|(mail=%s*)(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6605″,»SMTP»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6606″,»mail»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6607″,»60″

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6608″,»100″

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6609″,»120″

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e660a»,»15″

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e660b»,»»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e660c»,»OFF»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e660d»,»OFF»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e660e»,»NONE»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e660f»,»OFF»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6610″,»postalAddress»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6611″,»cn»

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e6612″,»1″

oReg.SetStringValue HKEY_CURRENT_USER,sKeyPath,»001e3001″,displayname
oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»000b6613″,array(&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»000b6615″,array(&h00,&h00)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»01026617″,array(&h01,&h00,&h00,&h00,&hd0,&h8c,&h9d,&hdf,&h01,&h15,&hd1,&h11,&h8c,&h7a,&h00,&hc0,&h4f,&hc2,&h97,&heb,&h01,&h00,&h00,&h00,&h97,&h66,&h76,&h31,&h5b,&hda,&hb2,&h41,&h9f,&h2e,&hdc,&hc8,&hc5,&h5b,&hc0,&h2a,&h00,&h00,&h00,&h00,&h02,&h00,&h00,&h00,&h00,&h00,&h03,&h66,&h00,&h00,&ha8,&h00,&h00,&h00,&h10,&h00,&h00,&h00,&hfc,&h62,&h02,&hbe,&h0a,&h4d,&h48,&hf4,&hb0,&h30,&h56,&h38,&h28,&h30,&h43,&h47,&h00,&h00,&h00,&h00,&h04,&h80,&h00,&h00,&ha0,&h00,&h00,&h00,&h10,&h00,&h00,&h00,&h30,&hb0,&he3,&h86,&h4c,&ha6,&hf4,&h04,&ha0,&hd9,&h76,&h95,&h04,&h1d,&hf5,&he1,&h18,&h00,&h00,&h00,&hfd,&hc6,&h60,&h49,&hdf,&ha1,&h54,&h15,&hcf,&h60,&ha3,&h6d,&hc2,&he2,&h09,&ha4,&h0c,&h58,&h22,&h79,&h69,&h11,&hc3,&h26,&h14,&h00,&h00,&h00,&h6f,&h9a,&hb3,&h15,&ha9,&he5,&h9e,&h48,&h69,&h31,&h3b,&h11,&h64,&h25,&h8c,&h28,&h19,&hfe,&h18,&he1)

oReg.SetBinaryValue HKEY_CURRENT_USER,sKeyPath,»01026631″,array(&h33,&h35,&hcb,&h69,&h8a,&h51,&h27,&h4f,&h9b,&hd2,&hc7,&h60,&h19,&h49,&h41,&h80)

 sKeyPath = RegistryFolder & «outlook9207f3e0a3b11019908b08002b2a56c2»

 ‘Append to Backup Key for ldap types

 sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»

oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d01»,Backup

oldLength = UBound(Backup)

ReDim Preserve Backup(oldLength+16)

Backup(oldLength+1) = &hb0

Backup(oldLength+2) = &hbd

Backup(oldLength+3) = &hda

Backup(oldLength+4) = &h97

Backup(oldLength+5) = &hf9

Backup(oldLength+6) = &he1

Backup(oldLength+7) = &h9c

Backup(oldLength+8) = &h48

Backup(oldLength+9) = &h92

Backup(oldLength+10) = &h8b

Backup(oldLength+11) = &h95

Backup(oldLength+12) = &h57

Backup(oldLength+13) = &h25

Backup(oldLength+14) = &h65

Backup(oldLength+15) = &hac

Backup(oldLength+16) = &h86

oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d01», Backup

  ‘Append to Backup Key for ldap connection settings

 sKeyPath = RegistryFolder & «9207f3e0a3b11019908b08002b2a56c2»

oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, «01023d0e»,Backup

oldLength = UBound(Backup)

ReDim Preserve Backup(oldLength+16)

Backup(oldLength+1) = &h88

Backup(oldLength+2) = &hed

Backup(oldLength+3) = &hce

Backup(oldLength+4) = &h5a

Backup(oldLength+5) = &hb1

Backup(oldLength+6) = &hfc

Backup(oldLength+7) = &hd5

Backup(oldLength+8) = &h4e

Backup(oldLength+9) = &h81

Backup(oldLength+10) = &hc7

Backup(oldLength+11) = &h0e

Backup(oldLength+12) = &h33

Backup(oldLength+13) = &h69

Backup(oldLength+14) = &h24

Backup(oldLength+15) = &hb9

Backup(oldLength+16) = &hed

oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «01023d0e», Backup

 ‘Delete Active Books List Key

 sKeyPath = RegistryFolder & «9375CFF0413111d3B88A001» & _ 

           «04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}»

oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath

end if

End if

Источник

Скрипт не мой, я его лишь чуть-чуть подредактировал под свои нужды.

p.s. если у пользователя не настроен Outlook — будет ошибка скрипта

В групповых политиках добавить скрипт при входе пользователя

wscript \Servernetlogonaddress.vbs

'-=-=-=-=-=-=-=-=-=-=-=-=-=-
'Written By James McWhinney
'Vancouver BC, Canada
'www.importfanatik.com
'April 26th, 2006
'-=-=-=-=-=-=-=-=-=-=-=-=-=-

const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\" _
    & strComputer & "rootdefault:StdRegProv")
RegistryFolder = "SoftwareMicrosoftWindows NT" & _
  "CurrentVersionWindows Messaging SubsystemProfilesOutlook"

LDAPdisplayname = "test"
LDAPserver = "IP or Name Server"
LDAPport = "389"
LDAPsearchbase = "ou=addressbook,dc=test,dc=com"


'Add Ldap Type Key
sKeyPath = RegistryFolder & "e8cb48869c395445ade13e3c1c80d154"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00033009", Array(0,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00033e03", Array(&H23,0,0,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3001", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3006", "Microsoft LDAP Directory"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e300a", "EMABLT.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, _
    "01023d0c", Array(&H5c,&Hb9,&H3b,&H24, _
    &Hff,&H71,&H07,&H41,&Hb7,&Hd8,_
    &H3b,&H9c,&Hb6,&H31,&H79,&H92)

'Add Ldap connection settings key
sKeyPath = RegistryFolder & "5cb93b24ff710741b7d83b9cb6317992"
oReg.CreateKey HKEY_CURRENT_USER, sKeyPath
oReg.SetBinaryValue HKEY_CURRENT_USER, _
     sKeyPath, "00033009", Array(&H20,0,0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6613", Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6615", Array(0,0)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6622", Array(1,0)
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", LDAPdisplayname
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0a", "BJABLR.DLL"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0b", "ServiceEntry"
oReg.SetStringValue HKEY_CURRENT_USER, _
     sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6600", LDAPserver
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6601", LDAPport
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6602", ""
oReg.SetStringValue HKEY_CURRENT_USER, _
     sKeyPath , "001e6603", LDAPsearchbase
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _
     "001e6604", "(&(mail=*)(|(mail=%s*)" & _
     "(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6605", "SMTP"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6606", "mail"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6607", "60"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6608", "100"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6609", "120"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660a", "15"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660b", ""
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660c", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660d", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660e", "NONE"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660f", "OFF"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6610", "postalAddress"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6611", "cn"
oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6612", "1"
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "001e67f1", Array(&H0a)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023615", _
     Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,_
     &Hd3,&H11,&H9d,&H60,&H00,_
     &Hc0,&H4f,&H4c,&H8e,&Hfa)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", _
     Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,_
     &H54,&H45,&Had,&He1,&H3e,&H3c,_
     &H1c,&H80,&Hd1,&H54)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026631", _
     Array(&H98,&H17,&H82,&H92,&H5b,&H43,_
     &H03,&H4b,&H99,&H5d,&H5c,_
     &Hc6,&H74,&H88,&H7b,&H34)
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "101e3d0f", _
     Array(&H02,&H00,&H00,&H00,&H0c,&H00,_
     &H00,&H00,&H17,&H00,&H00,&H00,_
     &H45,&H4d,&H41,&H42,&H4c,&H54,_
     &H2e,&H44,&H4c,&H4c,&H00,&H42,_
     &H4a,&H41,&H42,&H4c,&H52,&H2e,_
     &H44,&Hc,&H4c,&H00)

'Append to Backup Key for ldap types
sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup
Dim oldLength
oldLength = UBound(Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &He8
Backup(oldLength+2) = &Hcb
Backup(oldLength+3) = &H48
Backup(oldLength+4) = &H86
Backup(oldLength+5) = &H9c
Backup(oldLength+6) = &H39
Backup(oldLength+7) = &H54
Backup(oldLength+8) = &H45
Backup(oldLength+9) = &Had
Backup(oldLength+10) = &He1
Backup(oldLength+11) = &H3e
Backup(oldLength+12) = &H3c
Backup(oldLength+13) = &H1c
Backup(oldLength+14) = &H80
Backup(oldLength+15) = &Hd1
Backup(oldLength+16) = &H54
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", Backup


'Append to Backup Key for ldap connection settings
sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2"
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d0e",Backup
oldLength = UBound(Backup)
ReDim Preserve Backup(oldLength+16)
Backup(oldLength+1) = &H5c
Backup(oldLength+2) = &Hb9
Backup(oldLength+3) = &H3b
Backup(oldLength+4) = &H24
Backup(oldLength+5) = &Hff
Backup(oldLength+6) = &H71
Backup(oldLength+7) = &H07
Backup(oldLength+8) = &H41
Backup(oldLength+9) = &Hb7
Backup(oldLength+10) = &Hd8
Backup(oldLength+11) = &H3b
Backup(oldLength+12) = &H9c
Backup(oldLength+13) = &Hb6
Backup(oldLength+14) = &H31
Backup(oldLength+15) = &H79
Backup(oldLength+16) = &H92
oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d0e", Backup


'Delete Active Books List Key
sKeyPath = RegistryFolder & "9375CFF0413111d3B88A001" & _
           "04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}"
oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath
Источник

Возможно, вам также будет интересно:

  • Ol3 ошибка частотника innovert
  • Ol2 ошибка частотника веспер
  • Ol2 ошибка частотника schneider
  • Ol1 ошибка на частотнике toshiba
  • Omerta city of gangsters не запускается выдает ошибку

    • Понравилась статья? Поделить с друзьями:
    0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии