Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        AD_GetComputerName()

    End Sub

    Public Sub AD_GetComputerName()

        Dim dirEntry As DirectoryServices.DirectoryEntry = New DirectoryServices.DirectoryEntry()
        dirEntry.Path = "LDAP://xx.xx.xx.xx" '***con xx.xx.xx.xx l'indirizzo IP del server LDAP

        dirEntry.Username = "username"
        dirEntry.Password = "password"

        'Dim dirEntry As DirectoryServices.DirectoryEntry = dirEntry
        Dim pcList As New Collection()
        Dim dirSearcher As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher(dirEntry)
        Dim dirSearchResults As DirectoryServices.SearchResult

        dirSearcher.Filter = ("(objectClass=computer)")

        For Each dirSearchResults In dirSearcher.FindAll()
            Dim ComputerName As String
            ComputerName = dirSearchResults.GetDirectoryEntry().Name.ToString()
            Response.Write("<font face='Verdana' size=2>" & Right(ComputerName, Len(ComputerName) - 3) & </font><br/>")
        Next
    End Sub

End Class