Discussion :

[GhostDady]

Bonjour,

J'ai un petit code qui me converti les adresses IP en nom de machine.

C'est un réseau d'entreprise avec domaine et serveurs DNS.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Function NomDuPoste(ByVal AdresseIP As String) As String
        Dim Retour As String = " "
        Try
            Dim NomPoste As IPHostEntry = Dns.GetHostEntry(AdresseIP)
            If NomPoste.HostName <> AdresseIP Then
                Retour = NomPoste.HostName
            Else
                Retour = " "
            End If
        Catch ex As Exception     
        End Try
        Return Retour
End Function

C'est la fonction standard et basic de la FAQ VB.net

Le souci c'est que le HostName retourné provient des Wins et non des DNS.
Ma console DHCP m'affiche le bon nom de poste associé à l'adresse IP
Le débug de mon programme me donne un nom super bizarre.

J'ai vu avec les spécialistes serveurs et ils m'ont donné cette piste des Wins.

Quelqu'un aurait-il une idée sur la source et/ou la résolution de ce problème?

Est-il possible d'obliger VB à utiliser les serveurs DNS plutôt que les Wins?

[GhostDady]

Re,

J'ai trouvé un début de solution.

Il y a un problème avec la fonction Dns.GetHostEntry
http://www.tech-archive.net/Archive/.../msg00343.html
http://connect.microsoft.com/VisualS...edbackID=97815

Donc j'ai résolu le souci des noms machines sous formes d'adresse IP

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Function NomDuPoste(ByVal AdresseIP As String) As String
        Dim Retour As String = " "
        Try
            Dim NomPoste As IPHostEntry = Dns.GetHostByAddress(AdresseIP)
            Retour = NomPoste.HostName
        Catch ex As Exception 'Si erreur enregistrement des infos dans un fichier
 
        End Try
        Return Retour
    End Function

Petit souci persistant, j'ai toujours des adresses IP différentes qui sont associés au même PC.

ex:
192.168.1.20 PC_01
192.168.1.30 PC_01

Quelqu'un aurait une idée ou une piste que je pourrai explorer?

[GhostDady]

Voici la réponse: Merci Billou

Cette anomalie (deux IP différentes pour un même nom d'hôte) provient des DNS.

Les DNS travaillent avec deux tables:
- Nom de poste vers Adresse IP
- Adresse IP vers Nom de poste

Lors d'un changement d'IP d'un poste, la première table (Hôte -> IP) est mise à jour correctement dans la plupart des cas.

Mais la seconde table (IP -> Hôte) est apparemment un peu moins fiable et il arrive la donnée Ancienne @ip -> Hôte ne soit pas supprimé

Conséquence dans le sens IP -> Hôte, on se retrouve avec deux adresses IP pour un même nom de poste.

Pour contourner ce problème, je vais systèmatiquement faire les conversion dans les deux sens.

Code :

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

1
2
 
Dim NomPoste As IPHostEntry = Dns.GetHostEntry(AdresseIP)

Suivi de la fonction inverse

Code :

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

1
2
 
Dim ValideIP As IPHostEntry = Dns.GetHostEntry(NomPoste)

Si l'adresse IP de retour (ValideIP) est identique à l'adresse IP d'origine (AdresseIP) alors le nom du poste (NomPoste) est correct.

J'espère que cette solution servira à d'autre.
Bye.

[AcideBlood]

bonjour

je cherche un code pour récuperer mon adresse ip ( Web)

Merci

[Graffito]

Pour l'adresse LAN du PC :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
using System.Net;
 
//To get the local IP address 
string sHostName = Dns.GetHostName (); 
IPHostEntry ipE = Dns.GetHostByName (sHostName); 
IPAddress [] IpA = ipE.AddressList; 
for (int i = 0; i < IpA.Length; i++) 
{ 
    Console.WriteLine ("IP Address {0}: {1} ", i, IpA[i].ToString ()); 
}

[Graffito]

Pour l'adresse WAN du routeur:

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
public static IPAddress GetExternalIp()
{
  string whatIsMyIp = "http://whatismyip.com";
  string getIpRegex = @"(?<=<TITLE>.*)\d*\.\d*\.\d*\.\d*(?=</TITLE>)";
  WebClient wc = new WebClient();
  UTF8Encoding utf8 = new UTF8Encoding();
  string requestHtml = "";
  try { requestHtml = utf8.GetString(wc.DownloadData(whatIsMyIp)); }
  catch (WebException we)  { messageBox.show(we.ToString()); }
  Regex r = new Regex(getIpRegex);
  Match m = r.Match(requestHtml);
  IPAddress externalIp = null;
  if (m.Success) externalIp = IPAddress.Parse(m.Value);
  return externalIp;
}