-
Вопрос
-
Здравствуйте!
Настроил доступ к почтовым адресам пользователей согласно этой инструкции
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
-
Помечено в качестве ответа
Introduction
This code adds an LDAP address book into Outlook by modifying registry keys. In its current form, it can only be used to add one address book. If it is run a second time, it will overwrite the address book that was created the first time it was run.
Background
Backup Key
HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersion Windows Messaging SubsystemProfilesOutlook 9207f3e0a3b11019908b08002b2a56c2
This key holds the information that is used to regenerate other registry keys in the event that they are deleted.
- 01023d01 holds the references to the address book type keys.
- 01023d0e holds the references to the address book information keys.
Active Address Books List Key
HKEY_CURRENT_USERSoftwareMicrosoftWindows NT CurrentVersionWindows Messaging SubsystemProfilesOutlook 9375CFF0413111d3B88A00104B2A6676
This key is the active listing of address books, personal folders, etc. currently in use by Outlook. If you add new address book type keys and information keys into the Outlook key, they will not be active until they are listed in the active address books key.
You can not manually add an address book into the active address books list key, Outlook will detect a problem with the active list and reload them from the backup list.
Active Address Books List Index Key
HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersion Windows Messaging SubsystemProfilesOutlook 9375CFF0413111d3B88A00104B2A6676
This key is the index for the Active Address Book list: {ED475419-B0D6-11D2-8C3B-00104B2A6676}.
The code
const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\" _ & strComputer & "rootdefault:StdRegProv") RegistryFolder = "SoftwareMicrosoftWindows NT" & _ "CurrentVersionWindows Messaging SubsystemProfilesOutlook" LDAPdisplayname = "test" LDAPserver = "ldap.test.ca" LDAPport = "389" LDAPsearchbase = "o=test.ca" 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) 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) 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 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 sKeyPath = RegistryFolder & "9375CFF0413111d3B88A001" & _ "04B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}" oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath
Points of Interest
I wrote this script to avoid calling 200+ users to walk them through adding an LDAP address book into MS Outlook.
After hours of searching the web for a way to do this (group policy etc.), I found nothing. As far as I can tell, this section of the Outlook registry was undocumented until now.
It took me over 10 hours to figure out, and another 8 to make the VBScript code work.
This member has not yet provided a Biography. Assume it’s interesting and varied, and probably something to do with programming.
Скрипт не мой, я его лишь чуть-чуть подредактировал под свои нужды.
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!" _ & strComputer & "rootdefault:StdRegProv") RegistryFolder = "SoftwareMicrosoftWindows NT" & _ "CurrentVersionWindows Messaging SubsystemProfilesOutlook" LDAPdisplayname = "имя" LDAPserver = "адрес" LDAPport = "389" LDAPsearchbase = "ou=Contact,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, "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.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6622", Array(&H01,0) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "00036623", Array(0,0,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) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "S001e67f1", 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,&H9e,&Hd4,&H44,&H3f,&H6d,&He5,&Hf4,&H4b,&H96,&Hd8,&H9a,&H5f,&Hf7,&Ha7,&H66,&H15,&H00,&H00,&H00,&H00,&H14,&H00,&H00,&H00,&H53,&H00,&H30,&H00,&H30,&H00,&H31,&H00,&H65,&H00,&H36,&H00,&H37,&H00,&H66,&H00,&H31,&H00,&H00,&H00,&H03,&H66,&H00,&H00,&Ha8,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&H01,&H74,&H6e,&Hb5,&Hd9,&H45,&H7d,&Hef,&H86,&H05,&H26,&H37,&H44,&H5f,&H80,&H17,&H00,&H00,&H00,&H00,&H04,&H80,&H00,&H00,&Ha0,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&Hbe,&H95,&H9a,&Hbc,&Hc3,&H8c,&Hda,&He1,&Hf7,&H91,&Hcd,&H38,&Hd9,&Hc7,&H85,&Hf4,&H08,&H00,&H00,&H00,&H52,&H53,&H22,&H56,&Hfe,&H6e,&Hee,&Hff,&H14,&H00,&H00,&H00,&Hd8,&H3a,&Hc5,&H26,&Hea,&H76,&H8c,&Hb0,&H85,&Hea,&H2b,&H21,&H96,&H77,&H95,&H03,&H74,&H7d,&H8a,&H4c) '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 |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 |
On Error Resume Next const HKEY_CURRENT_USER = &H80000001 strComputer = «.» Set oReg=GetObject( «winmgmts:{impersonationLevel=impersonate}!\» & strComputer & «rootdefault:StdRegProv») RegistryFolder = «SoftwareMicrosoftOffice15.0OutlookProfilesOutlook» LDAPdisplayname = «AddressBook» ‘Название адресной книги LDAPserver = «192.168.*.*» ‘Адрес сервера AD LDAPport = «389» ‘Порт LDAPsearchbase = «ou=Пользователи,dc=domain,dc=local» ‘Расположение контейнера с пользователи sKeyPath = RegistryFolder & «0a0d020000000000c000000000000046« oReg.CreateKey HKEY_CURRENT_USER, sKeyPath oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «000b3d1c», Array(&H00,&H00) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, «00033d1b», Array(&H01,0,0,0) sKeyPath = RegistryFolder & «e8cb48869c395445ade13e3c1c80d154» If oReg.EnumKey(HKEY_CURRENT_USER, sKeyPath, ««, ««) = 0 Then Wscript.Quit Else 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) 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,&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) 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 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 sKeyPath = RegistryFolder & «9375CFF0413111d3B88A00104B2A6676{ED475419-B0D6-11D2-8C3B-00104B2A6676}» oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath End If |
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