在VB.Net中从ActiveDirectory检索SAMAccountName

Imports System.DirectoryServices

Public Class ActiveDirectoryHelper
    Public Function GetSAMAccountName(username As String) As String
        Dim directoryEntry As New DirectoryEntry()
        directoryEntry.Path = "LDAP://your-AD-server"

        Dim directorySearcher As New DirectorySearcher(directoryEntry)
        directorySearcher.Filter = "(sAMAccountName=" + username + ")"
        directorySearcher.PropertiesToLoad.Add("sAMAccountName")

        Dim searchResult As SearchResult = directorySearcher.FindOne()

        If searchResult IsNot Nothing Then
            Dim resultProperty As ResultPropertyValueCollection = searchResult.Properties("sAMAccountName")
            If resultProperty.Count > 0 Then
                Return resultProperty(0).ToString()
            End If
        End If

        Return ""
    End Function
End Class