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?

La cosa si ripete a distanza di pochi giorni.
Ieri pomeriggio (24/02/2009) la home page di Google si presentava così...

Ah.. poveri noi..

L'installazione dell' Ifilter di Adobe per Microsoft MOSS2007 permette al motore di indicizzazione dei contenuti di analizzare (ed indicizzare) anche il contenuto dei file con estensione .pdf; naturalmente questo non è possibile per i file risultato di una scansione privi di OCR o simili.

L'installazione è semplice e non richiede particolari skill; fate attenzione, però, perché durante il processo di setup del componente il serivzio di IIS andrà riavviato e quindi questo può causare disservizi se l'ambiente è in produzione. 

1. Scaricare il PDF IFilter per MOSS da questo indirizzo.
2. Fermare il servizio IIS Admin Service: Pannello di controllo -> Strumenti di amministrazione -> Servizi -> IIS Admin Service.
3. Lanciare l'eseguibile per l'istallazione ifilter60.exe.
4. Procedere con l'installazione fino al suo completamento (Next, next, ... finish).
5. Scegliere un'immagine in formato GIF con risoluzione 16x16 e salvarla sul server di MOSS nel percorso C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\Template\Images
6. Aggiornare il file DOCICON.XML presente in C:\Program Files\Common Files\Microsoft Shared\Web server extensions\12\Template\Xml\   ed aggiungere la referenza:
   <Mapping Key="pdf" Value="icpdf.gif"/><Mapping Key="pdf" Value="icpdf.gif"/>
7. Lanciare dalla shell (Start -> Esegui -> cmd) il comando iisreset.
8. Ora resta solo da aggiungere nella Central Admin, nella sezione degli Shared Service Provider (SSP), tra gli Search Settings un nuovo File Type con estensione PDF.
9. Lanciare un FULL CRAWL per i contenuti, il processo di setup per l'IFilter di MOSS è terminato

Per eseguire un comando T-SQL da Visual Studio 2005 in VB.NET  vi sono, al solito, molteplici strade; ve ne propongo una semplice e di facile comprensione:

Prima di tutto definisco la mia stringa di connessione al database, nel mio caso SQL2005:

            Dim myconnection As Data.SqlClient.SqlConnection
            myconnection = New Data.SqlClient.SqlConnection ("server=MioServer;database=mioDB;uid=User;password=Password;")

 Ora creo l'SQLCommand:

            Dim cmd As New Data.SqlClient.SqlCommand
            Dim reader As Data.SqlClient.SqlDataReader

Definisco il mio comando T-SQL:

           cmd.CommandText = "Update miaTabella SET mioCampo= nuovoValore"
           cmd.CommandType = Data.CommandType.Text
           cmd.Connection = myconnection

Apro la connessione ed eseguo il comando:

            myconnection.Open()
            reader = cmd.ExecuteReader()
            myconnection.Close()

Anche se è possibile, in questo caso specifico non mi aspetto nessun valore in restituzione dal server SQL.