Récupérer l'IP de la machine réseau local a partir de son nom (vb.net) [Résolu]

issamesisa 30 Messages postés jeudi 8 mai 2008Date d'inscription 15 septembre 2010 Dernière intervention - 4 juin 2010 à 12:07 - Dernière réponse : issamesisa 30 Messages postés jeudi 8 mai 2008Date d'inscription 15 septembre 2010 Dernière intervention
- 7 juin 2010 à 09:37
bonjour,
j'ai une liste de nom de pc connecté a un réseau local grace a mon code de visual basic .Net 2005 , j'ai besoin de connaitre IP de chaque nom de pc connecté au réseau local
ce que j'ai trouvé :
ping nomdupc > file.txt récupère l'adresse ip de nom de la machine dans un fichier text , le prob c que le fichier text est plein d'information , j'arrive pas a récupéré juste l'adresse ip
aidez moi
merci d'avance
Afficher la suite 

Votre réponse

5 réponses

Meilleure réponse
gillardg 3288 Messages postés jeudi 3 avril 2008Date d'inscription 14 septembre 2014 Dernière intervention - 4 juin 2010 à 14:36
2
Merci
Bonjour,
google : hostname to ip adress + dotnet

bon allez je te file la réponse quand même :)
Imports System.Net

  Public Function Hostname2IP(ByVal hostname As String) As String
        Dim hostname2 As IPHostEntry = Dns.GetHostByName(hostname)
        Dim ip As IPAddress() = hostname2.AddressList
        Return ip(0).ToString()
    End Function


a+

Merci gillardg 2

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 89 internautes ce mois-ci

Commenter la réponse de gillardg
issamesisa 30 Messages postés jeudi 8 mai 2008Date d'inscription 15 septembre 2010 Dernière intervention - 4 juin 2010 à 12:43
0
Merci
javascript:void(0);
une idée svp
Commenter la réponse de issamesisa
issamesisa 30 Messages postés jeudi 8 mai 2008Date d'inscription 15 septembre 2010 Dernière intervention - 7 juin 2010 à 09:18
0
Merci
Merci beaucoup Mr gillardg
Commenter la réponse de issamesisa
issamesisa 30 Messages postés jeudi 8 mai 2008Date d'inscription 15 septembre 2010 Dernière intervention - 7 juin 2010 à 09:36
0
Merci
Imports System.Net
Imports System.Net.Sockets
Module Module1
Public Sub DisplayHostName(ByVal hostName As [String])
Try
' Call the GetHostByName method, passing a DNS style host name(for example,
' "www.contoso.com") as an argument to obtain an IPHostEntry instance, that
' contains information for the specified host.

Dim hostInfo As IPHostEntry = Dns.GetHostByName(hostName)
' Get the IP address list that resolves to the host names contained in
' the Alias property.
Dim address As IPAddress() = hostInfo.AddressList
' Get the alias names of the the addresses in the IP address list.
Dim [alias] As [String]() = hostInfo.Aliases

Console.WriteLine(("Host name : " + hostInfo.HostName))
Console.WriteLine(ControlChars.Cr + "Aliases : ")
Dim index As Integer
For index = 0 To [alias].Length - 1
Console.WriteLine([alias](index))
Next index
Console.WriteLine(ControlChars.Cr + "IP address list : ")

For index = 0 To address.Length - 1
Console.WriteLine(address(index))
Next index
Catch e As SocketException
Console.WriteLine("SocketException caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
Catch e As ArgumentNullException
Console.WriteLine("ArgumentNullException caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
Catch e As Exception
Console.WriteLine("Exception caught!!!")
Console.WriteLine(("Source : " + e.Source))
Console.WriteLine(("Message : " + e.Message))
End Try
Console.ReadKey()
End Sub
Commenter la réponse de issamesisa
issamesisa 30 Messages postés jeudi 8 mai 2008Date d'inscription 15 septembre 2010 Dernière intervention - 7 juin 2010 à 09:37
0
Merci
Imports System.Net
Imports System.Net.Sockets
Module Module1
    Public Sub DisplayHostName(ByVal hostName As [String])
        Try
            ' Call the GetHostByName method, passing a DNS style host name(for example,
            ' "www.contoso.com") as an argument to obtain an IPHostEntry instance, that 
            ' contains information for the specified host.

            Dim hostInfo As IPHostEntry = Dns.GetHostByName(hostName)
            ' Get the IP address list that resolves to the host names contained in 
            ' the Alias property.
            Dim address As IPAddress() = hostInfo.AddressList
            ' Get the alias names of the the addresses in the IP address list.
            Dim [alias] As [String]() = hostInfo.Aliases

            Console.WriteLine(("Host name : " + hostInfo.HostName))
            Console.WriteLine(ControlChars.Cr + "Aliases : ")
            Dim index As Integer
            For index = 0 To [alias].Length - 1
                Console.WriteLine([alias](index))
            Next index
            Console.WriteLine(ControlChars.Cr + "IP address list : ")

            For index = 0 To address.Length - 1
                Console.WriteLine(address(index))
            Next index
        Catch e As SocketException
            Console.WriteLine("SocketException caught!!!")
            Console.WriteLine(("Source : " + e.Source))
            Console.WriteLine(("Message : " + e.Message))
        Catch e As ArgumentNullException
            Console.WriteLine("ArgumentNullException caught!!!")
            Console.WriteLine(("Source : " + e.Source))
            Console.WriteLine(("Message : " + e.Message))
        Catch e As Exception
            Console.WriteLine("Exception caught!!!")
            Console.WriteLine(("Source : " + e.Source))
            Console.WriteLine(("Message : " + e.Message))
        End Try
        Console.ReadKey()
    End Sub
Commenter la réponse de issamesisa

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.