» VBS Редактирование AD

Подскажите что я делаю не так
Пытаюсь взять инфорацию о телефонах из книги 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