Get Telephone-Number from Active Directory

[tlontz]

I am trying to retrieve the telephone_numbe r from active directory using the following script:

Dim search As New DirectorySearch er("")

search.Filter = "(&(objectCateg ory=Person)(obj ectClass=user)( !(userAccountCo ntrol:1.2.840.1 13556.1.4.803:= 2))(samaccountn ame=" + UserName.ToStri ng.Trim + "))"
'search.Filter = "(&(!(userAccou ntControl:1.2.8 40.113556.1.4.8 03:=2))( objectCategory= person)(samacco untname=" + UserName.ToStri ng.Trim + "))"
search.Properti esToLoad.Add("s amaccountname")
search.Properti esToLoad.Add("s n")
search.Properti esToLoad.Add("g ivenname")
search.Properti esToLoad.Add("m ail")
search.Properti esToLoad.Add("p hysicaldelivery officename")
search.Properti esToLoad.Add("T elephone-Number")

Dim result As SearchResult = search.FindOne( )

If Not (IsNothing(resu lt)) Then
Try
Dim myResultPropCol l As ResultPropertyC ollection
myResultPropCol l = result.Properti es

Dim myKey As String
For Each myKey In myResultPropCol l.PropertyNames
Select Case myKey
Case "samaccountname "
Try
UserName = myResultPropCol l(myKey)(0)

Catch ex As Exception
UserName = ""

End Try
Case "sn"
Try
SurName = myResultPropCol l(myKey)(0)

Catch ex As Exception
SurName = ""

End Try
Case "givenname"
Try
FirstName = myResultPropCol l(myKey)(0)

Catch ex As Exception
FirstName = ""

End Try
Case "mail"
Try
Email = myResultPropCol l(myKey)(0)

Catch ex As Exception
Email = ""

End Try
Case "Telephone-Number"
Try
Phone = myResultPropCol l(myKey)(0)

Catch ex As Exception
Phone = ""

End Try
Case "physicaldelive ryofficename"
Try
Office = myResultPropCol l(myKey)(0)

Catch ex As Exception
Office = ""
End Try
End Select
Next
If Email <> "" Then
DatatoWrite = InUserName & "|" & UserName & "|" & SurName & "|" & FirstName & "|" & Email & "|" & Phone & "|" & newnumber & "|" & Office & "|" & newoffice
End If

Catch ex As Exception
errcount = errcount + 1
DatatoWrite = InUserName & "| UserID Not Found "
End Try
Else
errcount = errcount + 1
DatatoWrite = InUserName & "| UserID Not Found "

End If

I get all the data EXCEPT Telephone-Number

UserName if provided via an input file

Any help will be greatly appreciated