[amel27]

Код:

$user="UserName"
$dom ="LDAP://my.domain.com"

new-object DirectoryServices.DirectoryEntry($dom)
$searcher = new-object DirectoryServices.DirectorySearcher($dom)
$searcher.filter = "(&(objectClass=user)(sAMAccountName= $user))"
$ADuser = $searcher.findone().getDirectoryEntry()

$list = @{
  "Home"=$ADuser.homePhone;
  "Home_Other"=$ADuser.otherHomePhone;
  "Pager"=$ADuser.pager;
  "Pager_Other"=$ADuser.otherPager;
  "Mobile"=$ADuser.mobile;
  "Mobile_Other"=$ADuser.otherMobile;
  "FAX"=$ADuser.FacsimileTelephoneNumber;
  "FAX_Other"=$ADuser.otherFacsimileTelephoneNumber;
  "ipPhone"=$ADuser.ipPhone
  "IpPhone_Other"=$ADuser.otherIpPhone
}

$list.GetEnumerator()|sort name|Format-Table Name, @{
Label="Value";Expression={[string]$_.Value};Align="Left"
}

[megaloman]

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