Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница:

 

  Вопрос: Редактирование 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  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам