|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » PowerShell - [решено] Outlook + LDAP адресная книга |
|
||||
|
|
PowerShell - [решено] Outlook + LDAP адресная книга
|
Пользователь Сообщения: 77 |
Уважаемые коллеги подскажите как мне с помощью powershell`а добавить адресную книгу LDAP.
http://forum.oszone.net/attachment.p...1&d=1348477033 и изменить настройки на такие. http://forum.oszone.net/attachment.p...1&d=1348477178 у меня получилось только найти уже существующую книгу LDAP Код:
 try {
Write-Verbose "Подключаемся к Outlook"
$oOutlook = New-Object -ComObject Outlook.Application
} catch {
Write-Verbose "Если создать COM объект не удалось - ВЫХОД"
exit
}
$oNameSpace = $oOutlook.GetNamespace("MAPI")
$oNameSpace.AddressLists
$oNameSpace.AddressLists.Item("название адресной книги")
|
|
|
Отправлено: 13:04, 24-09-2012 |
|
Ветеран Сообщения: 1259
|
Профиль | Отправить PM | Цитировать Как вариант использовать реестр,пример для vbscript - Adding an LDAP address book to MS Outlook
|
|
Отправлено: 13:12, 24-09-2012 | #2 |
|
Пользователь Сообщения: 77
|
Профиль | Отправить PM | Цитировать Цитата Kazun:
|
|
|
Последний раз редактировалось dosperados, 24-09-2012 в 14:56. Отправлено: 14:37, 24-09-2012 | #3 |
|
Пользователь Сообщения: 126
|
Профиль | Отправить PM | Цитировать Возобновлю немного тему по адресной книге на VBS. Использую с фильтром:
Код:
"(&(mail=*)(|(mail=%s*)(cn=%s*)(sn=%s*)(givenName=%s*)(displayName=%s*)))" Пробовал варианты с добавлением: Код:
(&(objectCategory=person)(objectClass=user)(!userAccountControl:1.2.840.113556.1.4.803:=2))  Заранее спасибо за помощь... |
|
Отправлено: 15:01, 02-04-2013 | #4 |
|
Ветеран Сообщения: 1259
|
Профиль | Отправить PM | Цитировать Попробовать установить фильтр в ключе 001e6624 :
HKCU\Software\Microsoft\Windows Nt\CurrentVersion\Windows Messaging Subsystem\Profiles\<ProfileName>\<ID> |
|
|
Отправлено: 15:18, 02-04-2013 | #5 |
|
Пользователь Сообщения: 126
|
Профиль | Отправить PM | Цитировать Всем доброго.
Народ, есть ли какое-нибудь решение для добавление адресной книги LDAP в Outlook 2013? |
|
Отправлено: 13:26, 17-12-2013 | #6 |
|
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать LDAP в Outlook 2013
|
|
Отправлено: 20:40, 05-09-2014 | #7 |
|
Новый участник Сообщения: 1
|
Профиль | Отправить PM | Цитировать TokiMe, спасибо большое - реально помогло без Excange централизованно развернуть почту. Поправил скрипт чтобы при загрузке проверял наличие адресной книги в реестре и не плодил в аутлуке несколько книг.
Код:
On Error Resume Next
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
RegistryFolder = "Software\Microsoft\Office\15.0\Outlook\Profiles\Outlook\"
LDAPdisplayname = "Общая адресная книга"
LDAPserver = "sepdc.sep.local"
LDAPport = "389"
LDAPsearchbase = "ou=sep,dc=sep,dc=local"
'Add Ldap Type Key
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)
'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,&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
End If
|
|
Отправлено: 15:15, 10-01-2017 | #8 |
|
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать а как авторизацию пользователя на сервере сделать?
И база поиска стоит на "по умолчанию". А если несколько адресных книг ldap, как мне их в скрипт подставить? У всех сервер один и тот же. |
|
Последний раз редактировалось ivldenis, 27-02-2017 в 09:21. Отправлено: 22:05, 26-02-2017 | #9 |
|
Ветеран Сообщения: 508
|
Профиль | Отправить PM | Цитировать Кто скажет, какие значения Ldap Type Key и Ldap connection settings key нужно подставлять для Office 2016? При добавлении руками получились такие: f24ea1408a434e4e847c566187b9891b и b6934b5f986437469fe20de8ad3777f8. Где можно свериться, верные это ключи или нет?
Нашел утилиту для добавления LDAP профиля: https://blogs.msdn.microsoft.com/eme...look-profiles/ — так там идентификаторы тоже отличаются от тех, что создаются вручную. |
|
Последний раз редактировалось snark, 07-04-2017 в 10:02. Отправлено: 09:23, 07-04-2017 | #10 |
|
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| [решено] Адресная книга Outlook | McLotos | Microsoft Windows NT/2000/2003 | 3 | 11-08-2012 23:51 | |
| Клиенты - [решено] Автономная адресная книга на клиентах Microsoft Outlook, не подключенных к EXCHANGE | sea707 | Microsoft Exchange Server | 4 | 27-12-2011 15:44 | |
| Сетевая адресная книга для Microsoft Office Outlook | boomer007 | Хочу все знать | 5 | 08-12-2011 12:37 | |
| 2003/XP/2000 - Общая адресная книга организации в microsoft outlook 2003 | _tyz_ | Microsoft Office (Word, Excel, Outlook и т.д.) | 0 | 16-05-2011 18:51 | |
| Почта - Общая адресная книга MS Outlook | Tonny_Bennet | Microsoft Office (Word, Excel, Outlook и т.д.) | 6 | 17-06-2010 22:17 | |
|
|
Время: 11:45. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
