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

Question

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

gillardg · Accepted Answer

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+

issamesisa · Answer

javascript:void(0);
une idée svp

issamesisa · Answer

Merci beaucoup Mr gillardg

issamesisa · Answer

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

issamesisa · Answer

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

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

5 réponses

Votre réponse

Discussions similaires