Y donde tienes el usuario y password para poder hacer la autenticaion del AD?
Cita: Dim Entrada As New System.DirectoryServices.DirectoryEntry("LDAP://annuaire.inetpsa.com",user,password)
Si no la necesitas te faltaría tambien especificar el filtro de entrada..
Ejemplo
Cita: Dim Busca as New DirectorySearcher(Entrada)
Dim results as SearchResultCollection
Busca .Filter ("name=valor");
results = mySearcher.FindAll();
Y luego los puedes barrer:
Cita: For Each (resEnt as SearchResult In results)
Dim propcoll as ResultPropertyCollection = resEnt.Properties;
For Each(skey as string In propcoll.PropertyNames)
For Each(values as object In propcoll(skey))
'Nombre y valor de tu coleccion...
'....
Next
Next
Next
Salu2