Active Dirctory (AD) คำสั่ง PrincipalSearcher และ DirectorySearcher

 Dim search As DirectorySearcher = New DirectorySearcher(entry)
            search.Filter = "(SAMAccountName=" & strUser.Trim() & ")"
            Dim result As SearchResult = search.FindOne()
            If Not IsNothing(result.GetDirectoryEntry()) Then
                'strUserAD = PropertyAD(result, "GivenName") _
                '                       & " " & PropertyAD(result, "SN")
                strUserAD = PropertyAD(result, "GivenName")
            End If