Finder list of local IP

Bonjour,

ça fais quelques jours je galère avec une partie de mon application windows que j arrive pas à trouver le code source bref j ai besoin en cliquant sur un bouton d'avoir la liste des adresse Ip qui se trouve en réseau local . j ai essayé de faire le max mais a chaque fois c est l IP de mon pc que ça m'afficha , s'il vous plait si quelqu'un a une réponse n’hésiter pas a me repondre c est important pour mon stage

Bonjour,

Par exemple (en c#) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

using System.Diagnostics; using System.IO;   //Gets the machine names that are connected on LAN Process netUtility = new Process(); netUtility.StartInfo.FileName = "net.exe"; netUtility.StartInfo.CreateNoWindow = true; netUtility.StartInfo.Arguments = "view"; netUtility.StartInfo.RedirectStandardOutput = true; netUtility.StartInfo.UseShellExecute = false; netUtility.StartInfo.RedirectStandardError = true; netUtility.Start();   StreamReader streamReader = new StreamReader(netUtility.StandardOutput.BaseStream, netUtility.StandardOutput.CurrentEncoding);   string line = "";   while ((line = streamReader.ReadLine()) != null) { if (line.StartsWith("\\")) { listBox1.Items.Add(line.Substring(2).Substring(0, line.Substring(2).IndexOf(" ")).ToUpper()); } }   streamReader.Close(); netUtility.WaitForExit(1000);

---

lien forum msdn

Rebonjour,


Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String()

Dim saddr() As String
Dim addr() As IPAddress = Dns.Resolve(computername).AddressList()
Dim i As Integer
If addr.Length > 0 Then
saddr = New String(addr.Length - 1) {}
For i = 0 To addr.Length - 1
saddr(i) = addr(i).ToString
Next
End If

Return saddr

End Function

voila un code que j ai essayé mais ça marche pas au niveau de Dns.Resolve ça me dit Resolve is obsoleted try GethostEntry et cette derniere ça marche pas aussi , est ce que que c est a ce point deficile de trouver liste des IP qui se trouve sur reseau ethernet dans une societé???

Bonjour,

Avez-vous essayé le bout de code proposé ci-dessus ?
Il existe des convertisseurs VB/C# sur internet

bonjour,


je vous remercie j ai essayé votre code en c# même ça marche , c pas grave je vais faire cette partie en c# merci enormément

tu peux utiliser WMI

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim moOS As ManagementObjectSearcher Dim moIP As ManagementObject Dim ip AsString   moOS = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")   ForEach moIP In moOS.Get ip = moIP("IPAddress").ToString Next

---

Bonjour AZSTAR,

je vous remercie pour votre aide et votre solution me semble trop logique , mais j ai eu quelques difficultés déja je suis en framwork 4 vb.net 2010 et j'arrive pas a comprendre malgré quelques recherche sur msdn l'erreur voila
le mot en rouge c est la ou ya l erreur et ça di que ManagementObjectSearcher ça peut etre indexé car elle n a pas de propriete par defaut , y'a l espace de nom en place System.Management je comprend pas , j'espere que qulqu'un me clarifié l'erreur

Try


Dim moOS As ManagementObjectSearcher
Dim moIP As ManagementObjectSearcher
Dim ip As String

moOS = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each moIP In moOS.Get
ip = moIP("IPAddress").ToString

Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

bonjour ;

tu peux faire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Try   Dim moOS As ManagementObjectSearcher Dim ip As String   moOS = New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")     For Each mIP As ManagementObject In moOS.Get Dim Ips() As String = mIP.Properties("IPAddress").Value For Each _ip As String In Ips 'IP Console.WriteLine(_ip) Next   Next   Catch ex As Exception MsgBox(ex.Message) End Try

---