| Вопрос: Редактирование AD | Добавлено: 04.04.11 19:27 |
Автор вопроса:  wizmo
|
|
Подскажите что я делаю не так
Пытаюсь взять инфорацию о телефонах из книги excel и присвоить юзерам const xlsFileName = "c:\final.xlsx" set fso = createobject("Scripting.FileSystemObject") set a = createobject("excel.application") set b = a.workbooks.open(xlsFileName) set s = b.sheets(1) i = 1 Do While i < 2 Const ADS_PROPERTY_UPDATE = 2 Set objUser = GetObject _ ("LDAP://cn="&s.Cells(i,1).Value&",ou=test,dc=test,dc=lan") objUser.Put "telephoneNumber", s.Cells(i,2).Value objUser.PutEx ADS_PROPERTY_UPDATE, "telephoneNumber", Array(s.Cells(i,2).Value) objUser.SetInfo i = i +1 Loop Пишет phone.vbs(27, 3) (null): Неопознанная ошибка на строке objUser.Put "telephoneNumber", s.Cells(i,2).Value |
| Ответы | Всего ответов: 0 |
Страница: