есть такой код
до сегодняшнего дня все работало хорошо.
Сегодня зависает и выдает ошибку на выражении objAD.UserName
в чем может быть проблема ?
Код |
---|
Dim objAD As Object, objUser As Object Dim mail As String Set objAD = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objAD.UserName) mail = objUser.EMailAddress UserEMail = LCase(mail) |
до сегодняшнего дня все работало хорошо.
Сегодня зависает и выдает ошибку на выражении objAD.UserName
в чем может быть проблема ?