Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - ошибка в скрипте добавления адресной книги LDAP в OUTLOOK 2016

1 2 Следующая >
Ответить
Настройки темы
VBS/WSH/JS - ошибка в скрипте добавления адресной книги LDAP в OUTLOOK 2016

Старожил


Сообщения: 300
Благодарности: 8

Профиль | Отправить PM | Цитировать

Добрый день! Подскажите скрипт работал на windows 7, а вот на windows 8.1, 10 ошибка строка (71,1)выполнения microsoft vbscript: Не соответствует типа: 'UBount'
Код: Выделить весь код
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\default:StdRegProv")
RegistryFolder = "Software\Microsoft\Windows NT\" & _ 
  "CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\"

LDAPdisplayname = "Адресная книга"
LDAPserver = "сервер AD"
LDAPport = "port"
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, "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

Отправлено: 12:58, 27-04-2018

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата mcintosh55:
ошибка строка (71,1)выполнения microsoft vbscript: Не соответствует типа: 'UBount' »
Читаете GetBinaryValue method of the StdRegProv class (Windows), меняете:
Код: Выделить весь код
oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup
на:
Код: Выделить весь код
Dim intResult

intResult = oReg.getBinaryValue(HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup)

WScript.Echo intResult, TypeName(Backup)
смотрите, делаете выводы.

Отправлено: 16:40, 27-04-2018 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 300
Благодарности: 8

Профиль | Отправить PM | Цитировать

Цитата Iska:
смотрите, делаете выводы »
прочитал, изменил и все равно ошибка

Отправлено: 15:00, 28-04-2018 | #3


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата mcintosh55:
прочитал, изменил и все равно ошибка »
Вы пропустили «посмотрел и сделал выводы». Ну, тогда покажите нам, каков вывод:
Цитата Iska:
Код: Выделить весь код
WScript.Echo intResult, TypeName(Backup)
»

Отправлено: 17:47, 28-04-2018 | #4


Старожил


Сообщения: 300
Благодарности: 8

Профиль | Отправить PM | Цитировать

Вывод Я что то делаю не так

Отправлено: 14:53, 29-04-2018 | #5


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

mcintosh55, интересная коллизия получилась, да. Но в данном случае мною подразумевался вывод указанного сообщения:
Код: Выделить весь код
WScript.Echo intResult, TypeName(Backup)
Можете просто нажать Ctrl-C в появляющемся окне с сообщением, а затем Ctrl-V в окне формы браузера.

Отправлено: 15:00, 29-04-2018 | #6


Старожил


Сообщения: 300
Благодарности: 8

Профиль | Отправить PM | Цитировать

Цитата Iska:
Можете просто нажать Ctrl-C в появляющемся окне с сообщением, а затем Ctrl-V в окне формы браузера. »
ctrl-c ctrl-v это скрипт выполняется при входе пользователя через gpo, узер ограничен и ни чего нажимать не будет.

Отправлено: 15:32, 29-04-2018 | #7


Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Цитата mcintosh55:
ctrl-c ctrl-v это скрипт выполняется при входе пользователя через gpo, узер ограничен и ни чего нажимать не будет. »
Хорошо. Но Вы-то можете выполнить его один раз «ручками» из-под того пользователя? Надо попытаться определить, что там: не существует раздел, не существует параметр, не тот тип параметра, нет доступа и т.д.

Отправлено: 15:39, 29-04-2018 | #8


Старожил


Сообщения: 300
Благодарности: 8

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
D:\Скрипты\VBS\adressbook_new.vbs(71, 1) Ошибка выполнения Microsoft vbscript: Несоответствие типа: 'UBound'
Я че то похожу туплю, а за чем скрипт в браузере запускать и как там запустить. Я скрипт запускаю через cmd => cscript addr_book.vbs

Последний раз редактировалось mcintosh55, 03-05-2018 в 07:33.

Отправлено: 08:26, 30-04-2018 | #9


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать

Iska,

скрипт возвращает
2 Null

Отправлено: 18:04, 11-10-2019 | #10

1 2 Следующая >


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - ошибка в скрипте добавления адресной книги LDAP в OUTLOOK 2016

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
2016 - добавления адресной книги при установки office 2016 mcintosh55 Microsoft Office (Word, Excel, Outlook и т.д.) 0 11-03-2018 19:26
2010 - Перенос всех писем и адресной книги из outlook 2007 в outlook 2010 ath01 Microsoft Office (Word, Excel, Outlook и т.д.) 2 23-04-2014 09:37
2010 - Адресные книги из LDAP в Outlook _CoopeR_ Microsoft Office (Word, Excel, Outlook и т.д.) 0 22-11-2012 17:37
2008 R2 - LDAP для синхронизации учетных записей в AD и адресной книги в Outlook hotsauce Windows Server 2008/2008 R2 0 24-11-2011 16:41
Интернет - посоветуйте LDAP сервер для адресной книги Djedai Microsoft Windows 2000/XP 0 18-08-2008 14:49


« Предыдущая тема | Следующая тема »


 
Переход