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

Soyez le premier à donner votre avis sur cette source.

Vue 11 445 fois - Téléchargée 614 fois


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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

TOM_KILLERz
Messages postés
37
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
4 mai 2005
-
Bravo hvb

Utilité 10/10
Facilité d'utilisation (commentaires ...) 10/10
Efficacitée du code 10/10

Final 10/10 ...

Merci @ toi hvb
cbjp85
Messages postés
34
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
6 avril 2003
-
Je suis aussi débutant :p et je voudrais savoir les pricipales différences entre ton code et ceci :

Imports System.Management


Dim IP As String
Dim sHostName As String
Dim ipE As Net.IPHostEntry
Dim IpA() As Net.IPAddress



IP = ""
sHostName = Net.Dns.GetHostName()
ipE = Net.Dns.GetHostByName(sHostName)
IpA = ipE.AddressList()
Dim i As Integer
For i = 0 To IpA.GetUpperBound(0)
IP = IP + IpA(i).ToString()
Next i


Comme LogOff, merci d'avance...
cs_LogOff
Messages postés
69
Date d'inscription
dimanche 6 octobre 2002
Statut
Membre
Dernière intervention
14 juillet 2009
-
Merci, c'est utile...
Tu pourrais m'expliquer le fonctionnement, stp (je suis débutant) ?
Merci d'avance.

LogOff

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.