VBS
Код:
Domain_Name = "MyDomain" ' Имя домена
Domain_Ext = "by" ' Зона домена
Podraz_Name1 = "Управление заборостроения" ' Имя подразделения в домене (1 уровень)
Podraz_Name2 = "Отдел ажурных оград" ' Имя подразделения в домене (2 уровень)
Name_Last = "Пупкин" ' Фамилия пользователя
Name_First = "Вася" ' Имя пользователя
Set Domain = GetObject("LDAP://OU=" & Podraz_Name1 & ",DC=" & Domain_Name & ",DC=" & Domain_Ext)
Set Org2 = Domain.GetObject("organizationalUnit", "OU=" & Podraz_Name2)
Name_Full = Name_Last & " " & Name_First
Set User = Org2.GetObject("User", "CN=" & Name_Full)
Other = User.otherTelephone
nOther = UBound(Other)
Msg = ""
For i = 0 To nOther
Msg = Msg + vbCrLf + Other(i)
Next
MsgBox Msg
