ExplicMode d'emploiRépondreUtilisation
2667


Quelle commande sous DOS et linux permet de pinger la totalité des postes sur une plage d'adresse ip donnée ?
question de : tiDav

Le Framework .Net 2.0 vous permettra de pinger comme vous le désirez. Utiliser la commande Ping dans l'invite de commande est une opération réalisée très souvent par les administrateurs et les développeurs de sites.

Voici aussi un code intéressant à réaliser avec le Framework .Net 2.0 qui répondra peut être à votre attente. Dans ce code, nous récupérons tout d'abord la liste complète des interfaces réseaux de votre machine, puis nous en choisissons une (une liste déroulante semble un bon moyen de procéder, si vous travaillez sur une application WebForms ou WinForms), puis ensuite, tour à tour, nous récupérons de nombreuses informations que nous ajoutons au fur et à mesure dans une ArrayList. La fonction retourne donc une ArrayList contenant les informations relatives au protocole IP de l'interface sélectionnée.

' Obtient les informations relatives au protocole IP
Public Function getAllInfos() As ArrayList
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("nom_de_l'interface_voulue")
Dim maListeGlobale As ArrayList = Nothing
Try
' Récupération de la totalité des propriétés IP de l'interface sélectionnée
Dim mesProprietesReseau As IPInterfaceProperties = _
monInterface.GetIPProperties()
' Récupère les adresses unicast liées à cette interface
Dim infosUnicast As UnicastIPAddressInformationCollection = _
mesProprietesReseau.UnicastAddresses
Dim adresseIp As IPAddressInformation
' Affichage de l'adresse IP de l'interface
For Each adresseIp In infosUnicast
maListeGlobale.Add("Adresse IP : " & adresseIp.Address.ToString())
Next
' Récupère les informations relatives au DNS
Dim infosDns As IPAddressCollection = mesProprietesReseau.DnsAddresses
Dim adresseDns As IPAddress
' Ajoute à notre ArrayList les adresses DNS de l'interface
For Each adresseDns In infosDns
maListeGlobale.Add("Adresse DNS : " & adresseDns.ToString)
Next
' Si protocole DHCP activé sur l'interface alors
' recherche de l'adresse du serveur DHCP
If mesProprietesReseau.GetIPv4Properties.IsDhcpEnabled = True Then
Dim infosDhcp As IPAddressCollection = mesProprietesReseau_
.DhcpServerAddresses
Dim adresseDhcp As IPAddress
' Ajoute à notre ArrayList les adresses de serveur DHCP
For Each adresseDhcp In infosDhcp
maListeGlobale.Add("Adresse DHCP : " & adresseDhcp.ToString)
Next
End If
' Récupération des propriétés relatives à la passerelle
Dim infosPasserelle As GatewayIPAddressInformationCollection = _
mesProprietesReseau.GatewayAddresses
Dim ipPasserelle As GatewayIPAddressInformation
' Ajoute à notre ArrayList l'adresse de la passerelle IP
For Each ipPasserelle In infosPasserelle
maListeGlobale.Add("Passerelle IP : " & ipPasserelle_
.Address.ToString())
Next
' Récupéartion des adresses de multicast de l'interface sélectionnée
Dim infosMulticast As MulticastIPAddressInformationCollection = _
mesProprietesReseau.MulticastAddresses
Dim multicastAdresse As MulticastIPAddressInformation
' Ajoute à notre ArrayList les adresses de multicast
For Each multicastAdresse In infosMulticast
maListeGlobale.Add("IP multicast : " & multicastAdresse_
.Address.ToString())
Next
Catch ex As Exception
MessageBox.Show("Une erreur est survenue : " & ex.Message)
End Try
Return maListeGlobale
End Function

réponse de : Nicolas.




Sujets en relation :


Les 5 questions précédentes :


Voir les autres fiches dans la même catégorie : page 2 - 3 - 4 - 5 -

















Répondre


ajouter des informations






06-11-2017