Discussion :

[l0quito]

Bonjour,

Je crée un programme ou mon utilisateur va tenter de se connecter a L'active Directory, le problème, c'est qu'il me faut l'adresse du DNS et je ne sais pas comment la trouver. Quelqu'un peut-il m'aider?

[tssi555]

Tu veux pas dire par hasard le LDAP ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LDAP://dc=*******,dc=local

Utilise DirectoryEntry pour te connecter à Active Directory.

Puis utilise DirectorySearcher pour parcourir ton active directory.

[l0quito]

Tu veux pas dire par hasard le LDAP ?

Oui, mais plus précisément, quand on doit rentrer l'adresse DNS(serveur AD) j'aimerai la trouver par code et non que sa soit l'utilisateur qui doivent la rentrer.
Ma question est : Quelqu'un connais la fonction qui me permet d'obtenir l'adresse de mon DNS?
Voilà mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Try
            'srv = ipDns (celle-là que j'aimerai remplacer)
            Dim srv As String = tbxIPDNS.Text
            Dim tbxUser As String = tbxLogin.Text
            Dim tbxPsw As String = tbxMdp.Text
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://" & srv, tbxUser, tbxPsw)
            Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap) ', "dc=Groupe_EGS")
            searcher.Filter = "(objectClass=user)"
            Dim DirEntry As DirectoryEntry
            For Each result As SearchResult In searcher.FindAll
                DirEntry = result.GetDirectoryEntry
                'traitements...
            Next
        Catch ex As Exception
            MsgBox("Connexion impossible, verifier le login et le mot de passe")
        End Try
    End Sub

Merci d'avance.

[Graffito]

Récupéré sur le net:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
IPAddressCollection dnsAddresses = null;
//Get information for network interfaces on local computer
NetworkInterface[] NICs = NetworkInterface.GetAllNetworkInterfaces();
foreach (NetworkInterface adapter in NICs)
{ //Check if it is the loopback
  if (adapter.NetworkInterfaceType != NetworkInterfaceType.Loopback)
  { //For every network adapter get the configure Dns addresses
    IPInterfaceProperties properties = adapter.GetIPProperties();
    //initialize the ip addresses collection 
    if (dnsAddresses == null) dnsAddresses = properties.DnsAddresses; 
    else //if the collection is initialized add the dns ip addresses
    foreach (IPAddress dnsAddress in properties.DnsAddresses)
      dnsAddresses.Add(dnsAddress);
}

Sinon voir dans la class System.net.dns