Recuperer nom d'hote dns, alias et ips via une ip ou un hostname en dot net


Télécharger le projet
Commenter

Description

Je pense que le nom est assez explicite, j'ai mis un exemple de base au lieu de vous filer un scanner bourré de fonction peu utiles et brouillant la lecture du code, le but etant que vous reutilisiez cette Sub.

Maj rapide le 7/04/04 a 23h53

Source / Exemple : 


'tout d'abord ajouter cette reference au tout debut de votre code :
Imports System.Net

    'ensuite declarer ces variables globales et cette function

    Dim hName As String
    Dim hIp() As String
    Dim Halias() As String
    Dim nbrIP As Integer
    Dim nbralias As Integer

    Public Function getinfo(ByVal HostOrIp As String) As Boolean
        'Le nom d'hote est stocké dans la variable Hname
        'Si l'host renvoie plusieurs addresse, ces dernieres sont placées dans le tableau a une seule dimension HIp.
        'Pareil pour les alias dans Halias
        Try
            Dim resolver As IPHostEntry = Dns.Resolve(HostOrIp)
            Dim n As Integer
            nbrIP = resolver.AddressList.GetUpperBound(0)
            nbralias = resolver.Aliases.GetUpperBound(0)
            hName = resolver.HostName
            ReDim halias(nbralias)
            For n = 0 To nbralias
                halias(n) = resolver.Aliases(n).ToString
            Next
            ReDim hIp(nbrIP)
            For n = 0 To nbrIP
                hIp(n) = resolver.AddressList(n).ToString
            Next
            Return True
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
            Return False
        End Try
    End Function

    'Voila comment je recupere ensuite les données, avec 1 textbox(Textbox1) et 1 listview (ListView1):
    Private Sub getdata_sub()
        Dim n As Integer
        ReDim hIp(0)
        If getinfo(TextBox1.Text) * True Then
            ListView1.Items.Clear()
            ListView1.Items.Add("Ip:")
            For n = 0 To hIp.GetUpperBound(0)
                ListView1.Items.Add(" ").SubItems.Add(hIp(n))
            Next
            ListView1.Items.Add("Hostname:")
            ListView1.Items.Add(" ").SubItems.Add(hName)
            ListView1.Items.Add("Alias:")
            For n = 0 To halias.GetUpperBound(0)
                ListView1.Items.Add(" ").SubItems.Add(halias(n))
            Next
        End If
    End Sub

Conclusion :


si il y a des questions ou des remarques, vous connaissez le principe.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (hvb)