1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Public Sub getAllInfos()
Dim mesInterfaces() As NetworkInterface
mesInterfaces = NetworkInterface.GetAllNetworkInterfaces
Dim monInterface As NetworkInterface
' "nom_de_l'interface_voulue" : correspond à l'interface que vous souhaitez
' qui se trouve dans le tableau mesInterfaces()
monInterface = mesInterfaces(1)
Dim maListeGlobale As DataTable = Nothing
maListeGlobale = New DataTable
Try
' Récupération de la totalité des propriétés IP de l'interface sélectionnée
Dim mesProprietesReseau As IPInterfaceProperties = monInterface.GetIPProperties()
DvComputers.Rows.Clear()
Dim infosDns As IPAddressCollection = mesProprietesReseau.DnsAddresses
Dim adresseDns As IPAddress
' Ajoute à notre ArrayList les adresses DNS de l'interface
For Each adresseDns In infosDns
DvComputers.Rows.Add("Adresse DNS", adresseDns.ToString)
Next
Catch ex As Exception
MessageBox.Show("Une erreur est survenue : " & ex.Message)
End Try |
Partager