Una semplice pagina .aspx che interroghi un server LDAP per ottenere la lista dei computer definiti in Active Directory.
In realtà bastano semplici poche righe di codice.. che ora vi propongo.

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_GetComputerInAD()

    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

Lo username e la password si riferiscono ad un utente di dominio.
Qui trovate il codice.

Buon lavoro!!

Oggi una cosetta facile-facile: rimuovere un contatto dall'autocompletamento nel campo destinatario in Micorosft Outloo; in realtà con lo stesso sistema è possibile anche eliminare elementi dalla cronologia di Internet Explorer

Risolto, vero?