Recuperare la lista di computer connessi ad Active Directory con una pagina VB.NET
Di Admin (del 23/03/2009 @ 10:50:58, in ASP.NET, linkato 1031 volte)
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!! 
|