ExtensionAttribute15

See more:

VB

Can someone please explain how I can extract the value of extensionattribute15 from a computer account in AD.

My code looks a bit like this:

Public Function funGetWorkstation(ByVal strWorkstationID As String)
    
Dim dirEntry As New DirectoryEntry("LDAP://RootDSE")
    
Dim strRoot As String = "LDAP://(My Network);
    
dirEntry = New DirectoryEntry(strRoot)

    Dim mySearch As DirectorySearcher = New DirectorySearcher(dirEntry)

    mySearch.Filter = "(&(ObjectClass=computer)(CN=" & strWorkstationID & "))"

    Try
        For Each workstation As SearchResult In mySearch.FindAll()

            Dim strWSObject = workstation.GetDirectoryEntry

            Dim strOU = strWSObject.Parent.Parent.Name.ToString

            Dim strOffice = strWSObject.Parent.Parent.Parent.Name.ToString

            TextBox2.Text = Microsoft.VisualBasic.Mid(strOU, 4)

            TextBox4.Text = Microsoft.VisualBasic.Mid(strOffice, 4)
        Next

    Catch ex As Exception

        MsgBox("It didnt work")

    End Try

    Return True

End Function

All this bit works, what I can't manage to do is find the ExtensionAttributes within strWSObject or how I can go about extracting them if they're not by default.

Thanks.